home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1995 January
/
1995-01b.d64
/
save_verify
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
1KB
|
32 lines
0 rem save/verify by vince tagle
5 rem change sa in line 10 to relocate code
10 sa=49152:fori=satosa+113:reada:pokei,a:next
20 s=sa+38:gosub80:pokesa+4,lb:pokesa+5,hb
30 s=sa+39:gosub80:pokesa+10,lb:pokesa+11,hb:pokesa+31,lb:pokesa+28,hb
40 s=sa+23:gosub80:pokesa+13,lb:pokesa+18,hb
45 s=sa+107:gosub80:pokesa+49,lb:pokesa+50,hb:pokesa+95,lb:pokesa+96,hb
50 s=sa+108:gosub80:pokesa+55,lb:pokesa+56,hb:pokesa+101,lb:pokesa+102,hb
70 s=sa+82:gosub80:pokesa+58,lb:pokesa+63,hb
75 s=sa+109:gosub80:pokesa+72,lb:pokesa+73,hb:pokesa+85,lb:pokesa+86,hb
78 sys sa:print"save/verify patch working":end
80 hb=int(s/256):lb=s-(hb*256):return
110 data 173,50,3,141,38,192
120 data 173,51,3,141,39,192
130 data 169,23,141,50,3,169
140 data 192,141,51,3,96,104
150 data 168,104,170,169,192,72
160 data 169,39,72,138,72,152
170 data 72,76,0,0,165,144
190 data 240,1,96,173,48,3
200 data 141,107,192,173,49,3
210 data 141,108,192,169,82,141
215 data 48,3,169,192,141,49
220 data 3,162,0,181,183,157
230 data 109,192,232,224,6,208
240 data 246,76,101,225,162,0
250 data 189,109,192,149,183,232
260 data 224,6,208,246,173,107
270 data 192,141,48,3,173,108
280 data 192,141,49,3,76,0
290 data 0,0,0,0,0,0