-&CREATE ZEXFIND51 COMMCAT COM7@PURGE ZEXQ[hXCAT COMUqyYANC COMk!rYANC MNUZ3YANCATDQCB WS MAST.CAT ($1) ^QA,|^N|GN|^KX T->FIND v51 Copyright (c) 1984 by Irvin M. Hoff $->$++ No file named  ++ $Enter String -->$@ @\$. . $ !9" 1 W :W:?z:WOo&6ͮ R !#~ʫ ʫ?ʨ*“2t#~ ¬#[ Eæ_W  :to&6!ͮ !ZL !ZL æ K!]~< #>.!e~< 7#+:W t:] <_ W {2 2 !"r~ ~ <W  ږ!ZL æ:]2W {\<<:t!7L !L !ZL } 0[ !]K[ !eT[ !"w!~0 \j> ʪ|ʪN#[?[Gyaڑ{ґ_[#~ U*~#|Oœ:^N¹!L !. ~# ¼:] *r}"p>f ~ <- W ~ {!~   w# W t*r}>"p>f 2~ <`W t++ No file name given ++ Examples of how to use: B>FIND MAST.CAT B>FIND MAST.CAT MOD B>FIND MAST.LST MOD|BYE B>FIND MAST.CAT \M7 B>FIND MAST.ASM CAT[N] B>FIND MDM???.ASM M7 B>FIND FIND.ASM _SPHL B>FIND *.* SPHL B>FIND MAST.CAT .A?M B>FIND MAST.CAT MDM >FILE.TYP If no string is included, one will be requested. (This permits a search for lower-case only characters.) A '|' allows several strings to be used at the same time. A '?' is used for "any character" at this position. A '\' fakes a line feed, looking only at the start of a line. A '_' fakes a tab character. >FILE.TYP makes a disk file. Use [N] or [n] to display line numbers. $:W t ++ need [N], [n], [N or [n to print line numbers ++ $:]2* ++ ABORTED ++ $ ++ NO DIRECTORY SPACE FOR DISK FILE ++ $ Done $ ++ NO DISK SPACE FOR DISK FILE ++ $++ File read error ++$++ FILE WITH THAT NAME ALREADY EXISTS ++ $ ++ CANNOT CLOSE THE DISK FILE ++ $ !#~ʬ >[ +~ o 6#6#~ʬ r .ʐ 2]r .‘ # ~ʬ # ʖ [ʬ – ~#[® ~N n1+ 62^î r 2h2|:| >2|}!\ [ :\2!}\ [ c 2 !\ [ c !}\ [ \<7=Ɓo& [ ] [ 2hx~# [ *p*r}| !"r*p{zҳ !L~ © *r"r{ W !"r!L*r#"r^#V#N#Fx #~G#~#fo>r  }ƀo|g +~+w+++ #~g}o|g~ +p+q^B :]{f . #~$L  \FIND50 $$$ !9" 1 ͋ MCAT CATALOG PGM v4.5 - 08/29/84͋ (user areas included) For help, reboot then type: MCAT ?:]?n! "y*#"1"5"s:go|g|go" "3"" " |!iw#w:l=w:\=2i:i>=2kŸ:jA2`22h͋ The DISK TO BE CATALOGED and the CATALOG SYSTEM DISK will alternately be placed in Drive A: ø:i:j͋ A scratch disk must remain in Drive A::iA2:jA2h͋ 1 !"p"!"x! "} " >)2n2u2r!"l͋ Mount DISK TO BE CATALOGED in Drive B: Ready? (Y/N): T Y5 5 Ͱ M  :i_"z~2| !\ !t .FRE  !6 #6 #Í\<{=o&)))))! :|ڋʋO- 6.# 6;#yƐ'@'w#6 #6 #*l#"lË*s+}|  *** File names buffer not big enough. MAKE LARGER *** (See MCAT.SET file for instructions.) $6*l+"l"n|!ڥ·#—*n+"n|}Nwy#¼è:H͋ ++ MISSING "-.nnn" FILE ON DISK. (Put the volume number file on the disk, then run it again.) ø! !  ͋ Processing disk: ͛ . :k͋ Mount CATALOG SYSTEM DISK in Drive A: Ready? (Y/N): T Y £Ͱ M  :j_7MAST CATç*3*5}|ڐ!"5*3{z҂*1|*5"5N*5"3!"5*1*3}>*5#"5ɯ220* "3"5<  ++ NO MAST.CAT FILE ++$NEW CATÞ**}|ڎ!"*{zҀ* Y*"+ e ++ DISK FULL: MASTOUT ++$!"* *#"ɯ22 * "!"<  NO DIR SPACE: MASTOUT$ MAST BAKͳ !& "!/ :ʀ(¥!n:w#) x9| ++ TOO MANY IGNORE NAMES FOR TABLE ++$| ++ MISSING OR EMPTY MAST.CAT ++$| ++ NO IGNORE NAMES IN MAST.CAT ++$| ++ EOF READING FOR IGNORE NAMES. MAY BE MISSING ")" AFTER LAST NAME ++$:  ͳ  :r= :u !4 ʢ   A!& m 4!O ͊ , y !4 , DEL: $!O ͊  ! ͳ / ADD: $4!O ͊ ) !ͬ 6.#ͬ 6,!26;#ͬ n!  ~ ) # ó >*} "> 2r*p~#"p!4& 6,#& > 2N:v;:2N:4 6.#4 :u : = ,w .w ;w w  w#4 :2v2u6 #w 6# 2uX!j ʰ ! ~ £ >0 >   ~ s # > s > s w# , >/w# # | *z^#V#"}*z##~ҫ ګ 2w*}~c zm O #L *x#"x:w*x= )t  }0_.!~w+™ “ * | ++ CAN'T READ FREE DISK SPACE ++$    }0 >k /  z/W{/_y1 xy >+ *w#"͋ *** CP/M 3.0 NOT SUPPORTED *** ͋  ʂ ʂ _Nʂ _ M M ~s #~Œ #~ ʧ s #~œ #>s >Ys ????????????XXXXXXXX.YYY, . XXXXXXXX.YYY,XXXXXXXX.YYY;zXXXXXXXX.YYY,XXXXXXXX.YYY;zFRE͋ CATALOGING YOUR DISK SYSTEM: Three programs are needed. They are usually all on the same disk: 1) MAST.CAT 2) MCAT.COM 3) XCAT.COM MCAT.DOC (not required but usually included) MCAT.SET (for setting file names buffer) You originate MAST.CAT (Master Catalog) yourself. Use your editor to open a file by that name. It must have at least ONE file name which will be in parenthesis. This is the "Ignore list". It contains names of files which you do not particularly want to display in the catalog listing since you have numerous copies of them. It might include such files as: ASM, ED, DDT, LOAD, PIP, STAT, SUBMIT, XSUB, etc. Example: (ASM.COM Note opening parenthesis at left ED.COM SUBMIT,COM) Note closing parenthesis at right [more] T ͋ If you want all files to show, use one name that is unlikely to ever appear such as: (DUMMY.ABC) or just use: () All disks to be catalogued need a special "volume number" file. This uses a "-" as the first character in the file so the MCAT program can recognize this special file name. It can include both a name and a number for the user's reference, but the name will be ignored. A leading zero may be used. Example: A>SAVE 0 B:-.012 MCAT.COM is used next. It usually expects the master catalog disk to be placed in the A: drive and the disks to be cataloged into the B: drive one at a time. It reads the disk directory and puts each file name into memory and then alphabetizes the list. It then updates the MAST.CAT file with the new names or deletes those previously listed that are no longer on that disk. Double drive users type MCAT B: Thereafter when it asks if ready, place the next disk to be cataloged into drive B: and type "Y" or "RET" or "SPACE" for Yes. [more] T ͋ This does not allow the A: drive to be cataloged. Use the same procedure as for a single drive system: Single drive users type MCAT or MCAT A: You will alternately be asked to insert the disk to be cataloged and then the system catalog disk. An update of MAST.CAT is made with each new disk. When finished updating, use the XCAT.COM program. This creates a new file automatically, called MAST.LST (Master List) which is ready to print. You can also search through this listing rapidly for any file you know (or suspect) you have, using a program called FIND.COM. You can also use XCAT.COM to print the MAST.CAT file. At present the program allows 36 'IGNORE' file names in MAST.CAT and 64 file names. Either may be easily changed by editing the user option area in the source code, then reassembling. (Or use MCAT.SET.) MCAT C: B: C: drive for disks to be cataloged B: drive for the MAST.CAT, MCAT.COM system disk (For 3 or more drives.) Read the MCAT.DOC file for more information. [more] T ͋ NOTE FOR CP/M 3.0 USERS: CP/M 3.0 does not have the same SAVE 0 FILENAME.EXT function that CP/M 2.2 and earlier versions have. If you want to write an unique ID number to disk, you will need the program called NULL.COM, as the CP/M 3.0 'SAVE' command does something totally different. There is no easy way to write a directory entry like -.123 that does not use at least 1024 bytes of disk space. * |  ++ FATAL ERROR - No user areas in this CP/M verion ++ $WS MAST.CAT ^QF$1|U ^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^Y^L^[^KX CATALOG X-REFERENCE PGM v4.2 - 08/22/84 (includes user numbers for each program) Do you want to include the ".FRE" space? (Y/N): Do you want hard copy instead of a file? (Y/N): Do you want tear tabs to use roll paper? (Y/N): Number of spaces to augment left margin? (0-9): Current date is: Start at page : Quit at page : ++ UNABLE TO OPEN MAST.CAT ++ ** READING MAST.CAT ** ++ READ ERROR OR EARLY EOF ++ LAST ENTRY THIS SECTION: " " WORKING ON NEXT SECTION ** WRITING OUTPUT FILE ** ++ UNABLE TO MAKE OUTPUT FILE ++ ++ DISK OR DIRECTORY FULL ++ DONE: 0 FILE NAMES 1 UNIQUE NAMES ++ PROGRAM ABORTED ++ FINAL PAGE IS: - Master Catalog as of Page 1 1 - -  MAST CAT MAST LST!9" 1 !u  _Y<2!u !"! "  >/͆ A܎ Ԕ > ":}>2*}o|g 2 !u  :!"#":q*Þ<2:]:] E:e E!\ 2 2hh.2 !2 2 >22͚ 7ͧ͟ :v*"#"; *zq{q:2P<2q:͟ > <2> *;  2 *#"; *z?{?:C>2Þ"*; Z2*; 2 !">2 }!~4҈w!X ʹ:ʎ2 Îx¦> ð+> wC >C !.#~ º+&+ 2! !4#~ +&+ 2! !:W6#|\!9*; *; [X# H:X͟ v\\͉ u !u !Xu * !fY !Y :>R *:6#< ͆ .ʅ ,ʅ ;ʅ ʅ ͆ : :ŽC _ʔ~#2 "))))*)*!&~ a >0 ‡ >0× >1!u  _Y 2!u Ͳ !u  1 : 0!G> w# !u !u !   ͜ w#x# ͮͦ !u !/u !. I 7 ͜$ w#x$ ͮͦ$ !u !Au !4  m ͜Z w#xZ ͮͦZ !u *|ڥ !! ~#"!u  _Y >!2>2! "!?"" " !"" !u :p >  >  :<26 !8     :R _:f ! "<2*w#"~C #u ~4 # > C > C > 4 > 4 :ʰ # :̴! ͔ ::<26د2T !8 ! \!9 Z3ENV*  : DSYSTEMYANC MNU) )ĝ@ >2/=+2 ^ No Shell Stacky y No Command Line͍ ͷ @!{ xAw#y 0ڝÕr#0wͶ ʲ# !]! ~ !! ~ #>.~# !{   Shell Installed$ Shell Stack Full Shell Stack Entry Size zLͷMenu> >ͨ 6>;ͨ ͻ~;I2N MENU Version 3.6 !\ $\q File !͕ Not Found  ͳh*|  TPA Fullͣ6"J 6"L 2=2>2?2Q ~w#*~ #sw#~#y $ex27>26+"8#s e7~-#~# CʹDʱPʩX >2Q Ã>2?Ã>2>Ã>2=Ã#~# "26 Đ"4:=2N :>2O :?2P #~# 8$C.D$PX :Q /2Q :P /2P :O /2O :N /2N :O ʯ$ 2<:P ĕ ̷~#h7 ʹT"0:<Gʄ:P ʄͷ}2:~ #©#~#ʾ$ʾ>2:þį"0Ä> ͹ >2<2O xAy\> Command (CR=Menu:Q *4~%:: ) - *4G 8:Q 4x ~%Kx*K*2 ::fx.]>f < ~%ʂx,y<‚ = :6ʠx$ ?¾*8:7 *0~#ʶʾãx  #~:}! #7 y DM>o|g}| "w#6dͷ"+ ,>*J rͷ`Jw#:y s#r6 :N ͷy ^#V~#s#- =2;͐:; G*2—#~#ʰ+Õ ͺ÷~#   ü#:<=2<$ 2< Pause -> xü ü ü   Strike Any Key - > ͹  Password? *J r±#f2"*ʁ+  L wS#t ÁͷÁw#͘Á6*͍~ʁt~  #͍|y|16 #6 #:ķÁaʁ+~tʁ Á1Áa +:>> >6a>t#L*z{>G:x څ ʘ>#÷yG>GO:> © Password Error! ~#~# , ^C=Z3, *=1st Menu, <=Prev Menu, >=Next Menu Structure Error *L ~ s #$< ~#$< Dʁ Uʌ Fʩ N T < #~ { #*L xA< y 0ڜ Ô 0Gyx<  < >. <  < <  < >o|g < G x    ~  # ~1! ! #+͠ #~=~0G G #OxG0 xStack overflow, try more P switches (:> O4A00:;MENU c4> \^* ~!ڵ V###~ʵ g =* ~! V#͵ ͵ ~ g =* ~! ͵ ͵ ͵ ~ g =* ~!6 ͵ ͵ ͵ ͵ ~6 g =* ~!c ͵ ͵ ͵ ͵ ͵ ~c g ~z #\t ~#g z~ Oʟ *+~• >Gͤ – ͬ ¤  ® ~#\µ #õ "" "  O~ X6y w# >> u ~#,  Å ~< / } xK @ K+xd w+ X P w#h >>> ###~>ͨ ͨ w ###w  xo|g~  xo|gw | "^#V| ~7y " G~3 #%  ͌ ~;J J >;V ~#] J 6 y s#r~#k =*^#V*~#fo~#fo~*/F##x_*$~#fo|**R*"~#fo XG*^#V#~#Fѷ"@2->2-d. .0Y@8 0yM:-M> Yɯ2-y0Yw#w 5-„>Å-„-„~-ʰ-72" *#~#o|g6:~w#+~#~#X B  / 448   y  yG>GO> N dt t0~ v_y‹ʋ{y0{ͫ>.ͫ«> >    >^@*. O*.  OGH>W_HTW_r# x_H ͈ H͈|ڨ™}ڨ~# x™ ~+ x®ã~#ʼ+~#O !#y  a{_*}$.~# x™ ~+ x®ã~#ʼ+~#O !#y  a#DPX Master Catalog System defaults: Master Catalog on drive A: Update disk on drive B: 1 ) Create a new Master Catalog file 2 ) Label a disk Volume 3 ) Update the Master Catalog 4 ) Find specific file(s) with a match key 5 ) List the entire Master Catalog 6 ) View the disk directory 7 ) Purge a disk Volume 8 ) Examine a disk Volume Enter your selection (1 - 8): # 1era mast.cat;zex create "List filenames.ext to be excluded, separated by commas: " 2era b0:-*.* i;save 0 b0:-"Volume label (VOLUME.NBR, `VOLUME'=7 characters or less): " 3mcat b:;echo CONTROL-C ABORTS MAST.LST UPDATE;xcat 4!find51 mast.lst "Enter matching key (string): " 5!type mast.lst 6!dir b: $$alr 7zex purge ."Enter volume number to be purged (all 3 digits): ";echo CONTROL-C ABORTS MAST.LST UPDATE;xcat 8!find51 mast.lst "Enter volume number to be examined (all 3 digits): "/ ##vZ3YANCAT.DOCK  !"#$%&'()*+,-./0123456789:;<=>?@ABCDoEFGHIJݹJ+7qz݋[̥vĹ oq{OxyܽC9]ꪮ9w ID6DX{gtu TY3c$%t{2{t:CЋ+4@L@#1vIr2G Ȭ /E@L|(~M8Sۻ8"g r K N(LaM'[5`28siwh- v*h@ hs;v찈=uunPN;̷ \'t%%anjPWw+x22PX3,DhNe8ԕ`٪+ &Ciw+XD8ЦytvX4uqj,y+T,bz[&4Q poQWّw0D_"᥷ď~^:r')Nupyz},Xw Dt%1 ;'~,֠N7Ov7~B=N7Ov u,yꪮ# XK֐CY&baABYQ H#pwnPW\AMmBL8q-'xr6at: b]"M6[5+,{p"\_%l `r md:Zv9=lN <28 cӣ`d 5D=@X5k,_Sfjk{ $԰׸)Puu1bIhh^'wY _}绺?.Zw:%0y#QZ!CFZQZ