Ega Windows 2 of 4

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

'>>> Start of page 2.

Button 0, 0, 639, 349, 7, 0
Button 10, 40, 630, 345, 15, 0
Button 0, 0, 30, 20, 7, 0
Button 4, 5, 26, 15, 7, 0
Button 600, 0, 639, 20, 7, 0
LINE (619, 4)-(619, 18), 8
BoxFill 30, 0, 599, 20, 1
BoxFill 0, 20, 639, 35, 15

ColorPrint "BASIC WINDOWS v 1.00 Steve Demo", 2, 27, 15, 1
ColorPrint CHR$(31), 2, 77, 8, 7
ColorPrint CHR$(30), 2, 79, 8, 7
ColorPrint "EXIT   File   Copy   Borrow   Keep   QB   Lives ",_
 4, 3, 8, 15

Pause 35
FOR x = 1 TO 6
 ColorPrint "Ain't no C here Folks", 25, 30, 1, 15
 Pause 8
 ColorPrint STRING$(28, " "), 25, 30, 15, 15
 Pause 8
NEXT x
 ColorPrint "Quick BASIC LIVES !", 25, 30, 1, 15
 Pause 18
 ColorPrint "Take That Mickey Soft", 25, 30, 1, 15
 Pause 18
 ColorPrint STRING$(28, " "), 25, 30, 15, 15
Button 180, 180, 370, 210, 1, 0
 DO UNTIL LEN(INKEY$)
   Rim 180, 180, 370, 210, 1, 0
   ColorPrint "Press Any Key George", 25, 25, 15, 1
   SOUND 300, 1: Pause 9
   ColorPrint "Press Any Key George", 25, 25, 7, 1
   Rim 180, 180, 370, 210, 1, 1
   SOUND 150, 1: Pause 9
 LOOP
Rim 180, 180, 370, 210, 1, 1
ColorPrint "Enter Your Code here", 25, 25, 12, 1
SOUND 200, 1: SOUND 300, 1: SOUND 400, 1: Pause 18
NewClear 0
Pause 5
FOR x = 14 TO 9 STEP -1    'this is what you call OVER KILL
 BackDrop x                'I couldn't resist
 NewClear 0
 BackDrop x
NEXT x
Pause 5
NewClear 0
SCREEN 0
WIDTH , 25: COLOR 15
Pause 2  'couldn't remember how to call the wait cmd so I used
' this
 'my machine displays the Print cmd before the width gets
 'finished switcing the screen
LOCATE 14, 30: PRINT "So I'm a Ham"
END
Clock:
Clocks
SOUND 400, .1
RETURN

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

SUB box (x, y, xx, yy, Clur)
LINE (x, y)-(xx, yy), Clur, B
END SUB

SUB BoxFill (x, y, xx, yy, Clur)
LINE (x, y)-(xx, yy), Clur, BF
END SUB

SUB Button (x, y, xx, yy, Clour, InOut)
GetColor Clour, Clour1, Clour2
IF InOut = 1 THEN
 LINE (x, y)-(xx, yy), Clour, BF
 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

'>>> Continued on page 3

___ Blue Wave/QWK v2.11

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