' File Name: ROCKET.BAS
'
' Prints a rocket flying up the screen
'
' Press any key to stop the rocket
'
' Richard Copealnd 1993


REM Main Program

CLS     ' Clears the screen
count = 10      ' Begin the count...
DO
  SLEEP 1: BEEP: PRINT count
  count = count - 1
LOOP UNTIL (count = 0)   ' Do not loop past 1
BEEP: BEEP: PRINT "*** Blast Off! ***": BEEP: BEEP


DO

PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT
PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT
PRINT TAB(20); "*"
PRINT TAB(19); "/*\"
PRINT TAB(19); "|||"
PRINT TAB(19); "|||"
PRINT TAB(19); "|||"
PRINT TAB(19); "|||"
PRINT TAB(18); "/|||\"
PRINT TAB(17); "/  *  \"
PRINT TAB(19); "**    **"
PRINT TAB(20); "**  * **"
PRINT TAB(21); "***"
PRINT : PRINT : PRINT : PRINT : PRINT

PRINT
PRINT TAB(20); "*"
PRINT TAB(19); "/*\"
PRINT TAB(19); "|||"
PRINT TAB(19); "|||"
PRINT TAB(19); "|||"
PRINT TAB(19); "|||"
PRINT TAB(18); "/|||\"
PRINT TAB(17); "/  *  \"
PRINT TAB(19); "**    **"
PRINT TAB(20); "**  * **"
PRINT TAB(21); "***"
PRINT : PRINT : PRINT : PRINT : PRINT

PRINT
PRINT TAB(20); "*"
PRINT TAB(19); "/*\"
PRINT TAB(19); "|||"
PRINT TAB(19); "|||"
PRINT TAB(19); "|||"
PRINT TAB(19); "|||"
PRINT TAB(18); "/|||\"
PRINT TAB(17); "/  *  \"
PRINT TAB(19); "**    **"
PRINT TAB(20); "**  * **"
PRINT TAB(21); "***"

PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT
PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT

LOOP WHILE INKEY$ = ("")
CLS : PRINT "Please Wait...": CHAIN "moneycga"