home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1995 January
/
1995-01b.d64
/
scratch_save
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
1KB
|
33 lines
0 rem scratch&save disk files by vince tagle
5 rem change sa in line 10 to relocate code
10 sa=49152:fori=satosa+131:reada:pokei,a:next
20 s=sa+111:gosub80:pokesa+4,lb:pokesa+5,hb
30 s=sa+112:gosub80:pokesa+10,lb:pokesa+11,hb
40 s=sa+23:gosub80:pokesa+13,lb:pokesa+18,hb
50 s=sa+116:gosub80:pokesa+72,lb:pokesa+73,hb
60 s=sa+113:gosub80:pokesa+85,lb:pokesa+87,hb
70 sys sa:print"scratch & save patch working":end
80 hb=int(s/256):lb=s-(hb*256):return
90 data 173,50,3,141,111,192
100 data 173,51,3,141,112,192
110 data 169,23,141,50,3,169
120 data 192,141,51,3,96,162
130 data 0,181,183,72,232,224
140 data 6,208,248,169,1,166
150 data 186,160,15,32,186,255
160 data 160,1,177,187,201,58
170 data 208,17,198,183,198,183
180 data 24,165,187,105,2,133
190 data 187,165,188,105,0,133
200 data 188,160,0,177,187,153
210 data 116,192,200,196,183,208
220 data 246,165,183,24,105,3
230 data 162,113,160,192,32,189
240 data 255,32,192,255,169,1
250 data 32,195,255,32,204,255
260 data 162,5,104,149,183,202
270 data 16,250,76,0,0,83
280 data 48,58,0,0,0,0
290 data 0,0,0,0,0,0
300 data 0,0,0,0,0,0