10 CLEAR200,&HD500: DEFINTA-Z
11 'get the font address from ROM
20 A=PEEK(&HF920)+PEEK(&HF921)*256
21 ' move the font to RAM and make the plot thicker
30 FOR T=0 TO 256*8: POKE&HD500+T,PEEK(A+T) OR PEEK(A+T)/2: NEXT
31 ' move the font address to RAM page 3
40 POKE&HF91F,PEEK(&HF344): POKE&HF920,&H0: POKE&HF921,&HD5
41 ' preview the new font in screen 6 (another screen mode can be set)
70 SCREEN6: OPEN"grp:"AS#1
80 PRINT#1,"Hello!"
90 GOTO 90
