Atari XL - Page 128

118 The Atari XL Handbook
20 CSET = PEEK(756)*256
30 PRINT"ENTER ASCII CODE OF
CHARACTER" j
40 INPUT ASCII:PRINT"
45 PRINT "CHARACTER"jCHR${ASCII):
PRINT
50
CODE=ASCII+({ASCII<32)*64)-
({ASCII>31 AND ASCII<96)*32)
60 PRINT"ASCII CODE "jASCIlj"
INTERNAL CODE njCODE:PRINT
70
CHAR = CODE*8 + CSET
80 FOR
Z=CHAR TO CHAR+7
90 PRINT PEEK{Z):NEXT Z
100 PRINT:PRINT "PRESS ANY KEY TO
CONTINUE"
110 GET#1,X:GOTO 10
For example, taking the letter X, the program
should display the numbers 0,102, 102, 60, 60, 102,
102, Having found the eight numbers, we can.
128 64 32 16 8 4 2 1
o
102
102
60
60
102
102
o
The Character X
convert them to binary form and fill in the grid to
produce a letter X.