Okay, this qbasic shit in Advanced Computer class is really getting on my nevers. Especially how you declare strings with a $ at the end of stuff. I much prefer the way bash works. Luckly this is my final qbasic project. I plan to make it my last one (assuming I don't have to do this crap in college).

Here is another lame qbasic program I did for my beginning programming class:

'Formula Program

 CLS

 choose:
PRINT
PRINT "            finUN - (c) 2000, Andrew Arthur, BSDL"
PRINT
PRINT "This program finds the area of a variety of shapes."
PRINT
PRINT "Type of Shape Your Finding Area of:"
PRINT "     1) Circle"
PRINT "     2) Square"
PRINT "     3) Rectangle"
PRINT "     4) Triangle"
PRINT "     5) Octogon"
PRINT "     6) Oval"
PRINT "     7) Exit finUN"
PRINT
PRINT "Note: Hitting Return will Quit This Program."
PRINT


 INPUT "Type of Shape: ", shape$
PRINT

         IF shape$ = "1" THEN GOTO cir
        IF shape$ = "2" THEN GOTO squ
        IF shape$ = "3" THEN GOTO rec
        IF shape$ = "4" THEN GOTO tri
        IF shape$ = "5" THEN GOTO oct
        IF shape$ = "6" THEN GOTO ova
        IF shape$ = "" OR shape$ = "7" THEN GOTO intheend
   
CLS
PRINT "           INVALID Value!       "
PRINT ""
PRINT "Please Try Again."
PRINT ""
GOTO choose

 cir:
INPUT "Diameter of the circle: ", diacir
INPUT "Units: ", unitcir$
diacir1 = diacir ^ 2
diacir2 = diacir1 * 3.14
PRINT "The Size of the Circle is: "; diacir2; unitcir$; " 
Squared"
SLEEP 100000
devnull$ = INKEY$
CLS
GOTO choose

 squ:
INPUT "Length of Square: ", sqrl
INPUT "Width of Square: ", sqrw
INPUT "Units of Measurement: ", unitsqr$
arsq = sqrl * sqrw
PRINT "Area of the Square is: "; arsq; unitsqr$; " Squared"

 SLEEP 100000
devnull$ = INKEY$
CLS
GOTO choose


 rec:
INPUT "Length of Rectangle: ", recl
INPUT "Width of Rectangle: ", recw
INPUT "Units of Measurement: ", unitrec$
arec = recl * recw
PRINT "Area of the Square is: "; arec; unitrec$; " Squared"
SLEEP 100000
devnull$ = INKEY$
CLS
GOTO choose

 tri:
INPUT "Length of Rectangle: ", recl
INPUT "Width of Rectangle: ", recw
INPUT "Units of Measurement: ", unitstri$
arei = (recl * recw) / 2
PRINT "Area of the Square is: "; arei; unitstri; " Squared"
SLEEP 100000
devnull$ = INKEY$
CLS
GOTO choose

 oct:
PRINT "This finds the parameter of an Octagon with sides 
all of "
PRINT "the same lenght."
PRINT
INPUT "What is the length of ones side of the Octagon: "; 
oct1
INPUT "Units of Measument: "; octmeas$

 oct2 = oct1 * 8
PRINT "The size of the Octagon's Parameter is: "; oct2; 
octmeas$; " Squared"
SLEEP 100000
devnull$ = INKEY$
CLS
GOTO choose

 ova:
INPUT "What is the diameter of the Oval: ", diaova
INPUT "Units:", unitcir$
diaova1 = diaova ^ 2
diaova2 = diaova1 * 3.14
PRINT "The Size of the Oval is: "; diaova2; unitcir$; " 
Squared"
SLEEP 100000
devnull$ = INKEY$
CLS
GOTO choose

 intheend:
CLS
END