Google
 

Trailing-Edge - PDP-10 Archives - steco_19840320_1er_E35 - 10,5676/teco/source/teco.tec
There are 3 other files named teco.tec in the archive. Click here to see a list.
[0[1[%[9EO-4+1"GE?CURRENT-TEXT-BUFFERU0E.(9)':ER.MAC/MODE:DUMP/DEFAULT:EW.MAC/MODE:DUMP/DEFAULT:-1eu1EHE.(L)HK@I\[0[1.U10U0<-SL;R%0>Q1J]1Q0+(]0 1)\E.(Y)HK@I\+0[0[1.U1Q0"E999999999U0'Q0<"L0;'"LZJ12I'A>Q1J]1]0\E.(T)HK@I\[0[1[2.U00U1:-S<14>"L.U1 'Q0JZU2:S<14>"L.-1U2 'Q1,Q2TQ0J]2]1]0\E.(E)HK@I\<"N0;'0;A>\EO-4+1"G:1,20E$(TEXT-BUFFER)"S21,24E$(COMMAND-BUFFER)EVON'E.(SET-NORMAL-SCREEN)HK@I|1,20E$(TEXT-BUFFER)21,24E$(COMMAND-BUFFER)|E.(W)HK@I|Q(WIDE-FLAG)"EQ(SML-FLAG)"NMH'Q(SPLIT-FLAG)"NMS'2ET[?3h0ET1,10E$(TEXT-BUFFER)11,14E$(COMMAND-BUFFER)132EVWINDOW0U(SML-FLAG)0U(SPLIT-FLAG)'Q(WIDE-FLAG)"N2ET[?3l0ETM(SET-NORMAL-SCREEN)80EVWINDOW1U(WIDE-FLAG)'-1%(WIDE-FLAG)|E.(H)HK@I\Q(WIDE-FLAG)"NMW'Q(SML-FLAG)"E1,1E$(ERROR-TEXT)2,11E$(.)12,20E$(COMMAND-BUFFER)E.(..)21,24E$(..)E.(.)3U(AUTO-COUNT)'Q(SML-FLAG)"NM(SET-NORMAL-SCREEN)0U(AUTO-COUNT)1U(SML-FLAG)'-1%(SML-FLAG)0U(SPLIT-FLAG)\E.(SEP-LINE)HK7<I	->E.(S)HK@I\Q(WIDE-FLAG)"NMW'Q(SPLIT-FLAG)"E1U(UPPER)E.(..)1,10E$(.)11,11E$(SEP-LINE)12,21E$(..)22,24E$(COMMAND-BUFFER)'Q(SPLIT-FLAG)"N0U(UPPER)E.(.)M(SET-NORMAL-SCREEN)1U(SPLIT-FLAG)'-1%(SPLIT-FLAG)0U(SML-FLAG)\E.(U)HK@I\Q(UPPER)"EE.(..)1U(UPPER)OU-DONE'Q(UPPER)"N0U(UPPER)E.(.)'!U-DONE!\E.(C)HK@I\Q(UPPER)"NE.(.)'0,0X(..)Q(UPPER)"NE.(..)'\E.(AUTO-BUFFER)I0,0X(ERROR-TEXT) 1030EVTRMOP-10"L1041EVTRMOPU(TERM-TYPE) Q(TERM-TYPE)+275646370000"EMH' Q(TERM-TYPE)+275646000000"EMH' 'EO-4"GE.(FC_BASIC_TABLE)HK@I@"":TECO {:R:0FW}"":TECO {L:2R"S1A-13"NC''}"#":TECO {MS}"|":TECO {MU}"'":TECO {[1[2[3[4E?DISPLAY-LINESU1U2Q2"E 'E?SCREEN-ADDRESSU3U4(Q2-Q3)+((Q2-Q1)/2)+1]4]3]2]1}"""":TECO {[1[2[3[4E?DISPLAY-LINESU1U2Q2"E 'E?SCREEN-ADDRESSU3U4(Q1-Q3)-((Q2-Q1)/2)-1]4]3]2]1}"~":TECO {:R"S    [0:.-1,.X0"S-DCG0']0'}"&":TECO {0L[0-1X0-KLG0-L]0}"":TECO {0{A0}UA]0}"":TECO {XA}"":TECO {Z-."E'.[0[1L:2R"S1A-13"NC''Q0-."EL'Q0,.X1{K1}UKQ0,.K]1]0}"":TECO {GK0,0XK}"":TECO {EX}ANY:("M","m") ANY:("M","m"):TECO {MM}@0U1E?TERMINAL-TYPEU%Q%,{VT52}"E1U1'Q%,{H19}"E2U1'Q%,{VT100}"E-1U1'Q%,{H19A}"E-2U1'Q1"LQ1+2"E2ET[>7h0ET'Q1+1"E2ET=0ET'@I@"OP":TECO {0,.V0V}"OQ":TECO {M(PT_TO_MID)}"OR":TECO {M(PT_TO_BOT)}"Ou" |"":TECO {M(MOVE_PT_HOME)}"On":TECO {M(MOVE_PT_MID)}"Op":TECO {M(MOVE_PT_BOT)}"Ox" |"":TECO {:-1}"Or" |"":TECO {:}"Ov" |"":TECO {:C}"Ot" |"":TECO {:R}"Ow" |"" |"":TECO {I R}"Oy" |"":TECO {:D}"Oq" |"":TECO {I
2R}"Os" |"":TECO {0{K0}UKK]0}@'Q1"GQ1-2"E2ETx70ET'Q1-1"E2ET=0ET'@I~"P":TECO {0,.V0V}"Q":TECO {M(PT_TO_MID)}"R":TECO {M(PT_TO_BOT)}"?u" |"H":TECO {M(MOVE_PT_HOME)}"?n":TECO {M(MOVE_PT_MID)}"?p":TECO {M(MOVE_PT_BOT)}"?x" |"A":TECO {:-1}"?r" |"B":TECO {:}"?v" |"C":TECO {:C}"?t" |"D":TECO {:R}"?w" |"O" |"@":TECO {I R}"?y" |"N":TECO {:D}"?q" |"L":TECO {I
2R}"?s" |"M":TECO {0{K0}UKK]0}~'FC(FC_BASIC_TABLE)REPLACEFCON0,0XK0,0XAE.(PT_TO_MID)HK@I@[1[2E?DISPLAY-LINESU1U2Q2"E'(Q2-Q1)/2,.V0V]2]1@E.(PT_TO_BOT)HK@I@[1[2E?DISPLAY-LINESU1U2Q2"E'Q2-Q1,.V0V]2]1@E.(MOVE_PT_HOME)HK@I@[1[2[3[4E?DISPLAY-LINESU1U2Q2"E'E?SCREEN-ADDRESSU3U4(Q1-Q3)]4]3]2]1@E.(MOVE_PT_MID)HK@I@[1[2[3[4E?DISPLAY-LINESU1U2Q2"E'E?SCREEN-ADDRESSU3U4(Q1+((Q2-Q1+1)/2)-Q3)]4]3]2]1@'E.(MOVE_PT_BOT)HK@I@[1[2[3[4E?DISPLAY-LINESU1U2Q2"E'E?SCREEN-ADDRESSU3U4(Q2-Q3)]4]3]2]1@E.(0)0U(UPPER)']9]%]1]00U*