* DIRECTORY EDITOR V18.00V BY ERIC EDWARD HAAS|( 512 JAMESTOWN CT2 EDGEWOOD, MD 21040<F340:5,1:%:DR$(144):SP$" ":SP$SP$SP$SP$SP$SP$SP$:MT$(0)(0)(0)(0)(0)(0)PMT$MT$MT$MT$MT$MT$:TP$(132):TP (TP$):1:250,(TP1):251,(TP2):252,1:15:65381,250,10,1 ZDN$(27)"V":UP$(27)"W":0,1,79,19,1:(142);" ### --A-- -B- -C- -------D-------- -E- -F- -G- -H- -I- -J- -K- -L- -M- --N--"_d" "n0,20,79,24,1:"":0,21,79,24,1=x" LEASE INSERT DISK. RESS WHEN READY."::A$:A$(13):T18:S1:IX1:0,21,79,24,115,8,15:2,8,2,"#":15,"U1:"2;0;T;S:#2,T$,S$:T(T$):S(S$):360:J28:#2,A$,A$:360::2:15T0130 IXIX1:BG1:IIX11:DR$(I)MT$JIIX:DR$(J)DR$(J1)::DR$(IX)"":IXIX1 :3803 0,21,79,24,1:" OMMAND?"< A$j A$""BG1BGBG1::" ":380:170 A$""BG(IX15)BGBG1::" ":380:170 A$""930:170 A$"A"1660:170 A$"C"1490:170 A$"D"870:170!A$"E"850:170&!A$"G"480:170%N(A1$)0(A1$)(IX1):Չ510h%X(A1$)0(20);:A1$(A1$,(A1$)1)q%b510%lA1IX:A11A11%vA1$((A1),2):A1$;:510%A1BG15:A1IX620%630%A$%A$"A"A$"N"660%A$;:!&0,21,79,24,1:" ";:660:" = ";:&A$"A""FILE TYPE"X&A$"B""STARTING TRACK"w&A$"C""STARTING SECTOR"&A$"D""FILE NAME"&A$"E""FIRST SIDE TRACK (REL ONLY) [ - TRACK OF INFO BLOCK]"#'A$"F""FIRST SIDE SECTOR (REL ONLY) [ - SECTOR OF INFO BLOCK]"g'A$"G""RECORD LENGTH (REL ONLY) [ - FILE STRUCTURE]"'A$"H""UNUSED [ - CLASS]"' A$"I""UNUSED [ - YEAR]"(A$"J""UNUSED [ - MONTH]"P( A$"K""UNUSED [ - DAY]"(*A$"L""STARTING TRACK OF REP. FILE [ - HOUR]"(4A$"M""STARTING SECTOR OF REP. FILE [ - MINUTE]"(>A$"N""FILE LENGTH"(H208,1:f)R0,21,79,24,1:" ";:500:F1(A1$):" WITH ";:500:F2(A1$):T$DR$(F1):DR$(F1)DR$(F2):DR$(F2)T$:380{)\0,21,79,24,1:)fIX00,21,79,24,1:*p0,21,79,24,1:" ";:500:F1(A1$):I1F1IX:DR$(I1)DR$(I11)::DR$(IX)"":IXIX1:380:0,21,79,24,1:u*z0,21,79,24,1:" ";:500:F1(A1$):" TO ";:500:F2(A1$):F11(F1IX)F21F2IX1890*F1F20,21,79,24,1:*TP$DR$(F1)*SN(F2F1):I1F1F2SNSN:DR$(I1)DR$(I1SN)::DR$(F2)TP$:380:0,21,79,24,1:d+0,21,79,24,1:" DD, HANGE, ELETE, XCHANGE, OTO, DENTIFY, OVE, UIT, EREAD, ORT, RITE":A$|+A$"A"1970:2470+A$"C"2020:2470+A$"D"2050:2470+A$"E"2070:2470+A$"G"2100:2470+A$"I"2120:2470 ,A$"M"2140:2470$,A$"Q"2160:2470<,A$"R"2170:2470T,A$"S"2180:2470l,A$"W"2240:2470|,2260:2470,$A1$"",.A$,8A$(13)1150,BA$(20)1130,LA$"!"A$"Z"1070,V(A1$)51070,`A$;:A1$A1$A$:1070&-j(A1$)0(20);:A1$(A1$,(A1$)1)0-t1070C-~(A1$)31070o-(A1$,1)"*"A10:A1$(A1$,2):A1128-(A1$,1)"<"A1A164:A1$(A1$,(A1$)1)-A1$"DEL"-A1$"SEQ"A1A11:-A1$"PRG"A1A12:-A1$"USR"A1A13:.A1$"REL"A1A14:'.(A1$)631070:.A1A1(A1$):E.A1$""N.A$a.A$(13)1340t.A$(20)1320. A$"0"A$"9"1260.(A1$)L11260.A$;:A1$A1$A$:1260.((A1$)0(20);:A1$(A1$,(A1$)1).21260/<((A1$)L2)((A1$)1)1260 /FA1(A1$):8/PL15:L265535:1250N/ZL13:L2255:1250Y/dA1$""b/nA$u/xA$(13)1470/A$(20)1450/((A$)127)321390/(A1$)161390/A$;:A1$A1$A$:1390/(A1$)0(20);:A1$(A1$,(A1$)1)013900(A1$)11390:0(A1$)16:A1$A1$(160)::0:0,21,79,24,1:" ";:500:D(A1$):DIX:" COLUMN ";:660:Q$A$:0,21,79,24,1:" => ";0Q$"A"1060:(DR$(D),1,1)(A1):15601Q$"D"1380:(DR$(D),4,19)(A1$ED$,16):1560j1Q$"N"1360:(DR$(D),30,1)(((A1$)256)):(DR$(D),29,1)((A1$)256((A1$)256)):15601Q("BCEFGHIJKLM",Q$):Q3QQ1:15501QQ1711370:(DR$(D),Q,1)((A1$))1380:0,21,79,24,1:P2"TP$"HELP"(13):TP (TP$):1:250,(TP1):251,(TP2):252,1:15:65381,250,10,5:0,0,79,24,1:(27)"N":2,1,4,7,10,13,16,2,5,8,11,14,17,3,6,9,12,15,18260,21,79,24,1:" RITING DIRECTORY . . ."3@IIX11:(DR$(I),1)(0)JIIX:DR$(J)DR$(J1)::DR$(IX)MT$:IXIX1.3J:IX144I(IX1)(IX8):DR$(I)MT$:M3TIN1:T118:T218:1580:S1n3^:S2:(IXIN)7T20:S22553h15,8,15:2,8,2,"#":15,"B-P 2 0":I(IN)IN7:2,(T2)(S2)DR$(I);::ININ8:15,"U2:2 0"T1;S1:2:15:S1S2#4rT20:0,21,79,24,1:" ALIDATING . . ."::0,21,79,24,1:\4|IX1440,21,79,24,1:" IRECTORY FULL!": 2::40,21,79,24,1:" ENTRY AT ";:500:D(A1$)::" ILE YPE => ";:1060:TP$(A1)::" TARTING TRACK => ";>51370:TP$TP$(A1):" SECTOR => ";:1370:TP$TP$(A1)::" ILE NAME => ";:1380:TP$TP$A1$:5((TP$)7)4:" IRST SIDE TRACK => ";:1370:TP$TP$(A1):" SECTOR => ";:1370:TP$TP$(A1)5:" ECORD LENGTH => ";:1370:TP$TP$(A1):::TP$TP$(0)(0)(0)f6TP$TP$(0)(0)(0)(0)(0)(0):" ILE LENGTH => ";:1360::TP$TP$((A1$)256((A1$)256))6TP$TP$(((A1$)256))6D(IX1)DR$(IX1)TP$:IXIX1:F1IX1:F2D:SN(F2F1):I1F1F2SNSN:DR$(I1)DR$(I1SN)::DR$(F2)TP$::IXIX17380:{7:0,21,79,24,1:" DIRECTORY FROM ";:500:F1(A1$):" TO ";:500:F2(A1$):(F1F2)(F2IX)::TP$""7" BY FIELDS ";::660:TP$""(TP$,A$)0TP$TP$A$8A$"D"::" IN ASCENDING OR DESCENDING ORDER? (A,D) ";::A$:A$"A"A$"D":A$: 1w8:" ING . . .":IF1F21:JI1F2:M1$"":M2$"":K1(TP$):,16,1,"",J18("ABCDEFGHIJKLMN",(TP$,K,1))1800,1810,1820,1830,1840,1850,1860,1870,1880,1890,1900,1910,1920,19309M1$M1$(DR$(I),1):M2$M2$(DR$(J),1):1940I9M1$M1$(DR$(I),2,1):M2$M2$(DR$(J),2,1):19409M1$M1$(DR$(I),3,1):M2$M2$(DR$(J),3,1):19409&M1$M1$(DR$(I),4,16):M2$M2$(DR$(J),4,16):194090M1$M1$(DR$(I),20,1):M2$M2$(DR$(J),20,1):1940'::M1$M1$(DR$(I),21,1):M2$M2$(DR$(J),21,1):1940_:DM1$M1$(DR$(I),22,1):M2$M2$(DR$(J),22,1):1940:NM1$M1$(DR$(I),23,1):M2$M2$(DR$(J),23,1):1940:XM1$M1$(DR$(I),24,1):M2$M2$(DR$(J),24,1):1940;bM1$M1$(DR$(I),25,1):M2$M2$(DR$(J),25,1):1940?;lM1$M1$(DR$(I),26,1):M2$M2$(DR$(J),26,1):1940w;vM1$M1$(DR$(I),27,1):M2$M2$(DR$(J),27,1):1940;M1$M1$(DR$(I),28,1):M2$M2$(DR$(J),28,1):1940;M1$M1$(DR$(I),30,1)(DR$(I),29,1):M2$M2$(DR$(J),30,1)(DR$(J),29,1)8<:A$"A"M1$M2$Q$DR$(I):DR$(I)DR$(J):DR$(J)Q$o<A$"D"M2$M1$Q$DR$(I):DR$(I)DR$(J):DR$(J)Q$~<::380:<" ()DD - NTER THE NUMBER AT WHICH TO ADD THE NEW FILE AND PRESS Β."*="OU WILL THEN BE ASKED FOR SOME INFORMATION ON THE FILE (FILE TYPE, FILE NAME,"~="ETC.). NTER THE INFORMATION AND PRESS Β AFTER EACH ENTRY. XISTING"="FILES WILL BE MOVED DOWN ONE PLACE TO MAKE ROOM FOR THE NEW FILE. F THE">"DIRECTORY HAS 144 FILES, YOU WILL NOT BE ALLOWED TO ADD ANYMORE.",*j>" ()HANGE - NTER THE NUMBER OF THE FILE YOU WANT TO CHANGE AND PRESS">"Β. NTER THE LETTER OF THE COLUMN YOU WANT TO CHANGE (DO NOT PRESS"?"Β). NTER THE APPROPRIATE INFORMATION AND PRESS Β.",*X?" ()ELETE - NTER THE NUMBER OF THE FILE YOU WANT TO DELETE AND PRESS"? "Β. HE REMAINING FILES WILL BE MOVED UP TO FILL THE GAP.",*?" ()XCHANGE - NTER THE NUMBER OF THE FIRST FILE AND PRESS Β. NTER"M@ "THE NUMBER OF THE SECOND FILE AND PRESS Β. HE TWO FILES WILL SWITCH"^@*"PLACES.",*@4" ()OTO - NTER A FILE NUMBER AND PRESS Β. HE DIRECTORY WILL BE"@>"LISTED STARTING WITH THAT FILE.",*2AH" ()DENTIFY - NTER THE LETTER OF A COLUMN. HAT COLUMN WILL BE IDENTIFIED"ZAR(E.G., A - FILE TYPE).",*A\" ()OVE - NTER THE NUMBER OF THE FILE YOU WANT TO MOVE AND PRESS Β." Bf"NTER THE NUMBER OF THE POSITION TO WHICH YOU WANT TO MOVE IT AND PRESS Β.",*cBp" ()UIT - NDS THE PROGRAM WITHOUT WRITING THE NEW DIRECTORY TO THE DISK.",*Bz" ()EREAD - EREADS THE DIRECTORY FROM THE DISK.",*B" ()ORT - NTER THE NUMBER OF THE POSITION FROM WHICH TO BEGIN THE SORT AND"TC"PRESS Β. NTER NUMBER OF POSITION FROM WHICH TO END SORT AND PRESS Β."C"NTER COLUMNS BY WHICH TO SORT (COLUMNS MAY BE ENTERED IN ANY ORDER, EXCEPT"C"COLUMN 'D' MUST BE LAST). HEN ENTER 'A' FOR ASCENDING ORDER OR 'D' FOR"OD"DESCENDING ORDER. ORT WILL TAKE SEVERAL MINUTES IF A LARGE NUMBER OF FILES ARE"D"BEING SORTED, ESPECIALLY IF YOU ARE SORTING BY SEVERAL COLUMNS.",*D" ()RITE - RITES THE EDITED DIRECTORY TO THE DISK AND THEN VALIDATES THE"D"DISK.",*QE" URSOR P AND URSOR OWN WILL SHIFT THE DIRECTORY LISTING BY ONE PLACE."E"В WILL DISPLAY A LIST OF AVAILABLE COMMANDS."E" HEN ENTERING A FILE NUMBER, THE ̒ KEY WILL ALLOW YOU TO MAKE"+F"CORRECTIONS. F YOU ENTER AN ILLEGAL VALUE, THE KEY WILL BE IGNORED"F"UNTIL YOU CORRECT IT. NSTEAD OF ENTERING THE NUMBER, YOU MAY ENTER THE LETTER"F "'E', WHICH WILL BE REPLACED BY THE FILE NUMBER AT THE END OF THE DIRECTORY, OR"+G "'B', WHICH WILL BE REPLACED BY THE FILE NUMBER AT THE BOTTOM OF THE CURRENT";G "DISPLAY."G$ " HEN ENTERING THE FILE TYPE, YOU MAY BEGIN IT WITH AN ASTERISK (E.G., *)"G. "TO CREATE AN UNCLOSED (SPLAT) FILE OR END THE FILE WITH A LESS THAN SIGN (E.G.,"?H8 "<) TO CREATE A LOCKED FILE. OU MAY ALSO DO BOTH (E.G., *<). HE 1571"HB "WILL NOT RECOGNIZE A LOCKED FILE WHEN IT IS IN 1571 MODE. SCRATCHED FILE WILL"HL "SHOW UP IN THE DIRECTORY AS *. F THE FILE HAS NOT BEEN OVER-WRITTEN, YOU"@IV "MAY UNSCRATCH IT BY CHANGING THE FILE TYPE. OU CAN EXPERIMENT WITH STRANGE"I` "FILE TYPES BY ENTERING A NUMBER FROM 0-63 INSTEAD OF THE STANDARD FILE TYPES"Ij "(E.G., 012). OU MAY ALSO USE ASTERISKS AND LESS THAN SIGNS WITH THESE STRANGE"It "FILES."LJ~ " HEN YOU ADD A FILE, YOU CAN CREATE DUMMY FILES BY ENTERING 18 FOR THE"J "STARTING TRACK, 18 FOR THE STARTING SECTOR AND ZERO FOR THE FILE LENGTH. HESE"J "FILES WILL TAKE UP NO DISK SPACE, AND IF CREATIVELY USED, THEY CAN MAKE THE"K "DIRECTORY MUCH EASIER TO READ.",*AK 0,21,79,24,1::A$:A$"*"RK A$:A$::