home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2002 November / VPR0211A.ISO / OLS / JED194V / JEDDOC.LZH / CSCONV.MCR < prev    next >
Text File  |  1993-11-15  |  1KB  |  36 lines
  1. ;***************************************************************
  2. ;    ＪＥＤ　マクロサンプル
  3. ;    'CSCONV.MCR'
  4. ;    [英大文字、小文字相互変換]
  5. ;    Ver 0.10    Nov.1993 初版
  6. ;
  7. ;    [CTRL]+[\]         カーソル位置の一語　を英大小文字変換
  8. ;    [SHIFT]+[CTRL]+[\] カーソル位置の一文字を英大小文字変換
  9. ;    Written by H.Orikawa 1993
  10. ;
  11. ;***************************************************************
  12.     &s                            ;画面非表示
  13.     (mi) ?? #v                    ;挿入ﾓｰﾄﾞ→上書きﾓｰﾄﾞ
  14.     (fa = ks & 1) ?? {            ;起動時[SHIFT]ｷｰが押されていたか？
  15.         #f                        ;一語先へ
  16.         x = lx, y = ly,            ;ｶｰｿﾙ位置記憶（語の切れ目）
  17.         #a                        ;一語戻る
  18.     }
  19. :A    c = cd,                        ;ｶｰｿﾙ位置の文字ｺｰﾄﾞ
  20.     ('a' <= c && c <= 'z') ? {    ;小文字→大文字
  21.         &o(c - ' ')
  22.         (fa) ? >Z                ;起動時[SHIFT]ｷｰが押されていた
  23.         >B
  24.     }
  25.     ('A' <= c && c <= 'Z') ? {    ;大文字→小文字
  26.         &o(c + ' ')
  27.         (fa) ? >Z                ;起動時[SHIFT]ｷｰが押されていた
  28.         >B
  29.     }
  30.     #d                            ;英文字でない時は一文字進める
  31. :B    (lx == x && ly == y) ?? >A    ;語の切れ目に来たか？
  32.  
  33. :Z    #v                            ;挿入ﾓｰﾄﾞ
  34.     &d                            ;画面表示
  35.     /                            ;ﾏｸﾛ終了
  36.