If you repeat it broke and so on... sorry, but here it is a expend project... all it does is full of listed commands. Enjoy!
REM Project: Line work
REM Created: 12/3/2005 11:47:37 PM
REM
REM ***** Main Source File *****
REM
rem Well inch is for 96... if you think I am wrong just change what you want it is to be. ok
inch=96
do
x=rnd(screen width()/2+30)
y=rnd(screen height()/2+30)
xx=rnd(50)+1
yy=rnd(50)+1
box xx,yy,x,y
sidex=((x-xx)*2)
if sidex<0
inteadx=sidex*-1
endif
sidey=((y-yy)*2)
if sidey<0
inteady=sidey*-1
endif
permeter=sidex+sidey
if permeter<0
inteadpermeter=permeter*-1
endif
area=sidex*sidey
if area<0
inteadarea=area*-1
endif
wait key
cls
if permeter>0
print "total permeter is: ",permeter
endif
if permter<0
print "total permeter is: ",inteadpermeter
endif
if area<0
print "total area is: ",inteadarea
print "total area in inch is: ",area/inch
endif
if area>0
print "total area is: ",area
print "total area in inch is: ",area/inch
endif
wait key
cls
loop
Let's go to school! yay... hello... HELLOOOOO......