#uselib "user32"
    #cfunc FindWindow "FindWindowA" str, str
    #func keybd_event "keybd_event" int,nullptr,int,nullptr
    #func SetForegroundWindow "SetForegroundWindow" int

    wh = FindWindow("CalcFrame", "電卓");
    if wh =0{
        exec "calc"
        wh = FindWindow("CalcFrame", "電卓");
    }
    sdim moji

    input moji
    button "keisan", *calc
    stop
*calc
    SetForegroundWindow wh
    sdim char
    repeat strlen(moji)
        char = strmid(moji, cnt, 1)
        if peek(char) ='+'{
            keybd_event 16, 0
            keybd_event 187, 0
            keybd_event 16, 2
            keybd_event 187, 2
        }else{
            keybd_event peek(char),0
            keybd_event peek(char),2
        }
        await 1
    loop
    keybd_event 13, 0
    keybd_event 13, 2
    stop