1000 REM CHLOAD-CHARACTER SET LOADER›1005 OPEN #1,4,0,"D:FONT":REM YOUR FILENAME HERE›1010 X=16:CHSET=(PEEK(106)-B)*256:POKE 756,CHSET/256›1020 ICCOM=834:ICBADR=836:ICBLEN=840›1030 POKE ICBADR+X+1,CHSET/256:POKE ICBADR+X,0›1040 POKE ICBLEN+X+1,4:POKE ICBLEN+X,0›1050 POKE ICCOM+X,7:A=USR(ADR("hhhªLVä"),X):REM CALL CIO›1060 CLOSE #1›