100 REM LIGHT PEN DEMO 150 PRINT CHR$(125) 160 PRINT "THREE CHOICES" 170 PRINT:PRINT:PRINT 180 PRINT "* CHOICE ONE" 190 PRINT:PRINT:PRINT 200 PRINT "* CHOICE TWO" 210 PRINT:PRINT:PRINT 220 PRINT "* CHOICE THREE" 230 A=PEEK(564):B=PEEK(565) 240 IF A>90 THEN 230 250 IF (B>25) AND (B<35) THEN 300 260 IF (B>45) AND (B<55) THEN 330 270 IF (B>60) AND (B<70) THEN 360 290 GOTO 230 300 PRINT CHR$(125) 310 PRINT "CHOICE ONE" 320 GOTO 400 330 PRINT CHR$(125) 340 PRINT "CHOICE TWO" 350 GOTO 400 360 PRINT CHR$(125) 370 PRINT "CHOICE THREE" 400 FOR I=1 TO 15:PRINT:NEXT I 410 PRINT 420 PRINT "* CONTINUE" 430 IF PEEK(564)<90 AND PEEK(565)>80 THEN 150 440 GOTO 430