include 'hll.inc'
./*
the beer source: example of hll macros used in fasm
- multiline comments
- var definition
- hll functions including strings
- new imports
- smarter if, switch
- assemly listing
by blez
.*/
type gui
enable listing
extern mciSendStringA:invoke
string sName = 'MyApplication'
MessageBoxA(0,'Do you need additional place for the beer?',sName,MB_ICONQUESTION+MB_YESNO)
.if eax = IDYES
mciSendStringA('open cdaudio',0,0,0)
mciSendStringA('set cdaudio door open',0,0,0)
mciSendStringA('close cdaudio',0,0,0)
.else
MessageBoxA(0,'Well ok then..',sName,MB_ICONINFORMATION+MB_OK)
.endif
ExitProcess(0)
imports
libs kernel32,user32,winmm
from kernel32,ExitProcess
from user32,MessageBoxA
from winmm,mciSendStringA