XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Hauptfenster zentrieren
Lauffähig ab Profan-Version 6.6
declare x%,y%
randomize
x% = 400
y% = 200
WindowStyle 16
WindowTitle Hauptfenster zentrieren  - weiter mit beliebiger Taste -
Window (%MaxX - x%) / 2,(%MaxY - y%) / 2 - x%,y%
SetTrueColor 1
cls rgb(rnd(256),rnd(256),rnd(256))
Waitinput
x% = 400
y% = 400
SetWindowPos %HWnd = (%MaxX - x%) / 2,(%MaxY - y%) / 2 - x%,y%
cls rgb(rnd(256),rnd(256),rnd(256))
WaitInput
x% = 500
y% = 100
SetWindowPos %HWnd = (%MaxX - x%) / 2,(%MaxY - y%) / 2 - x%,y%
cls rgb(rnd(256),rnd(256),rnd(256))
WaitInput
x% = 500
y% = 480
SetWindowPos %HWnd = (%MaxX - x%) / 2,(%MaxY - y%) / 2 - x%,y%
cls rgb(rnd(256),rnd(256),rnd(256))
WaitInput
end