10 REM > PatchADFS
   20 REM J.G.Harston
   30 REM Stops ADFS loosing context on Ctrl-Break
   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 [
  140 EQUB &51
  150 ]
  160 :
  170 PROCorg(&8014)
  180 [
  190 EQUS "151"
  200 ]
  210 :
  220 PROCorg(&9E07)
  230 [
  240 EQUS "1.51"
  250 ]
  260 :
  270 PROCorg(&868D)
  280 [
  290 JSR &834E
  300 EQUB &98
  310 EQUS "Do *Compact"
  320 EQUB &00
  330 :
  340 .RdBreak
  350 JSR &9A88
  360 AND #&01
  370 RTS
  380 :
  390 EQUB &00
  400 EQUB &00
  410 ]
  420 :
  430 PROCorg(&9B0B)
  440 [
  450 JSR &869D :\ RdBreak
  460 ]
  470 PRINT "*Save "+f$+" "+STR$~mem%+"+4000 FFFF0000 FFFBBC00"
  480 

Download PatchADFS

BBC BASIC detokeniser and syntax highlighter by Ben Ryves.