1 'INITIALIZE
2 CLEAR256,59743!
3 POKE65215!,96:POKE65216!,233
10 OPEN"EPSON1.DO"FORINPUTAS#1
20 FORI=1TO366
30 INPUT#1,A$
40 POKE59743!+I,VAL(A$)
50 NEXT
T