C64 Software  <  SCA: The C64 Software Collection / N.E.STORY.WRITER

  Run
0 I=0:POKE53272,24:PRINT""
10 GETA$:IFA$=""THEN10
20 A=ASC(A$)
30 IFA>64ANDA<91THEN50
40 GOTO10
50 A=A−64:A=A*4:A=A−4
60 I=I+3
70 POKE1024+I,A:POKE1025+I,A+1:POKE1064+I,A+2:POKE1065+I,A+3
80 GOTO10
READY.