Minimalist rocket animation.
Appears on
Library tape of the Indiana Sinclair Timex User’s Group.
Source Code
5 REM PROGRAM *** "ROCKETS" 10 BORDER 1 15 STOP 20 CLS : BEEP 1,3 30 PAUSE 60 40 BORDER 2 50 BEEP 1,4 60 PAUSE 120 70 BORDER 3 80 BEEP 1,5 90 PAUSE 180 100 PRINT AT 21,16;" * ",, 120 PRINT " *** ",, 130 PRINT " ***** ",, 140 PRINT "*******",, 150 PRINT "* *",, 160 PRINT "* *",, 170 PRINT "* *",, 180 PRINT "* *",, 190 PRINT "* *",, 200 PRINT "* *",, 210 PRINT "* *",, 220 PRINT "*******",, 230 PRINT "*******",, 240 PRINT "/ \\ / \\",, 250 PRINT "!!! !!!",, 260 PRINT "!!! !!!",, 270 PRINT "!!! !!!" 280 BORDER 4 290 BEEP 1,6 300 PAUSE 60 310 BORDER 5 315 PAPER 0 317 INK 7 320 FOR L=1 TO 40 325 LET A=INT (RND*32) 330 LET Z=INT (RND*22) 335 PRINT AT Z,A;"*" 340 NEXT L 350 PRINT "HURRAY!"; 360 GO SUB 10 370 STOP 9998 SAVE "ROCKETS" LINE 20