Advertisement
ATARI Light Pen Operator's Manual
"PALLET", LIGHT PEN DEMO
f;:em
REM
REM LOAD AND SAVE OPTIONS CURRENTLY WORK ON CASSETTE*
REM CHANGE FILE NAME IN LINES 710 AND 760
REM FROM "CJ" TO "DJPEN*OUT" FOR DISK OPERATION*
6
7
0 REM
9 DIM CI0$(7)
10 REM )K)K)K
MOD A
20 REM START
30 GRAPHICS OJPOKE 752,1:POSITION 15,13JPRINT "Hang On***"
^0 POKE 205,3JPENE:UF=1536:GOSUE: 90 00 JREM LOAD MACH LANG SUB
^5 PENM0DE=:-3JPENC0LR==3IREM INITIALIZE TO MODE AND COLOR 3
50 GOSUB 1000JREM DO SET-UP
70 GOTO 950SREM OUR MODES ARE INITIALIZED, SO "RESUME" THEM
80 REM
MOD J
100 REM SUB GETMODE
105 POKE 77,O:REM STOP FROM ENTERING ATTRACT MODE
110 Q^INT (Y/8) J NPEN^^O: NC0LR=a-5
120 GOSUB 3000JREM MOVE MODEBARS
125 IF PEEK(632):=1^ THEN 125JREM WAIT UNTIL PEN IS LIFTED FROM NEW MODE SECTION
130 ON Q+1 GOTO 6000 ,150 ,300 ,350 ,-^00 ,^50 ,500 ,550 ,600 ,700 ,750 ,900
1-^0 REM *** MOD E *)K)k
145 REM ENTER "ELASTIC" MODE
150 GOSUB 2000
152 IF (X1:=:X) AND (Y1:=Y) THEN 150
160 xp=x:yp=:y:xi==xjyi=yjrem define pivot point
170 GOSUB 2020
190 COLOR OJPLOT XP,YP:DRAWT0 Xl,YltREM ERASE
210 COLOR PENCOLRJPLOT XP,YP:DRAWT0 X,Y:REM NEW LINE
220 X1=::XJY1-=Y
230 IF PEEK(632)=:14 THEN 170
240 GOTO 150
250 REM *)K)K
MOD F ***
300 REM PUT PEN IN FILL MODE
302 GOSUB 2000JPLOT X,YJREM GET PRELIM POINT
310 POKE 765,PENC0LR
320 GOSUB 2000JREM GET X,Y COORD
330 POSITION X,YJREM POSTN FOR FILL
340 XIO 18,#6,12,0,"SJ"JREM DO FILL
345 GOTO 320
348 REM *** MOD G ***
350 REM PUT PEN IN DRAW MODE
352 GOSUB 2000JPLOT X,Y:REM GET PRELIM POINT
360 GOSUB 2000JREM GET PEN POSTN
380 DRAWTO X,Y5G0T0 360
390 REM *)K}K MOD H
400 REM PUT PEN IN DOT MODE
410 GOSUB 2000JREM GET PEN POSTN
430 PLOT X,YJGOTO 410
440 REM *** MOD L ***
450 REM CHANGE COLOR TO MODE 0
460 COLOR 0JPENCOLR=:0
470 GOTO 950JREM RESUME PREVIOUS MODE
480 REM *** MOD M ***
500 REM CHANGE COLOR TO MODE 1
510 COLOR 1JPENC0LR=1
520 GOTO 950JREM RESUME PREVIOUS MODE
530 REM *** MOD N
550 REM CHANGE COLOR TO MODE 2
560 COLOR 2JPENC0LR=2
570 GOTO 950JREM RESUME PREVIOUS MODE
580 REM
x(}K]K
mod 0
600 REM CHANGE COLOR
TO MODE 3
610 COLOR 3JPENC0LR=3
620 GOTO 950JREM RESUME PREVIOUS MODE
630 REM *** MOD P ***
700 REM LOAD USING CIO
705 COLOR IJPLOT 144,75
707 POKE 764,12
710 OPEN ♦1,4,0,"CJ"
ATARI Light Pen Demonstration Program Cassette — 21
Advertisement
