10 FOR I=&HD000 TO &HD015 20 READ A$:POKE I,VAL("&H"+A$):NEXT 30 PRINT"SET HUSTLE CHUMY AND PUSH ANY KEY" 40 A$=INPUT$(1):DEFUSR=&HD000:A=USR(0) 50 DATA 3E,01,26,40,CD,24,00,F3 60 DATA 31,FF,FF,21,FF,DF,36,00 70 DATA 11,00,E0,C3,3B,41 |
10 FOR I=&HD000 TO &HD04A 20 READ A$:POKE I,VAL("&H"+A$):NEXT 30 PRINT"SET HUSTLE CHUMY AND PUSH ANY KEY" 40 A$=INPUT$(1):DEFUSR=&HD018:A=USR(0) 50 PRINT"INSERT DISK AND PUSH ANY KEY" 60 A$=INPUT$(1) 70 BSAVE"HUSTLECH",&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,2F,41,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,21,40,D0,11,30,91 160 DATA 01,0B,00,ED,B0,3E,00,26 170 DATA 40,CD,24,00,FB,C9,00,00 180 DATA 31,FF,FF,21,FF,DF,36,00 190 DATA 11,00,E0 |
オフセット | 元 | 新 |
---|---|---|
+0131H | 00H | FFH |
+0132H | 00H | FFH |
+013CH | FFH | FEH |
10 FOR I=&HD000 TO &HD04A 20 READ A$:POKE I,VAL("&H"+A$):NEXT 30 PRINT"SET HUSTLE CHUMY AND PUSH ANY KEY" 40 A$=INPUT$(1):DEFUSR=&HD018:A=USR(0) 50 MS=3:SS=0:POKE&HD001,128+SS*4+MS 60 PRINT"SET TAPE AND PUSH ANY KEY" 70 A$=INPUT$(1):SCREEN,,,2 80 BSAVE"CAS:HUSTLE",&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,21,40,D0,11,30,91 160 DATA 01,0B,00,ED,B0,3E,00,26 170 DATA 40,CD,24,00,FB,C9,00,00 180 DATA 31,FF,FF,21,FF,DF,36,00 190 DATA 11,00,E0 |