Atari XL - Page 136

126
1993
1994
1995
1996
2000
2010
2020
2030
2035
2040
2050
2060
2070
2075
2080
2990
2991
2992
2993
2994
2995
2996
3000
3010
3020
3030
3040
3050
3060
3080
3090
The Ateri XL Handbook
REM * DISPLAY CHARACTER *
REM * *
REM *********************
REM
PRINT
FOR R=1 TO 8
FOR
X=l TO 8
IF A(R,X)=l THEN PIXEL=84:GOTO
2040
PIXEL=14
POKE GRIDST+X+(R*40),PIXEL
NEXT X
POSITION
18,6+R:PRINT A(R,9)
NEXT R
POSITION
2,20:PRINT"ESC
RETURN - = + * CLEAR
PROGRAM":REM BOLD CHARACTERS
IN REVERSE
RETURN
REM
REM ***************
REM * *
REM * MOVE CURSOR *
REM * *
REM ***************
REM
REM CHECK KEYBOARD
K=PEEK(764):REM INTERNAL CODE
OF KEY PRESSED
REM FLASH CURSOR
CH=PEEK(CC):C=CH-«CH>128)*
128)+«CH<128)*128)
POKE CC,C:FOR PAUSE=O TO
10:NEXT PAUSE
REM CHECK KEY INPUT
IF K=255 THEN 3010
IF K=6 AND X>1 THEN POKE CC,B:
X=X-1:RETURN:REM LEFT
IF K=7 AND X<8 THEN POKE CC,B:
X=X+l:RETURN:REM RIGHT