Advertisement
ATARI Light Pen Operator's Manual
SECTION 8 - PRQQRAMMINQ EXAMPLE 4:
A Teaching Aid
The program in Figure 16 demonstrates a multiple-choice test. Type in
and RUN the program.
10 REM DEMO
PEN AS A TEACHING AID (MENU SELECTOR)
15 DIM A$(10)
20 GRAPHICS 0:SETCOLOR 2t3,8:SETC0L0R 1,0^1^
25 GOSUB 9000:PENBUF«1536:POKE 205,15!POKE 752,1
30 POSITION 8,10JPRINT "HOW MANY DIGITS?"
^0 POSITION 12,12:PRINT "1
2
3
^
5"
50 IF PEEK(632>«15 THEN 50
60 JUNK=USR(PENBUF)
70 C=PEEK(208):R«PEEK(209)
80 IF R012 THEN 50
90 LENG=INT((C-8)/3>:iF <LENG<1) OR <LENG>5) THEN 50
100 X=:INT(<9*RND(0)+l))iclOA(LENG-l))
110 Y=:INT ((9)icRND (0 ) +1) *10'^ (LENG~1))
120 PRINT CHRS<125):POSITION 16,8:PRINT X
130 POSITION 1^,9:PRINT "+ "JY
1^0 POSITION i^,io:print
"::for q=i to leng:print "^";:next q
150 P=INT<10)KRND<0)4-1)
170 FOR 0=1 TO 10:iF (Q=P) THEN A=:X4-y:G0T0 190
180 A=INT < (18)icRND ( 0 ) 4-2) *10'^ (LENG-1))
190 POSITION 15*(Q>5)4-10,2)ic(Q-53ic(Q>5))4-ll
200 A$=STRS(A):F0R Z=1 TO LEN(AS)tPRINT CHRS<ASC(AS<Z,Z))+128);:NEXT Z
210 NEXT Q
250 IF PEEK<632)=15 THEN 250
260 JUNK=USR(PENBUF):C=:PEEK< 208):R= <PEEK(209)-11)/2
270 IF (INT(R)<>R) OR (R<1) OR (R>5) THEN 250
275 POSITION 12,5
280 IF (O20) THEN R=R4-5
290 IF (R=P) THEN PRINT "CORRECT!!!":GOTO 100
300 PRINT "NOT QUITE^**"
310 FOR Z=1 TO 200:NEXT Z
320 POSITION 12,5:PRINT "
"tGOTO 250
9000 REM "LOADER" LOADS "PENBUF" INTO PAGE 6
9010 RESTORE 9020:FOR X=1536 TO 1652:READ P:P0KE X,P:NEXT XtRETURN
9020 DATA 104,162,0,160,6,132,20^,173,12,212,201,10,14^,3,56,233,228
9030 DATA 24,105,154,160,117,132,203,32,86,6,165,203,24,101,205,133
9040 DATA 203,173,13,212,56,233,16,32,86,6,232,228,205,240,9,165
9050 DATA 20,197,20,240,252,76,7,6,165,2(^5,74,168,177,203,133,207
9060 DATA 169,117,133,203,177,203,133,206,165,206,74,74,133,208,165,207
9070 DATA 74,74,133,209,96,134,206,164,206,192,0,240,20,136,209,203
9080 DATA 200,176,14,136,133,206,177,203,200,145,203,136,165,206,56,176
9090 DATA 232,145,203,96
NOTE:
The characters in the quotes in line 140 should be occupied by
"CTRL N" characters. It is not shown since the printer which
produced this listing has no such character in its character
set.
Figure 16
Programming Example 4: A Teaching Aid
A Teaching Aid - 39
Advertisement
