Atari XL - Page 135

Characters 125
520
525
530
540
550
890
891
892
893
894
895
896
900
910
920
930
940
990
991
992
993
994
995
996
1000
1010
1020
1030
1040
1045
1050
1060
1070
1080
1090
1100
1990
1991
1992
POKE 764,255:GOSUB 3000:POKE
764,255
IF EXIT=l THEN EXIT=O:RETURN
IF CL=l THEN CL=O:GOTO 400
CC=GRIDST+X+40+R
GOTO 500
REM
REM *************************
REM * *
REM * DISPLAY CHARACTER SET *
REM * *
REM *************************
REM
FOR Z=O TO 124
PRINT CHR(Z)i
IF Z=26 THEN Z=31
NEXT Z
RETURN
REM
REM ************************
REM * *
REM * STORE CHARACTER DATA *
REM * *
REM ************************
REM
N=PEEK(CHARDATA+R-l)
X=8
A(R,9)=N:REM ROW TOTAL
REM STORE BIT PATTERN
IF N/2=INT(N/2) THEN A(R,X)=O:
GOTO 1050
A(R,X)=l
N=INT(N/2):X=X-l
IF N>=l THEN 1040
FOR Z=X TO 1 STEP -1
A(R,Z)=O
NEXT Z
RETURN
REM
REM
*********************
REM * *