home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2002 November / VPR0211A.ISO / OLS / JED194V / JEDDOC.LZH / REFORM.MCR < prev    next >
Text File  |  1993-11-07  |  791b  |  21 lines
  1. ;=====  段落の整形  (C) T.Tanomura, 1991/8/31  =====
  2. ;                   Modified by Ari-P 1993/10/21
  3. ;&t
  4.     &02 (ct==1) ? { #d . }, &s, d-, f=ks&1, yy=70,
  5.     a="・☆★○●◎◇◆□■△▲▽▼※①②③④⑤⑥⑦⑧⑨⑩",
  6.     b="､｡,.:;!?)]｣- 、。，．：；！？）〕］｝〉》」』】",
  7. :A  &02 (ct==1) ? #d ? { (cd!='　') ? { #s ((ln==1 && lh==1 && lx==0)) ?? >A } }
  8. :B  (cd=='　') ? { d++, #d >B } &f(cd,a) (r!=-1) ? d++, ? { (d==1) ? d-, }
  9.     ((yy+1)>>1<=d) ? { &b(10) >Z }
  10. :C  &01 #d (ct<2 || cd=='　') ? { (f) ? >Z #s >E } }
  11. :D  (cd=='') ? { #g >D } #h >C
  12. :E  &02 &x(yy-1) (ct<2) ? { #d >Z } #d &f(cd,b) (r!=-1) ? #d
  13.     (1<ct) ? { #m (d) ? { (d) { '' } } >E } #d
  14. :Z  &d .
  15. 01:
  16. :F  #> (ct > 1) ? { #d >F }
  17.     .
  18. 02:
  19. :G  #< #s (ct != 1) ? { (ln==1 && lh==1) ?? >G .}
  20.     #d .
  21.