beer.via

来自「用VB6写的真正的32位高级语言可视程序编译器」· VIA 代码 · 共 17 行

// Beer.lnl

application PE GUI;

import MessageBox ascii lib "USER32.DLL",4;
import mciSendString ascii lib "WINMM.DLL",4;

const IDYES = 6;

entry
    if (MessageBox(0,"Do you need additional place for beer?",
                   "Desktop Configuration",$24) = IDYES) {
        mciSendString("open cdaudio",0,0,0);
        mciSendString("set cdaudio door open",0,0,0);
        mciSendString("close cdaudio",0,0,0);
    }
end.