Listing of file='MNUTST.BAS;04' on disk='vmedia/multi_peripheral_interface_demo-sector.ccvf'
10 REM *** MENU USING THE LIGHT PEN *** 15 REM 20 REM (C) COPYRIGHT 1982 BY MICROCOMPUTER TECHNOLOGY 25 PLOT 15,6,1,12,29 30 GOSUB 10000 35 PRINT "SAMPLE MENU PROGRAM USING THE LIGHT-PEN ROUTINES" 40 PRINT :PRINT "HOLD PEN CLOSE TO SCREEN AND POINT IT AT A COLORED BLOCK." 45 PRINT "PRESS THE BUTTON AND THE NUMBER OF THE BLOCK SHOULD" 50 PRINT "APPEAR IN THE TOP LEFT-HAND CORNER OF THE SCREEN." 55 PRINT :PRINT "PEN SENSITIVITY MAY BE TURNED UP FULL FOR THIS SIMPLE TEST." 60 PRINT :PRINT "THE ASSEMBLY LANGUAGE ROUTINE IS AVAILABLE ON DISK." 65 PRINT 70 INPUT "HIT <RETURN> WHEN READY";A$ 75 PLOT 15,6,2,12,29 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 LPMENU.PRG" 10040 PLOT 27,27 10050 POKE 33282,195:POKE 33283,63:POKE 33284,176 10060 RETURN 15000 REM *** SCAN THE MENU *** 15010 REM 15020 NS = CALL (0) 15030 RETURN