' Programmed by John Paul Pruess.
' Completed on July 18th, 1997.

Start:
CLS
LET P = 3.14159

PRINT "1. Volume"
PRINT "2. Total Area"
PRINT
INPUT "What is your selection"; S
LET S2 = INT(S)
IF S2 < 1 THEN BEEP: GOTO Start
IF S2 > 2 THEN BEEP: GOTO Start
IF S2 = 2 THEN GOTO TotalArea
IF S2 = 1 THEN GOTO Volume

Volume:
CLS
INPUT "How long is the radius"; R
INPUT "How tall is the cylinder"; H
LET V = (P * H * (R ^ 2))
PRINT "The volume = "; V
GOTO Again

TotalArea:
CLS
INPUT "How long is the radius"; R
INPUT "How tall is the cylinder"; H
LET T = 2 * P * R * (H + R)
PRINT "The total area = "; T
GOTO Again

Again:
PRINT
INPUT "Another (Y/N)"; YN$
IF YN$ = "Y" THEN GOTO Start
IF YN$ = "y" THEN GOTO Start
IF YN$ = "N" THEN GOTO 200
IF YN$ = "n" THEN GOTO 200

200 END