Atari XL - Page 137

Characters
127
3100
3110
3120
3130
3140
3150
3160
3170
3190
3191
3192
3193
3194
3195
3196
3200
3210
3290
3291
3292
3293
3294
3295
3296
3300
3310
3320
3325
3330
3990
3991
3992
3993
IF K=15 AND R<8 THEN POKE CC,B
:R=R+l:RETURN:REM
DOWN
IF K=14 AND R>1 THEN POKE CC,B
:R=R-1:RETURN:REM UP
IF K=33 THEN A(R,X)=1-A(R,X):
GOTO 3200:REM CHANGE PIXEL
IF K=10 THEN GOSUB 4000:REM
REPROGRAM CHARACTER
IF K=118 THEN GOSUB 3300:REM
CLEAR CHARACTER
IF K=12 THEN X=1:R=1:POKE CC,B
: RETURN:
REM TOP LH CORNER OF
GRID
IF K=28 THEN EXIT=I:RETURN
POKE 764,255:RETURN
REM
REM ****************
REM * *
REM * CHANGE PIXEL *
REM * *
REM ****************
REM
IF B=14 THEN POKE CC,84:RETURN
POKE CC,14:RETURN
REM
REM
*******************
REM * *
REM * CLEAR CHARACTER *
REM * *
REM *******************
REM
FOR R=1 TO 8:FOR X=1 TO 9
A(R,X)=O
NEXT X
POSITION
18,R+6:PRINT"
;:PRINT A( R, 9) :NEXT R
CL=l:RETURN
REM
REM
***********************
REM * *
REM * REPROGRAM CHARACTER *