1 PRINT"":POKE53272,24
10 GETA$:IFA$=""THEN10
15 IFA$=CHR$(13)THENPOKE38500+B,255:POKE38500+B+1,255:END
20 A=ASC(A$)
30 IFA<65ORA>90THEN50
40 GOTO1000
50 IFA=ASC("")THENA=176−64:GOTO1010
60 IFA=ASC("")THENA=168−64:GOTO1010
70 IFA=ASC("")THENA=172−64:GOTO1010
80 IFA>47ANDA<58THENC=180:FORI=48TOA:C=C+4:NEXT:A=C−4−64:GOTO1010
100 POKE53280,A:GOTO10
1000 C=64:FORI=65TOA:C=C+4:NEXT:A=C−4−64
1010 POKE1024+B,A:B=B+1
1020 POKE1024+B+39,A+2:B=B+1
1030 POKE1024+B−1,A+1:B=B+1
1040 POKE1024+B+39−1,A+3:B=B+1
1050 PRINT""TAB(D)A$;:D=D+1:GOTO10
READY.
