XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Bitmap zentriert auf dem Bildschirm ausgeben
Lauffähig ab Profan-Version 6.6
WindowStyle 80
Window 0,0-%maxx, %maxy
WindowTitle Bitmap zentriert ausgeben
UseIcon A
Declare bitmap$, x%, y%, i%, b%, h%
bitmap$=@LoadFile$(Bitmap öffnen,Unterstützte Formate|*.BMP;*.RLE;*.DIB|Alle Dateien (*.*)|*.*)
case @TRIM$(bitmap$)=: bitmap$=sebsp127.BMP
MLOADBMP bitmap$
b%=%bmpx
h%=%bmpy
x%=(%maxx-b%)/2
y%=(%maxy-h%)/2
LoadBMP bitmap$,x%, y%;0