To prevent a window from being resized use the SET WINDOW LAYOUT command:
SET WINDOW ON
SET WINDOW SIZE 640,480
SET WINDOW POSITION 100,100
SET WINDOW LAYOUT 0,1,0
SET WINDOW TITLE "Powerball"
SHOW WINDOW
Sync On
Ink RGB(255,255,255),0
XPos# = 12.0: YPos# = 12.0
XDir# = 5.0: YDir# = 1.0
Do
Gosub MoveCircle
Loop
MoveCircle:
Inc YDir#,1.0
Inc XPos#, XDir#
Inc YPos#, YDir#
If YPos# >= 465.0
Rem Hit floor
YPos# = 465.0: YDir# = 0.0-YDir#
If XDir# > 0
Dec XDir#,.2
Else
Inc XDir#,.2
Endif
If ABS(XDir#) < 0.1
XPos# = 12.0: YPos# = 12.0
XDir# = Rnd(5)+4.0
YDir# = 1.0
Endif
Endif
If XPos# >= 630.0 Then XPos# = 630.0: XDir# = 0.0-XDir#
If XPos# <= 10.0 Then XPos# = 10.0: XDir# = 0.0-XDir#
Rem Add a bit of gravity...
Inc YPos#,0.5
CLS
Circle XPos#,YPos#,10
Sync
Return
TDK_Man