%(]8w@.i $ VLHVHH VHLVLm$ ' ?J?J NO DEVICE OPEN FOR OUTPUT - TRY "EW"?477PT$"NFSUNAME$'"#FSUNAME$').FX!X~?J?J?J?J?J?J?J?J?J?J?J?J?J?J?J?J?J?J?J?J?J?J?J@lIDADxוTY@r\v0+ >=*>Di4((-dh@`.dH `({dH`.!>=Ob5zP,88?}J/ :8U8?JJs<INXR,;gCJR,;gx @4A6A[HINX@<R,;g:`[+`G@%] ^P0W7`)qv0, Ph+)F/`./`+@pZ /3F<+X+ + + + + + + + + + + + + + + + + + + + + + + + + + + h + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 6 !;;;;;;;;;;;;;;;;;;;;;;;;;;6 !6 !6 !6 !6 !+ ;;;;;;;;;;;;;;;;;;;;;;;;;;+ + + + + , ,V88?# ?J?J?J?J?J?Ję;e\./( ERARC:.TECO88&o <=DKRY`gnu|  )7E&S-a4o;}BIPW^elU4i 9s)2z`i`i`i`iBG91 ($@[e[e[e[e[e[e@;e;e;e;e;tG8$yY;8l E8.GcbwuTyT|;g}-@bacD(b@c@_@F9 9@ M8[N99 8{@Cr#8r Lr LzP@r &zQr@r &2?2*@)2 &2 Lr\@@ @ S2>@AzXU2@2 &2Y`2@7[e@% @2`@ !!!"!!?g@c@d;g@v@n@ Iu@P@:!@7\@5@2R@o@g@@}o!I@#$(?@+@1<@@I=q@d@=<=%@ :M..0  .,(FS UNAME).FX..S 1:"N 1:< ER (INIT);..S TECMAC>"N ET.TECO.;TECMAC OINI:1%G1I 0\Y43c :M (E) DEBUGJBL :VK Y. 'G:A$  ?JHV?J?J?JbPO|) 8 EW.TECO.;^EJTECMAC N477FX..L HK ETDSK:.TECO.;@ > ^EJ.TECO.;TECMAC N477 @?k @M @H      = =@=d=>a@??a?    @@@h M[apON-NNT @TvVcn FN@9 @          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 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 ~~&477TECO.477 HACKED ON OCT 9,1976 AT 14:29:52 BY JLK v:FTTECO.477 HACKED ON OCT 9,1976 AT 14:29:52 BY JLK LOADED FILES ARE: .TECO.;DSK:TECMQR 164 - CREATED 10/09/76 14:29:39 .TECO.;DSK:TECM^R 182 - CREATED 08/03/76 23:35:13 DUMPED BY .TECO.;DSK:NEWT 28 - CREATED 05/07/76 08:39:23 :FIWR >[..0.U..0 Q..0J C .,(2S! .)K I W'> Q..0J]..0.,(G..8 <1+(:S__):;RRDC> RI  .)^X..9 L ~:FTTXJ INITIALZATION.  M.LDSK:.TECO.;TXJ MACROS WM.SIOW 1:"N 1:"N 1:"N 1:"N ETDSK:.TECO.;TXJ (INIT)'''' M.L M..NW ]..N FMA rM.SFIO 0F[NOQUITW [A ERARC:.FILE. (DIR)YK:KZJ-S .,ZKJ HFXAMAW M.F W &M.LARC:.TECO.;DSPTED MACRO FME . [..O FNFSBKILLW FSBCREATEW EM J 2K !L1! 6D 13C -2"E C S ' -S  C :K L .-Z"N OL1' HT :FI-177."EFIW' -1"N HK' W M.LARC:.TECO.;MGRIND MACRO FMG ,M.LARC:.TECO.;FNTLDR MACRO FMK MM.LARC:.TECO.;MACWRT MACRO FMM M.LARC:.TECO.;XGPSIM MACRO FMO FM.R (M.LARC::.TECO.;ZUSREP MACRO FMZ .. [0[1[2 M.SIFQCW 1F[BOTHCASEW [..J :I..JDOCUMENTATION.  FR FN^FT  FF-1"G "G -5"L -1+0U1 U0 :I20 ODOC1''' FSLISTEN"E W:FTDOCUMENTATION MACRO - TYPE: (1) A TECO MACRO NAME, I.E. EITHER: A Q-REGISTER NAME (E.G. A, .F, ..M, ETC.), OR A CHARACTER WITH A ^R MODE MACRO PROPERTY, OR  AS A CONTROL-QUOTE (A = ), OR, (2) * FOR ALL Q-REGISTER DOCUMENTATION, OR (3) # FOR ALL ^R MODE MACRO DOCUMENTATION, OR (4) ? TO GET A LIST OF DOCUMENTED MACROS (STRINGS), OR (5) _ TO GET TECO ORDER DOCUMENTATION OF . ------------------------------------------------ ^FTD: ' !READIN! .,.X2 Q0F#*?_+1F"G+60.U0 :ODOC0' OTECSTR !DOC0! ODOC^R !DOC1! Q0-1"EFI&37.U0 100.Q0U1 :I2^1 ^FT^1'"#:I2 ODOCQ-R' W!TECSTR! Q0-15."E FIW W' Q0"C ODOCQ-R' !DOC^R! 100.Q0u1 Q0-40."L:I0^1 OG001' Q0-177."E:I0^? OG001' :I0"0' !G001! ERDSK:.TECO.;TECM~R DOC ~Y S------ L :S 0 "E :FTNO DOCUMENTATION.  :fiw' FWF=PREFIX"N W:ft 0T .,(:s  "L 0L .'"# Z')t :FIw' W:FT 0T .,(S ^W 0L .)T WFT--MORE--TYPE SPECIFIC CHAR; *=ALL, ?=MENU, ^Q QUOTES THESE: .U2 FT --MORE--TYPE SPECIFIC CHAR: OITER' Q0-"E FT^Q FIU0' 100.Q0U1 WQ0-40."L:I0^1 OG002' Q0-177."E:I0^? OG002': I00 !G002! FT0  :S 0  U1 Q1+1"E 0T .,(S     0L .)T :FIW' FTNO DOCUMENTATION FOR THAT CHAR, TRY AGAIN: !ITER!> !DOCQ-R! ERDSK:.TECO.;TECMQR DOC ^Y S----- :S 2 "E:FTNO DOCUMENTATION. :FIW' :FT  0T .,(:S  "E Z'"# 0L .')T :FI W !DOC2! WERDSK:.TECO.;TECM^R DOC ^Y :FT HT :FIW !DOC3! WERDSK:.TECO.;TECMQR DOC ^Y :FT HT :FIW !DOC4! FT ^R MODE COMMAND MACROS:  ERDSK:.TECO.;TECM^R DOC ^Y S----- :L FT Q-R MACROS, INCLUDING INTERNAL UTILITIES:  ERDSK:.TECO.;TECMQR DOC ^Y S----- :L FT TYPE ^R CHAR OR Q-R NAME: OREADIN !DOC5! W.,.X2 1FSNOQUITW :FI-"N -1FSNOQUITW ' :"N W' 0FSNOQUITW .,(FSVERSIO\).FX0 [3[4 0U3 FQ2-1"G 0,2G2 -2F=FS"E1U3 .(2,FQ2G2.U4)J 1A-40."E1' .,Q4X2 .,Q4K :I2FS 2' -2D' 1:"N:FT TECO ORDER FOR TECO.0 NOT FOUND.' :FTSEARCHING; DSK:.INFO.;TECORD 0  !SS! :S 2 2  2 ,2 2"E Q3"G FQ2-4"G .,(0,(FQ2-1)G2).FX2 BJ OSS'':FT2 NOT FOUND. ' 0L :FT .,(:S  "EZJ'"#R').T FT ==MORE== FIU0 Q0-40."E FSRGETTY"N 8<FSIMAG XFSIMAG>'.,ZT'"# Q0-^"E W'' W Y FSALTCOUNT"N ' 0M.SFCQX1^HPRINT -1FS^HPRINT FN [1[2[3[4[5[6[A[..J :I..JFILE DIR FR W^:IA/ "E FSLISTEN"E 0'"#:FI-40."E0'"#1''' :FIU4 Q4-40."E FIW 0' Q4-177."E FIW' W1/ EM J MA"N OBYE' F+FR 2T MA"N OBYE' 2K ZJ .U1 WEG Q1J S: .-4,.-1F=TTY"E B,Q1T OBYE' .U2 S  Q2,.X3 W:S:"E -S C' .U2 S  7-.+Q2 :L I  Q2,.X6 WQ1,ZK J I  J W:S   3+1"G ONOT THERE' 0L .U2 W L .U5 WQ2-2,Q5:FB   6"L 0L D I#' W!PRINT! Q2,Q5-2T FT ==MORE== 1MA"N FTFLUSHED OBYE' FSRGETTY"N 8<FSIMAG XFSIMAG>' FT  Q5,ZT WFSLISTEN"N:FI-40."N OBYE'' FT---------------------------------------- B,Q2T .,(G3 -D .)FX3 FT(3) MA"N OBYE' 1MA W OBYE W!NOT THERE! WMA"N OBYE' L <.-Z; 6C FQ3F=3"G 0;' L> 0L .U2 G3 I NOT THERE  .U5 MA"EOPRINT' !BYE! FS^RMODE"EW' :FI&37.-33."N W' FIW W:I..N..N WM[  [7[6[3[0[G[..J :I..JLISP GRINDER.  FR W:I3]2 W1:< -1F[NOQUITW S( R FLM.SB WJ 0S// / /;/"/| <:SU0; Q0+4"G -D I  R !' Q0+5"E <1A-" "E 0;' !'! C> !' Q0+6"E <1A-| "E 0;' 1A-/ "E C' C> !' R I  L I  R> J !"!0S(' )/|" !'! W<:SU0; Q0+3"G R I  C' Q0+3"E 1A-)"E -D !' ' Q0+4"G <1A-32"E D !' !"!(1A-')*(1A-()"E C !' 1A-;"E 0A-32"N R I ' L' 0;> !' Q0+4"E .-Z; (1A-32)*(1A-))"N I ' !' Q0+6"E <1A-| "E 0;' 1A-/ "E C' C> C !' Q0+7"E <1A-" "E 0;' !'! C> C'> J D W0,ZFSBOUNDW 0L .,ZFSBOUNDW S( R W(FSADLINE)U0' WU6 Q6"E (FSADLINE*2/3)U6' WU7 Q7"E FSADLINEU7' W W:^IG@ [2 S' R 1A-("N <:S/"| ()'+3U2 Q2:; Q2-2"E C' Q2"E R S/|' Q2-1"E S" !'!'> R :M3' FL-.-Q0++(FSHPOSU2 Q2)"L FLL :M3' C Q6"G Q6-Q2"L %2 OZAP'' Q6"L Q6+Q2"L %2 OZAP'' <:S/"|(') +3U2 Q2:; Q2-2"E C' Q2"E S/|' Q2-1"E S" !'!'> R (FSHPOS)U2 !ZAP! 1A-;"E OZUP' 1A-)"E C :M3' 1+MG 1A-)"E C :M3' D 1A-;"E !ZUP! I  Q7-(FSHPOS)+7/8 L -2D 1A-32"E D' ' I  Q2/8 Q2&7 OZAP ]2 @ 0MG WJ .,.+7F=(DEFUN "E L .,.+6F= "E -2D 6D :L (.-5,.F=FEXPR)*(.-5,.F=MACRO)"E 8D''' > WW BJ p.: W 0L .U..2 1:<-FUL>"N' WC 0,-1A-'"EOPOS' .( 1:"NZU..0'"#R.U..0')J W.(1:<^FLL-^FLL>"NZU..1'"#.U..1')J WQ..0-Q..1"E!MISER! Q..1-Z"LQ..1J''"# W1:<2^FLL>"NOMISER'.-Q..2"G Q..1J'"#-^FLL W0,0A-39"ER' 0,0A-,"ER' '' W!POS! FSHPOSU..0 W .U..2 W0L.,(W).FX..1 WQ..0/8,11.I Q..0-(Q..0/8*8),40.I W.U..0 0F(0F-(FQ..1)+Q..2,Q..0FJ) [..0[..1[..2[..5[..6[..7[..8[..9[..H M.SIOF 0F[YDISABLW [..X :I..X 1:"N7FSIMAG :FTUNABLE TO FIND REQUESTED FILE - ..X ' ]..X "L'"# FTLOADING; .,(EG.)(-4L:T)K' W^:I..6&[..0.U..0 Q..0J C .,(2S! .)K I W'> Q..0J]..0& W^:I..7&.,(G..8 <1+(:S__):;RRDC> RI  .)^X..9 L& "N FTEXECUTION ERROR IN LOADER X SPECIFICATION OF ..5' OTAG2' !BARF! 7FSIMAGE FTBARF, FORMAT ERROR 7FSIMAGEECW !TAG2! FQ..5"L Q..0,Q..5^FS^RCMAC'"# Q..0U..5' !TAG3!> WFT ECW [0[1 FFU1 Q1-2"G 13:"E ^FT 1'"# F*0'' WQ1"E ^FT Q-R:'"# FSREREAD' :FI-"E Q1"E ^FT^R' FIW ^FIU0 Q0FSECHOOUT Q0/200.,.:I1 Q0&177.U0 :I110 Q0-15."E -1FSREREADW ' Q1' [2[3 0U2 .,.X3 Q0-"E ^FIU0 Q0-15."E -1FSREREADW ' Q1"E Q0FSECHOOUTW' Q0/200.U2 :I3 Q2-3"E :I3.' OOK' Q0-137."G Q0-40.U0' Q0-A+1"G Q0-Z-1"L OOK'' Q0-0+1"G Q0-9-1"L OOK'' W7FSIMAGE 0 !OK! Q2,2FU2,.:I1 :I1130 Q1 ."N4FSECHOLINESW 30FS%ENDW 0U..B WQ..WFSWIDTHW Q..WFSADLINEW :I..J FS^RMODE"N 0U.U W1FS^REXIT''"# ^:I..B@FSTRACE-1"E?' WFSERRFLG"L7FSIMAGEW .,(FSERRORFE).FX..X0FSERRFLGW60 :FI-?"E'OB' Q..H"N 60 0U..H :FIW' !B! FSALTCWW Q..B"EFSRGETTY"N^FT  .,.^V FSALTC''@ FQ..J"G'"#:I..JTECMAC EDITOR. ' FR 1FSECHOLINES W 60FS%ENDW Q..W/8*8FSWIDTH W Q..W-FSWIDTHFSWIDTHFSADLINE W ^FT  W ' . Q..1(QQ(1FSNOQUITUQ FN :<&137.:I..1 :O..1>"N:FTERROR IN .S MACRO, ..1' 0U..1OEND ! ! > !I! FSUREAD"N E[ :I..NE]..N' OET !O! FSUWRITE"NE\ :I..NE^..N' !ET! .,(IETEG-4K-L .,(-SETW2C.)FK :L2D 33.I).^FX..N > !B! [1[B[Z FF"E0,FSZ'"#FF'FSBOUNDUZUB ZU1 .,(QB\ I,(Z+ QZ-Q1\ I)FSBOUNDW.)^FX..N ]Z]B]1 > !F! Q..NU..1 ]..N [..O FSBCREATEW [..N :I..N..1FSBKILLW> !C! .,(FSCASE\ IF$ F$W 33.I 0F$ .)^FX..N > !K! .,(FSCASE\ IF$ F$W 33.I .)^FX..N > !V! .,(:\ IW .)^FX..N > !T! FSTRACE"N"EI??''"# "NI??'W > !Q! .,(QQ\IFSNOQUITW.)^FX..N UQ 0U..1> !X! WWU..1 0;>W OEND !! 0U..1 0;>W !END! Q..1"GQ..0(Q..N(]..N 0U..0 Q..1<:I..1 1:"N :FTTRIED TO SAVE ..1 AS AN FS FLAG? '"#%..0'>W[..N)U..N .,(Q..0\).FX..0 :I..N-..0FSQPUNWINDW..N)U..0' QQFSNOQUIT F)UQ )U..1 [.0[.1[..M FSUPTIMEU.U FSUWRITE"E:I.1EW'"#.,.X.1' FSUREAD"E:I.0PWEF'"#:I.0EE' WFS^RMODE"EET .1 .0 ' -1"E!FILE!-2M.XWRITE FILEET .1.0' -2"EW-2M.XWRITE FILEET [..O[.O Q..OU.O FSBCREATEG.O .1EX' -4"E M.SX1FILEPADW 0FSFILEPADW OFILE' -16"E^FT TYPE - (M)AIL, (F)EATUR, (B)UG, MS(G) - :  [..0[..1[..2 FI&37.U..0 :I..1TO:  .,.X..2 Q..0-"E:I..1..1*'"#Q..0-"E:I..1..1BUG-'"#Q..0-"E:I..1..1BUG- FEATURE:'"#Q..0-"N7FSIMAG .'''' FN-1FS.CLRMODWF  0FS.CLRMODW 7,M.XMESSAGE..1 ..2 ( WFQ..2"E)' M.SOF G..2J 4D :FX..0 2D .,(FSUNAME.)FX..1 EWDSK:COMMON;HPEF_TMAIL ..1 ^ :QMAIL ..0 GDSK:COMMON;_TMAIL ..1 :VP  90 ED ) 1F[NOQUITW WFSWINDOW"L-1'"#FSWINDOW+B'( W[..J [..O FSBCREATE FN FSBKILL  WM.SKVX3TTMODELINES^RMDLY W W[..F [.C [.G [[ [.] [.Q [; 0U..F 1FSTTMODE :I..J().  FR W W W:I.C WFSRGETTY"E FT ..J^V.' :FT FSLINES FSWIDTH/16,4FU..0WQ..0W^V . :I.G W-1"N 7FSIMAG.' 7FSIMAG H"E -1FS^REXIT' HKFSRGETTY"EFT FLUSHED.'. Q[( FQ[( :I[ W.,(,33.I).(FQ..F"GF)'"# )^ V' W 0,(-)A-35."N:FI-33."EFII FQ..F"E-^ V'-2DZJ H"N2,33.I' -1FS^REXIT'' . )-(FQ[)"N)U..4'"#)W' W:I.] .,(<35.I>). W:I;.,(;I). W:I._ 1FS^REXIT  W:I.Q W-4"N FSTTYOPT&40000000000."N^FT ' FII 0A-15."E-FSREREAD' FSTTYOPT&40000000000."E -T' .-1,.' [0[1 FSTTYOPT&40000000000."N^FTUNQ' :FIU0 ^FIU1 ^FT Q0-33."E ]1]0 1M..4' Q0-35."E M.QU0 Q0"E .' 1:<1M0>"N 7FSIMAG' ' Q0-x"E OX' Q0-X"E !X! FSLINES+4,(FSHEIGHT-(FSECHOLINES))FU0U0 Q0FSLINESW 303.FSREREADW' Q0-3"EF+ W' Q1FSREREAD . W"L EG -4K -L -3K W[0[1 .U0 S; .U1 .,(S: .)F=DSK:"E Q1,.K'"# Q1,.FX1 Q0J G1' ]1]0 0L IET :L I' W.(I)J "E:L'"#,-FC' WFSCASE"L HFC' FSCASE"G H^FC' W,3F W:I..F FSLISTEN"N.' 0U..F -1FS^RMDLYW 1M.C 1FS^RMDLYW 1FS^RMCNTW WFSLISTEN"E M..F W' . W];].Q ].] ][ ].G ].C ]..F Q..N( ]..N)U..0 M..0 0U..H W WH"NHX..M 1'"#"LHX..M1'"#0''( W-2FSQPUNWINDW W0FSNOQUITW W W)"N FF-2"E.,(0,(FQ..M-2)G..M).FX..M Q..MU '"#FQ..M"NM..MW .,(0,(FQ..M-2)G..M).FX..M''' W]..J[0)U0 FSRGETTY"EFT ..J W' FR WQ..H"N[C :FIUC QC-40.*(QC-177.)"E FIW]C'' WQ0"L W' .: Q0,BFU0W Q0,ZFU0J .FSWINDOWW .,(1:W W.) . FQ..F"G M..FW'.,(.+1,(FSJNAME.)X..2.)K F=..2LISPT"N 100000.FSEXITW'"# FF"N FF'"#.,.'X..2 FF"N3F?' Q..OU..5 FSBCREATE FQ..2"G G..2' .,(5500,0I.)K 3I-D WJ Z-B"E 0U..0' Q..0-2"G0U..0' Q..0"L0U..0' Q..0+100000.FSEXITW J FQ..2F=..2"E Q..O(Q..5U..O)FSBKILL'"# Q..OU..Z'' F+  B B B B B B B B ? M.I @ B @ B B B B B B B B B B B B B B A B B B B A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B B A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A B S  B B B B B B B B ? M.I @ B @ B B B B B B B B B B B B B B A B B B B A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A B E  A A A A A A A A ? M.I @ A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A S  A A A A A A A A A A A A A A A A A / A A A A A A A A A A A / A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A  FSWIDTH,(2*(FSWIDTH)/3) pWFSERRFLG"L0FSERRFLGW 7FSIMAG 60 Q..B"N'' FS^RMODE"EM.F WQ..B"N :FI-33."N60'"# 0FSALTCOUNTW '''  .S ..Z..Z..4KT -1"E . W .' -4"E 1:< W>W .' .(1:<>W)J . -3"G0L'"# 1:<0,0^FM>W 0,0A-"E 0L'' . -1"E .-B"N . W BJ' FSWINDOW"E .' W' -4"E .-Z"N . ZJ'.' -16"E ZW BJ :FI' . ^. FSTTYOPT&40000000000."N-4"E ^FT .'"# F+''"# -4"E F+ WFSIMAG FSIMAG CFSIMAG30 '"# FSHEIGHT,34FU..0-2-(FS^RVPOS+1)-(FSLINES)-1"L 4M.C''' [0 U0 .+Q0-Z"G 7FSIMAGE Z-.U0' W0,Q0A-15."E 0,Q0+1A-12."E %0'' W Q0K ]0 .,. -3"G:L .' 1:<0,(FSWIDTH):FM>W 0,1A-15."N12.,1A-12."NC'' . *3/2:C"E 7FSIMAG'"# Q.FU..T' . *3/2:R"E 7FSIMAG'"#QHU..T' . ^ .-Z"E7FSIMAGE.' Q..KU..5 -1"N -4"E :F"E<:F"N0;' .-Z; 1A- "E1'"#2'D;>  ,0A- "NI 2R'''"# FX..K 'OX' 0,1A- "E 1^FX..K OX' :F"E 2^FX..K OX' :FX..K !X! FSRGETTY"EM.CW'.,. ^ [..B[..F[.C 0U..F Q..FU..B FF-3"E U.C'"# 1,1M.QL:(FIU.C)"N Q.CFSECHOOUT'' Q.C-40."E ].C'"# Q.C(].C)U.C' WQ.CF!!|_`[]()"'<>{}_+1"G OLHACKS' WQ.C-40."L 100.+Q.CU.C O ^.C' WQ.CF;?+1"G O .C' W7FSIMAGE . W! ^@! [0[1 FLU1U0 "LQ0'"#Q1' . ! ^A! [1 .U1 .(:"N Q1J'"#-FLL'),Z ! ^B! . :<-FUL>W 1-FLL . ! ^C! FL^V . ! ^D! FDL . ! ^E! . :W -1FLL . ! ^F! 1:<^FLL>"N.' .-(.U..0 :<^FLL>W .U..0 Q..0J :W .-Q..0"E Q..0J'"# Q..0J 1:<-^FLL>W)."GQ..0J'' . ! ^H! :<-^FLL>"N7FSIMAG' W . ! ^I! .-(0F),(M.HW .) ! ^J! .,(-:S "EBJ'"#C' -:S "EBJ'"#C').FK .,(MM M.HW .) ! ^K! Q..KU..5 ^FLFX..K .,. ! ^L! :<-FLR>"N 7FSIMAGE' . W! ^N! L !NP! [0 :L .+1U0 0L .,Q0:FB "N R' .,Q0:FB "N R' . ! ^O! 1:< O ^@>W :M.X ! ^P! -L ONP ! ^R! :"N 7FSIMAGE' . ! ^S! ,1M.L W -S)W C .,(,1M.L W.)X..R :M.S ! ^T! O ^B ! ^U! -FUL . ! ^V! [0[1 :<-FUL>W .U0 1:<FLL>W .,Q0FU1U0 Q1 Q0J . ! ^W! 0M.SQ [N [0 [1 [2 :IN [0[1 0U0 Q0 <^FTTYPE NUMBER FOLLOWED BY SPACE. PAGE WIDTH: MNU0 Q0; 7FSIMAGE> <^FTCOMMENT COLUMN: MNU1 Q1; 7FSIMAGE> <^FTMISER COLUMN: MNU2 Q2; 7FSIMAGE> Q0FSADLINEW .,(Q1\ I, Q2\ I  .)FX..C ^FT . ! ^X! ]..F ^FLFU..1U..0 Q..1W Q..0J -1,:M.X ! ^Z! ]..F !LIST-ZAP! .U..0 -1"E :<-FUL>W' FL(Q..0J 1U..0)M.Z W W! ^G! ! ^Y! ! ^\! ! ^]! ! ^^! ! ^_! 7FSIMAGE . ! Z! OLIST-ZAP ! ;! [0[1 -4"E .U0 0L .U1 :L .,Q1:FB/;"E .' C .,Q1:FB "N C' .,Q1:FB "N C' :K Q0,.FU0J .,.' 1:"NFSADLINE*3/4U0' :L .,(0F-Q0"L 8-(0F-(0F/8*8))U1 0F+Q1-Q0"L'"#11.I Q0-(0F+Q1)U0' Q0/8<11.I> Q0-(Q0/8*8)<40.I>'"# 40.I' I; ). ! ?! 1,14.:M.D ! -4"E L'"#0L' <0,1A-11."N 0,1A-40."N 0;'' D> -2D <0,0A-11."N 0,0A-40."N 0;''-D> 40.I .-1,. !LHACKS! W WQ.C-_"E 0,0A-_"E :S_'"# 2:S_'"E 7FSIMAGE' .' [D [I [1 [2 [3 Q.CU1 W:II 5*+1J DDIA( 5*+1J DDI?)  FN QDFSBKILL . [..O FSBCREATE 200. Q1F[]()"'<>{}U1 Q1/2+0U2 OLHACK2 !LHACK0! MI[] OG001 !LHACK1! MI() OG001 !LHACK2! MI"' OG001 !LHACK3! MI<> OG001 !LHACK4! MI{} OG001 W!G001! 1F? Q..OUD ]..O .U3 Q1&1"E W< 1U..1 B,.^FD Q..1"G .U3'"#0;'> '"# W<-1U..1 .,Z FD Q..1"L .U3'"#0;'>' Q1&1"E Q..1"G .''"# Q..1"L .'' WQ3J 7FSIMAGE . ! ^M! -1FSREREADW WQI"G OSET-LISP' WF=I11.,M.L "E W!UNSET-LISP! .,(0,(FQ..J-8)G..J).FX..J !LISPIJOFF! 11.FS^RINIT,11.FS^RCMAC W12.FS^RINIT,12.FS^RCMAC WQ.Q.WFR .' !SET-LISP! :I..J..J- LISP  !LISPIJ! :II11.,M.L  :IJ 12.,M.L  Q.Q. FR . ! ^[! FTNOT OPERATIONAL . F=..JAUTO-GRIND TYPE-IN. "N W:^I..9@ [1[2[3[4 .U1 :L FSHPOS-(FSADLINE)"G W.+( 1:<-^FLL>W 0,0A-("E-:S("NBJ'' .U2 .,(:FX..1 1MMW .(G..1)J M.HW .U4).-(FQ..1)U3 Q1-Q2"G Q1+Q3J Q2U1'"# Q1J' Q..0I Q1,Q4' Q1J Q..0FS^RINSERT.@ 40.U..0 95< Q..9U..0 %..0> :I..JAUTO-GRIND TYPE-IN.  OLISPIJ' 40.U..0 95 :I..JTECMAC EDITOR.  OLISPIJOFF .+3-Z"L 4F= "E 2C .'' I  FSTTYOPT&40000000000."E .-Z"E.'' -2' [0[1[..F U1 0U..F Q..V"LFS^RHPOSU..V' !L!.U0 .-Z"E Q1MM(0U..V)'1:"N .-Z"E 1:<0,Q..V^FM>"N 1:<0,Q..V:FM>W'.-Q0"EZJ 7FSIMAG 1MM''' .^V :FIU1 Q1-"EFIW 1U1 OL' Q1-"N-1U..V' . ) [1[..F U1 0U..F Q..V"LFS^RHPOSU..V' .-B"E 7FSIMAG -1U..V .' !L! 1:<-Q1,Q..V^FM>"N .-B"E 7FSIMAGE' 1:<0,Q..V:FM>' .^V :FIU1 Q1-"EFIW 1U1 OL' Q1-"N-1U..V' . -1M.S T [Y[E[S[P[.D[D[0[1[L[..B[..F[..J 0U..F Q..FU..B :I..JSEARCHING.  .W UY [O[.O[..O Q..OU.O FSBCREATE Q..OUO W:ISQ..O,Q.OU..OU.O FN 1FSNOQUITW .U..3 MS H"GHX..R' MS W QOFSBKILLW ^FTQUIT SEARCH. FSRGETTY"EM.CW'. W:IP[.P.U.P MP MS MP FSQPPTRU0 FF-1"GMS W G..R MS QY-4"E-1UY'' :I.DS:  1UD QY"L !R! -1UD :I.DR: ' ^FT.D (1FSNOQUITW)"N WFIW OFAIL' FSSVALUE"E 7FSIMAG !FAIL! <-(FSLISTEN); FIW> MS O^?' QE"NFSRGETTY-1"E W^FT '"# FSRGETTY"N W^FT.D.O''' > FQ..T"G *8M..T'"#7FSIMAG.' $FSWINDOW"L ^ V' W[.Z[..W -4"E.-B"EOX''"#.-Z"E!X! 7FSIMAG .'' FSWINDOW+BJ FSLINES"E FSHEIGHT-(FSECHOLINES+1)'"#FSLINES'U.Z -4"E 1:<(1-Q.Z+(FSLINES"E(FS%BOT)*Q.Z/100'"#-1')),1^FM>W .,BFU..WW FSLINES"EFSWINDOW+BJ'"#1:W' '"# 1: W .U..W 1:W' Q..W-B-(FSWINDOW)"E.' Q..W-BFSWINDOWW ^. r[C[L[Y[..F[..B 0U..B Q..BU..F 12.:IL :ILL 8 UY FF-1"GUC ODIS' !C! 1,1M.QW:(FIUC)"N ^FTC' !DIS! QC-40."LQC+100.UC :O^W^C'"# QC-140."GQC-173."LQC&137.UC'':O^WC' .,(^ FEUGTFE).FX..X 7FSIMAG . !^W^@! [0[1 QYFWU1U0 QY"LQ0'"#Q1'U0 Q0 0 !^W^A! FSADLINE/8*8FSADLINEW [1[2.,(:)FU2U1 Q1W QY-4"L Q1,Q2^FAW' Q1J<.,Q2FB ;2R 0,0A-12."E.,Q2:FB "NR'' 0AF?.:+1"G 35.I %2W' D Q2-1U2> Q1J<.,Q2FB;  %2W> Q1,Q2FA W !^W^B! [1[2[3[4 :I1L  :I2L  :I3L :I4LL .W -QY:S1234"E J'"# L'0 !^W^C! 1:"N 7FSIMAG.' QYFWF !^W^D! Q..KU..5 1:"N7FSIMAG' .,. !^W^E! [1[2[3[4 :I1L  :I2L  :I3L :I4LL .W QY:S1234"E ZJ'"# 0,0A-12."E2R'"#R'' 0 !^W^F! QYFWL 0 !^W^G! 0 !^W^H! -QYFWL 0 !^W^I! [1[2[3 .U2 -L:L.+1U1 0L .,Q1:FB  "E Q2J 0' R -1U3 1A-40."E-2U3' FSHPOS"E0U3' .,Q1:FB "NR' .,Q1:FB "NR' Q3"E0X1 L G1 FQ1+Q2U2'"#FSHPOSU1 L Q3+1"E Q1/8<11.I%2W> Q1-(Q1/8*8)U1' Q1<40.I%2W>' .,(.(:L.+1U1)J .,Q1:FB "NR'.,Q1:FB "NR').FX1 Q2-FQ1U2 .,Q2FU2 W 0L.,(Q2J).F !^W^J! [0 .,(-:S WC-:S WC).FK .,(QYMM W 11.,1M.WU0W Q0) !^W^K! QY-3"GL'"#0L' S WR S WR 0:KI  .,. !^W^L! -S.   0 !^W^M! -1FSREREADW WQI"G OSET-TEXT ' WF=I11.,M.W "E W!UNSET-TEXT! .,(0,(FQ..J-8)G..J).FX..J !TEXTIJOFF! 11.FS^RINIT,11.FS^RCMAC W12.FS^RINIT,12.FS^RCMAC WFR .' !SET-TEXT! :I..J..J- TEXT  !TEXTIJ! :II11.,M.W  :IJ 12.,M.W  FR . !^W^N! QYL [1 .(:L.+1U1)J .,Q1:FB "NR' .,Q1:FB "NR' 0 !^W^O! [0[1 FSHPOSU1 0U..1 .(.,(:L.)F.8)J FSADLINE-Q..1/(QY-4"E1'"#2')-Q1U0 Q1-(Q1/8+1*8)+Q0U0 Q0/8+1<11.I> Q0-(Q0/8*8) 0L .,(:L.) !^W^P! -QYUY O^W^N !^W^Q! 7FSIMAG :FTNOT IMPLEMENTED :FI !^W^R! :S.W 0 !^W^S! FWX..R 1,QY:M.S !^W^T! .(QYFWL . W)J . !^W^U! 1:"N 7FSIMAG .' QYFWF !^W^V! [1[2[3[4 :I1L  :I2L  :I3L :I4LL .-:S1234"EJ'"#L0,1A-15."EL'' . QY:S"EZJ'"#R0,0A-15."ER'' :(.W)J 0 !^W^W! FS^RHPOSFSADLINEW 0 !^W^X! [..0[..1 1:"N 7FSIMAG.' -1,:M.X !^W^Y! 0 !^W^Z! .U..0 -:S\;\$"EB'"#2C 0,1A-15."E2:C' .' Q..0J :S"EZJ' .,(:)F(Q..0J 2U..0)M.Z !^W^[! FTNOT OPERATIONAL . F=..JAUTO-FILL TYPE-IN. "N W:^I..9@ [1[2[3[4 .U1 :L FSHPOS-(FSADLINE)"G W.+( 1:<-^FLL>W 0,0A-("E-:S("NBJ'' .U2 .,(:FX..1 1MMW .(G..1)J M.HW .U4).-(FQ..1)U3 Q1-Q2"G Q1+Q3J Q2U1'"# Q1J' Q..0I Q1,Q4' Q1J Q..0FS^RINSERT.@ 40.U..0 95< Q..9U..0 %..0> :I..JAUTO-TEXT TYPE-IN.  OTEXTIJ' 40.U..0 95 :I..JTECMAC EDITOR.  OTEXTIJOFF !^W^\! 35M.XSORT[Z .,(:)FFSBOUNDUZUB  QB,QZFSBOUND ]Z]B .,. !^W^]! [0 .U0 :,.FM.SBW J 0S Q0-B"E J'"# ZJ' H !^W^^! .,([1FWX1 QY). !^W^_! FSCASE"N 0F$'"# -1F$/@'W QY-1"EF+ W'"# .' !^W?! 1,M.D  !^WF! .,(^FTFONT: I FI-60.I). !^WI! .(:SLL.L"E ZJ'"# FKC' .)J 0 !^WN! QY:SLL.L"E 7FSIMAG 0' O^WM !^WP! -QY:SLL.L"E 7FSIMAG 0' O^WM !^WM! -:SLL.L"E BJ'"# FKC' .(:SLL.L"E ZJ' .W)J 0 !^WX! .,(:)FM.A W !^W Q..KU..5 -QYFW^FX..K .,. ^ [..Y[..2[..B[..F 0U..F Q..FU..B 1,1M.QX:(FIU..2)"N Q..2-40."L^FT..2'' Q..2-`"E OX@' Q..2-"E !X@! :FI-"EFIW :I..2..3'"#M.QU..2 'Q..2"N .U..2' .' Q..2-"E BJ Z: 90:W .' Q..2-"E M.QU..2 Q..2"E .' -4"E.,:FFX..0'"#.,:FX..0' [..O FSBCREATEW G..0 Q..OU..2 .' Q..2-3"E 1:<.,(:)FF(-1"EQ..KU..5 )F(X..K'):FC>"N 7FSIMAG' .,(:)F' Q..2-_"E -3M.XCOPY. E_' Q..2-14."E ^FTTYPE OF LISTING ( (T)ECO, (M)IDAS, (L)ISP, (T)EXT, (P)ALX):W [0 FI&37.U0 Q0-"E:I0(X#%?^SF[25FR2]-H-R)'"# Q0-"E:I0(Z0TSC%3F[20FG,20FG,20FCOR]72V120W)'"# Q0-"E:I0(L[PALX]Z0TSC%3F[20FG,20FG,20FCOR]72V120W)'"# Q0-14."E :I0(Z%0TSCD3F[20FG,20FG,20FCOR]L[LISP])'"# 7FSIMAG .'''' 6M.XLISTING^ :@ 0 :VP ' Q..2- "E [0 ^FTJOB: W :<:FI-7"E^FT W.' :FI-33."E0;' :FI-40."E0;' FII 0AFSECHOOUTW .-1,.^FX0>"N.' FIW ^FT 0 F+' Q..2-"E -1FSREREADW W16M.W' Q..2-"E -3M.XFILE NAMEEN' Q..2-"EQ..KU..5 .,.X..K :,.FM.SB W BJ <.-Z; :^FX..K ^X..K L> BJ Z: W H' Q..2-"E [0 -1U0 FSWINDOW+1"G FSWINDOW+BU0' :,.FFSBOUNDW ONBXIT' Q..2-"E [0 -1U0 FSWINDOW+1"G FSWINDOW+BU0' 0S  W0,FSZFSBOUNDW .(-:S"E 0'"# C .',(:S"E Z'"# R .')FSBOUNDW)J -4"E WZ-FSZ"E 7FSIMAGE .' ZJ .,FSZFSBOUNDW 1A-14."E C' .,(:S"E Z'"# R .')FSBOUNDW BJ ONBXIT' -16"E WB"E 7FSIMAGE .' BJ 0,.FSBOUNDW 0A-14."E R' .,(-:S"E 0'"# C .')FFSBOUNDW BJ' !NBXIT! Q0+1"G Q0-B+1"G Z,FSZ''' Q..2-"E -3M.XFILE LINKEQ' Q..2-"E .,(:)FF(-1"EQ..KU..5)F(X..K'):^FC .,(:)F' Q..2-"E M.W' Q..2-"E0M.SQ W 1F[^RMOREW .: W [..J :I..JVIEW FILE.  FR FSWINDOW+1"GFSWINDOW+BJ'"#^ V' [0 0U0 FSTTYOPT&40000000000."E1U0' -1"E Q0"N :<4M.C 1:<0,0^FM>W .,(1:W.)T .-Z"E0;' FT--MORE--:FI-40."N0;'FIW> :FI-EFIW''"#.,ZV' '"# :I..J^ ..J FR Q0"E :<^V :FI-40."N0;' FIW FSWINDOW+BJ .-B"E0;' 1:<-(FSHEIGHT-(FSECHOLINES+1)),0^:FM> .-BFSWINDOWW 1:<3,0:FM>>'"# :< FT  Q1T FT --MORE-- :FI-40."N0;' FIW 1:<-(Q1)L>W .-B"E0;'> '' FSLISTEN"E :I..J..J --FLUSH--  FR Q0"NFT --FLUSH-- ' :FIW' :FI-"E FIW Q0"N 1:W .(OXIT' FSWINDOW+BJ FSLINES"EFSHEIGHT-(FSECHOLINES+1) '"#FSLINES'/2L .( OXIT' :FI-"E FIW -1FSREREADW OPOP' :FI- "E FIW OPOP' :FI-EFIW' !POP!  W ( !XIT! FSLINES"N1M.C')' Q..2-"E ]..F .U..1 .,(:)FM.SBW J :S;$"EZJ 0,0AF;$+1"G2'"#1''"#2'U..0 Z-B"E0U..0' H(Q..1J)M.Z' Q..2-"E .,:FX..M M..M W' Q..2-"E 2M.W' Q..2-?"E 1,M.D' Q..2-"E [0 M.QU..2 Q..2"E .' -4"E .,(:)F^FX..2 .,.' .(.,(:)F^X..2)J .' Q..2-"E OXTEXT' Q..2-"E .,(:)FX..R 1,:M.S' Q..2-"E .(W)W .' Q..2-"E M.QU..2 Q..2"E.' [..2 .,(:)FFX..2 ]..2 .,(G..2).' Q..2-"E !XDEL! .,(:)FK F?.,.' Q..2-"E Z: W .' Q..2-"E :,.M.SBO [..M 0U..M M.W( FQ..M"G-1"NHFX..K'')' Q..2-"E 7FSIMAGE .' Q..2- "E Q..KU..5 .,(:)FFX..K F? .,.' Q..2-177."E OXDEL' W!XTEXT! W Q..2M.QU..2 Q..2"E .' -1"E .(.,(:)FX..2 )J .' .,(:)FFX..2 .,. '1,1M.QY:(FIU..2)"N Q..2-40."L^FT..2'' Q..2-`"E OY@' Q..2-"E !Y@!:FI-"E FIW :I..2..3'"#M.QU..2 Q..2"E .'' Q..2:J"E 7FSIMAGE' .' Q..2-"E M.SI -1U..Y OYANK' Q..2-"E M.QU..2 Q..2"E .' -4"E FSBCREATEW Q..OU..2 W' 1:"N FSBCREATEW FQ..2"G G..2' Q..OU..2'W' Q..2-3"E FTNOT DEFINED. 90:W' Q..2-"E ODIR-SPEC' Q..2-"E FTNOT DEFINED. 90:W' Q..2-"EM.F' Q..2-"E.' Q..2-"E ^4"E '"# 'FSREREADW 1M.XW 1:M.Y' Q..2-11."E .,.M.SIOB FNZ W BJ -2U..Y OYANK' Q..2- "E :I..2..K OGTEXT2 ' Q..2-"E -1FSREREADW W:I..2..M OGTEXT2' Q..2-14."E FS^RMODE"N .,(:)'"#F'FM.SB .(0U..0 BJ W)J Q..0= :FI W ' Q..2-"E FTNOT DEFINED. 90:W' Q..2-"E 1:

