Atari XL - Page 134

124
The Ateri XL Handbook
CHARACTER GENERATOR PROGRAM
This program allows you to design new characters
on the screen and add them to the character set.
The characters are created by filling in a large grid
on the screen, which is then used to program the
character.
10 REM ***********************
11 REM * *
12 REM * CHARACTER GENERATOR *
13 REM * *
14 REM ***********************
15 REM
100 GOSUB 20000:REM SET UP
110 GOTO 10000:REM MAIN PROGRAM
190 REM
191 REM ***********************
192 REM * *
193 REM * REDEFINE CHARACTERS *
194 REM * *
195 REM ***********************
196 REM
200 PRINT" " "
210 PRINT "ENTER ASCII CODE OF
CHARACTER (0-127)":INPUT ASCII
220 IF ASCII<O OR ASCII>127 THEN
200
225 CODE=ASCII+«ASCII<32)*64)-
«ASCII>31 AND ASCII<96)*32)
230 CHARDATA=CODE*8+RAMSET
295 REM STORE CHARACTER DATA IN
ARRAY
300 PRINT" " ": GOSUB 900
310 FOR R=l TO 8:GOSUB 1000:NEXT R
395 REM DISPLAY CHARACTER
400 GOSUB 2000
410 X=I:R=l
500 B=PEEK(CC)
510 REM MODIFY CHARACTER