4%:PA2816:N1:F$(144),S%(18):S%(1)1:I117kI6S%(I1)2::I12S%(I1)3::S%(I1)S%(I)3I:HE$"0123456789ABCDEF":TY$(131)(18)(0)A$" ":AA$"":I111 FL$FL$(0):I04:TP$(I):I:DEL,SEQ,PRG,USR,REL<I120:SP$SP$(32):SS$SS$(160):I:22Z15,EN,EM$,ET,ES:EN20DP$"ISK RROR - IT ANY TO RE-START!" 12:13:U(U):" RROR UMBER..";EN " RROR EXT.... ";EM$:" RACK.........";ET " ECTOR........";ES:CK$:P 0,0,79,24:6,1:5,2:(14)(27)"N":6,2:(27)"R": 5,1:18,2,60,9,1:5,7:16,1,58,8,1:DP$16,3,58,8,1:A$" OCATION OF ENTRY: ";:BL$:BL$"_"BL(BL$):BLN1BL1"":15%CM$"E"CM$"P"CM$"R"CM$"S"CM$"T"CM$"U"QNN1:IN1BL11:F$(I)F$(I1):I:15,"U0"(D)(T%)(S%):62723:62650: A:174,0:175,11:147,0:198,0:165,0:58739:6272362661:58783:DP$" IRECTORY ANIPULATOR":12:13( " ISK NIT [8-11] ...... 8 ";U@ U8U11"":23k " ISK RIVE [0/1] ...... 0 ";D D0D1"":25 " LACE ISK IN NIT"U"RIVE"D"AND" " PRESS ANY TO CONTINUE.":CK$:CK$(27)23 D$((D),1)#!15,U,15,"I"D$:7:15,"U0"(4)F!T%18:S%0:CM$"V"CM$"S"33w! " EADING RACK"T%", ECTOR "((S%),2)!!19:A27!"20:CM$"V"CM$"S"38!#NA$"":I144159:NA$NA$((PAI)):I:ID$"""$I162163:ID$ID$((PAI)):I:OS$"":I165166("%OS$OS$((PAI)):I_"&DK%1:DK$"INGLE":(PA3)128DK$"OUBLE":DK%2"'FS%0:I41404:FS%FS%((PAI)):I"(DK%2I221255:FS%FS%((PAI)):I")AS%(PA72):FS%FS%AS%"*CM$"V"CM$"S"48$#+T%(PA):S%(PA1):""A$""((S%),2)5#,19:A27o#-20:I022432:F$"":XI2I31:F$F$((PAX)):X#.((F$,1))0((F$,4,1))160F$(N)F$:NN1#/I:(PA)042#0U(U)#112:5,1:18,1,62,4,1:5,7:16,0,60,3,1$2"ISK AME.."NA$" - ISK .."ID$M$3""DK$" IDED ISK -"FS%"LOCKS REE"$40,6,79,24,1:5,1:"";:L0(N1)4:L5((N1)4)$5ODL0L5:Z1OD:L0L5L5L51$6L11:L2L1L5:L3L2L5:L4L3L5:L618:O20:O30%7N10L4L42:L3L31:O32:O21%8N7L4L41:O31<%9N6L4L42:L3L31:O32:O21O%:N3N2O31^%;N2O21%<L1L5((L1),2)"-";(F$(L1),4,16):L1L11%=L2L52O220)""((L2),2)"-";(F$(L2),4,16):L2L21 &>L3L53O340)""((L3),2)"-";(F$(L3),4,16):L3L31I&?L4(L04)60)""((L4),2)"-";(F$(L4),4,16):L4L41m&@L1N1L2N1L3N1L4N167&AL1L6L6L6L6:149:A$SP$SP$""&B60&CZ0ZZ.25:60&DA$" ELECT OMMAND? (ABCDEFGHILMNPRSTUVWX)"&ECM$:CM$""69#'FA$""SP$SP$"":CM(CM$)64:CM149;'GCM14CMCM14:74v'HCM94,100,122,102,126,107,79,135,156,77,77,77,176,153~'I49'JCM1249'KCM77,163,77,159,130,197,217,78,80,150,77,77'LCM$"V"CM$"S"30:49'M(N" ALIDATE ISK":15,U,15,"V"D$:7:U(U):(OP(P""A$" RITING NEW IRECTORY...LEASE AIT!"(QF$"":I132:F$F$(0)::15,U,15,"I"D$:7(R13)A$" DISK UNIT OK "(SA$"RITING RACK 18 ECTOR 0":2,8,2,"#"(T15,"U1:";2;0;18;0:15,"B-P:";2;144:2,NA$;/)U15,"B-P:";2;162:2,ID$;:15,"U2:";2;0;18;0X)V15,"U1:";2;0;18;1:X((N1)8):XX0r)W((N1)8)X0XX1)XI1X:15,"B-P:";2;0:T18:IX2,(0);(255);:90)Y2,(T);(S%(I1));)ZZ18:XXXX1:XXN2,F$;:92*[2,F$(XX);:Z8XX(N1)2,"->";,*\:15,"U2:";2;0;18;S%(I)c*]A$"RITING RACK 18 ECTOR"(S%(I))::U(U):*^" LPHABATIZE IR":XN*_X(X2):X0*`I1((N1)X):YI*aZYX:(F$(Y),4,16)(F$(Z),4,16)99+bFF$F$(Y):F$(Y)F$(Z):F$(Z)FF$:YYX:Y097+c:957+dA$" NSERT LANK":15:BL$"_"[+eF$(BL)(0)(0)(0)SP$FL$:p+f" ELETE LANK"+gYN1:I1Y:(F$(I))0105+h:+iXIY:IYF$(X)F$(X1)+j:NN1:103+k::A$" NSERT OMMENT ORMS":15:BL$"_",l""9)A$""A,m9)A$" OMMENT ORMS! ݒ"d,n9)A$"",o9)A$"1. ",p9)A$"2. ",q9)A$"3. "-r9)A$"4. ----------------":9)A$"ELECT ORM ?"-sSR$"":SR$:SR$""115<-tSR(SR$):SR49SR52115m-u""A$23)SR$::SR49SR$"-vSR50SR$"-wSR51SR$"-xSR52SR$"-----------------yF$(BL)TY$SR$FL$:.zA$" NSERT OMMENT":15:BL$"_"B.{A$" NTER OMMENT:";:RM$:RM$(RM$SP$,16)e.|(RM$,1)""RM$(RM$,15)"~.}F$(BL)TY$RM$FL$:.~A$" XCHANGE IRECTORY NTRIES":A$" 1ST"AA$;:15.BL$"_".ABL:A$" 2ND"AA$;:15:BL$"_"/FX$F$(A):F$(A)F$(BL):F$(BL)FX$:8/A$" CRATCH ILE":15:BL$"_"o/A$" RE YOU SURE ? ";:CK$:CK$:CK$"Y"132::/((F$(BL),4,16)),D(D),U(U):XBLN1/BLN1F$(X)F$(X1)/:NN1:/""A$" "(0A$"  -> IRECTORY ANIPULATOR ݒ"[0A$" ":0"A -> ALPHABATIZE DIRECTORY","M -> LIST BLOCK AVAILABILITY MAP"0"B -> INSERT BLANK ","N -> CHANGE DISK NAME"'1"C -> INSERT COMMENT ","P -> LIST FILE PARAMETERS"a1"D -> DELETE BLANK ENTRIES ","R -> RENAME FILE"1"E -> EXCHANGE DIR ENTRIES ","S -> SCRATCH FILE"1"F -> INSERT COMMENT FORMS ","T -> TRACE FILE LINKS"!2"G -> GET ANOTHER DISKETTE ","U -> UNCOVER AUTOBOOT SECTOR"]2"H -> DIR MANIPULATOR HELP ","V -> VALIDATE DISK"2"I -> CHANGE DISK ID ","W -> WRITE DIRECTORY"2"L -> LIST DIRECTORY ","X -> EXIT MANIPULATOR"#3" ","_ -> CANCEL CMD - @ LOC REQUEST"\3A$(15)" ő":CK$:3A$" XIT IR ANIPULATOR":A$" RE OU URE (Y/N)";3"Y";AN$:AN$"Y"33A$" HANGE ISK AME":A$" URRENT ISK AME: "NA$#4A$" EW ISK AME ";:NA$:(NA$)16154;4NA$(NA$SP$,16):o4A$" HANGE ISK ":A$" URRENT ISK : "ID$4A$" EW ISK ";:ID$:(ID$)21574ID$(ID$SP$,2):4A$" ENAME ILE":15:BL$"_"5A$" URRENT ILENAME: "(F$(BL),4,16)#5A$" EW ILENAME: ";:FE$Y5F$(BL)(F$(BL),3)((FE$SS$),16)(F$(BL),11):5A$" ILE ARAMETERS":15:BL$"_"5TP((F$(BL),1)):TP$TP$(TP128)5LE((F$(BL),29,1))256((F$(BL),30,1)) 615,U,15,"I"D$:7:2,8,2,"#":TK((F$(BL),2,1))H6SE((F$(BL),3,1)):15,"U1";2;0;TK;SE:#2,L$,L$,L$,H$}6U(U):LB(L$(0)):HB(H$(0)):AD256HBLB6AD$"":X301:N%AD(16X):ADADN%16X6AD$AD$(HE$,N%1,1)::SE$(SE)6SE$("0"(SE$,(SE$)1),2):TK$(TK)+7TK$("0"(TK$,(TK$)1),2):AD$"$"AD$^7A$" ILENAME TYP ADDRS TK/SE BLK"7A$" "(F$(BL),4,16)" "TP$" "AD$" "TK$"/"SE$;LE""7149:715,U,15,"I"D$:7:15,"U0"(4):T%18:S%0 8""A$" -> EADING RACK"T%", ECTOR "((S%),2)819:A27T820:5,1:"":" ECTORS";:"";8J2001:(((J),2),2);"";:J:" ";:I1708(((I),2),1);:I:" ";:I170:((I),1);9I::"RACKS - "(142)" "(14)"=LLOCATED";9" ";:NA$;:" ";:ID$;:" ";:OS$;:" - ";:DK$;c9" IDED";:" -"FS%"LOCKS REE -";95,1:5,0,79,21,1:L20:T101:T217:195:L18:T1189T224:195:L17:T125:T230:195:L16:T131:T2359195:DK%2191:T%53:S%0:19:A276:20:L20:T136:T252:196:L18:T153:T259:196f:L17:T160:T265:196:L16:T166:T270:196:(7):CK$:U(U)::S0L:Z%2(S(S8)8)(B%((S8))):Z%0,T1,21S,"+":S::,T1,21S,(142)""(14):S:%;TT1T2:I13:B%(I1)(PAI(T4)):I:192:T:_;TT1T2:I13:B%(I1)(PA((T36)3)):I:192:T:z;A$" RACE ILE INKS";15;CT0:BL$"_";12:5,1:18,1,62,4,1:5,7:16,0,60,3,1;CM$"U""NCOVER UTOBOOT ECTOR":203!<"RACE ILE INKS"Y<"RACING: "(F$(BL),4,16):0,6,79,24,1<5,1:" ";:15,U,15,"I"D$:7:2,U,2,"#"<T%((F$(BL),2,1)):TD18:S%((F$(BL),3,1))<T%1S%0CM$"U"SF1::263:=T$("0"((T%),((T%))1),2)==S$("0"((S%),((S%))1),2):T$"/"S$" ";:CTCT1U=CT13CT0::" ";=15,"U1:";2;D;T%;S%:#2,T$,S$:T$T$(0):OTT%=S$S$(0):OSS%:T%(T$):S%(S$)=T%0CM$"T"U(U)::A$" ILE TRACE COMPLETE !">T%0CM$"T"149:$>T%0CM$"U":U(U)::J>T%1S%0CM$"U"SF0:U(U):S>207u>A$" NCOVER UTOBOOT ECTOR">A$" EARCH COMPLETE DISK";:"N";CD$>CD$"N"223>BL1N1:199:T%1S%0225>?U(U):" ";:A$"UTOBOOT SEARCH COMPLETE!":149:0?198:T%1S%02259?222H?"01/00"{?A$"UTOBOOT SECTOR IS PART OF "(F$(BL),4,16)?A$"NCOVER AUTOBOOT SECTOR (Y/N)";:"Y";US$?US$"N"222@" HECKING FOR NEXT AVAILABLE SECTOR FOR RELOCATION"-@15,U,15,"I"D$:1,U,4,"#":2,U,5,"#"O@15,"U1:4 D 18 0":BA42844~@BA144" O AVAILABLE BLOCKS ON SIDE 1";@BA144DK%2", CHECKING SIDE 2"@BA284(BA144DK%1)" O AVAILABLE BLOCKS ON THIS DISKETTE":222ABA143BXBA:237ABX(185(BA4))QA15,"B-P";4;BX:#1,BY$:TT%(BY$(0)):BF(BA4)dABF18BF53ATT%." O FREE BLOCKS IN TRACK ";BF:"":A" OUND ";TT%;" BLOCKS FREE IN TRACK ";BFA" OW LOCATING FIRST AVAILABLE BLOCK"(BBX22015,"U1";4;D;53;0:BX((BX221)31):B1.WBB1B11:B14"  DOESN'T VERIFY":222B15,"B-P";4;BXB1:#1,BY$:TT%(BY$(0)):TT%.243BBM$"":X701:BN2(X(X8)8)TT%:BN0BN1CBN$(BN):BM$BM$(BN$,1)::X811:BX$(BM$,X,1)CBX$"0"%CBX$"1"SX(8X):CB2((B11)8)SXzC" OUND FIRST AVAILABLE BLOCK AT TRACK";BF;", SECTOR";B2C" EADING TRACK-1, SECTOR-0":15,"U1";4;D;1;0C" RITING TO TRACK";BF;", SECTOR";B2 D15,"U2";4;D;BF;B2:" LLOCATING NEW BLOCK"CD15,"B-A";D;BF;B2:" EALLOCATE TRACK-1, SECTOR-0"aD15,"B-F";D;1;0:SF1259D" E-WRITING TRACK";OT;", SECTOR";OS;"TO SHOW NEW FORWARD LINK."D15,"U1";5;D;OT;OS:15,"B-P";5;0:2,(BF)(B2);D15,"U2";5;D;OT;OS:222FE" E-WRITING DIR TRACK";TD;", SECTOR";SD;"TO SHOW NEW FORWARD LINK."E15,"U1";5;D;TD;SD:15,"B-P";5;332DP:2,(BF)(B2);E15,"U2";5;D;TD;SD:(F$(BL),2,1)(BF)E(F$(BL),3,1)(B2):222ESD((BL1)8)1:DP(BL(SD1)8)1FSD0SD7SDSD(SD1)2:6F SD6SD13SD(SD5)(SD7)2:QF SD(SD10)(SD13)2: