P [0+8+FQ(+4)[1 0FO10F"G+Q1 'W+FQ()+4U1 FQ1"L0' ,Q1:M(Q1+4(]1]0)) ) c<  ` 5' ! ' i w   i o H 9kt '>?W!WKiPy4='_iGS& Setup DOCIX Libraryo0m.cDoc Buffer NameIf non-zero, Macros like Doc Call without arg will retain info in buffer of this name& Doctor|ff[A :i* :i*Doc L[..jfr :i* [D:iD [C [B[E [K:iK m(m.m& IX Index Check)"l' f[DFile fsBConsqX[..o etD fsdFN2&777777770000.#5170.fsDFN2 erfyec-5dj 5c.fsWorduB 10c.fsWorduEj ]..o f[NoQuit fsBCons @fn|-1fsReread 0fsQuit fqT"g qA+qDoc Buffer Name"eftNo ' "#MMM & Check Top Levelbuffers[1 qA"nm.mList Buffersf[Help Mac 3,m(m.m& Read Line)Select Buffer for Doc Info: u1' "#qDoc Buffer Nameu1' q1f"nm(m.mSelect Buffer) .:gT0fsModified1u..h' "#wqT[..o m(m.m& IX Type Doc Buffer)]..o fsQuit"nft ' 0fsQuit''' qXfsBKill qTfsBKill ec| @:i*|@ft Enter descriptor. To list possible descriptors, use CR: |f[Help Mac qK*fqK"e3,f PuK qK*fqK"e:f "g3,m(m.m& Read Line)Pf(uK)"e'''' !Search! fqK"em(m.m& IX List Entries) qA+qDoc Buffer Name"n' ft  oMore?' 1m(m.m& IX Search)"loMore?' !Type! qB"lftNot found. oMore?' qT[..O hk erD qBfsIFAccess qEf"lw'"#-qB'fy .,(-sc).fk 2r0a-"e-d' 0a-12"e-d' qA+qDoc Buffer Name"n]..o' m(m.m& IX Type Doc Buffer) 0fsModified ]..O fsQuit"nft ' !More?! -1fsrereadw0fsQuit0fsNoQuit fsflushed"n:'FTMore?  0fsflushed @:FIUC 33.FS^RINIT-QC"EFIW0U..H' fiuC qCfQNxqn+1"G-1FSREREADW0U..H' qC-"e3,m(m.m& Read Line)Pf"ew'uKoSearch' qC- "Em(m.m& IX Search)"loMore?'"#oType'' qC- "eoType' qC-"e[A[B[C[D[E[K[P[T qT[..ofsMSNAME:f6[N :i*DSK:N;GAZONK .DEL(]N)[Buffer Filenames 0u..hj]Buffer Filenames]..o ]T]P]K]E]D]C]B]AfroMore?' qC-"em(m.m& IX Previous Item)"lftTop. oMore?' "#oType'' qC- "Em(m.m& IX Next Item)"lftEnd. oMore?' "#oType'' qC-?"e FT Responses at this point are: Space Print next entry Backspace Print previous entry Linefeed Search for same item again Altmode Read a new item to search for Control-L Redisplays last description found Control-R Enter  on most recent description ? This. CR, N, Q, X, Rubout, ^G Exit.  ' "#ftType ? for help. ' oMore?& IX Type Doc Buffer-1fsNoQuit 1:<:ftfsRgetty"nht' "#j.,(:l).tft --More-- fifyY "lftFlushed ' "#l.,zt''>DOC Callfm(m.m& Doctor)CallSystem call: DSK:.INFO.;ITS .CALLSDoc UUOfm(m.m& Doctor)UUOUUO: DSK:.INFO.;ITS UUOSDoc USETfm(m.m& Doctor)USETUSET var: DSK:.INFO.;ITS USETSDoc TTYVARfm(m.m& Doctor)TTYVARTTYVAR: DSK:.INFO.;ITS TTYVARDoc Muddlefm(m.m& Doctor)MuddleMuddle command: DSK:MUDMAN;MUDDLE ORDER& IX SearchqX[..o ff"nj' "#10:c"eoNotFound'' 0,6:g(qK:fc)uK [S <.fsWord:f6uS f=SKf"e0;' "#-fqK"g0;'' 10:c"eoNotFound'> 5:cw.fsworduB 0(10:c"n.fsworduE' "#)-1(-1uE' )"l5'"#15':r1 !NotFound! ftNot Found. -1& IX Next ItemqX[..o -1uE 15:c"e-1' .fsworduB 10:c"n.fsworduE15:r' "#5:r' 1& IX Previous ItemqX[..o -1uE 5:c"e-1' .fsworduE 10:r"n.fsworduB'5:r 1& IX List Entriesf[BBindhkerD :i*[1-1f[NoQuit qA+qDoc Buffer Name qA"e:ft' :> 0fsQuit qT[..Ohkg1 0fsModified ec & IX Index Checkf[DFileetD e?"nfg:FTD Doc file not found.  -1' erDfsIFCdate ecfsDFN2:f6[2 fsdFN2&777777770000.#5170.fsDFN2 e?"nfg:FTDoc Index file not found. Please do :DOC L to DDT.  -1' erfsIFCdate(ec)-qS"nfg :ftNew documentation file, needs to be indexed. Please do :DOC L to DDT.  -1' 1~Filename~DOCIX~DOC~ ~Filename~Doc commands similar to ITS program DOC (e.g. :DOC UUO). Uses index files to locate items in documentation. Available are ITS Calls, UUOs, USETs, TTYVARs; and Muddle. ~DOC~ & Setup DOCIX LibraryS Set up variables needed by this set of macros. ~DOC~ & DoctorS Print out DOC-type documentation. First arg is indication for mode line (e.g. "Call"), second arg is used as prompt string, third is location of doc file, last arg (if any) is string arg of command to find. If string is null, it will prompt for one. With argument, whatever information is found will be put into a buffer whose name you are asked to specify (if nothing is found, this is not done); if when asked for a buffer name, you over rub out, the information will be displayed instead. If the variable qDoc Buffer Name is not zero, it will be kept if and only if there was no argument. ~DOC~ & IX Type Doc BufferS Type buffer, --More--'ing on printing terminals, and allowing flushage with ^G ~DOC~ DOC CallC Does :DOC CALL, in effect. Understands the format of .INFO.; ITS .CALLS (see .INFO.; PR INFO). With no string arg, it will ask you for what descriptor to look for. If you then give it no descriptor, it will list all the available descriptors, one to a line. You can just give the first few characters of a descriptor, and then search for it repeatedly by typing Linefeed. Type ? when it says "More?" for more details. You can flush typeout with ^G. With argument, whatever information is found will be put into a buffer whose name you are asked to specify (if nothing is found, this is not done) with marks around the inserted text; if when asked for a buffer name, you over rub out, the information will be displayed instead. If the variable qDoc Buffer Name is not zero, it will be kept if and only if there was no argument. ~DOC~ Doc UUOC Does :DOC UUO, in effect. See Doc Call. ~DOC~ Doc USETC Does :DOC USET, in effect. See Doc Call. ~DOC~ Doc TTYVARC Does :DOC TTYVAR, in effect. See Doc Call. ~DOC~ Doc MuddleC Does :DOC MUDDLE, in effect. See Doc Call. (on DM) ~DOC~ & IX SearchS Searchs in Doc Index buffer for key. String to look for in qK, sets qB and qE to beg and end locs in doc file as claimed by the index file. The index file is assumed to be in buffer when invoked. If not found, qB is -1. ~DOC~ & IX Next ItemS Gets locs of next item in Doc Index buffer. Sets qB and qE to beg and end locs of next item in index file for doc file. ~DOC~ & IX Previous ItemS Gets locs of previous item in Doc Index Buffer. Sets qB and qE to beg and end locs of previous item in index file for doc file. ~DOC~ & IX List EntriesvS List entries in a DOC type file (filename in qD) If qA is non-zero, won't type, just appends to buffer in qT. ~DOC~ & IX Index CheckS Check creation dates of Doc source file & Index file. (### This doesn't create new index files ###) If Doc source is more recent than the Index file, index file is assumed to be incorrect, so reindexing is required, and the user is asked to do :DOC to DDT. Returns -1 if not satisfactory, 1 otherwise. ~DIRECTORY~& Setup DOCIX Library & Doctor & IX Type Doc Buffer DOC Call Doc UUO Doc USET Doc TTYVAR Doc Muddle & IX Search & IX Next Item & IX Previous Item & IX List Entries & IX Index Check ~INVERT~[1Q1