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 |