XProfan

WindowTitle "Bildviewer 1.0"
Window 50,20 - 800,600
CreateMenu 100,20
AppendMenu 100,"&Bild Laden"
TrackMenu 700,0
Case @MenuItem(100): LoadSizedBMP "trans.BMP",0,0-Width(%100),Height(%100);0
Case @MenuItem(101):
Waitinput
end

LoadSizedBMP "trans.BMP",0,0-Width(%100),Height(%100);0

LoadSizedBMP "trans.BMP",0,0-800,100;0