Advertisement
ATARI Light Pen Operator's Manual
720 POKE 850,7:LOD«1:GOTO 800:REM set load flag so "SET UP" MOD WON'T ERASE
730 REM *** MOD 0 ***
—
750 REM SAVE USING CIO
755 COLOR 1:PL0T 1^^,83
757 POKE 76^,12
760 OPEN *lt8,0,"Ct"
770 POKE 850,11
800 REM SET UP lOCB AND CALL
810 POKE 852,PEEK<88)JPOKE 853,PEEK(89)
820 POKE 856,OJPOKE 857,15
830 Q=USR(ADR(CI0$),16)
8^0 CLOSE #1
850 COLOR OJPLOT 1'<I4,83JPLOT 1-^4,75
860 IF LOD=0 THEN 880
865 REM ERASE MODEBARS AND REDRAW
870 PLOT 1'<J2,0 JDRAWTO 1^2,95JPL0T 1^3,0:DRAWTO 1^3,95:G0SUB 1000
880 COLOR pencolr:goto 950:REM resume pre-save or pre-load mode
890 REM
MOD R
900 REM CLEAR SCREEN
910 GOSUB 1000JREM SET-UP
930 REM
MOD D X}K}k
950 REM RESUME PREVIOUS (OR INITIALIZED) MODE
970 ON <PENM0DE+1) GOTO 6000,150,300,350,^00
980 REM }K)K}K MOD C )K)ic]ic
1000 REM SET UP ROUTINE
lOlO GRAPHICS 23+L0D)ic32:COLOR IJSETCOLOR ^,0,8:LOD=0
1015 SETCOLOR 0,^,14:SETC0L0R 1,12,l^SSETCOLOR 2,9,1^
1020 PLOT 1^1,OJDRAWTO 1^1,95:DRAWT0 0,95JDRAWTO 0,OJDRAWTO 1-^1,0
1025 RESTORE tFOR X=0 TO 12:READ FtPLOT 142,F:DRAWT0 159,FtNEXT X
1030 PLOT 14'^,0:POSITION 144,7JP0KE 765,1:XI0 18,#6,12,0,"S:"
10^0 PLOT 150,9JDRAWTO 1^8,9JDRAWT0 148,13:DRAWT0 150,13:PLOT 149,11
1050 PLOT 150,17JDRAWTO 148,17JDRAWTO 148,2i:PL0T 149,19
1060 PLOT 146,27:DRAWT0 152,27
1070 PLOT 149,35
1080 PLOT 146,41 JDRAWTO 146,45:DRAWT0 152,45:DRAWT0 152,411DRAWTO 146,41
1090 PLOT 152,53:DRAWT0 152,49:DRAWTO 146,49:POSITION 146,53:P0KE 765,1:XI0 18,#
6 0 0 "S ♦ "
1100 COLOR 2JPL0T 152,61SDRAWTO 152,S7}DRAWT0 146,571POSITION 146,6i:P0KE 765,2:
XIO 18,*6,0,0,"S:"
1110 COLOR 3:PL0T 152,69:DRAWT0 152,65:DRAWT0 146,65:P0SITI0N 146,69;P0KE 765,31
XIO 18,*6,0,0,"St"
1120 PLOT 148,73:DRAWT0 148,77:DRAWT0 150,77
1130 PLOT 150,81:DRAWTO 148,81IDRAWTO 148,83:DRAWT0 150,83:DRAWT0 150,85:DRAWT0
148,85
1160 PLOT 148,89:DRAMT0 146,89:DRAWT0 146,93:DRAWT0 148,93
1170 PLOT 150,89:DRAWTO 150,93:DRAWT0 152,93
1171 NPEN=PENM0DE:GOSUB 3140:REM draw mode indicator bar
1180 NC0LR=PENC0LR:GOSUB 3240:REM DRAW COLOR INDICATOR BAR
1185 REM INITIALIZE CIO* MACHINE LANG CIO CALL
1190 FOR x=i TO 7:read y:cio*(x,X)=chr*<y):next X
1200 return :rem from set-up
1210 REM *** MOD I ***
2000 REM GETPOS - RETURN PEN X,Y COORDINATE
2010 IF PEEK(632)=15 THEN 2010
2020 Q=USR<PENBUF)
2040 X=PEEK<206):Y=PEEK(207)
2045 IF X>159 OR X<0 OR Y>95 OR Y<0 THEN 2010
2048 IF X>140 THEN POP tGOTO lOOtREM USER WANTS NEW MODE
2050 RETURN
2060 REM *** MOD K **)*
3000 REM SUBROUTINE TO MOVE MODE BARS
3010 IF Y<40 THEN 3100IREM MOVE PEN MODE INDICATOR
3020 IF Y<72 THEN 3200IREM MOVE COLOR INDICATOR
3030 RETURN IREM COMMANDS LOAD,SAVE,CLEAR HAVE NO MODE BAR
3100 REM CHANGE PEN MODE BAR
3110 COLOR o:rem set to erase
3120 PLOT 142,PENMODE*8+(PENMODE=0):DRAWTO 142,PENM0DE*8+6
3125 PLOT 143,PENMODE*8+<PENMODE=0)IDRAWTO 143,PENM0DE*0+6
3130 penmode=npen:rem set to new pen mode
,,1*^
3140 COLOR 1
ATARI Light Pen Demonstration Program Cassette - 22
Advertisement
