Listing of file='MNUTST.BAS;01' on disk='vmedia/interface_software-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 PLOT 3,0,3:PRINT "NEXT" 130 GOSUB 15000 150 PLOT 8,11:PRINT NS 160 PLOT 3,0,3:PRINT " " 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