0 I=0:POKE53272,24:PRINT""
10 GETA$:IFA$=""THEN10
30 A=ASC(A$)
31 IFA=ASC("")THENA=32:GOTO90
32 IFA=ASC("")THENA=112:GOTO90
33 IFA=ASC("")THENA=164:GOTO90
34 IFA=ASC("")THENA=168:GOTO90
35 IFA=ASC("")THENA=116:GOTO90
40 IFA<65ORA>71THEN50
45 IFA>65ORA<71THEN70
50 IFA>90ORA<48THEN10
55 IFA>57ANDA<65THEN10
56 IFA>47ANDA<58THEN1000
60 A=A−63:A=A*4:GOTO90
70 A=A−64: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
1000 A=A−48:A=A*4:I=I+3:A=A+120:GOTO100
READY.
