' Koordinateninclude
' (C) Samstag, 25. Januar 2002 Dennis Schulmeister
' Rechnet Bildschirmkoordinaten in relative Koordinaten um
' All rights reserved

Declare ScreenX%, ScreenY%

Def @CenterX(1) ((%MaxX - @%(1)) / 2)
Def @CenterY(1) ((%MaxY - @%(1)) / 2)

Def @X(1) ((@%(1) / ScreenX%) * %MaxX)
Def @Y(1) ((@%(1) / ScreenY%) * %MaxY)

Proc SetScreen
Parameters X%, Y%
ScreenX% = X%
ScreenY% = Y%
EndProc