1 REM *** DOCUMENTATION ***›2 REM Add the line›3 REM 10 DIM FILE$(20):FILE$="D:FONTNAME.FNT":GOSUB 32000›4 REM to the top of your program to         load a custom font.›5 REM *********************›32000 CHBASE=INT((PEEK(742)-4)/4)*4:OPEN #1,4,0,FILE$:U=USR(ADR("h©¨Rh¨Uh¨Th¨Yh¨X¢ Vä`"),CHBASE*256,1024)›32010 CLOSE #1:POKE 756,CHBASE:RETURN ›