Advertisement
ATARI Light Pen Operator's Manual
3150 PLOT l-iafPENMODExtStDRAWTO I'le.PENMODEiKa+A
3155 PLOT 1A3,PENM0DE*8:DRAWT0 113,PENH0DE*8+A
3157 COLOR PENCOLRJREM RESTORE ORG COLOR
3160 RETURN
3200 REM MOVE COLOR MODE INDICATOR BAR
3210 COLOR OSREM SET TO ERASE
3220 P=PENCOLR*8+10
3230 PLOT 112,P5DRAWTO 112,P+6
3235 PLOT 113,PSDRAWT0 113,P+6
3210 COLOR i:p=ncolr*8+io:rem new bar
3250 PLOT 112,P:DRAWT0 112,P+6
3255 PLOT 113,P:DRAWT0 113,P+6
3258 COLOR PENCOLRtREM RESTORE ORG. COLOR
3260 RETURN
6000 REM *** USER PROGRAMMABLE MODULE ***
6010 REM RIGHT NOW IT ONLY READS PEN COORDINATES
6011 REM TO MAKE IT DO SOMETHING, JUST USE VARIABLES X,Y
6012 REM HOWEVER YOU LIKE BETWEEN LINES 6020 AND 6900
6020 GOSUB 2000
6900 GOTO 6020
7999 REM MENU FIELD DATA
8000 DATA 0,7,15,23,31,39,17,55,63,71,79,87,95
8199 REM CIO CALL ROUTINE DATA
8500 DATA 101,101,101,170,76,86,228
8900 REM MACH LANG ROUTINE
9000 REM "LOADER" LOADS "PENBUF" INTO PAGE 6
9010 RESTORE 90205FOR X=1536 TO 1652;READ PIPOKE X,P:NEXT XJRETURN
9020 DATA 101,162,0 ,160 ,6,132,201,173,12,212,201,10 , 111,3,56,233,228
9030 DATA 21, i'>5,151,160 ,117,132,203,32,86,6,165,203,21,101,205,133
9010 DATA 203,173,13,212,56,233,16,32,86,6,232,228,205,210,9,165
9050 DATA 20,197,20,210,252,76,7,6,165,205,71,168,177,203,133,207
9060 DATA 169,117,133,203,177,203,133,206,165,206,71,71,133,208,165,207
9070 DATA 71,71,133,209,96,131,206,161,206,192,0,210,20,136,209,203
9080 DATA 200,176,11,136,133,206,177,203,200,115,203,136,165,206,56,176
9090 DATA 232,115,203,96
9100 END
ATARI Light Pen Demonstration Program Cassette — 23
Advertisement
