10 I=&HFD00
20 READ A$:IF A$="END" THEN 40
30 POKE I,VAL("&H"+A$):I=I+1:GOTO 20
40 DEFUSR=&HFD00:A=USR(0)
100 DATA F3,31,80,F3,21,F1,C3,22
110 DATA 9A,FD,21,1A,FD,22,9C,FD
120 DATA 3E,01,26,40,CD,24,00,C3
130 DATA 41,40
140 DATA CD,B7,00,30,05,3E,62,32,10,C0
150 'DATA AF,32,46,E0
160 DATA C3,6A,57
170 DATA END
|