' Programmed by John Paul Pruess.
' Completed on July 18th, 1997.
'
' Some source taken from Harper & Row
' Geometry by Max A. Sobel, pub. Scribner
' Laidlaw, NY.

Start:
   CLS

   INPUT "Degrees in angle"; D
   IF D <= 0 THEN GOTO Start
   IF D >= 180 THEN GOTO Start
   IF D < 90 THEN GOTO Acute
   IF D = 90 THEN GOTO Right

   PRINT D; " is an Obtuse Angle.": GOTO 100

Right:
   PRINT D; " is a Right Angle.": GOTO 100

Acute:
   PRINT D; "is an Acute Angle.": GOTO 100

100 :
   INPUT "Another (Y/N)"; YN$
   IF YN$ = "y" THEN GOTO Start
   IF YN$ = "Y" THEN GOTO Start
   IF YN$ = "n" THEN GOTO Ending
   IF YN$ = "N" THEN GOTO Ending

Ending:
   END ' End of program.