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 |