53280,0:53281,0:""[ A(255),C%(77,28),D%(1),T%(224,1),S%(224,1),L%(224),R%(77) D%(0)58:D%(1)42:Z$(0):B$(3):D$"0"" SCRATCH/UNSCRATCH":"  S =SCRATCH,  U =UNSCRATCH"(Q$:Q$""40 -Q$"U"400 .Q$"S"408 2" READING DISK"H <1,8,0,"$0"T FN$(0)b P#1,A$,A$z ZF$"":B0:#1,A$,A$ _C0""; dA$""X1:200 n#1,A$,B$ x5); #1,A$ A$"":AA1:190 A$(34)B1:A$"" B1F$F$A$:A$; (F$)16CC1:90( 1305 A2090W " SCRATCH PROGRAM? (Y/N)"j Z$:Z$""210z Z$"Y"270 Z$"N"250 210 X11:390 "":A0:90 1:" WHICH PROGRAM";P$:P$"" 340 """ ,"OPEN15,8,15"+ 6"P15,"(34)"S0:"X$(34)"F @"RUN":""k J631,13:632,13:633,13:198,3: TA41(P$):R$(P$,A4,1) ^X$X$R$ h r(X$)10X$(X$,10)"*" | 15: "LOADING FREE SECTORS":15,8,15,"I"D$:3020 3,8,3,"$"D$:30202 A01:#3,A$:A(A$Z$)D A1:AA1470Z F%F%1:F%3510l A1:A10430u 450 A1:A10490 B1:JA0A1:R%(J)B1:J:A0J:470 A1A65D11:T935:S93:D918 A67D1257:T977:S94:D939 T903:"?? DISK NOT RECOGNIZED ??":6 J1D1:#3,A$:JG J1T9:T10a J51#3,A$,A$,A$,A$w &#3,A$:C(A$Z$) 0K10:K0S91:#3,A$:A(A$Z$) :L07:A%A2:D1AA%2:K1R%(J)C%(J,K1)D1 DAA%:T1T1D1:K1K11:L,K NJ X3b2,8,2,"#0":3020CK0:" LOOKING FOR SCRATCHED FILES ....."PTD9:S1Z2000D225532:A(D)0A(D1)0980K0"DO YOU WANT TO RECOVER:"X$:KD3D18:(A(K));:K:"? ";X$:X$"Y"X$"N"960133,216,169,019,032,210X$:X$"Y"1010"D>TA(0):SA(1):TD9920Y" THAT'S ALL ":1270T6T:S6S:D6D:TA(D1):SA(D2):L%(0)A(D28)A(D29)256:L%0X$:" IS THIS FILE:""  1 SEQUENTIAL""  2 PROGRAM ""  3 USR"($A(D19)01080E."  4 RELATIVE"l8"  WHICH NUMBER?  ";BX$:X$""1090LX(X$)48:X1X41090VX$:XX128`X132T%(0,1)A(D19):S%(0,1)A(D20):T%(0,1)01020jTT9S0T0&tT1SR%(T)" BAD CHAIN!":1260X~C%(T,S)0" ALLOCATED BLOCKS! ":1260j3000:L%L%1J01:15,"M-R";(J);B$:#15,A$A(J)(A$Z$):JT4T:S4S:TA(0):SA(1):T01130TT%(0,1):SS%(0,1):T%(0,1)0:T01130*L%L%(0)" INCORRECT BLOCK COUNT!":1260=TT6:SS6:DD6G3000g15,"M-W";(D);B$;(1);(X)15,"U2:2,";D$;T;S:3020:1300"  SORRY - IT WON'T WORK "22:15:" GOT TIME TO VALIDATE THE DISK ?"VD$:VD$""1301VD$"N"5000?15,8,15:15,"V0":15:QW11000 ::EO3000vJ0255:15,"M-R";(J);B$:#15,A$A(J)(A$Z$):J:  15,"B-R"2;(D$);T;S  15,E,E$,E1,E2 E0" DISK ERROR: "E;E$;E1;E2 2VD$"":"DO YOU WANT TO RECOVER MORE FILES (Y/N)?"J VD$: VD$""5010ZVD$"Y"10~"  BYE, BYE ":' 1,17,20,24,19,30,17,35,16,0' 65,17,20,24,18,30,17,35,16,0$' 67,39,28,53,26,64,24,77,22,0