home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / jsage / znode3 / tcj / pzmacs.mat < prev    next >
Encoding:
Text File  |  1993-06-07  |  1.8 KB  |  42 lines
  1. ;PZMACS.MAT    7-18'91 
  2.  
  3. ;The following macros are from the PMATE/ZMATE Macros columns,
  4. ;numbers 1 through 4 in TCJ issues 48 - 51.  Where necessary, 
  5. alternate lines of code are given for PCMATE, ZMATE, and MATE.
  6. ;These are in executable form and can be loaded into your 
  7. ;permanent macro area (or a buffer) after name conflicts are 
  8. ;resolved.
  9.  
  10. @K!" =(@A!" ),
  11. @C!@T=0{-,}{.}
  12. QBGOkay to delete or replace?.
  13. @T>"/&(@T<":),
  14. "N.
  15. 0L3[13I]-2L9I1QAIAIT[GEsc to abort@K=27V8@K=13!@8_@K=127{-D^}@KI]
  16. "Q.
  17.  
  18. BEAE1S @EJO@T="%{D0K}:OB@7E@S-@LLQR@SQX@SV8@SV7@SV2@SV1@SV0      ;For ZMATE,PCMATE
  19. ;BEAE1S @EJO@T="%{D0K}:O@7.@S-@LLQR@SQX@SV8@SV7@SV2@SV1@SV0  ;For MATE
  20.  
  21.  @0,@1,@2,@7,@8,@X,@L,@BV7@A%BEA27I"%IAB@7E    ;For ZMATE,PCMATE
  22. ;@0,@1,@2,@7,@8,@X,@L,@BV7@A%BEA27I"%IA@7.    ;For MATE
  23.  
  24. "Y.
  25. C..Change:@8'{#B2C}.To:@8'{#B3C}-2L6K[@8_EUS@2@E_GRET to change@K=13{-C@2@3}@K=27].JZ
  26. DQ-0V15@A=0{0V11V12}@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
  27. 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.
  28.  
  29. QJB:ABTEA@T="<{XH}:B@C!@T=0{@BJAXH}QBGSave?.@S{@B{.OJA}{
  30. @N{XE}{.O}}}{.@S'%@BJAXK}XH                ;For ZMATE,PCMATE
  31. ;GIs this file open?$.^Y@S{XE}{.O}}}{.@S'%@BJAXK}XH    ;For MATE
  32.  
  33.  
  34.  3@B=0{@N{.XJ.%}}.OJZ            ;For ZMATE,PCMATE
  35. ;3@B=0{GIs this file open?$.^Y@S{.XJ.%}}.OJZ    ;For MATE
  36.  
  37. ;Mother macro (in buffer 9):
  38. @BV7B9E.:YA2{SRJ}TL@LQJGES
  39. ;:@E{QBJY}@T!32=(@K!32)]#@KR.B@7EQRJs    ;For ZMATE & PCMATE
  40.  :@E{QBJY}@T!32=(@K!32)]#@KR.@7.QRJs    ;For MATE
  41.  
  42. .................. ... ...-....1200 N81N