home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 2001 December
/
VPR0112B.ISO
/
OLS
/
JED194V
/
JEDDOC.LZH
/
AUTOKETA.MCR
next >
Wrap
Text File
|
1993-10-09
|
1KB
|
46 lines
;**********************************************************
; JED マクロサンプル
; 'AUTOKETA.MCR'
; [簡易自動桁折りマクロ]
; Ver 0.10 Mar.1993 初版
; 0.90 Oct.1993
;
; Written by H.Orikawa 1993
;
; 注) 1.[BS]や[DEL]で次行と連結した場合は、桁折りされない。
; 2.オートインデントと併用すると良い
;**********************************************************
?.
&g("自動桁折位置(初期値=70)") ;数字以外が入力されたら初期値を採用
(r == -1) ? . ;[ESC]でキャンセル
(r == -2) ? { ;[CR]のみの時は
xx = 70, ;既定値を採用
} ? {
xx = r,
}
;行末禁則文字
tt = "‘“(〔[{〈《「『【([{「",
;行頭禁則文字
ee = "’”)〕]}〉》」』】、。,.?!!)、,.?]}」",
:A
&c ;キー入力
(r >= $100) ? >A ;機能コードなら何もしない
(lx >= xx) ? {
(lx == xx) ? {
#s ;1文字戻る
&f(cd, tt) ;行末禁則文字チェック
(r >= 0) ? {
#m
}
} ? {
#s ;1文字戻る
&f(cd, ee) ;行頭禁則文字チェック
(r < 0) ? {
#m
}
}
#d ;1文字進める
}
>A