Trailing-Edge
-
PDP-10 Archives
-
steco_19840320_1er_E35
-
10,5676/teco/macros/maktec.sav
There is 1 other file named maktec.sav in the archive. Click here to see a list.
p '` B & x ) x -` %p / )g 1P 0 {r@wa 2@ | x~p 4 m2@P ~ 9?2@4N2@5j2@u2@0}[^I1 1 :2@ 2@ 01 9}x =1 :p >H
,H 5x @1 :8 A r@:
1 :r@-
r@$| 0r@$LH H r@:
1 : @xz1 :h U ;r@Lr@gP X 0! Pr@gr@ r@ ` I( P @ l(` Lx x< 9#Ap> X?EE , @ ^ y ^ 9 7pD PE ^ x ^ 8 - IpXg 2g 1pZ @ x\ x]iSH x^ pb@
yhc ( g / |xz (h| -x x x x 1$x" x* Ox0 x2 Xx8 "x: sx< TxD jxH #ApN T hP : 9p xR 3xT UxU :H xcINX xd[ xh hnINX i p Y>8 xs xxINX xyix x}K xINX hp
7
7
8 =`Y gg
x\ k0p^
1 x_ ha ` ``LH xc Hd
7 !@ Xl po| ye6F? ~p 8 > 8 C 8 H 8 M p > @ C H ` M@ H C@ H H@ H M@ H R+
+
+
(p
Q
,x -x * ! &/n@ X ` [^I1g1Vy V@ @ INX 8 0 H+`*IN\ - ` i (/?|? Q @ W1
& - ` i x7
P8gH 5 8w 0| 0| & h;I4 6~[^I1x= ,pK_0 6/Lx` xa #h 0b u g *EIDSK:MAKTECx~ x kH xH h? 1x : p \,
~@
OOP!"E+1"NAOLOOP''"L .U1 'Q0JZU2:S<14>"L .-1U2 'Q1,Q2TQ0J]2 ]1 ]0.,Q2S
; %1> ]2
!DONE! q1u0 ]1 q0+(]0+1)
x
5 VX k0 [P ` 9p \P ` 9p ]P ` 9p ^P ` 9p _P ` 9p `P ` 9p aP ` ! 9p bP ` $ 9p cP ` ' 9p dP ` * 9p eP ` - l( fPP ` 0 l( FH ` 3 l( GH ` 6 l( HH ` 9 l( IH ` < l( JH ` ? l( KH ` B l( LH ` E l( MH ` H
NH ` K
OH ` N PH ` Q QH gh T x
oP `
pP ` qP ` *EVOFF$$ x
x)
x/ x6 xN xO 50 xQ xRH T8T
[0 [1.U10U0<-SL;R%0>Q1J]1Q0+(]0 1) xY 60 hZ ; H ^~8]
+0[0 0[1 Q0"N J:Q0-1S
"U
? Page too large
'
ODONE '
.[2 bj <.,Q2S
; %1> ]2
!DONE! q1u0 ]1 q0+(]0+1)
N xj 8P l H o
ODONE '
.[2+0[00Q0"E^O377777777777U0':-Q0Ax]0
[0 [1 [2.U00U1:-S<14>"L .U1 'Q0JZU2:S<14>"L .-1U2 'Q1,Q2TQ0J]2 ]1 ]0U p 6 ]1 ]08 H \hxohk
@I\!LOMP+1MP+ x 3P
H
$(TEXT-BUFFER)"!LOOP!"E+1"NAOLOOP'') 1x~h ` d d
w: (}8Q(SML-FLAG)"E 1,1E$(ERROR-TEXT)2,11E$(.)12,20E$(COMMAND-BUFFER)
0,0X(..)21,24E$(..)
3U(AUTO-COUNT)'
Q(SML-FLAG)"N1,20E$(TEXT-BUFFER)21,24E$(COMMAND-BUFFER)0U(AUTO-COUNT)1U(SML-FLAG)'
-1%(SML-FLAG) x? x@ OxC upJ o ixL xN HO U SSEP-LINE qxT xU `V i i UpHZ:-1eu 1eh :ER.mac/MODE:DUMP/DEFAULT :ew.mac/MODE:DUMP/DEFAULT
@I\
[0 [1.U10U0<-SL;R%0>Q1J]1Q0+(]0 1)\HXLHK
@I\
+0[0 0[1 Q0"N J:Q0-1S
"U
? Page too large
'
ODONE '
.[2 bj <.,Q2S
; %1> ]2
!DONE! q1u0 ]1 q0+(]0+1)
\HXPHK
@I\+0[0 Q0"E^O377777777777U0':-Q0A ]0\HXYHK
@I\
[0 [1 [2.U00U1:-S<14>"L .U1 'Q0JZU2:S<14>"L .-1U2 'Q1,Q2TQ0J]2 ]1 ]0\HXTHK
@i\MP+1MP\hxohk
@I\!LOOP!"E+1"NAOLOOP''\HXEHK
0U*
EO-4"E:1,20E$(TEXT-BUFFER)"S 21,24E$(COMMAND-BUFFER) EVON'
E.(H)@I\Q(SML-FLAG)"E 1,1E$(ERROR-TEXT)2,11E$(.)12,20E$(COMMAND-BUFFER)
0,0X(..)21,24E$(..)
3U(AUTO-COUNT)'
Q(SML-FLAG)"N1,20E$(TEXT-BUFFER)21,24E$(COMMAND-BUFFER)0U(AUTO-COUNT)1U(SML-FLAG)'
-1%(SML-FLAG)\
E.(SEP-LINE)8<I<> >
E.(S)@I\Q(SPLIT-FLAG)"E1U(UPPER)E.(..)1,10E$(.)11,11E$(SEP-LINE)12,21E$(..)22,24E$(COMMAND-BUFFER)'
Q(SPLIT-FLAG)"N0U(UPPER)E.(.)1U(SML-FLAG)MH1U(SPLIT-FLAG)'
-1%(SPLIT-FLAG)\
E.(U)@I\Q(UPPER)"E Q(SPLIT-FLAG)"E M(S)OU-DONE' 1U(UPPER)E.(..)OU-DONE'
Q(UPPER)"N 0U(UPPER)E.(.)' !U-DONE!\
E.(C)@I\MS0U(..)MS\
E.(AUTO-BUFFER)I0,0X(ERROR-TEXT)
^O1030EVTRMOP-^O10"L
^O1041EVTRMOPU(TERM-TYPE)Q(TERM-TYPE)+^O275646370000"EMH'
Q(TERM-TYPE)+^O275646000000"EMH''
E.(.)0U(UPPER)'
xp 1xq*0 `r
P xXv<> <> <> <> <> <> <> <> x" 1x# 7 `$ T T 8}p'Q(SPLIT-FLAG)"E1U(UPPER)E.(..)1,10E$(.)11,11E$(SEP-LINE)12,21E$(..)22,24E$(COMMAND-BUFFER)'
Q(SPLIT-FLAG)"N0U(UPPER)E.(.)1U(SML-FLAG)MH1U(SPLIT-FLAG)'
-1%(SPLIT-FLAG) xS 1xT 7P `U 3 3 ( c~XYQ(UPPER)"E Q(SPLIT-FLAG)"E M(S)OU-DONE' 1U(UPPER)E.(..)OU-DONE'
Q(UPPER)"N 0U(UPPER)E.(.)' !U-DONE! x 1x 3 ` V:
h
MS0U(..)MS x 6 1x 7 ( ` 8 T: >` <0,0X(ERROR-TEXT) 8 h )x *U mTERM-TYPE x mPEL @ n } 40 sSML-FLAG x s8 t }x ~ x.. z $ p y z x { x }H 8 ~? ~X }(U UPPER x x x l@ @ z
?EVOFF x $ x % 3p h & H *p )
x + x#@ Yx#A 'P `#B #JuP#F
:ER.tco"U'13I 10I HXf HKEEmaktec"?" for help.!START!Qf= File: HK I:ER .U1!GETCH!UtQt-77 "E
Type the file name of the TECO program file that you want
that you want converted to a .TEC file. End with a <CR>. OSTART '
Qt-10 "E Q1-."E OSTART ' :10,1 -D OGETCH ' Qt-177"E Q1-."E OSTART ' .-1,.T -D OGETCH ' Qt-25 "E :15,1 :12,1 OSTART ' Qt-22 "E :15,1 :12,1 Q1,.T OGETCH ' Qt-15 "N QtI OGETCH ' I/MODE:ASCIIHXt Mt"F File not found. OSTART '
HK GfEW.tec EIted:haJ <S``;-2D 0I>J <Sf!;; .-2U1 S! :.,.+2Sf"S Q1,.K' 2R>J <S`!;; -2D FD!;:.,.+2Sf"S .-2,.K' R>J <S`^; 1A-100"G 1AU1 -DD Q1-96"G Q1-32U1' Q1-100U1 Q1I '
R >
J <S`<44>; -D I R>J <S`<11>; -D R>J <FS`;>J <FS<0>`;>J 2DHP EF x$ f+ B