GoYoDEVDFF1AREC1MVEBUFF2BUBUFFBUFBUFIOCREC2NREFIELCONRNRSPECALREC3NRMATCBUFBUFRECBUFNNNRNCRSTBPRETODEANEDXYXYWZWZCRDPLTITLEPPGRRSDRSPECRUDERCEMINIDOPRNDPLINPTCSSPFILEN @@ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWd$$ˠӠԠ͠n$$ĠӠҠx] B@)+;AR@]6-F:A`,%F:Aa,$AV##@@K:~~;@,;@,;@,;@ ,;@,;@,;@,;A,;A,;@0,;@,;@h,;@1,% 6.D1:6-%6-Y(6. 16.1896. J67@h,. Y67@,.D B@#@&'26-DAR@ (}%@@p1%@@E%@@Y%@@k-@ (& //(%DFS=""( Press letter of choice:M.(& Record Editing/Sorting/Deleting/M( Printing/TransferringI+(# Change Data File Source (DFS)I( Write New Data FileV*(" MiniDOS/DOS (Copy Data File)V(' Pressto return to this directory%%(at any time during program.JA@d")@J"@g)!@H* @WA55"@)"@g)"@)"@wAd A`Y (}%@@f1%@@E%@@Y%@@ "@A"@gA"@A"@wAP3@g)67@<@,.>:,3 A! 4D1:6.D8:! A 6.D1:"/-@7@(%6-/ A`,I'(}SOURCE filespec (D8: =RAMDISK)3(EARI@_AR@=(#DESTINATION filespec (D8: =RAMDISK)I([AR_J(COPYING FILE...TS@+@@6@S@@^7Ad%@@7A%@@h- 6-C:,6-P:'AV,-6-&$AVrSAd%@+Ad%@?A%@SA%@|7Ad%@7Ad%@ @6-@ A@M(A%@F:Ad%@,MA%@ F:Ad%@ ,6-@ A@CCF:Ad%@,"*F:Ad%@ ,"@A#@@# AP$!6-?:C:hhhLV,<$@,$$X00(&}堠DFS=b4D8:APl[/(' Insert a disk with at least 365 free[(' sectors in drive one and pressv$)@$"@'AAUA0(Checking disk...! 6.!67@,.DATAFILE@ A0@5@@@@M.(& Replace existing Data File on disk?M(Pressfor Yes,for NoHA@d")@H"@')"@x*4D8:A"@xA@A[,($ Deleting existing Data File...Q@3@[ AP* B*F:A,ApB@=67@,.*.*3@@= Ap@ A`6@6A:7@<@,,!AeA  O0(( There is not enough room on this disk.O( Pressto continue$)@$"@'A "AUA* A4$$(Writing blank Data File...>867@,.DATAFILE8@@H+ 6. 67@,. +67@,.Rh*@)*@=-@Ah( Currently on Record # of 500\)(@ @) A,'AR@" A, A30(&}󠠠DFS=3$!!( Press letter of choice:U( Write New Records=( Create Record List of:U( All Recordsr( Certain Records:( Edit Record ListW( Delete Record Listr( Sort Record List :( Print Record List:( Transfer Records@A@d")@@"@')"@wAK"K"@i)"@h)"@)"@)"@Ap!!"@*"@Au"@A!!"@e)"@gA"@iA "@hA7"@A!"@A0"@A@$ A@.C A9(' You must create a Record List first.C A39 A9(' There is only one Record in the List.8D#(Press any key to continue0)@D"@'A= AL A@Q 6.!67@,.DATAFILE>@@M@Z)@g)@w6-%AV$ AA0VZ@;((There is no more room in the Data File.Z( Pressto continue[$)@$"@'A`AUAe Aj+ 6. 67@,. +67@,.o6-@ Btll4Z AyAR@ A~F'(Add new Record to Data File?F(Pressfor Yes,for No6A@d")@6"@'A"@Ae"@xA AU!!( Adding new Record...@@ll0Z Ap@(@[6-%@ @16-P:'AV,A6-&$AVN*@[*@ A$6- A$@ 6.!67@,.DATAFILE>@@M@Z)@g)@w6-%AV$!A0e@;(( There are no Records in the Data File.[( Pressto continuee A%"@e6-@% Ad BX4D d6-@, A,( Searching Data File...a B1"# A?( No Records found.S-@APW a A( A26- B2<"@A>) A6.6-) BAvv"@)4Z AF#AR@#4A Pj A0(Replace Record in Data FileK( with new version?j(Pressfor Yes,for NoZ6A@d")@6"@'Ad"@xA n@ApxP A*( Replacing Record...9@F(@P A AR@ A B0M.(& Delete above Record in Data File?M(Pressfor Yes,for No6A@d")@6"@'A"@xA @A0* A*( Deleting Record..."E@&-@@6(@ : E(@,[6-&@ @16-P:'AV,A6-&$AVN*@[*@6%6-&@%"A8""( Updating Record list...9a5-%@+&@,$@%@@]67<%@,.7%@<%@,a : !6-; A Y A:(( Sort Records according to which field?Y( Press letter of choice:W,($Program Name Number of SectorsW(&Filename Main Disk ReferenceF.(&Program Type Main Tape ReferenceF(Program Language6A@d")@6"@'A1"@x6-@'6-@01 A"P1"@p6-@1'6-@B1 A"P1"@6-@C'6-@D1 A"P1"@v6-@E'6-@F1 A"P1"@6-@X'6-@`1 A"P1"@h6-@a'6-@d1 A"P1"@g6-@e'6-@h1 A"P A"6-@[ A*( Sorting Records...I( Press any key to abort.[AdAUN1( Currently on Record # of  NF:Ad,AUA$O 6- B2@6-6-%6.36-%@= B2@C6-I6-O6.-!@E-A:7<,,!A:7<,,A#%% @X*7<,37<,A#6-%@"A A"p  6.6.6. ;@(@.@;(@ )6-&@")6-@$ A"p` Z( Sorting aborted.;( Continue sorting?Z(Pressfor Yes,for Noj $)@$"@'At "@A"`~ "@xA A$ E A2( This list has  Record>!@E(s j( to be1( printed, which will require J6-P:'@ ,%@W( pagec!@j(s (. "A1 L-(% Continue printing where left off?L(Pressfor Yes,for No $)@$"@'A "@A2 @xA0 6-& @+ T(Title:  6.,6-@086-@D6-N BT6. YAR@Y(? Prepare printer paper and press Pressto Abort $)@$"@'A "@eA AUA2 A,( Printing Record list...K( Press any key to abort]AdAUi6-@u"6-@ "@A3 .@.@@P: 6-@ t A2u"(@ 6-@@6F(@ J `(@PAGE #j A2ut A2 c`(@O ****************************************************************************c$ : B2@:( Currently on Record # of   A3 A3 F:Ad,AUA6 6-%@!A5 6-%@  @!A2 E-@@g'(@ + E(@ CONTINUED... 6-%@ (@(@ A2@> tt(@ 7@<@0, File:>:@4,7@1<@B,>:@4, Tp:7@C<@D,? ^^(@ Ln:7@E<@F, Doc?7@G<@G, #Sc:7@X<@`,C (@ Mis:7@H<@I,,7@P<@Q,,7@R<@S,,7@T<@U,,7@V<@W,D ^^(@ MAIN D:7@a<@d, C:7@e<@h,,7@i<@u,E a^(@ BACKUP D:7@v<@y, C:7@<@,,7@<@,a$F c`(@O ----------------------------------------------------------------------------c$ Q2(* Leave page to continue printing later?Q(Pressfor Yes,for No $)@$"@'A %"@6-@% A 0"@x6-&@0 A A5q()( Printing aborted.L( Continue printing?q( Pressfor Yes,for No$)@$"@'A$"@xA5.@A68a A2(  Printing Record List...W( Press any key to Aborta A3t] A8(& Delete all Records in Record List?]( Pressfor Yes,for No~$)@$"@'A"@A7P"@xA A7> A2(  Deleting Record List...>6-@00( Currently on Record # of  B2@E@&-@@6(@ : E(@[6-&@ @16-P:'AV,A6-&$AVN*@[*@ "6- A6-%@ A7` AX/(' Specify Source and Destination Files:X($ (Disk Drives - Use 8 for Ramdisk)c*(Source File: 7@<@,<ARC(O6-@Y A@@c AA6-@$)@$"@'AC"A&*"@ (~-67<,. 96-@C A@P2"AU*7<,0 ,AR@/(2$++ @I)!@V)"@A@P1 (>:,67<,.>:,'6-%@1 A@P].(Destination File: 7@<@,@ARG(S6-@] A@@++7@<@,07@,AAPc'(Source and Destination FilesD( can not be the same.c( Pressto continue"$)@$"@'A,"AUA@1 AA06X A-( Press letter of choice:X(& Change Source/Destination Files@S( Transfer Records9( Return to MenuS( Main DirectoryO@A@d")@@"@')"@wAT"@AY"@gA@c@AAu7 A7(% Checking Destination Data File... 6.167@<@,.7@<@,N@@]@j)@w)@6-%AV$A&!ACQ,($ There is not enough room in theG( Destination File.Q A""( Transferring records...6-@: B2@:( Currently on Record # of @@ll0Z AC0@(@-6-%@6-%@-AC M@#6-P:'AV,36-&$AV@*@M*@@ A)AR@ AP) AP 30(&}ӠDFS=3$J"( Press letter of choice:J(#Disk Directory Lock FileW-(%Delete File Unlock FileW(%Rename File Format Diskt-(%Copy File (Data File) Exit to DOSZ(( Disk to Ramdisk Main Directoryt( Ramdisk to DiskJ AQPA@d,)@J"@')"@wA"@eARP"@hAS"@AT"@vAU"@AV"@pAW"@i.="@I!6. D1:DATAFILE36. D8:DATAFILE= A="@P!6. D8:DATAFILE36. D1:DATAFILE= A  APP# AQP6-@# B(B!(PRESS ANY KEY TO CONTINUE.)@B"@'A2 APP{%(}WHICH DISK DRIVE (8=RAMDISK)-( 1?ARC]6-@:7@<@,,{ @I)!@VARRAR@9(}DRIVE >:, DISK DIRECTORY:F6.D :*.*`67@<@,.>:,}@@ AR Z@( ARd F:A,A6BnP@/(PRESS ANY KEY TO CONTINUE...<)@P"@'Ax$ AR APCAR9(}DELETE WHICH FILE (SPECIFY D:)C( D1:c$@@/@c(TYPE >:@4,Y>:@4, TO DELETE...( 0YAPG(DELETING FILE...=@3@G APLARB((}RENAME, GIVE OLD NAME (SPECIFY D:), NEWL( D1:K(RENAMING FILE...A@2@K AP|CAR9(}WHAT FILE TO LOCK (SPECIFY D:)C( D1:J(LOCKING FILE...@@5@J APEAR;(!}WHAT FILE TO UNLOCK (SPECIFY D:)E( D1:L(UNLOCKING FILE...B@6@L APDdAR0(}WHICH DRIVE TO FORMAT4F6-@:7@,,d @I)!@VAWNaM(TYPE >:@4,Y>:@4, TO FORMAT DISK 7@<@,Qa0YAPXm 6.D :'67@<@,.>:,>(FORMATTING DISK...cAT@m AP N6-@6-@%N~-@'AR@S('Use:Exit,Disk Directory~(& Delete Record,Menu*NF$(  Name: 7@<@0,F( Filename: 7@1<@B,4NTT(Program Type: 7@C<@D, Program Language: 7@E<@F,>N44(Documentation? (Y or N): 7@G<@G,HN(Miscellaneous Codes: 7@H<@I,,7@P<@Q,,7@R<@S,,7@T<@U,,7@V<@W,RN44(Number of Disk Sectors: 7@X<@`,\N1(Main Disk Reference: 7@a<@d,^(Main Tape Reference: 7@e<@h,(Tape Counter: 7@i<@u,fN3(Backup Disk Reference: 7@v<@y,b(Backup Tape Reference: 7@<@,(Tape Counter: 7@<@,kN 8,5lN 10,6mN 14,8nN 36,8oN 25,9pN 21,10qN 24,12rN 21,14sN 21,15tN 14,16uN 23,18vN 23,19wN 14,20zN#Bt%"-{N]"@&6.7@<@0,26-@0< BS67@<@0,.] B|N]"@&6.7@1<@B,26-@< BS67@1<@B,.] B}N]"@&6.7@C<@D,26-@< BS67@C<@D,.] B~N]"@&6.7@E<@F,26-@< BS67@E<@F,.] BN]"@&6.7@G<@G,26-@< BS67@G<@G,.] BN]"@&6.7@H<@W,26-@< BS67@H<@W,.] BNg"@&6.7@X<@`,26-@< BF B]67@X<@`,.g BNg"@&6.7@a<@d,26-@< BF B]67@a<@d,.g BNg"@ &6.7@e<@h,26-@< BF B]67@e<@h,.g BN]"@&6.7@i<@u,26-@< BS67@i<@u,.] BNg"@&6.7@v<@y,26-@< BF B]67@v<@y,.g BNg"@&6.7@<@,26-@< BF B]67@<@,.g BNS"@&6.7@<@,26-@< BS67@<@,.N"@$N-"@ AR# A- BN"@AN1"@(*!@'6-&@1 BN-"@-"AU)"@)BPN1"AU)"@)'6-%@1 BNA"A%6. (67@,. 767@,.A BN("@*"%6-@($NL-@"'AR@L( Pressto continueN$)@$"@'AN"AU)"@$ND-@":( D BLO%6-@%67B:,%@,. QO6-@VOM6-"@7(>:@:7<,,%A(,C6-M B0`O(7<,6-@jO F:Ad,AUB`tO%6-%@% @B0~O BO$)@$"@'AO"AU(7<,$Oc"@W"@)"@)"@)"@)"@()"@))"A%`(7<,c$O--!@1* A%* %@B@O!!@0)"@BO](7<, 6-&@,"@V"@)"@)"@)"@](O BO@1)"B OX (7<,6-%@'"@Q"@)"@)"@)"@ X(O BO!!A&)"@B0O\(7<,6-&@+"@U"@)"@)"@)"@\(O! (~67<,. ! BO BOooBpBBBBBBB B BEB B BEOd (>:,67<,.>:,'6-%@3"@]"@)"@)"@)"@ d(O BO!! @2)!A$BO BPPII"@2)"@F)!@G* @X)!@d* @BPP B P??"@2)!@G* @X)!@d* @BPP BP++"@2)"@x)"@BPP BP++"@2)!@G* @XBP#P B(P!! @e)!@fB5-Pi @(7<,'6-%@3 @A6-%@H(T @b6-%@i(2P BP7P++"@2)!@G* @XBP

"AUJ6-X6-%@Z6-+&@,$@967%@<%@,.>:,W67%@<%@,.>:,u67%@<%@,.>:, B1`Z$Z!6-@6-@!6-Z--(% Use:Edit,Delete,MenuZ!-%@!!B20Z? B2@5-+&%@,$@&@? B0Z  B3Z}6-+&@,$@/6-@:7%@,,C6-@:7%@,,W6-@:7%@,,c!@ q6-&@}6-AUZ/6-%$AV"@/@Z$[g)-+&@,$@%@1( ~W-+&@,$@%@a( g6-[HA@d'AdAU4)@H"@'A[++@()!@)"@B30[)-+&@,$@%@1( ~C-@\(j6-&@v @6-@[ 6- B2"[7"@()"@E7!@)!@B32#[ B35$[76-%&@!@-6-&@7 B3&[Z6-&@6-! B2@)(~ ;-@F(P B0Z B3'[%%@)) @)"B3@([v)-+&@,$@%@1( ~C-@\(j6-%@p!v6-)[6-&@ B2,[1"@))"@a1% %@B3B-[ B3P.[/ 6-% @%6-%@/ B30[s6-%@6-%@) B2@1(~ C-@M(_-@i B0s B36[4"AU(~ '6-%&@1 B2@4$@[@"@h(~ '6-%&@1 B2@=6-@@$J["@wAT[ B3 0uG B;()}G6-:u}@ AR@/6-F:A,AAD(}(ERROR -  AT LINE F:A,%F:A,$AVu"A6( END-OF-FILE@u""A8"(DEVICE TIMEOUTBu6"AD6("DEVICE DONE (WRITE-PROTECTED DISK)Du&"A`&(DRIVE INACCESSABLEFu"Ab( DISK FULLHu#"Ae#(FILE NAME ERRORJu"Ag( FILE LOCKEDLu""Ap"(FILE NOT FOUNDNu"@AQ`Xu9"(Press any key to continue/)@9 A D:DFMS.BAS