home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2002 November / VPR0211A.ISO / OLS / JED194V / JEDDOC.LZH / AUTOKETA.MCR next >
Text File  |  1993-10-09  |  1KB  |  46 lines
  1. ;**********************************************************
  2. ;    ＪＥＤ　マクロサンプル
  3. ;    'AUTOKETA.MCR'
  4. ;    [簡易自動桁折りマクロ]
  5. ;    Ver 0.10    Mar.1993 初版
  6. ;        0.90    Oct.1993
  7. ;
  8. ;    Written by H.Orikawa 1993
  9. ;
  10. ;　注）    1.[BS]や[DEL]で次行と連結した場合は、桁折りされない。
  11. ;    2.オートインデントと併用すると良い
  12. ;**********************************************************
  13.     ?.
  14.     &g("自動桁折位置(初期値=70)")    ;数字以外が入力されたら初期値を採用
  15.     (r == -1) ? .            ;[ESC]でｷｬﾝｾﾙ
  16.     (r == -2) ? {            ;[CR]のみの時は
  17.         xx = 70,        ;既定値を採用
  18.     } ? {
  19.         xx = r,
  20.     }
  21.     ;行末禁則文字
  22.     tt = "‘“（〔［｛〈《「『【([{｢",
  23.     ;行頭禁則文字
  24.     ee = "’”）〕］｝〉》」』】、。，．？！!)､,.?]}｣",
  25.  
  26. :A    
  27.     &c                ;キー入力
  28.     (r >= $100) ? >A        ;機能コードなら何もしない
  29.     (lx >= xx) ? {
  30.         (lx == xx) ? {
  31.             #s        ;１文字戻る
  32.             &f(cd, tt)    ;行末禁則文字チェック
  33.             (r >= 0) ? {
  34.                 #m
  35.             }
  36.         } ? {
  37.             #s        ;１文字戻る
  38.             &f(cd, ee)    ;行頭禁則文字チェック
  39.             (r < 0) ? {
  40.                 #m
  41.             }
  42.         }
  43.         #d            ;１文字進める
  44.     }
  45.     >A
  46.