C64 Software  <  SCA: The C64 Software Collection / 2X2-CHAR-CONVERT

  Run
2 C1=64*8:C2=2*C1:C3=3*C1
3 POKE53265,59:POKE53272,24:PRINT""
10 S=12288:D=8192+8
20 FORI=0TO63
30 O=0:GOSUB100
40 O=1:GOSUB200
50 O=40:GOSUB300
60 O=41:GOSUB400
70 IFI=19ORI=39THENS=S+40*8
71 S=S+16:D=D+8
80 NEXT
90 END
100 FORJ=0TO7:POKED+J,255−PEEK(S+O*8+J):NEXT
110 RETURN
200 FORJ=0TO7:POKED+C1+J,255−PEEK(S+O*8+J):NEXT
210 RETURN
300 FORJ=0TO7:POKED+C2+J,255−PEEK(S+O*8+J):NEXT
310 RETURN
400 FORJ=0TO7:POKED+C3+J,255−PEEK(S+O*8+J):NEXT
410 RETURN
READY.