Pz [0+8+FQ(+4)[1 0FO10F"G( )+Q1U0FQ0-3"GQ0' F0@FS^RInit' +FQ()+4U1 FQ1"L0' ,Q1:M(Q1+4(]1]0)) o   k)4#9I-*dVr j1Ke#nyInWu& File PURIFY Loaded@ TECOBARE Library GenerateDump EnvironmentGenerate LibraryList TECO FS FlagsTecdoc^R Backward TECO Conditional^R Forward TECO Conditional^R Save EMACS Patch^R TQuote~DIRECTORY~~DOC~ & File PURIFY Loaded~DOC~ @ TECO~DOC~ BARE Library Generate~DOC~ Dump Environment~DOC~ Generate Library~DOC~ List TECO FS Flags~DOC~ Tecdoc~DOC~ ^R Backward TECO Conditional~DOC~ ^R Forward TECO Conditional~DOC~ ^R Save EMACS Patch~DOC~ ^R TQuote}f[bbindf[dfile 1f[fnamsyntax etFOO :EJet fsdfile[..2 [..1:I..1 [0 <]0w:i*-fq0; fsosteco"net EMACS' 0fsdvers er0 fsdfileu0 f~(fsdfn2:f6)COMPRS"n m(m.m& Compress File)0' :i..1..1et0 er COMPRS fsifcdate-q4f"g+q4u4' zf[vb @aZJ14.i15.I12.I j:f:fb*docond*"L s{end:}l b,.@fx3' f]vb > -1fsfnamsy fq..1"e:i*Generate Library: no source filesfserr' 0[4 [3:i3 Q..2[2 et2 m..1 0[5 1: Q5"nq5-q4"g0'' FT -> 2  fq3"gjg3[..o qBuffer Name[9 fnM(M.MSelect Buffer)9 [..om(m.mSelect Buffer)*DOCOND*]..o m(m.aDOCONDDOCOND) -3fsqpunwind' J:S!~FILENAME~:! <:S !~FILENAME~:!; -s c .,(:s .)k > J:S!~DOC~ ~FILENAME~:! <:S !~DOC~ ~FILENAME~:!; -s c .,(:s .)k > 0[9j<:s!~DIRECTORY~:!; L .,(:s :.)@fx9 -2k> fsbcons[8 j<:s:!; 0l2f=!~"ns !' .,(s L.)fx1 q8[..ozjg1]..o> zjg8q8fsbkill]8 i!~DIRECTORY~:I! G9i ]9 m(m.m& Purify Buffer) et2 ei@hpef 0u..hf[bbinder@y m(m.m& Compress Buffer) m(m.m& Purify BARE File) etemacs; :ejei@hpef[1[2[3 :i3 fs:ejpage*5120+400000000000.u1 qEditor Nameu1m.m& Startup 1u.3 1:w q..lu.1q..pu.2 @:i..l|3q.1u..l0u.1q.2u..p0u.2:m(q.3(0u.3))| -3fsqpunwind 0fs^Rlast 0u..p et -f? ei@ejNotemacrobodiesaren'tallowedtobeempty.y F[BBINDWF[DFILEW-1F[FNAMSYNTAX[0[1[2[3[4[5[6[7[..0[..1[..2 E\E[FNE]E^ 32 95*5,32I IZU..2 15.*5F  12.*5F  11.*5F  33.*5F  HFX2 EREGJ4LS:I@R:X6 @Y ZJI  :I1FQ1"E:I120FG' FF"N'"#73'-3U0 J<.-Z;.,ZF2 .-3,.+2F=  "N0A(-DI )#100.I'> J0S <:S;R-DI M> J0S <:S;-DI J> 0U20U4 FSBCONSU3 J<.-Z;%2 .,(Q0L.)FSBOUND FSVZ"N :-S "EB,FSZFSBOUND :S"LR'' B,.FSBOUND' J<.(:S:!"N .-2(-2S!C.,)X5 [..OQ3U..O FQ5-Q4"GFQ5U4' Q2\40.IG515.I12.I ]..O' )J:S ;-DI IL> ZJ0,FSZFSBOUNDW 0,1A-14."EC'> Q4+2U4[..OQ3U..O0U5 J<.-Z;.U7%5 \U2C0K:L Q4-.+Q7,56.IQ2\L> J:LL Q4-36"LZJ Q4+6U4Q0-1U0 Q0*2*((Q5+Q0*2-1)/(Q0*2))-Q5<15.I12.I> J<.-Z; Q0<.U7Q0L:X5Q7J:L Q4-.+Q7,40.IG5L> Q0K14.I15.I12.I>-D' ]..OZJ14.I15.I12.IG3 Q3FSBKILL ZJ-:S."NL.,ZK' FSMSNAMEFSDSNAMEEWDSK: HPEF6HK EREGJ4K:L.,ZK :FTListing is file ..O Be sure to delete it when printing is finished. Here are some commands; kill the ones you do not want executed. fsTopLine+3f[TopLine HX5ZJ-FWKHFX4 I:XGP ;LIST 5_1 :@ 4LREC/G :@ 5/F[1]/1J/^/L[RANDOM]/#,4LREC/@_' BJ0U..H 3M(M.M& Minibuffer)Menu fsTopLine+5fsTopLine :FT @ ..O :VP  fsTopLine-1fsTopLine :FTDone. [0[1[2[3[4[5[60[..F F[BBINDQ..OU4I F[BBINDQ..OU3[..O :I*Teco Doc[..J 0F[^RSTAR F[DFileETDSK:INFO;TECORD INFO 0FSDVERSWER@YF]DFile !ARG! :FTQ4U..O J<:S^ ;-DR> J:S "NB,.-1K' J<.-Z;1A-32"L1A-33."N1A(DI^)+100.I2R''C> Z"EOGETARG' H@FC J:<1AF :@"GC!' 1A-^"E2AF: +1"NCDI@!''0;> .(1:<1A-F"EC1A-S"E .-Z"NC40.I1A-^"E2C40.I'''' "#1A-E"EC''1A-^"EC'> :CW0A-<"E9I' B,.X2 ),.X5 0A-9"E-D' J<:S ;-D> Q3U..OBJS) !SEARCHAGAIN! :S 5"EFGFTNot found.OASK' 1A-:"E:L'"#0:L' .U6 <:S 2 <>2 <>,<>2"EQ6J0;' FQ2R:I0 :< 1A-40.F"L:;'"E0,0A-^"NC!'' 1@X0C> 0,FQ4:G0U0 F~04"E:0L0;' > !MORE! .( ),.T !ASK! 0fsFlushedwFT More ( .u0s r .,(s r).t0:l FT)?  @:FIU033.FS^RINIT-Q0"EFIW0U..H' FIU0 Q0FQNxqn+1"G-FSREREADW0U..H' Q0-40."EOMORE' Q0-12."EFT OSEARCHAGAIN' Q0-33."E !GETARG! FR1F[TYPEOUT 1,M(M.M& Read Line)Teco Command: U0 F]TYPEOUT FQ0"GQ4U..OHKG0OARG' OASK' FT Responses at this point are: X, Q, N exit Rubout exit Space type more Line search again for same arg Altmode read another arg and search OASKf[vbf[vz :,.ffsbound j<:s; ric> fsboundf[BBind :FEBJ:LL J< fswidth/9< .-z;:LKI > .,(-s c).fkI .-z;> HT:FVu0[1.[3 .(:S  :FSZ-.F[VZ)J <:S"'!*; 0A-""E%1'!'! !"!0A-'"EQ1-1U1Q1-1"L0'' 0A-*"ES!'> Q3JFG00[1[2.[3 .(-:S  :.F[VB)J <-:S"'! ; 1A-""EQ1-1U1Q1-1"L0''!'! !"!1A-'"E%1' 1A-!"E.U2-S! 2A-*"NQ2J'' > Q3JFG[0[1[2[3 <-:s  ;2F= "Efkc0;'>.u0 :s  :L.u1 q..ou2f[dfilef[bbind qEMACS Version:\u3 1:@yzji > q0,q1g2 -2f= "ni ' eihpef C Make one :EJ file from several source files. Takes desired name for :EJ file as first string argument, followed by the names of the input files. A null string argument (altmode-altmode) ends the argument list. The input files are all compressed (if they haven't been) and the COMPRS files are then purified together. Filename defaulting is sticky; input FN2's default to >, output FN2's to :EJ. The defaults are restored after the macro is finished.C Generate the BARE library. Source file is string arg.C Dump the current environment. Takes filenames as suffix string argument. The dumped environment is given a ..L which will load the libraries which are loaded now, and then perform other start-up actions as directed. The filenames to use to load the libraies currently loaded are found in variables named name Library Filename, where is the name of the library. If that variable is to include a constant version numbr, it should be set up when the library is loaded. Libraries which are loaded at dump time but do not possess such variables will not be loaded by the environment which is dumped. The additional start-up actions come from the value of the variable named "Startup", which is killed before dumping. Note that q-registers .1, .2, and .3 are clobbered by this macro. They will be zero'd on startup by the dumped ..L. The file EMACS;.TECO. (INIT) is an example of an init file that sets up things for use with this macro.? If this is defined, PURIFY is loaded.C Make XGP listing of macros file. Example: 73 MM@ TECOUSRCOM >20FG (notice that 73 is the page height with the font 20FG). 20FG and 73 are actually the defaults, so that MM@ TECOUSRCOM is equivalent.C Look up information on Teco commands. String arg is command, e.g. MM TecdocF^B or MM TecdocFS HPOS. Represent a control character with a "^" not followed by a space. Spaces elsewhere are ignored. The format of INFO;TECORD is understood. Type "?" for help.^R Quote with ^] all altmodes and ^]'s in the region.C List names of all TECO FS flags.^R Move past the ' matching the following ".^R Move back past the " matching the preceding '.~^R Add this function to EMACS;PATnnn >. EMACS;PATnnn > is loaded in by & Load Essential Environment, in the process of generating a new runnable EMACS or stand-alone subsystem (INFO, etc). The format of PATnnn is just like that of a source file.Generate Library BARE Library Generate Dump Environment & File PURIFY Loaded @ TECO Tecdoc ^R TQuote List TECO FS Flags ^R Forward TECO Conditional ^R Backward TECO Conditional ^R Save EMACS Patch