Ega Windows 4 of 4

 BBS: Inland Empire Archive
Date: 06-13-93 (08:50)             Number: 368
From: STEVE DEMO                   Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: Ega Windows 4 of 4             Conf: (2) Quik_Bas

'>>> Start of page 4.

  CASE ELSE
    BEEP: EXIT SUB
END SELECT
END SUB

SUB Intro
BackDrop 4
Button 220, 150, 420, 200, 5, 1
Rim 224, 154, 416, 196, 5, 0
ColorPrint "Basic  Windows", 21, 34, 7, 5
ColorPrint "By Steve Demo ", 23, 34, 7, 5
Pause 18
Rim 224, 154, 416, 196, 5, 1
Rim 220, 150, 420, 200, 5, 0
ColorPrint "Basic  Windows", 21, 34, 15, 5
ColorPrint "By Steve Demo ", 23, 34, 15, 5
Pause 22
END SUB

SUB NewClear (Clur)
 x = 639
 FOR y = 349 TO 0 STEP -1
  x = x - 5
  box 0 + x, 0 + y, 639 - x, 349 - y, Clur
 NEXT y
 CLS
END SUB

 SUB Pause (ticks%)
    DEF SEG = 0
    DO UNTIL TestTick% > ticks%
        LastTick% = GetTick%
        GetTick% = PEEK(&H46C)
         IF LastTick% <> GetTick% THEN
           TestTick% = TestTick% + 1
         END IF
    LOOP
    DEF SEG
 END SUB

SUB Rim (x, y, xx, yy, Clour, InOut)
GetColor Clour, Clour1, Clour2
IF InOut = 1 THEN
 LINE (x + 2, y + 2)-(xx - 2, yy - 2), Clour1, B
 LINE (x + 2, y + 2)-(x + 2, yy - 2), Clour2
 LINE (x + 2, y + 2)-(xx - 2, y + 2), Clour2
ELSE
 LINE (x + 2, y + 2)-(xx - 2, yy - 2), Clour2, B
 LINE (x + 2, y + 2)-(x + 2, yy - 2), Clour1
 LINE (x + 2, y + 2)-(xx - 2, y + 2), Clour1
END IF
END SUB


'______O_/__________________| SNIP |__________________\_O______
'      O \                  | HERE |                  / O


$$
... If at first you don't succeed, destroy all evidence that you tried.
___ Blue Wave/QWK v2.11

--- Maximus 2.01wb
 * Origin: Semper Fi BBS  Ft. Wayne, IN  (219) 424-4292 (1:236/21)