XProfan

set(ErrorLevel,-1)
 {$cleq}
 {$res companyname David Strutz}
 {$res filedescription Kerns Black Blank}
 {$res fileversion 0.0.0.1}
 {$res internalname kerns_bb}
 {$res legalcopyright © by David Strutz, Berlin 2007}
 {$res originalfilename kerns_bb.exe}
 {$res productname Kerns Black Blank}
 {$res productversion 0.0.0.1}
 {$res icon test.ico}
windowstyle 1024 | 80 | 256
window 0,0 - maxx,maxy
cls val(par$(1))
setwindowpos hwnd=0,0 - maxx,maxy;-1
showcursor val(par$(2))

do {

    waitinput
    caso (val(par$(3))==falso) : romper

}

end