'L_1Line.mac / execute input as macro / by Kabuneko 99/07/11

proc main
    dim s$
    if @@Global$("oneline") <> "" then s$ = @@Global$("oneline")
    s$ = inputbox$("《コマンド実行》" + chr$(10) + \
         " コマンドを入力してください・改行はできません", \
         " ◆ １行コマンド", s$)
    if s$ = chr$(&H1B) then exit proc
    @@Global$("oneline") = s$
    open @@MacroDirectory$ + "\" + "oneline.mac" for output as #1
    print #1, "proc main"
    print #1, s$
    print #1, "end proc"
    close #1
    @@JumpMacro "oneline.mac, main"
end proc