Source Code
0 % % %A%R%V%O%L%F%O%R%M% % % %W%R%I%T%T%E%N% % %B%Y% % % %G%E%N%E% %B%U%Z%A% %
100 FAST
110 CLS
120 PRINT AT 1,2;"% %A%R%E%A% %A%N%D% %V%O%L%U%M%E% %F%O%R%M%U%L%A%T%I%O%N% "
130 PRINT AT 4,1;"CUBE";TAB 29;"% %1% "
140 PRINT AT 6,1;"RECTANGLE";TAB 29;"% %2% "
150 PRINT AT 8,1;"TRIANGLE";TAB 29;"% %3% "
160 PRINT AT 10,1;"CYLINDER";TAB 29;"% %4% "
170 PRINT AT 12,1;"SPHERE";TAB 29;"% %5% "
290 SLOW
300 PRINT AT 21,4;"% %E%N%T%E%R% %O%N%E% %O%F% %A%B%O%V%E% %:%:%:% ";AT 21,4;" ENTER ONE OF ABOVE ::: "
310 LET Y$=INKEY$
320 IF CODE Y$<29 OR CODE Y$>33 THEN GOTO 300
330 FAST
340 CLS
350 GOTO VAL Y$*1000
\n1000 PRINT ,,"% %W%H%A%T% %I%S% %T%H%E% %L%E%N%G%T%H% %O%F% %A% %S%I%D%E%?% "
\n1005 SLOW
\n1010 INPUT S
\n1020 PRINT AT 10,0;"A CUBE WITH A SIDE OF ::"
\n1030 PRINT S;" UNITS :::"
\n1040 PRINT ,,,,"SURFACE AREA = ";6*S**2;" UNITS"
\n1050 PRINT ,,"VOLUME = ";S**3;" UNITS"
\n1060 GOTO 9000
\n2000 PRINT ,,"% %W%H%A%T% %I%S% %T%H%E% %L%E%N%G%T%H% %O%F% %A% %S%I%D%E% %1%?"
\n2005 SLOW
\n2010 INPUT S1
\n2020 PRINT ,,"% %W%H%A%T% %I%S% %T%H%E% %L%E%N%G%T%H% %O%F% %A% %S%I%D%E% %2%?"
\n2030 INPUT S2
\n2040 PRINT ,,"% %W%H%A%T% %I%S% %T%H%E% %L%E%N%G%T%H% %O%F% %A% %S%I%D%E% %3%?"
\n2050 INPUT S3
\n2100 PRINT AT 10,0;"A BLOCK WITH SIDES OF ::"
\n2110 PRINT S1;", ";S2;" AND ";S3;" UNITS"
\n2120 PRINT ,,"HAS A SURFACE AREA OF"
\n2130 PRINT 2*S1*S2+2*S2*S3+2*S1*S3;" UNITS AND"
\n2140 PRINT ,,"A VOLUME OF ";S1*S2*S3;" UNITS"
\n2150 GOTO 9000
\n3000 PRINT ,,"% %W%H%A%T% %I%S% %T%H%E% %L%E%N%G%T%H% %O%F% %A% %S%I%D%E% %1%?"
\n3005 SLOW
\n3010 INPUT S1
\n3020 PRINT ,,"% %W%H%A%T% %I%S% %T%H%E% %L%E%N%G%T%H% %O%F% %A% %S%I%D%E% %2%?"
\n3030 INPUT S2
\n3040 PRINT ,,"% %W%H%A%T% %I%S% %T%H%E% %L%E%N%G%T%H% %O%F% %A% %S%I%D%E% %3%?"
\n3050 INPUT S3
\n3060 FAST
\n3070 LET S=(S1+S2+S3)/2
\n3080 IF S<=S1 THEN GOTO 3900
\n3090 LET Y3=2*(((S*(S-S2))*(S-S1)*(S-S3))**.5)/S1
\n3100 LET A=Y3/S2
\n3110 LET A=ATN (A/(-A*A+1)**.5)
\n3130 LET AR=(S1*Y3)/2
\n3200 PRINT AT 8,0;"A TRIANGLE WITH SIDES OF ::"
\n3210 PRINT S1;", ";S2;" AND ";S3;" UNITS"
\n3220 PRINT ,,"HAS A SURFACE AREA OF"
\n3300 PRINT ,,"% %A%R%E%A% %=% ",AR;" UNITS"
\n3310 PRINT ,,"%P%R%I%S%M% %V%O%L%U%M%E% %S%1% %=% ";AR*S1
\n3320 PRINT ,,"%P%R%I%S%M% %V%O%L%U%M%E% %S%2% %=% ";AR*S2
\n3330 PRINT ,,"%P%R%I%S%M% %V%O%L%U%M%E% %S%3% %=% ";AR*S3
\n3800 GOTO 9000
\n3900 CLS
\n3910 PRINT ,,"% %N%O%T% %A% %T%R%I%A%N%G%L%E% %-% %T%R%Y% %A%G%A%I%N% %:%:% "
\n3920 PAUSE 40000
\n3930 CLS
\n3940 GOTO 3000
\n4000 PRINT ,,"% %W%H%A%T% %I%S% %T%H%E% %R%A%D%I%U%S% %O%F% %T%H%E% % % % % % % %C%Y%L%I%N%D%E%R%?"
\n4005 SLOW
\n4010 INPUT R
\n4020 PRINT ,,"% %W%H%A%T% %I%S% %T%H%E% %L%E%N%G%T%H% %O%F% %T%H%E% % % % % % % %C%Y%L%I%N%D%E%R%?"
\n4030 INPUT L
\n4040 PRINT ,,"A CYLINDER WITH A RADIUS OF"
\n4050 PRINT R;" UNITS AND A LENGTH OF ";L
\n4060 PRINT ,,"% %S%U%R%F%A%C%E% %A%R%E%A% %=% ";2*(PI*R**2)+2*PI*R*L
\n4070 PRINT ,,"% %V%O%L%U%M%E% %=% ";L*(PI*R**2)
\n4080 GOTO 9000
\n5000 PRINT ,,"% %W%H%A%T% %I%S% %T%H%E% %R%A%D%I%U%S% %O%F% %T%H%E% % % % % % % %S%P%H%E%R%E%?"
\n5010 SLOW
\n5020 INPUT R
\n5030 PRINT ,,"A SPHERE WITH A RADIUS OF"
\n5040 PRINT R;" UNITS :::"
\n5050 PRINT ,,"% %S%U%R%F%A%C%E% %A%R%E%A% %=% ";4*R**2*PI
\n5060 PRINT ,,"% %V%O%L%U%M%E% %=% ";(4*R**3*PI)/3
\n9000 PRINT AT 21,0;"% %P%R%E%S%S% %R%E%T%U%R%N% %T%O% %C%O%N%T%I%N%U%E% %:%:%:% "
\n9010 PAUSE 40000
\n9020 GOTO 100
\n9997 STOP
\n9998 SAVE "ARVOLFOR%M"
\n9999 GOTO 100
