strings3.via

来自「一个用VB写的很好的编译器,功能超好,不过就是代码有点多,是进一步学习编译的好」· VIA 代码 · 共 22 行

// Strings3.lnl

application PE GUI entry main;

include "Windows.inc";

dword ret;
dword style;

frame main();
    local string message[25];
    local string caption[15];
    message = "Libry.Compiler is great!";
    caption = "Hello Planet!";
    style = $24;

    ret = MessageBox(0,message,caption,style);

    if(ret=IDYES) {
        MessageBox(0,"ID=YES","Return..",0);
    }
end;