C64 Software  <  SCA: The C64 Software Collection / MERRY CHR.WRITER

  Run
10 POKE53272,24:PRINT"":I=0
20 GETA$:IFA$=""THEN20
30 A=ASC(A$)
40 IFA<65ORA>90THEN20
50 A=A−65:A=A*4
60 POKE1024+I,A
70 POKE1025+I,A+1
80 POKE1064+I,A+2
90 POKE1065+I,A+3
100 I=I+3:GOTO20
READY.