%`xuXW' %@O'''G@D#`H}' 8/W4O D"@G@*(4x &8@I3 ] @YP v*V+;,Y:PemSl"Q@94A6A[H[ m&.pgR-iWj8INXm&.p iWj8[ 41J&M \+<e7` k +h<w`<~w+ r<+@h5,~ }F:+3+ + + + + + + + + + + + + + + + + + + + + + + + + + + h ?+ ` + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 6 |6 |6 |6 |6 |6 |+ + + + + + K|L|\,Y$,1@ cKueeeeee @`'  xxxxxxxxxxxxxxxx$$aA :KK|kNt@ m/K@B@x~:laGl:laGl-d |:la,la Kl!Dq@ryr0Lr,Or,Orp@*r*MrpM9el@Y9r`@e@  turnip;viewp)@ h@ !@ c@ k@ c:CGC80W7W7 Y. :N`h+dd fl`mdO@W 2 R+%6$INXi9"E:R,;g@_B-`fg@h @++ eee@9~dH))))))))NpONpONpO))IG))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))hhhhhhhhhhhhhhhhhhhhhhhhhh))))hhhhhA>0\k?1[ h h h+NpOAHpGyL-'68hhhhhhhhhhhhhhhhhhhhhhhhhh.)))))))))))))))))))))))))))))))))))))))))))))A)))))))))))))))))))))))))))))))))))))))))hhhhhhhhhhhhhhhhhhhhhhhhhh)))))))))))))hhh))h)))))))))))))h)))))))))))))))))A)))))))))))))))) h h h))))))))))))))))))))))hhhhhhhhhhhhhhhhhhhhhhhhhh))))),O,O,O,O,*,*K$K+K]K2KkK9KyK@KKGKKNKKUKK\KKcK@ mKjK|K|@eeeeee@..E Bad value in q-reg ..E (output radix)2<1 The second argument was less than the firstAFN Ambiguous FS flag nameAOR Argument out of rangeARG Bad argumentAVN Ambiguous variable or macro name.BD" Bad condition after " -- should be G,L,N,E,B,C,D,A or UBEL A built-in ^R command called from macro signaled an errorCMD A char that isn't a TECO command was executedCNM Caller wasn't a macro (it was TECO internal code)DCD A disabled command was executedDSI Damned screw infinitelyERP Attempted :< ... ^\ with no closing > firstESR Empty sort recordICB Illegal ^] commandIEC Illegal "E" commandIFC Illegal "F" commandIFN Illegal FS flag nameIQN Invalid q-register nameILN Invalid local q-register numberISK Invalid sort key - "^P" commandKCB Kill currently selected bufferM^R Attempted to macro a meaningless numberNDO No device open for output - try "EW"NFC No free channels to pop intoNFI No file open for input - try doing "ER"NHP Nonexistent horizontal positionNIB You have addressed a character not in the bufferNIM Not inside a macroNOP Specified type of IO channel hasn't been pushedNRA File not random accessN^R Not in ^R - command meaningful only inside ^RPDL Pushdown stack fullPUR Attempted write in pure pageRDO Attempt to modify a read-only bufferQIT ^G typed on TTY and FS NOQUIT$ was negativeQNB Q-register not buffer - attempt to select a string or numberQNN Q-register not numericQNS Q-register not string or bufferQRF Q-regs failed, probably TECO bugQRP Q-register PDL overflow or underflowSFL Search failedSNI Semicolon not in iterationSNR There is no valid search string to repeatSTL String argument too longSTS Dispatch string too shortTMN Too many macro, ^]q-register, ^]^X, or ^]^Y nestingsUBP Unbalanced parentheses found with an FL-type commandUCT Unseen catch tagUEB FL-type command encountered end of buffer.UEC Unexpected end of commandUGT Unseen go-tagUJC Undefined journal file charactersUMC Unmatched ")" or ">" as a commandURK Buffer space or library space exhaustedUTC Unterminated conditionalUTI Unterminated iteration or errset (missing ">"?)UVN Undefined variable or macro nameWLO FS OFACCP$ when old access pointer wasn't multiple of 5WNA Wrong number of arguments A A A A AA AA A ' ( ) A A A AA / AA AA AA AA AA AA AA AA AA AA A ; A A A A A AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA A A A A A A AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA A | A A ~j~q/\~P! -*- Teco -*- init file for KMP ! -1 fs ^I Disable et FILE >  fsxjname-(f6NT)"e oDone' fsxjname-(f6DUMPT)"e fj j :s:"l ftUse JCL 164000.fsexit' 1fs fnam syntax 0,.k [1 hfx1 et KMP; DSK: FOO START  et 1  ]1 e? "n ftFile not found? 164000.fsexit' "# fsdfile[1 fsrgetty"n@'ftReading file "1"...!''! ]1 ' er  @y hfx*fs^REnterw :i..L fsrgetty"n@'ftDumping... ew  @ej TS   fsdfile[1 fsrgetty"n@'ftDumped to "1"!''! 164000.fsexit' fsxjname-(f6DUMPE)"e fj j :s:"l ftUse JCL 164000.fsexit' 1fs fnam syntax 0,.k [1 hfx1 et KMP; DSK: FOO START  et 1  ]1 e? "n ftFile not found? 164000.fsexit' "# fsdfile[1 fsrgetty"n@'ftReading file "1"...!''! ]1 ' er  @y fsrgetty"n@' ftAttempting to macro buffer... :m(hfx*)' @:iJ| fsversion:\ [1 fsuname :f6 [2 fsjname :f6 [3 fsdfile [4 :i..JTECO.1 (2 3) Default= 4   | qJ fsmode macro 1fs mode change :i* mJ  fs ^R Display oDone' !Done! 0u..H  turnip;view TURNIP; MC: VIEW START-1fsecholines -1fs^RMore fsosteco"n0uX:iZfile' "#[1fsxjname:f6u1Df1:"l 1uX:iZdirectory' "# 0uX:iZfile' ]1' fsrgetty"e ftOnly works on display ttys... Using :PRINT... hkfjzj-@f khfxJ :KILL :PRINT J  :<164000.fsexit>' fsosteco"e 0uY :iLRead-JCLoFile-Hack' "# fsdsname fsxuname fsosteco-1"e et<D>U.TXT.0' "#et<D>U.TXT;0' fsdfile[1 :i*View File (1):,102.:et ]1' !Read-JCL! :i..A 1fsFnamSyntax fj qX"n zj-:s"l c1af;:"li;''' hfxJ etJfsdfileuJ fsosteco"e 400000000000.uY :iLYank-FileoFile-Hack' !Yank-File! qX"n et.FILE. (DIR) fsdfileuJ' e?"n ftZ "J" not found? !''! 164000.fsexit' erJ qJ(fsifileuJ)u.J @yzj-1,0a- "n15.i12.i'j fsheight-1uW fswidth-1/2*2uS qX"n [1[2 fsdsname:f6u1 fsddev-(fsmachine)"n fsddev:f6u2:i22:' "#:i2' :iJ21 ]2]1' "# etJ fsosteco"e fsddev-(fsmachine)"e etDSK:'' fsdfileuJ et.J fsosteco"e fsddev-(fsmachine)"e etDSK:'' fsdfileu.J f=J.J"n [0[1[2[3[4[5 et.J fsdsnameu1 fsddevu2 fsdfn1u3 fsdfn2u4 etJ :i5 fsdsname-q1"n fsdsname:f6u0 :i55 0;' fsddev-q2"n fsddev:f6u0 :i55 0:' (fsdfn1-q3)"e (fsdfn2-q4)"e oSkip'' fsdfn1:f6u0:i55 0 fsdfn2:f6u0:i55 0 !Skip! :iJ.J =>5 ]5]4]3]2]1]0'' !:"l joTop' !:"l zj-qWloTop' qCfCc:"l 100000.fsexitoTop' qCf Qq:"l fsosteco"n164000.fsexit' fsjname:f6uJ :i*ZHL:KILL fsmpdisplay :KILL :JOBP =:IF E $Q $(.JNAME/ :6TYPE 45200,,=:6TYPE $) :$ $ ' qC-"e :fiuC qCfVv:"lfiwfsReRead' oRead' fg > !File-Hack! f[bbind [0[1[2 9*5,0i @:i*|*1000000.+|u0 @:i*|,(*5)fsword|u1 330000.,0m0,0m1 272245.,4m0,1m1 045505.,4m0,2m1 263740.,0m0,3m1 000006.,5m0,4m1 4*5fsword+qY,4m1 qY"lfsddev,5m1 fsdsname,6m1 fsdfn1,7m1 fsdfn2,8m1' qD"nfsrealad/5:\u2 2.$' fsrealad/5u2m2 qY"l ]2]1]0f]bbind oL' 5*5fswordfsddev 6*5fswordfsdsname 7*5fswordfsdfn1 8*5fswordfsdfn2 qD"nfsdfileu2ft2' ]2]1]0f]bbind oL !~DIRECTORY~:! G>cXl@ l0+!L-1fsecholines -1fs^RMore fsosteco"n0uX:iZfile' "#[1fsxjname:f6u1Df1:"l 1uX:iZdirectory' "# 0uX:iZfile' ]1' fsrgetty"e ftOnly works on display ttys... Using :PRINT... hkfjzj-@f khfxJ :KILL :PRINT J  :<164000.fsexit>' fsosteco"e 0uY :iLRead-JCLoFile-Hack' "# fsdsname fsxuname fsosteco-1"e et<D>U.TXT.0' "#et<D>U.TXT;0' fsdfile[1 :i*View File (1):,102.:et ]1' !Read-JCL! :i..A 1fsFnamSyntax fj qX"n zj-:s"l c1af;:"li;''' hfxJ etJfsdfileuJ fsosteco"e 400000000000.uY :iLYank-FileoFile-Hack' !Yank-File! qX"n et.FILE. (DIR) fsdfileuJ' e?"n ftZ "J" not found? !''! 164000.fsexit' erJ qJ(fsifileuJ)u.J @yzj-1,0a- "n15.i12.i'j fsheight-1uW fswidth-1/2*2uS qX"n [1[2 fsdsname:f6u1 fsddev-(fsmachine)"n fsddev:f6u2:i22:' "#:i2' :iJ21 ]2]1' "# etJ fsosteco"e fsddev-(fsmachine)"e etDSK:'' fsdfileuJ et.J fsosteco"e fsddev-(fsmachine)"e etDSK:'' fsdfileu.J f=J.J"n [0[1[2[3[4[5 et.J fsdsnameu1 fsddevu2 fsdfn1u3 fsdfn2u4 etJ :i5 fsdsname-q1"n fsdsname:f6u0 :i55 0;' fsddev-q2"n fsddev:f6u0 :i55 0:' (fsdfn1-q3)"e (fsdfn2-q4)"e oSkip'' fsdfn1:f6u0:i55 0 fsdfn2:f6u0:i55 0 !Skip! :iJ.J =>5 ]5]4]3]2]1]0'' !:"l joTop' !:"l zj-qWloTop' qCfCc:"l 100000.fsexitoTop' qCf Qq:"l fsosteco"n164000.fsexit' fsjname:f6uJ :i*ZHL:KILL fsmpdisplay :KILL :JOBP =:IF E $Q $(.JNAME/ :6TYPE 45200,,=:6TYPE $) :$ $ ' qC-"e :fiuC qCfVv:"lfiwfsReRead' oRead' fg > !File-Hack! f[bbind [0[1[2 9*5,0i @:i*|*1000000.+|u0 @:i*|,(*5)fsword|u1 330000.,0m0,0m1 272245.,4m0,1m1 045505.,4m0,2m1 263740.,0m0,3m1 000006.,5m0,4m1 4*5fsword+qY,4m1 qY"lfsddev,5m1 fsdsname,6m1 fsdfn1,7m1 fsdfn2,8m1' qD"nfsrealad/5:\u2 2.$' fsrealad/5u2m2 qY"l ]2]1]0f]bbind oL' 5*5fswordfsddev 6*5fswordfsdsname 7*5fswordfsdfn1 8*5fswordfsdfn2 qD"nfsdfileu2ft2' ]2]1]0f]bbind oL !~DIRECTORY~:! Zq+[`INXi9"E:R,;gW+[