10
20
30
40 :
50 INPUT"ADFS 1.50 image file: "f$
60 DIM mem% &3FFF
70 OSCLI"Load "+f$+" "+STR$~mem%
80 IF mem%!&14<>&303531:PRINT "Not ADFS 1.50":END
90 :
100 DEF PROCorg(A%):P%=A%-&8000+mem%:ENDPROC
110 :
120 PROCorg(&8008)
130 [:EQUB &51:]
140 :
150 PROCorg(&8014)
160 [:EQUS "151":]
170 :
180 PROCorg(&9E07)
190 [:EQUS "1.51":]
200 :
210 PROCorg(&868D)
220 [
230 JSR &834E
240 EQUB &98
250 EQUS "Do *Compact"
260 EQUB &00
270 :
280 .RdBreak
290 JSR &9A88
300 AND #&01
310 RTS
320 :
330 EQUB &00
340 EQUB &00
350 ]
360 :
370 PROCorg(&9B0B)
380 [:JSR &869D:]:
390 PRINT "*Save "+f$+" "+STR$~mem%+"+4000 FFFF0000 FFFBBC00"