C64 Software  <  SCA: The C64 Software Collection / WIZARD.WRITER 1

  Run
0 I=0:POKE53272,24
10 GETA$:IFA$=""THEN10
20 IFA$=CHR$(13)THENPRINT"":GOTO10
30 A=ASC(A$)
40 IFA<65ORA>71THEN50
45 IFA>65ORA<71THEN70
50 IFA>90ORA<48THEN10
55 IFA>57ANDA<65THEN10
56 IFA>47ANDA<58THEN1000
60 A=A−63:GOTO80
70 A=A−64
80 A=A*4    
90 I=I+3
100 POKE1024+I,A
110 POKE1024+I+1,A+1
120 POKE1024+I+40,A+2
130 POKE1024+I+41,A+3
140 GOTO10
READY.