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