' 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.

10 CLS

11 INPUT "How many sides does the polygon have"; I
12 IF I < 3 THEN BEEP: GOTO 11
13 LET Z = INT(I)

20 PRINT
30 PRINT "No. Sides", "Angle Sum"
40 PRINT "---------", "---------"
50 FOR N = 3 TO Z
60 LET S = 180 * (N - 2)
70 PRINT N, S
80 NEXT N
90 PRINT
100 INPUT "Another (Y/N)"; YN$
110 IF YN$ = "Y" THEN GOTO 10
120 IF YN$ = "y" THEN GOTO 10
130 IF YN$ = "n" THEN GOTO 150
140 IF YN$ = "N" THEN GOTO 150 ELSE BEEP: GOTO 100
150 END