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