10  REM**IATA.C**CALCULATES BREAKPOINT OF IATA CONTAINERS**REV.19SEP3
20  DIM A$[3],C$[3],D$[3],S$[5],X$[6],Y$[3]
30  PRINT "INSTRUCTIONS";
40  INPUT Y$
50  IF Y$[1,1]="N" THEN 150
60  PRINT "THIS PROGRAM HELPS ANY POTENTIAL USER OF IATA CONTAINERS"
70  PRINT "TO EVALUATE HIS OWN BREAKPOINT WEIGHT AND VOLUME FOR HIS"
80  PRINT "PARTICULAR COMMODITY. THE BREAKPOINT WEIGHTS AND VOLUME"
90  PRINT "DERIVED UNDER THE COLUMN HEADED -REVISED- INDICATE THE POINT"
100  PRINT "AT WHICH THE SHIPPER WILL GAIN NO ADVANTAGE (EXCEPT BETTER"
110  PRINT "SECURITY AND LIGHTER PACKAGING) IN UTILIZING A GIVEN"
120  PRINT "CONTAINER,ASSUMING IT WOULD COST THE USER NOTHING"
130  PRINT "ADDITIONAL TO HANDLE,LOAD AND UNLOAD THE CONTAINER."
140  PRINT "ENTER YOUR DATA AS REQUIRED:"
150  PRINT "US OR METRIC";
160  INPUT X$
170  IF X$[1,1]="U" THEN 200
180  IF X$[1,1]="M" THEN 200
190  GOTO 150
200  PRINT "ORIGIN AIRPORT";
210  INPUT A$
220  PRINT "DESTINATION AIRPORT";
230  INPUT D$
240  PRINT "CONTAINER #";
250  INPUT C$
260  PRINT "CONTAINER VOLUME=";
270  INPUT V
280  PRINT "MINIMUM WEIGHT=";
290  INPUT W
300  PRINT "MINIMUM CHARGE=$";
310  INPUT M
320  PRINT "SPECIFIC COMMODITY";
330  INPUT S$
340  PRINT "SPECIFIC COMMODITY RATE";
350  INPUT R
360  PRINT '10'10"                    ANALYSIS OF BREAKEVEN POINT"
370  PRINT "                  FOR UTILIZING CONTAINERS VERSUS"
380  PRINT "                     SPECIFIC COMMODITY RATES"
390  PRINT  USING 400;A$,D$
400  IMAGE 26X,"FROM",X,3A,X,"TO",X,3A
410  PRINT  USING 420;C$
420  IMAGE 22X,"FOR IATA CONTAINER #",3A
430  PRINT '10"                 STANDARD                REVISED"'10
440  IF X$[1,1]="M" THEN 560
450  PRINT  USING 460;V,V
460  IMAGE"VOLUME(CU.FT.)",6X,4D,19X,4D/
470  PRINT  USING 480;M,M
480  IMAGE"MINIMUM CHARGE",5X,"$",4D.2D,15X,"$",4D.2D/
490  PRINT  USING 500;W,M/R
500  IMAGE"MINIMUM WGT(LBS)",4X,5D,18X,5D/
510  PRINT  USING 520;M/W,R,S$
520  IMAGE"$/LB RATE",9X,"$",D.2D,18X,"$",D.2D,2X,"(",5A,")"/
530  PRINT  USING 540;W/V,(M/R)/V
540  IMAGE"LBS/CU.FT.",10X,2D.2D,18X,2D.2D/////
550  GOTO 660
560  PRINT  USING 570;V,V
570  IMAGE"VOLUME(CU. M)",8X,2D.2D,18X,2D.2D/
580  PRINT  USING 590;M,M
590  IMAGE"MINIMUM CHARGE",5X,"$",4D.2D,15X,"$",4D.2D/
600  PRINT  USING 610;W,M/R
610  IMAGE"MINIMUM WGT[KGS]",4X,5D,18X,5D/
620  PRINT  USING 630;M/W,R,S$
630  IMAGE"$/KG RATE",9X,"$",D.2D,18X,"$",D.2D,2X,"(",5A,")"/
640  PRINT  USING 650;W/V,(M/R)/V
650  IMAGE"KGS/CU. M",12X,3D,20X,3D/////
660  PRINT "MORE";
670  INPUT Y$
680  IF Y$[1,1]="Y" THEN 150
690  END 
