Listing of file='BOXSIZ.BAS;01' on disk='vmedia/ncc_18-sector.ccvf'
5 REM -BOXSIZ-BY LOU HOFMEISTER,SEPT.,1980 10 PLOT 12,19,14,9 15 PRINT "MEASURING A RECTANGULAR PRISM(BOX)" 18 PLOT 15 30 PLOT 20,2,85,87,242,105,87,105,60,85,60,85,87,255 40 PLOT 19,2,87,91,242,98,102,118,102,107,91,87,91,255 50 PLOT 17,2,109,88,242,120,99,120,72,109,61,109,88,255 60 PLOT 18,3,45,18,87,73,68,84,72 70 PLOT 23,3,39,13,72,69,73,71,72,84 80 PLOT 21,3,56,15,68,69,80,84,72 90 PLOT 22,3,1,3 95 PRINT "---GIVE NUMBERS FOR THE THREE DIMENSIONS" 96 PRINT "SHOWN--AND THEIR COMMON UNIT OF MEASUREMENT," 97 PRINT "AND THE COMPUTOR WILL THEN CALCULATE SEVERAL" 98 PRINT "USEFUL PARAMETERS." 99 PRINT " " 100 INPUT "FIRST-ENTER FEET,METERS,ETC. : ";W$:PRINT 111 PRINT "NEXT-ENTER VALUES AS CALLED. IF ONE" 112 PRINT "IS UNKNOWN, TYPE 0, AND GIVE VOLUME" 113 PRINT "INSTEAD PER REQUEST. MINUSES IGNORED.":PRINT 115 FOR K= 1TO 200:NEXT K 120 INPUT "TYPE ( H ), THE HEIGHT : ";Z 125 INPUT "TYPE ( W ), THE WIDTH : ";X 130 INPUT "TYPE ( D ), THE DEPTH : ";Y 140 IF Z= 0THEN 160 141 Z= ABS (Z) 145 IF X= 0THEN 170 146 X= ABS (X) 150 IF Y= 0THEN 180 151 Y= ABS (Y) 155 GOTO 190 160 INPUT "ENTER NUMBER FOR VOLUME : ";V:PRINT 165 Z= V/ (X* Y):PRINT "HEIGHT="Z" "W$:GOTO 200 170 INPUT "ENTER NUMBER FOR VOLUME : ";V:PRINT 175 X= V/ (Z* Y):PRINT "WIDTH="X" "W$:GOTO 200 180 INPUT "ENTER NUMBER FOR VOLUME : ";V:PRINT 185 Y= V/ (X* Z):PRINT "DEPTH="Y" "W$:GOTO 200 190 V= X* Y* Z:PRINT "THE VOLUME IS "V" CUBIC "W$ 200 A= X* Z:PRINT "AREA OF FRONT OR REAR FACE IS "A" SQUARE "W$ 220 B= Y* Z:PRINT "AREA OF EITHER SIDE IS "B" SQUARE "W$ 240 C= X* Y:PRINT "AREA OF TOP OR BOTTOM IS "C" SQUARE "W$ 260 T= 2* (A+ B+ C):PRINT "TOTAL SURFACE AREA IS "T" SQUARE "W$ 300 D= SQR (X^ 2+ Z^ 2):PRINT "DIAGONAL ACROSS FRONT="D" "W$ 320 E= SQR (Y^ 2+ Z^ 2):PRINT "DIAGONAL OVER SIDE="E" "W$ 340 F= SQR (X^ 2+ Y^ 2):PRINT "DIAGONAL ON TOP/BOTTOM="F" "W$ 360 G= SQR (E^ 2+ X^ 2):PRINT "DIAGONAL THROUGH CENTER="G" "W$ 375 FOR J= 1TO 500:NEXT J 380 PRINT :PRINT "TYPE 8 TO DO IT AGAIN. TYPE 9 FOR OTHER 'AREAS AND VOLUMES' " 390 INPUT "OR HIT RETURN FOR REGULAR MENU ";A$ 395 IF A$= "8"THEN 10 400 IF A$= "9"THEN LOAD "GEOSIZ":RUN 410 LOAD "MENU":RUN 425 END