' 字詰めカンタン変更マクロ proc main dim menu$[50],sel,buf$,p,n,i i=1 menu$[i++]="&4:14字" menu$[i++]="&5:15字" menu$[i++]="&6:16字" menu$[i++]="&7:17字" menu$[i++]="&8:18字" menu$[i++]="&0:20字" menu$[i++]="&2:22字" menu$[i++]="&3:23字" menu$[i++]="&Z:38字" menu$[i++]="-" menu$[i++]="&A:20字 * 20行" menu$[i++]="&B:40字 * 20行" sel=popupmenu(menu$) do while sel>0 buf$=menu$[sel] p=instr(buf$,":"): if p=0 then exit do buf$=mid$(buf$,p+1) p=instr(buf$,"字"): if p=0 then exit do n=val(trim$(left$(buf$,p-1)))*2 if n<20 or n>254 then exit do @Width=n+1: @PrintPage=0 buf$=mid$(buf$,p+1) p=instr(buf$,"*"): if p=0 then exit do buf$=mid$(buf$,p+1) p=instr(buf$,"行"): if p=0 then exit do n=val(trim$(left$(buf$,p-1))) if n<1 or n>999 then exit do @PageLine=n: @PrintPage=1 exit do loop end proc