Compucolor.org – Virtual Media

Listing of file='REACTN.BAS;01' on disk='vmedia/games-sector.ccvf'

1 PLOT 12
2 PLOT 29,18
5 PRINT "AFTER GET READY DISAPPEARS HIT G AS QUICKLY AS POSSIBLE"
7 FOR W= 1TO 4000
8 NEXT W
9 PLOT 29,23
10 PRINT "   GET READY . . . . . "
20 FOR B= 1TO 500
30 NEXT B
40 PRINT :PRINT :PRINT
67 PLOT 29,17
70 PRINT TAB( 30),"GET SET . . . . . "
80 X= RND (1500)
90 FOR N= 1TO X
100 NEXT N
110 PLOT 12
120 PRINT :PRINT :PRINT :PRINT :PRINT
167 PLOT 29,22
170 PRINT TAB( 30)," G O ! ! ! "
175 PLOT 29,19
180 FOR Z= 1TO 20
190 PRINT Z
200 NEXT Z
205 PLOT 29,20
210 PRINT :PRINT :PRINT
240 PRINT "   S L O W P O K E  "
250 FOR N= 1TO 1000
260 NEXT N
270 END