> RECOVER  FIND LOST ADFS ENTRIES + ctrl% 31,mem% &4FF:X%=ctrl%:Y%=X%256 (this%=&00000:found%=0 2:13;"Checking ";~this%; <readX(this%,0,mem%) F-mem%?255=13: $(mem%+251)="Hugo":Recover Pthis%=this%+1:0 Z d: n Recover x(mem%!214 &FFFFFF)<>2: /mem%?214=13:n$=$(mem%+204):" - found ";n$; - S%=2 6:readX(S%,0,mem%+S%*256-512): 6$(mem%+5+26*found%)=n$:mem%!(27+26*found%)=this%-4 /mem%?(8+26*found%)=mem%?(8+26*found%) 128 . S%=2 6:writeX(S%,0,mem%+S%*256-512): found%=found%+1:: : >writeX(sec%,drv%,mem%):A%=scsi(&0A,mem%,&100,sec%,drv%) =readX(sec%,drv%,mem%):A%=scsi(&08,mem%,&100,sec%,drv%) ) A%:"Disk error &";~A%;:delay(200)  : "delay(T%):T%=+T%: >T%: : ,ݤscsi(cmd%,addr%,num%,sect%,drv%): fs% fs%=fs: fs%<>8:"FADFS" "DX%?0=0:X%!1=addr%:X%?5=cmd%:X%?6=drv%*32+((sect%&1F0000)65536) ,@X%?7=((sect%&FF00)256):X%?8=sect%:X%!9=num%256:X%!11=num% 64A%=114:&FFF1:A%=?X%: fs%<>8:"FX143,18,"+ fs% @=A% J: T!ݤfs: A%,E%,Y%:=(&FFDA)&FF