Listing of file='TIMER.BAS;01' on disk='vmedia/games2-sector.ccvf'
5 PLOT 12 10 PRINT "TIMER" 20 FOR D= 1TO 1000:NEXT D 30 PRINT 40 PRINT "THIS PROGRAM IS LIKE AN EGG-TIMER." 50 PRINT "THE MESSAGE TO START WILL BE:" 60 PLOT 31,29,17 70 PRINT "START" 80 PLOT 15,14,29,18 90 FOR D= 1TO 750:NEXT D 100 PRINT "THE MESSAGE TO STOP WILL BE:" 110 PLOT 31,29,20 120 PRINT "STOP" 130 PLOT 15,14,29,18 140 FOR D= 1TO 750:NEXT D 150 PRINT 160 PRINT "HOW LONG A TIME DO YOU WANT?" 170 INPUT "(IN SECONDS) ";A 180 B= A* 500 190 FOR D= 1TO 750:NEXT D 200 PRINT 210 PRINT "(TYPE 'S' TO START) 220 INPUT "?";A$ 230 IF A$= "S"THEN 270 240 GOTO 210 270 PLOT 31,29,17 280 PRINT "START" 290 PRINT 300 FOR D= 1TO B:NEXT D 310 PLOT 29,20 320 PRINT "STOP" 330 PRINT 340 PLOT 15,14,29,18 350 PRINT 355 FOR D= 1TO 750:NEXT D 360 INPUT "ANOTHER TIME? ";B$ 370 IF B$= "YES"THEN 150 380 END