0 ' Club 100 Library - 415/939-1256 BBS 937-5039 NEWSLETTER, 932-8856 VOICE 5 REM AREAS 10 PRINT CHR$(147):REM CLEAR SCREEN 20 INPUT "SHAPE";S$ 30 PRINT 40 IF S$="CIRCLE" THEN 200 50 IF S$="ELLIPSE" THEN 300 60 IF S$="PARABOLA" THEN 400 70 IF S$="SPHERE" THEN 500 80 IF S$="SQUARE" THEN 600 90 IF S$="RECTANGLE" THEN 600 100 IF S$="TRIANGLE" THEN 700 110 PRINT "NOT A RECOGNIZED SHAPE" 120 PRINT 130 GOTO 20 200 INPUT "RADIUS";R 210 A=3.141592654*(R*2*2*2*2) 220 GOTO 800 300 INPUT "MAJOR AXIS";J 310 INPUT "MINOR AXIS";N 320 A=0.7854*J*N 330 GOTO 800 400 INPUT "BASE";B 410 INPUT "HEIGHT";H 420 A=(2/3)*(B*H) 430 GOTO 800 500 INPUT "RADIUS";R 510 A=3.1411592654*4*(R*2*2*2*2) 520 GOTO 800 600 INPUT "LENGTH";L 610 IF S$="SQUARE" THEN A=L*L:GOTO 800 620 INPUT "WIDTH";W 630 A=L*W 640 GOTO 800 700 INPUT "BASE";B 710 INPUT "HEIGHT";H 720 A=0.5*B*H 800 PRINT 810 PRINT "AREA";A 820 PRINT 830 GOTO 20 840 END