C64 Software  <  SCA: The C64 Software Collection / PRINT.BAS

  Run
100 DIM HI%(255)
110 FOR X=0 TO 255:HI%(X)=0:NEXT X
115 FOR X=32 TO 64:HI%(X)=X:NEXT X
116 HI%(13)=13
120 FOR X=65 TO 65+25:HI%(X)=X+32:NEXT X
130 FOR X=193 TO 193+25:HI%(X)=X−128:NEXT X
140 INPUT"";FI$
150 OPEN 1,8,2,FI$+""
160 GET#1,A$:PRINT CHR$(HI%(ASC(A$+CHR$(0))));
170 IF ST=0 THEN 160
180 CLOSE 1
READY.