¡!COMPILED! !do not modify this file unless you know what you are doing and do not forget to re-compile it! [7[6[5[4[3[2[1 [..o 1:"lfsbcreatew' u1 fq1++4u1 zj .u2 iname: 410*1900,1852 ...Z -2*1550,1318 ..F -2*121,0 ..L -1*1757,1746 åxecute 1757 -1*2107,2035 åxecute 2107 :^i6|[..o :fo..o2u5 q5"g f~:..o(q5)2"n -q5u5'' q5"l-5*q5j .(0fsword*5,0i)j q2,.fswordw'"#q5*5j' q3,.+5fswordw q7,.+10fsword ]..o| q2j :l .(eg -4:k)j 3k:l 9i q1\ z+6u4 6,q4\ "n zj' :w wfsbkillw]1]4]5q5j'"# q2(c\+q1u7c:x2)2"eq3u2'"#q..qm6'''>  !COMPILED!ït ! This is the AI-ML-MC Version of MODETA 114 (Same as DM but minus the ! ! Muddle related stuff. --pdl ! ..L<=¬ ! SETUP TECO DEFAULTS! J GInitial Default B,.FX..U 4FSECHOLINES 1FS ^MPRINT 1FS ^LINSERT -1FS YDISABLE FS RGETTY"E 2FSLINES' FS RGETTY"N (FSHEIGHT-(FSECHOLINES)-1)*2/3FSLINES' ! ENABLE TIMED AUTO SAVE! MTIMED SAVE ! READ IN USER INIT AND POSSIBLY PRINTING TERMINAL OPTION! FSRGETTY"E m~printing tty setup~ ' B,BX..L 3M.N et.s..u f[dfile 1: f]dfile et..u HK ! SPECIAL JNAME?! FSJNAMEF6 J 1F=L"E 2M...GLISP ' 1F=P"E 2M...GPUB ' HK (5*16)FSQVECTORMINTERNCURBUF QSAFETY FILEF"N USAFETY DEFAULT' "# QSAFETY DEFAULT"E MSAFETY SINGLE 0USAFETY DEFAULT' "# QSAFETY DEFAULTUSAFETY FILE'' QBUFNAMEU:CURBUF(9) QCURBUFU:CURBUF(10) -1U:CURBUF(11) ! DEFAULT ..L ACTION! FQ..L"E 1W 0FSEXITW/ 0;' J1A-27"E D ZJ IW HFX..L 0;' J13F~RVB SAYS DUMP"E 13D :I..L M.D   0;' zj <0a-32"l -d ' 0;> @i/@y 1:<> / jier hfx..l>' 0fsmodified MCheck Safety File M..L ã secretary macro body -- executed every so many characters, to save buffer also (thanks to bkd) clears crap from screen when leave ^r mode and (thanks to taa) saves all sorts of marvelous goodies safety belt stuff ..F<=Ã FSMODIFIED"N FSXMODIFIED"N FSZ"N 1:F"N FG'''' Q..9+1"E0U..9:^I..J/ <=<>=> /M.D F+ H^V' FS^RMODE"E 0FS^RMCNTW -1U..9W 0,0X..J' 0 ˆ <=>Þ 10050041.U.M :I..GQ..H"E@V' -1FS ^H PRINT 1FS ^M PRINT 1FS TTMODE 400FS^RMDLY © TASTEFUL EXIT FROM TECO MACRO ...Z<=†1:<.U.B M..F F=.T:"N $J'"# I_ FSUNAMEF6 Q.B,.FX3 FSMSNAMEF6 Q.B,.FX2 :> :KILL ' F+>,3M.ZW H Å MAKE Meta [ the same as Meta < & Meta ] the same as Meta > <=>Ò 400.<@FS^RCMAC,400.[@FS^RCMAC 400.>@FS^RCMAC,400.]@FS^RCMAC °00