10 FOR I=&HFD00 TO &HFD27:READ A$:POKE I,VAL("&H"+A$):NEXT 20 DATA F3,ED,56,3E,C3,32,9A,FD 30 DATA 21,18,FD,22,9B,FD,3E,01 40 DATA 26,40,CD,24,00,C3,9E,40 50 (後述) 60 DATA C3,23,40,00,00,00,00,00 70 DEFUSR=&HFD00:A=USR(0) |
50 DATA 3E,??,32,F5,F0,00,00,00 |
50 DATA 3E,99,32,00,E2,00,00,00 |
50 DATA 21,01,FF,22,46,E4,00,00 |