10 FOR I=&HD000 TO &HD01B
20 READ A$:POKE I,VAL("&H"+A$):NEXT
30 PRINT"SET GALAXIAN AND PUSH ANY KEY"
40 A$=INPUT$(1):DEFUSR=&HD000:A=USR(0)
50 DATA 3E,01,26,40,CD,24,00,31
60 DATA 00,D0,CD,03,47,CD,C3,5C
70 DATA 21,16,D0,C3,1D,40,31,00
80 DATA D0,C3,47,40
|
10 FOR I=&HD000 TO &HD032
20 READ A$:POKE I,VAL("&H"+A$):NEXT
30 PRINT"SET GALAXIAN AND PUSH ANY KEY"
40 A$=INPUT$(1):DEFUSR=&HD018:A=USR(0)
50 POKE&H9012,&HD0:POKE&H9046,&HD0
60 PRINT"INSERT DISK AND PUSH ANY KEY"
70 A$=INPUT$(1)
80 BSAVE"GALAXIAN",&H9000,&HD015,&HD000
100 DATA 3A,42,F3,26,40,CD,24,00
110 DATA 21,00,90,11,00,40,01,00
120 DATA 40,ED,B0,C3,10,40,00,00
130 DATA 3E,01,26,40,CD,24,00,21
140 DATA 00,40,11,00,90,01,00,40
150 DATA ED,B0,3E,00,26,40,CD,24
160 DATA 00,FB,C9
|
| オフセット | 元 | 新 |
|---|---|---|
| +0011H | 00H | FDH |
| +0012H | 00H | FFH |
| +0045H | 00H | FDH |
| +0046H | 00H | FFH |
10 FOR I=&HD000 TO &HD032
20 READ A$:POKE I,VAL("&H"+A$):NEXT
30 PRINT"SET GALAXIAN AND PUSH ANY KEY"
40 A$=INPUT$(1):DEFUSR=&HD018:A=USR(0)
50 POKE&H9012,&HD0:POKE&H9046,&HD0
60 MS=3:SS=0:POKE&HD001,128+SS*4+MS
70 PRINT"SET TAPE AND PUSH ANY KEY"
80 A$=INPUT$(1):SCREEN,,,2
90 BSAVE"CAS:GALAX",&H9000,&HD015,&HD000
100 DATA 3E,83,00,26,40,CD,24,00
110 DATA 21,00,90,11,00,40,01,00
120 DATA 40,ED,B0,C3,10,40,00,00
130 DATA 3E,01,26,40,CD,24,00,21
140 DATA 00,40,11,00,90,01,00,40
150 DATA ED,B0,3E,00,26,40,CD,24
160 DATA 00,FB,C9
|