Advertisement
ATARI Light Pen Operator's Manual
1 REM 8K VERSION OF "PALLET"
10 REM MOD A
40 DIM A1K117) :G0SUE! 9000
45 PENC0LR=3:L0C=1536JP0KE 205,3
70 GOTO 910
80 REM MOD J
105 POKE 77,0
110 Q=INT<Y/8)
125 IF PEEK(632)=14 THEN 125
130 IF Q>=:5 AND Q08 THEN 450
135 IF 0=11 THEN 910
140 REM MOD E
150 GOSUB 2000
160 xp=xjyp«y:xi=xjyi=y
170 GOSUB 2020
190 COLOR OJPLOT XP,YPJDRAWTO XI,Y1
210 COLOR pencolr:plot XP,YPJDRAWT0 X,Y
220 X1=XJY1=Y
230 IF PEEK(632)=14 THEN 170
240 GOTO 150
449 REM MODS L,M,N,0
450 PENC0LR=Q-5;COLOR PENCOLRtGOTO 150
870 REM MOD R
910 GOSUB lOOOJGOTO 150
980 REM MOD C
1000 GRAPHICS 23:COLOR ItSETCOLOR 4,0,8
1015 SETCOLOR 0,4,14:SETCOLOR 1,12,14:SETCOLOR 2,9,14
1020 PLOT 141,0:DRAWTO 141,95
1080 PLOT 146,41IDRAWTO 146,45:DRANT0 152,45:DRAWT0 152,41tDRAWTO 146,41
PLOT 149,51.
1100 COLOR 2:PLOT 149,59
1110 COLOR 2:PL0T 149,57
1169 PLOT 150,»9Ei>R0MT0 148,89:B>RaNT0
148,93:l>RAHT0 158,93
1200 RETURN
1218 REM MOP I
200e IF PEEK16321=15 THEN 2800
2020 Q=U5RCL0C1
2040 K=PEEKC2e5>sY=PEEKC2e7)
2045 IF X<e OR V<5 OR X>159 OR V>95 TH
EN 2000
2048 IF X>140 THEN POP
rGOTO 110
2050 RETURN
af 1P N 1 a
1' < a P 'I
9010 A5tLEHCA5l-H3="31KyaZl8aiK3P''
9020 0=1535:FOR K=1 TO LEMCAlllPOKE
X,A5CCA5CX,K]1:NEXT X:RETURN
READY
Figure 3
8K Version of PALLET Program Listing
ATARI Light Pen Demonstration Program Cassette - 11
Advertisement
