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 |