;PZMACS.MAT 7-18'91 ;The following macros are from the PMATE/ZMATE Macros columns, ;numbers 1 through 4 in TCJ issues 48 - 51. Where necessary, alternate lines of code are given for PCMATE, ZMATE, and MATE. ;These are in executable form and can be loaded into your ;permanent macro area (or a buffer) after name conflicts are ;resolved. @K!" =(@A!" ), @C!@T=0{-,}{.} QBGOkay to delete or replace?. @T>"/&(@T<":), "N. 0L3[13I]-2L9I1QAIA9IT[GEsc to abort@K=27V8@K=13!@8_@K=127{-D^}@KI] "Q. BEAE1S @EJO@T="%{D0K}:OB@7E@S-@LLQR@SQX@SV8@SV7@SV2@SV1@SV0 ;For ZMATE,PCMATE ;BEAE1S @EJO@T="%{D0K}:O@7.@S-@LLQR@SQX@SV8@SV7@SV2@SV1@SV0 ;For MATE  @0,@1,@2,@7,@8,@X,@L,@BV7@A%BEA27I"%IAB@7E ;For ZMATE,PCMATE ;@0,@1,@2,@7,@8,@X,@L,@BV7@A%BEA27I"%IA@7. ;For MATE "Y. C..Change:@8'{#B2C}.To:@8'{#B3C}-2L6K[@8_EUS@2@E_GRET to change@K=13{-C@2@3}@K=27].JZ DQ-0V15@A=0{0V110V12}[@T=0%.@S!(@T=".)_M]T-M@T="-{T1V15}M[.@S'_M]@XV10Q#@X=@10JX@10-@X=1&@15{MJX}#BCQ#TIVA11#BN.0:X@T=".'%M.@S'%BK@15{T"-I#BM}@T="0{M}TM.@S{M}#BDTIVA12#BN.0 O0.A[@T>32_M](@T="/){M}(@T=";!(@T="{)!(@T="*))&(@L=0){MT2[MS-M@T=".']#BD}{:R.Filename:#BN-L3K@8{GAbort save?.@SJTJR}}@F@0{.@S'JTXX@0}XO@0:T. QJB:ABTEA@T="<{XH}:B@C!@T=0{@BJAXH}QBGSave?.@S{@B{.OJA}{ @N{XE}{.O}}}{.@S'%@BJAXK}XH ;For ZMATE,PCMATE ;GIs this file open?$.^Y@S{XE}{.O}}}{.@S'%@BJAXK}XH ;For MATE  3@B=0{@N{.XJ.%}}.OJZ ;For ZMATE,PCMATE ;3@B=0{GIs this file open?$.^Y@S{.XJ.%}}.OJZ ;For MATE ;Mother macro (in buffer 9): @BV7B9E.:YA2{SRJ}TL@LQJGS ;:@E{QBJY}@T!32=(@K!32)]#@KR.B@7EQRJs ;For ZMATE & PCMATE :@E{QBJY}@T!32=(@K!32)]#@KR.@7.QRJs ;For MATE .................. ... ...-....1200 N81N