Compucolor.org – Virtual Media

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