### Appears on

Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.

### Source Code

5 PRINT "%A%R%E%A%S" 10 REM AREAS 15 PRINT 100 PRINT "ENTER SHAPE?(CIRCLE,SPHERE,PARABOLA,TRIANGLE,SQUARE,RECTANGLE,ELLIPSE)" 110 INPUT X$ 120 CLS 130 PRINT X$ 140 IF X$="CIRCLE" OR X$="SPHERE" THEN GOTO 200 150 IF X$="PARABOLA" OR X$="TRIANGLE" THEN GOTO 300 160 IF X$="SQUARE" OR X$="RECTANGLE" THEN GOTO 400 170 IF X$="ELLIPSE" THEN GOTO 500 180 GOTO 100 200 PRINT "RADIUS "; 210 INPUT R 220 PRINT R 230 LET A=PI*(R**2) 240 IF X$(1)="S" THEN LET A=4*A 250 GOTO 600 300 PRINT "BASE "; 310 INPUT B 320 PRINT B 330 PRINT "HEIGHT "; 340 INPUT H 350 PRINT H 360 IF X$(1)="P" THEN LET A=B*H*2/3 370 IF X$(1)="T" THEN LET A=B*H*.5 380 GOTO 600 400 PRINT "WIDTH "; 410 INPUT W 420 PRINT W 430 PRINT "LENGTH "; 440 INPUT L 450 PRINT L 460 LET A=L*W 470 GOTO 600 500 PRINT "MAJOR AXIS "; 510 INPUT J 520 PRINT J 530 PRINT "MINOR AXIS "; 540 INPUT N 550 PRINT N 560 LET A=.7854*J*N 600 PRINT "AREA ";A 620 GOTO 100 700 SAVE "1005%5" 800 RUN