Source Code
1 SAVE "1033%2"
5 FAST
10 FOR I=0 TO 112
20 POKE 31744+I,PEEK (2161+I)
30 NEXT I
40 POKE 31800,63
50 POKE 31857,201
505 SLOW
510 PRINT "ENTER TEXT TO BE LPRINTED USING NEW CHARACTER SET:"
520 INPUT X$
522 FAST
525 DIM A(32,8)
530 FOR X=1 TO LEN X$
540 IF X$(X)=" " THEN GOTO 700
550 IF CODE X$(X)>127 THEN GOTO 600
560 FOR Y=1 TO 8
570 LET A(X,Y)=U(CODE X$(X),Y)
580 NEXT Y
590 GOTO 700
600 FOR Y=1 TO 8
610 LET A(X,Y)=S(CODE X$(X)-155,Y)
620 NEXT Y
700 NEXT X
\n9990 FOR J=1 TO 32
\n9991 FOR K=1 TO 8
\n9992 POKE 32255+K+8*(J-1),A(J,K)
\n9993 NEXT K
\n9994 NEXT J
\n9995 FOR H=0 TO 31
\n9996 POKE 16444+H,H
\n9997 NEXT H
\n9998 LET HPRINT=USR 31744
\n9999 GOTO 500
