proc main
    dim i, genko$[20]
    i = 1
    genko$[i++] = "区切り字数" + chr$(9) + "（全角）"
    genko$[i++] = "-"
    '項目追加は同じ形式で。
    genko$[i++] = "400" + chr$(9) + "(20 x 20)"
    genko$[i++] = "200" + chr$(9) + "(20 x 10)"
    genko$[i++] = "500" + chr$(9) + "(ENGLISH)"
    i = popupmenu(genko$)
    if i < 3 then exit proc
    i = val(left$(genko$[i],instr(genko$[i],chr$(&h09))-1))
    @Print400PaperPageX = i*2
end proc

'proc main
'    dim i, genko$[20]
'    i = 1
'    genko$[i++] = "区切り字数（全角）"
'    genko$[i++] = "-"
'    '項目追加は同じ形式で。
'    genko$[i++] = "2500"
'    genko$[i++] = "400"
'    genko$[i++] = "200"
'    i = popupmenu(genko$)
'    if i < 3 then exit proc
'    i = val(genko$[i])
'    @Print400PaperPageX = i*2
'end proc

'proc main
'    dim n, ime
'    '一時的にＩＭＥをオフ・あとでもどす
'    ime = imestatus
'    if ime <> 2 then imemode 2
'    n = inputbox(" 原稿用紙区切り１ページ文字数" + chr$(10) + \
'         " 全角で指定してください", \
'         " ◆ 原稿用紙区切り１ページ文字数", n)
'    if n <> INPUTBOX_CANCEL then @Print400PaperPageX = n*2
'    imemode ime 
'end proc