"N 7FSIMAG' .' Q..2-"E 1,1M.QY:(FIU..2)"N Q..2-40."L^FT..2'' Q..2FSREREADW 1M.Y W [B[E :,.FFSBOUNDUEUB BJ [0 0U0 W ZJ B,QE(ZUE)FSBOUND W Q0<.-Z; .+1-Z; 2F= "N0;' 2D> w BJ QE: W -4"E FSREREAD W 0,1M.X' w B,QE(QB,ZFSBOUNDW)' Q..2-"E [0[Z ZUZ -1U0 FSWINDOW+1"G FSWINDOW+BU0' -4"E 0,FSZFSBOUND W Q0+1"G QZ,FSZ'' M.QU..2 Q..2"E .' M..2 W !NBXIT! Q0+1"G Q0-B+1"G QZ,FSZ''' Q..2-"E OGTEXT' Q..2-"E :I..2..R OGTEXT2' Q..2-"E 1,1M.QV:(FIU..2)"N Q..2-40."L^FT..2'' Q..2-"E .,(FSERRORFE).FX..0 :FT..0  100:W' Q..2-"E!DIR-SPEC! -2M.XFILE DIRET M.FW' Q..2- "E :I..2..K OQVIEW' Q..2-"E .,(FSREREADW 1M.YW).FX..2 :FT..2 120:W' Q..2-"E M.F' Q..2-?"E 1M.D' Q..2-"E :I..2..S OQVIEW' Q..2-"E .,(EG.)(-5L:X..2 :FT..2)K 100:W' Q..2-"E 0,FSZM.SBW FSREREADW 1M.XW BJ FSREREADW 1:M.X' Q..2-14."E .(G..A 0L .,(:L).T)J FQ..AD .' Q..2M.QU..2 Q..2"E .' !QVIEW! Q..2U..2 FQ..2"LQ..2= :FIW' M.SF G..2 BJ H-(3*(FSWIDTH))"G 0FSWINDOWW FSREREADW 1M.X'"# HT :FIW' W' Q..2-"E -1"NM.SX1 FILEPAD W 0FSFILEPADW' EWHPEF .,(EG.)(-5L:X..2 ^FT..2)K ^FT WRITTEN. .' Q..2-"E ^FTTRY USING ^Z OR ^@^X^Z!! 100000.FSEXIT F+' Q..2-"E 0U..Y !YANK! [..M .,.X..M [..9 :I..9ER  FSUWRITE"E:I..9..9^' Q..Y+1"E:I..9..9A'"#:I..9..9Y' -2M.XYANK FILE..9( FQ..M"E)' -1FSWINDOWW F? Q..Y"LW' FS^RMDLY"L Q.U"G Q.UFS^RMDLYW Q.UFS^RMCNTW'' FS^RMDLY"G FSUPTIMEU.U FQ..F"G FSZ-50000"G M.SIO ETDSK:..S;_^RSV > 1:"EEC ^FT DO YOU WANT AUTO FILE SAVING WHILE BUFFER IS THIS BIG? 90:"E7FSIMAG' :FI&37.-"N :FIFNn` +1"GFIW -1FSREREADW' -1FS^RMDLYU.U'"# FIFSECHOO ''''')W' Q..2-"E Q..OU..5 0U..0 .,.M.Z Q..O-Q..5"N Q..5U..O .(G..Z .: W)J Q..ZFSBKILLW Q..OU..Z'W' Q..2-"E OQOMPARE' Q..2-"E M.SI 1:< ER..S;_^RSV >^Y>"E^FTSAVE FILE YANKED. ' ' Q..2-"E [B[E .UBEG.UEQBJLX..0 4LX..1 QB,QEK ]E]B .,(FSWIDTH/8-5,11.I G..1-2D11.I40.IG..0-FWL2CI:2CI::L 2D .)FX..0 ^FT..0W.' Q..2-?"E 1,M.D' W!GTEXT! Q..2M.QU..2 Q..2"E .' !GTEXT2! .(G..2 -4"N. W)'"#) W .' W ,.F !QOMPARE! W[0[1[2[3[4[5[6[7[8[9 M.SIO W 0F[NOQUITW 0FSQUITW FSTTYOPT&40000000000.U9 :I2  !QDIR! :I0TYPE DIRECTORY NAME TERMINATED BY ";" :  Q9"N ^FT0'"# FT02' 0U1 .(W),.FX0 ET0; !QMACH!:I0TYPE REMOTE MACHINE (AI:, ML:, DM:, MC:) :  Q9"N ^FT0'"# FT02' FII 0AFSECHOOUT FII 0AFSECHOOUT FIFSECHOOUT 30 -2^FC -2FX8 F=8AI"NF=8ML"NF=8DM"NF=8MC"N 7FSIMAG :FT 8 UNKNOWN MACHINE2 OQMACH'''' !QKIND!:I0TYPE: (W)HOLE, (S)AME, (D)IFFERENT, (L)AST :  Q9"N ^FT0'"# FT02' FIU6 Q6-140."G Q6-40.U6' (Q6-W)*(Q6-S)*(Q6-D)*(Q6-L)"N 7FSIMAG OQKIND' !QTYPE!:I0TYPE: (D)ISPLAY, (B)UFFER (GETS A NEW BUFFER, OLD ONE IN ..5) :  Q9"N ^FT0'"# FT02' FIU7 Q7-140."G Q7-40.U7' (Q7-D)*(Q7-B)"N 7FSIMAG OQTYPE' Q9"N ^FT'"# FT2' Q7-D"E M.SF '"# Q..OU..5 FSBCREATEW ' <1:"N 7FSIMAG :FT CAN NOT GET DIRECTORY ON LOCAL MACHINE 90:W' J 2X1 Q8U2 J 5C .,(:L -S  C .)X3 :L 2FWK I  0L FX4 Q6-L"E <.-Z; L .-Z; .+6,.+12X5 -L .+6,.+12F=5"E K'"# L'> J' <.-Z; 2D G1 1F=L"N D I  17C 4,\(-FWK)\ .,(S  R .)K I  1F=!"N I '"# C' 9+.-(S  .) :L -3D' L> F+ :FT WAIT WHILE I GOBBLE DOWN 2:3;.FILE. (DIR)  ZJ .U3 1:"N 7FSIMAG :FT CAN NOT GET FOREIGN DIRECTORY ON THE 2 MACHINE 90:W' ETDSK: W WQ3J :L 2FWK I  0L ^FX4 Q6-L"E <.-Z; L .-Z; .+6,.+12X5 -L .+6,.+12F=5"E K'"# L'> Q3J' <.-Z; 2D G2 1F=L"N D I  17C 4,\(-FWK)\ .,(S  R .)K I  1F=!"N I '"# C' 9+.-(S  .) :L -3D' L> W:FT NOW WAIT WHILE I SORT THE FILES.  J  6C  13C  L  ZJ I Q THISIS A-FAKE 42 CHAR FILE NAME LINE J G4 :FT NOW WAIT WHILE I FIGURE THIS WHOLE MESS OUT!  W WZJ -K J Q7-D"EBJ 0FSWINDOWW FSREREADW 1M.X'  >  W -1"E0U..0 .,.M.Z'"# J:VP  F+'  [..J[..6 Q.G"L.,(0,FQ..J-3G..J).FX..6'"#:I..6MINI-BUFFER' ^FT 2-"G3'"#-4"E8'"#-16"EFSHEIGHT-(FSECHOLINES)/2'"# FSHEIGHT-(FSECHOLINES)-2''',0M.X..6W  FSREREADW 1M.X ^.-B"E 7FSIMAGE .' [0 -U0 .+Q0-B"L7FSIMAGE B-.U0' .( -Q0< 0,0A- "E 0,-1A-"E -D'' FSTTYOPT&40000000000."E -1T' -D> ),.F Y. .-B"E 7FSIMAGE .' [0 -U0 .+Q0-B"L7FSIMAGE B-.U0' .( -Q0< 0,0A- "E 0,-1A-"E -D'' 0,0A- "EFSHPOS-(-DFSHPOS),40.I' FSTTYOPT&40000000000."E -1T' -D> ),.F / /\WOLDTCMMJLKJLK!1 MONDAY APRIL 25,1977 FSTRACE-1"E?' WFSERRFLG"L7FSIMAGEW .,(FSERRORFE).FX..X0FSERRFLGW60 :FI-?"E'OB' Q..H"N 60 0U..H :FIW' !B! FSALTCWW Q..B"EFSRGETTY"N^FT  .,.^V FSALTC''TECMAC EDITOR. TOP ^W COMMAND - POP TO TOP LEVEL.  1FS^REXIT o.CrW FSTTY INITW FSWIDTHU..W -1U.U 0FSALTCOUNTW FN1FSNOQUITW -1FSNOOPALTW -1FS^RMDLYW 0U..L Q..LU..M BFSPUSHPTW Q..OU..Z .,(FSJNAME).FXJ .,(1,FQJGJ).FX..0 0U0 .,(F=..0LISPT"NFSUNAME'"#FSUNAME').FX..U .,(FS UNAME).FX..S 1:"N 1:< ER (INIT);..S TECMAC>"N ET.TECO.;TECMAC OINIT'' ERYHFX..0 ETDSK:..S;@ > :M..0 NDO NO DEVICE OPEN FOR OUTPUT - TRY "EW" -BUhXax1!1D!`r0x1D/1D&!`r NO DEVICE OPEN FOR OUTPUT - TRY "EW" UNTW FN1FSNOQUITW -1FSNOOPALTW -1FS^RMDLYW 0U..L Q..LU..M BFSPUSHPTW Q..OU..Z .,(FSJNAME).FXJ .,(1,FQJGJ).FX..0 0U0 .,(F=..0LISPT"NFSUNAME'"#FSUNAME').FX..U .,(FS UNAME).FX..S 1:"N 1:< ER (INIT);..S TECMAC>"N ET.TECO.;TECMAC OINIT'' ERYHFX..0 ETDSK:..S;@ > :M..0  .,.X..0 HK FJ ."G :S"N-D'"#ZJ' B,.FX..0 .,ZFX..1 FQ..0"G -1F[FNAMSYW 1:W F]FNAMSYW' FQ..1"G M..1''"# [B[E .UBEG.UEQBJLX..0 4LX..1 QB,QEK ]E]B .,(G..1-2D11.I40.IG..0-FWL2CI:2CI::L 2D 11.I ITECO. FSVERSIO\ .)FX..0 :FT..0 ETDSK:..S;@ @ 0U1 0U2 0UU ^FT :^I0@ FSRGETTY"E2'"#FSHEIGHT/2-1'@ M0 ^:I..L/0:FT TECO RESTARTED...L 40F+/ 0U0 .,(1,99GJ).FX..0 F=..0LISPT"EFTLISP-INFERIOR TECO  :I..JTECMAC EDITOR.  15.,1M.L' FTREADY. TYPE ? FOR HELP.  :FV 90:"N:FI-?"EFIW M.DW''' 0U..H M.RW2421 TECO.