Sorry your browser is not supported!

print "Welcome to Math Hacks: 3D AREA!"
print
print "A little 3D program made by Gregor Czaykowski 2003"
print
print "-----------------------------------------------"
print
INPUT "Enter LENGTH of rectangle: ",X
INPUT "Enter HEIGHT of rectangle: ",Y
INPUT " Enter WIDTH of rectangle: ",Z
print
V = X*Y*Z
print "The VOLUME of your rectangle is: ",V
print
INPUT "Press G to view the 3D MODEL: ", GO
if GO == G
 MAKE OBJECT CUBE 1,100
 DO
  YROTATE OBJECT 1,OBJECT ANGLE Y(1)+0.1
  SCALE OBJECT 1, X, Y, Z

Rem ***** Main Source File *****
backdrop off
color backdrop 0
sync on
sync rate 100

gosub _GetUserData
gosub _Start


_MAIN:
   backdrop on
   repeat
      YROTATE OBJECT 1,OBJECT ANGLE Y(1)+0.1
      sync
   until controlkey()=1

   backdrop off
   delete object 1
   gosub _GetUserData
   gosub _Start
   gosub _main
RETURN

_GetUserData:
   set cursor 0,0
   cls
   sync
   print "Welcome to Math Hacks: 3D AREA!"
   print
   print "A little 3D program made by Gregor Czaykowski 2003"
   print "with a little help from CattleRustler :)"
   print "-----------------------------------------------"
   sync
   INPUT "Enter WIDTH of rectangle: ",X:sync
   INPUT "Enter HEIGHT of rectangle: ",Y:sync
   INPUT " Enter DEPTH of rectangle: ",Z:sync
   print

   V = X*Y*Z

   print "The VOLUME of your rectangle is: ",V
   print
   print "Press up arrow to view model..."
   sync
RETURN

_Start:
   wait key
   if upkey()=1
      cls
      MAKE OBJECT BOX 1,x,y,z
      gosub _MAIN
   else
      end
   endif
RETURN