Listing of file='MENU.BAS;04' on disk='vmedia/sound_light_pen-sector.ccvf'
10 REM *** MENU USING THE LIGHT PEN *** 20 REM 30 PLOT 15,6,2,12,29 40 GOSUB 10000 100 REM *** MAIN LOOP *** 110 REM 120 GOSUB 15000 160 PLOT 8:PRINT NS 170 FOR I= 1 TO 300:NEXT I 180 GOTO 100 10000 REM *** SETUP THE LIGHT-PEN ROUTINE *** 10010 REM 10020 PLOT 27,4 10030 PRINT "LOAD MENU.PRG" 10040 PLOT 27,27 10050 POKE 33282,195:POKE 33283,63:POKE 33284,144 10060 RETURN 15000 REM *** SCAN THE MENU *** 15010 REM 15020 NS = CALL (0) 15030 RETURN