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