I FIXED RECTANGLE and added a program(Work on DBP too)

You just got a minor hit with the program but i fixed it.
it is the simple way to do it, also i added the other fun program.

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    `--------------------------
`  MADE BY TYLER CRANDALL
`--------------------------------
` email me on Tyler@crd-dwc.com
` for more help i am DBP AND DB
`--------------------------------

SYNC ON
` I LOVED RATE 1000 (DON'T YELL AT ME OK)
SYNC RATE 1000

SET DISPLAY MODE 600,500,32
SET WINDOW ON

X=253
Y=104
XADD=1
YADD=1

sync
LINE 0,0,500,0
LINE 500,0,500,300
LINE 0,0,0,300
LINE 0,300,500,300
text 100,100,"press any key to process to fun program"
sync
wait key

do
sync
SLEEP 1
CLS
LINE 0,0,500,0
LINE 500,0,500,300
LINE 0,0,0,300
LINE 0,300,500,300
CIRCLE X,Y,5
X=X+XADD
Y=Y+YADD

IF X=0
XADD=1
ENDIF

IF X=500
XADD=-1
ENDIF

IF Y=300
YADD=-1
ENDIF

IF Y=0
YADD=1
ENDIF
LOOP