FONT for ATARI 800XL
By www.lived.ch, 23:44 19.11.2024


ATARI FONT DEFINTION - EASY PEASY!
---------------------------------------------------------------------------------------------------
IMPORTANT: CAN'T RECALL WHAT I'VE USED HERE! IT WASN'T Turbo-BASIC! Try ATARI BASIC/ALTIRRA BASIC!
---------------------------------------------------------------------------------------------------

0 REM STANDARD CHARSET BEGINS AT $E000
1 REM WHICH IS A ROM LOCATION. BUT AT
2 REM $8000 OR DEC 32768 YOU CAN DEFINE
3 REM YOUR OWN CHARSET AND WITH
4 REM POKE 756,128 LET THE PC KNOW THAT
5 POKE 729,20:REM KEY DELAY
6 POKE 730,2:REM KEY REPEAT SPEED
7 POKE 731,1:REM NO CLICK
8 POKE 82,0:REM NO LEFT MARGIN
9 ZO=40000
10 FOR A=32 TO 58:POKE ZO-32+A,A:NEXT A
15 REM : SCREEN SETUP
20 POKE 709,10:REM MEDIUM GREY
25 POKE 710,0:REM BLACK SCREEN
30 POKE 712,0:REM BLACK BORDER
35 REM : CHARACTER MODIFICATIONS
40 REM @ IS LOCATED AT 33024, $8100
45 REM THAT IS OUR START ADDRESS
50 FOR N=1 TO 8*(26):REM 8 X 26 CHARS
55 READ D:POKE 33023+N,D:NEXT N
60 REM :
70 poke 756,128:rem poke 756,224 = old
100 REM @
105 DATA 255,129,129,129,129,129,255,0
110 REM A
115 DATA 30,62,118,230,254,198,198,0
120 REM B
125 DATA 240,248,220,254,198,198,252,0
130 REM C 
135 DATA 62,126,224,192,192,198,254,0
140 REM D
145 DATA 248,252,206,198,198,198,254,0
150 REM E
155 DATA 62,126,224,252,192,192,254,0
160 REM F
165 DATA 62,126,192,252,192,192,192,0
170 REM G
175 DATA 28,62,118,224,206,198,254,0
180 REM H
185 DATA 54,118,230,198,254,198,198,0
190 REM I
195 DATA 12,28,56,48,48,48,48,0
200 REM J
205 DATA 6,14,28,24,24,88,120,0
210 REM K
215 DATA 206,222,248,240,248,222,206,0
220 REM L
225 DATA 48,112,224,192,192,192,252,0
230 REM M
235 DATA 54,118,230,238,254,214,198,0
240 REM N
245 DATA 54,118,230,246,254,222,206,0
250 REM O
255 DATA 60,126,230,198,198,198,254,0
260 REM P
265 DATA 252,254,198,198,254,192,192,0
270 REM Q
275 DATA 60,126,230,198,198,204,254,6
280 REM R
285 DATA 252,254,198,198,254,220,206,0
290 REM S
295 DATA 62,126,224,252,14,14,252,0
300 REM T
305 DATA 254,254,48,48,112,96,96,0
310 REM U
315 DATA 54,118,230,198,198,198,124,0
320 REM V
325 DATA 100,230,198,198,110,124,56,0
330 REM W
335 DATA 96,230,198,198,214,254,110,0
340 REM X
345 DATA 102,230,198,124,108,198,198,0
350 REM Y
355 DATA 102,230,206,124,48,48,48,0
360 REM Z
365 DATA 254,206,24,48,48,96,254,0

---------------------------------------------------------------------------------------------------
WHAT IF ANOTHER CUSTOM CHARACTER LOCATION IS USED?
---------------------------------------------------------------------------------------------------

LIST
1010 PRINT "GRAPHICS MODE 2"
1015 MEMTOP=PEEK(106)*256
1020 PRINT "MEMTOP :";MEMTOP
1030 CHBASE=MEMTOP-2024
1040 PRINT "CHBASE :";CHBASE
1050 PRINT
1055 PRINT "NEW CH SET ACTIVATION:"
1060 PRINT "INT(CHBASE/256)"
1070 PRINT "756,";INT(CHBASE/256)

---------------------------------------------------------------------------------------------------