9 DIRECTORY MANIPULATOR 03/28/87 - BY BOB OSSENTJUKA 58G:] HIT KEY ROUTINE~13)A$" HIT ANY KEY! "CK$:CK$""2013)A$" ":: CHECK DISK STATUS15,EN,EM$,ET,ES:EN0""A$12)"DISK DRIVE ERROR"D A$"ERROR # -"EN"; TRACK -"ET"; SECTOR -"SE{"A$"ERROR MSG - "EM$:12)A$""$12)A$"ݚFIX DISK ERROR":12)A$""&18(15,"I0":"":E11:28*:, GET LOCATION+.A$" LOCATION OF ENTRY: ";:BL$:BL$"_"P0BL(BL$):BLN1BL1"":46w2CM$"S"CM$"E"CM$"R"CM$"P"4NN1:IN1BL11:F$(I)F$(I1)::6:8 STARTUP & DISPLAY:A$"":AA$""<(215)%:A$"":AA$""X>53280,7:53281,1:""5)A$""@5)A$"ݚ DIRECTORY MANIPULATOR "B5)A$""D5)A$"ݟ INSERT DISK TO MANIPULATE! " F5)A$"":18:I111R HFL$FL$(0)::TY$(131)(18)(0):S%(18):S%(1)1q JI117:I6S%(I1)2:80 LI12S%(I1)3:80 NS%(I1)S%(I)3 P:SP$"":I116:SP$SP$(32):SS$SS$(160)::X04!RTP$(X)::B(B)2(B(B8)8)BF:DEL,SEQ,PRG,USR,REL/!THE$"0123456789ABCDEF"5!V:R!X FIND DISK & DRIVE MODE!Z15,8,15,"I0":2,8,2,"#":15,"U1";2;0;18;0!\#2,FM$,FM$,FM$,FM$:FM(FM$(0)):28!^E11E10:2:15:90!`15,"U1";2;0;53;0:15,EN,EM$,ET,ES "bEN66DD$"1541":DD0:102!"dDD$"1571":DD1L"f2:8)A$""u"h8)A$"ݖ "DD$" DISK DRIVE MODE ""j8)A$"""l10)A$"""nFM010)A$"ݖ 1541 DISKETTE #pFM010)A$"ݖ 1571 DISKETTE V#r10)A$"":400:F$(144):T18:S1:N1\#t:q#v READ DIRECTORY#y2,8,2,"#":A$"READING BLOCK:"#z15,"U1";2;0;T;S:28:#2,T$,S$#{A$" "T;S$|T(T$(0)):S(S$(0))Q$}I18:F$"":X110:A$""Id$~#2,B$,B1$,B2$$F$F$((B$(0)))((B1$(0)))((B2$(0)))$:((F$,1))0((F$,4,1))160F$(N)F$:NN1$#2,B$,B$::T0122$2:15$:% PRINT DIRECTORY8%Z1:OD0:P120:PGP1:X((N1)2)1Z%(N1)(2(X1))1XX1:OD1%XXX1:PC(XXPG):(XXPG)PC0PCPC1%XXPGXPG1%""9)A$"":9)A$"ݚ"NA$"- "ID$"" &9)A$"":I1XX6&A$""((Z),2)"-";(F$(Z),4,16):ZZ1i&OD0(OD12XXX)20)A$""((X),2)"-";&OD0(OD12XXX)(F$(X),4,16):XX1&(IPG)1PC2PGPGP1:18:PCPC1:160&164&ZX:PC2XZP1'PC1X(((2XX)(2I))2)Z '':(' SELECT COMMANDZ'A$" SELECT COMMAND? (ABCDEFGHILMNPRSVWX)"o'CM$:CM$""172'A$" "SP$SP$"":CM(CM$)64:CM1138'CM14CMCM14:182'CM238,254,304,262,316,274,202,338,420,190,190,190,468,410(138(CM12138O(CM190,440,190,430,328,190,190,196,208,390,190,190:138U(:( L - CMD - LIST DIRECTORY & UN-IMPLEMENTED CMDS((:( V - CMD - VALIDATE(A$" VALIDATE DISK":15,8,15,"V0:":28:15:(:) G - CMD - GET ANOTHER DISK )):3) W - CMD - WRITE DIRECTORYp)""A$" WRITING NEW DIRECTORY...PLEASE WAIT!":F$"")I132:F$F$(0)::15,8,15,"I0":28)13)A$" DISK UNIT OK ":A$"WRITING TRACK 18 SECTOR 0"*2,8,2,"#":15,"U1:";2;0;18;0:15,"B-P:";2;144:2,NA$;C*15,"B-P:";2;162:2,ID$;:15,"U2:";2;0;18;0*15,"U1:";2;0;18;1:X((N1)8):XX0:((N1)8)X0XX1*I1X:15,"B-P:";2;0:T18*IX2,(0);(255);:226*2,(T);(S%(I1));*Z18:XXXX1:XXN2,F$;:230%+2,F$(XX);:Z8XX(N1)2,"->";g+:15,"U2:";2;0;18;S%(I):A$"WRITING TRACK 18 SECTOR"(S%(I))v+:2:15:|+:+ A - CMD - ALPHABATIZE+A$" ALPHABATIZE DIR":XN+X(X2):X0+I1((N1)X):YI ,ZYX:(F$(Y),4,16)(F$(Z),4,16)248@,FF$F$(Y):F$(Y)F$(Z):F$(Z)FF$:YYX:Y0244K,:240Q,:n, B - CMD - INSERT BLANK,A$" INSERT BLANK":46:BL$"_"138,F$(BL)(0)(0)(0)SP$FL$:,:, D - CMD - DELETE BLANKS,A$" DELETE BLANK"-YN1:I1Y:(F$(I))0268- :<- XIY:IYF$(X)F$(X1)M-:NN1:264S-:p- F - CMD - INSERT FORMS-A$" INSERT COMMENT FORMS":46:BL$"_"138-""9)A$"":9)A$" COMMENT FORMS! ݒ$.9)A$"":9)A$"1. "b.9)A$"2. ":9)A$"3. ".9)A$"4. ----------------":9)A$"SELECT FORM ?".SR$"":SR$:SR$""286. SR(SR$):SR49SR52286/"""A$23)SR$::SR49SR$"(/$SR50SR$"I/&SR51SR$"j/(SR52SR$"----------------/*F$(BL)TY$SR$FL$:/,:/. C - CMD - INSERT COMMENT/0A$" INSERT COMMENT":46:BL$"_"13802A$" ENTER COMMENT:";:RM$:RM$(RM$SP$,16)&04(RM$,1)""RM$(RM$,15)"?06F$(BL)TY$RM$FL$:E08:f0: E - CMD - EXCHANGE ENTRIES0<A$" EXCHANGE DIRECTORY ENTRIES":A$" 1ST"AA$;:460>BL$"_"1380@ABL:A$" 2ND"AA$;:46:BL$"_"1380BFX$F$(A):F$(A)F$(BL):F$(BL)FX$:1D:"1F S - CMD - SCRATCH ENTRYJ1HA$" SCRATCH FILE":46:BL$"_"138n1JXBLN1:BLN1F$(X)F$(X1)|1L:NN1:1N:1P H - CMD - HELP MENU1R""A$" "2TA$" ݖ HELP *** DIRECTORY MANIPULATOR ݒ":2VA$" "k2XA$" "2ZA$" ݚ A -> ALPHABATIZE DIRECTORY "2\A$" ݚ B -> INSERT BLANK "3^A$" ݚ C -> INSERT COMMENT "73`A$" ݚ D -> DELETE BLANK ENTRIES "j3bA$" ݚ E -> EXCHANGE DIRECTORY ENTRIES "3dA$" ݚ F -> INSERT COMMENT FORMS "3fA$" ݚ G -> GET ANOTHER DISKETTE "4hA$" ݚ H -> DIRECTORY MANIPULATOR HELP "64jA$" ݚ I -> CHANGE DISK ID "i4lA$" ݚ L -> LIST DIRECTORY "4nA$" ݚ M -> LIST BLOCK AVAILABILITY MAP "4pA$" ݚ N -> CHANGE DISK NAME "5rA$" ݚ P -> LIST FILE PARAMETERS "55tA$" ݚ R -> RENAME FILE "h5vA$" ݚ S -> SCRATCH FILE "5xA$" ݚ V -> VALIDATE DISK "5zA$" ݚ W -> WRITE DIRECTORY "6|A$" ݚ X -> EXIT MANIPULATOR "46~A$" ݚ _ -> CANCEL CMD--USE AT LOC REQUEST"l6A$" ":18:r6:6 X - CMD - EXIT DM6A$" EXIT DIR MANIPULATOR":A$" ARE YOU SURE (Y/N)";6"N";AN$:AN$"Y"66: 7 GET DISKETTE NAME & IDI72,8,2,"#":15,"U1";2;0;18;0:15,"B-P";2;144:I144163}7#2,B$:B(B$(0)):NA$NA$(B)::ID$(NA$,2)7NA$(NA$,16):2:7:7 N- CMD - CHANGE DISK NAME7A$" CHANGE DISK NAME":A$" CURRENT DISK NAME: "NA$#8A$" NEW DISK NAME ";:NA$:(NA$)16412;8NA$(NA$SP$,16):A8:`8 I - CMD - CHANGE DISK ID8A$" CHANGE DISK ID":A$" CURRENT DISK ID: "ID$8A$" NEW DISK ID ";:ID$:(ID$)24228ID$(ID$SP$,2):8:8 R- CMD - RENAME FILE!9A$" RENAME FILE":46:BL$"_"138b9A$" CURRENT FILENAME: "(F$(BL),4,16):A$" NEW FILENAME: ";9FE$:F$(BL)(F$(BL),3)((FE$SS$),16)(F$(BL),11):9:9 P - CMD - FILE PARAMETERS9A$" FILE PARAMETERS":46:BL$"_"138:TP((F$(BL),1)):TP$TP$(TP128)Q:LE((F$(BL),29,1))256((F$(BL),30,1)):15,8,15,"I0"m:28:E11E10:15:440:2,8,2,"#":TK((F$(BL),2,1)):SE((F$(BL),3,1)):15,"U1";2;0;TK;SE:#2,L$,L$,L$,H$:2:15:LB(L$(0));HB(H$(0)):AD256HBLB:AD$"":X301:N%AD(16X)Q;ADADN%16X:AD$AD$(HE$,N%1,1)::SE$(SE)|;SE$("0"(SE$,(SE$)1),2):TK$(TK);TK$("0"(TK$,(TK$)1),2):AD$"$"AD$;A$" FILENAME TYP ADDRS TK/SE BLK"<A$" "(F$(BL),4,16)" "TP$" "AD$" "TK$"/"SE$;LE"":18: <:<< M - CMD - BAM DISPLAYO<A$" LIST BAM"U<:< GET SIDE 1 BAM & BLOCKS FREE FOR BOTH SIDES<15,8,15,"I0":28:E11E10:15:502<2,8,2,"#":15,"U1";2;0;18;0:BA$"":15,"B-P";2;4=W11:W2140:534:FM0482-=15,"B-P";2;221:W1221:W2255:5348=2:15>=:\= CALC SIDE 1 BLOCKS FREE=B10:I11374:B1B1((BA$,I,1)):=FM0502=:= CALC SIDE 2 BLOCKS FREE=B20:I141175:B2B2((BA$,I,1)):=:> DISPLAY SIDE 1 HEADER & BLOCKS FREEN>SD$"TR>12345678901234567890123456789012345":SD1:540>21)""B1((BA$,69,1))" BLOCKS FREE ":R2:S0:R14>556:18:FM0>:> DISPLAY SIDE 2 HEADER & BLOCKS FREE?SD$"TR>67890123456789012345678901234567890":SD2:5400?21)""B2" BLOCKS FREE "g?DD0""9)"1541 DRIVE - NO SIDE 2":18:m?:? GET SIDE 2 BAM? 15,8,15,"I0:":28:E11E10:15:512? 2,8,2,"#":15,"U1";2;0;53;0:BA$"":W10:W2104:534?2:15@R2:S0:R13:556:18:@:1@ READ VARIOUS BAM BYTES_@WW1W2:#2,B$:BA$BA$((B$(0)))::e@:|@ DISPLAY BAM FORM@SD$:" ۮ":X020@X$((X),2):X$""35)""::33)"۱"%A 27)"۱ ":20)"۱ + = FREE ":A"20)"";17)""kA$02)""A&" BAM SIDE"SD"":A(:A* DISPLAY BAM CONTENT (+ OR -)A,X121:Y2:I135:RRR1:SSR1:B$"":XSR1B.BF((BA$,X,1)):M701:B(M)0B$B$"-":562&B0B$B$"+"XB2::YY1:"":X1X1:""Y)(B$,25X,1):hB4Y19X119xB6Y26X118B8Y32X117B::"":