SCREEN 9
CLS
FOR ZOOM = 1 TO 50
LET B = B + 2
CIRCLE (260, 75), B
NEXT
FOR CNT% = 1 TO 300
PSET (INT(RND * 779), INT(RND * 320) + 1), INT(RND * 35 + 35)
NEXT CNT%
DRAW "br320bd180"
Rocket$ = "u20d20ru21d21ru22d22ru23d23ru24d24ru25d25ru24d24ru23d23ru22d22ru21d21ru20bd20 bl10"
DRAW "c15x" + VARPTR$(Rocket$)
SLEEP 1
FOR n = 37 TO 60 STEP 5: SOUND n, 1: NEXT
FOR Move = 1 TO 340
DRAW "c0x" + VARPTR$(Rocket$)
DRAW "bu1"
DRAW "c15x" + VARPTR$(Rocket$)
NEXT
DRAW "c15x" + VARPTR$(Rocket$)
DO: LOOP WHILE INKEY$ = ""
END