qbasic programming

 BBS: Inland Empire Archive
Date: 04-20-92 (12:39)             Number: 187
From: MIKE PHILLIPS                Refer#: NONE
  To: ANTHONY CORSA                 Recvd: NO  
Subj: qbasic programming             Conf: (3) Dr_Debug

DIM bus%(1 TO 86)
CLS : SCREEN 1
COLOR 0, 0
'bus body
LINE (31, 40)-(71, 50), 2, BF
LINE (26, 45)-(31, 50), 2, BF
'bus wheels
CIRCLE (29, 50), 3, 3
CIRCLE (66, 50), 3, 3
PAINT (29, 50), 3, 3
PAINT (66, 50), 3, 3
'store bus image
GET (26, 40)-(71, 53), bus%
'draw highway w/ phone poles
CLS
LOCATE 15, 7: PRINT "Press any key to stop bus..."
LINE (0, 100)-(319, 100), 2
FOR col% = 5 TO 319 STEP 40
   LINE (col%, 100)-(col%, 85)
   LINE (col% - 3, 88)-(col% + 2, 88)
NEXT col%
'animate bus
DO WHILE INKEY$ = ""
   FOR animation% = 250 TO 0 STEP -50
      PUT (animation%, 87), bus%, XOR
      FOR time.delay = 1 TO 500: NEXT time.delay
      PUT (animation%, 87), bus%, XOR
   NEXT animation%
LOOP
END



--- Maximus 2.01wb
 # Origin: The Catacombs (317)525-7164 *9600HST* (8:74/1)
 * Origin: FamilyNet Intl. Echogate [708] 887-7685 (1:11/50)