10  REM**IATATA**ANALYSIS OF IATA AND ATA UNITIZATION PROGRAMMES.
20  FILES IATAID,CONTNR
30  DIM A$[3],C$[7],D$[3],E$[5],F$[7],I$[5],J$[3],X$[4],Y$[3],Z$[3]
40  DIM W$[8]
50  PRINT "WOULD YOU LIKE A CONTAINER SUMMARY";
60  INPUT Y$
70  GOTO 100
80  Y$[1,1]="N"
90  Z$[1,1]="Y"
100  READ #1,1
110  READ #2,1
120  IF Y$[1,1]="N" THEN 370
130  PRINT LIN(2);SPA(22);"SUMMARY OF UNIT LOAD DEVICES";LIN(2);SPA(15);
140  PRINT "IATA";SPA(31);"ATA(US)";LIN(2);SPA(7);"MIN";SPA(21);"MAX";
150  PRINT SPA(17);"MIN";SPA(13);"MAX";LIN(1);"IATA";SPA(3);"CHARG";
160  PRINT SPA(3);"TARE";SPA(2);"EXT";SPA(6);"GROSS";SPA(5);"ATA";
170  PRINT SPA(7);"CHRG";SPA(5);"TARE";SPA(3);"GROSS";LIN(1);SPA(1);
180  PRINT "ID";SPA(4);"WGT";SPA(10);"VOLUME";SPA(5);"WGT";SPA(7);
190  PRINT "ID";SPA(8);"WGT";SPA(13);"WGT"
200  GOSUB 1890
210  FOR I=1 TO 42
220  READ #1;I$,M,T,V,D,M3,E$,M1,T1,M4
230  IF  END #1 THEN 1920
240  PRINT  USING 250;I$,M,T,V,M3,E$,M1,T1,M4
250  IMAGE 5A,2X,5D,2X,4D,2X,4D.D,4X,5D,5X,5A,4X,5D,5X,4D,3X,5D
260  NEXT I
270  GOSUB 1890
280  PRINT "NOTE:0 IN MINIMUM CHARGEABLE WEIGHT COLUMN INDICATES PIVOT";
290  PRINT " WEIGHT VARIES";LIN(1);"BY TARIFF CONFERENCE(OR ORIGIN-DES";
300  PRINT "TINATION COMBINATIONS). ZEROES IN";LIN(1);"VARIOUS OTHER";
310  PRINT " FIELDS MEANS DATA NOT AVAILABLE OR NOT APPLICABLE. COJ"
320  PRINT "AND COS CONTAINERS ARE FURTHER BROKEN DOWN INTO IATA REGIS";
330  PRINT "TRATION";LIN(1);"NUMBERS FOR VARIATION OF THESE TWO ";
340  PRINT "CATEGORIES. IF YOU ARE GOING TO WORK";LIN(1);"WITH THESE ";
350  PRINT "TYPES, MAKE SURE YOU ENTER THE CORRECT REGISTRATION NUMBER"
360  PRINT "(I.E. DSC-221).";LIN(3)
370  PRINT "IATA OR ATA";
380  INPUT X$
390  IF X$[1,1]="I" THEN 430
400  IF X$[1,1]="A" THEN 2460
410  GOTO 370
420  REM**IATA SECTION.
430  X$="IATA"
440  PRINT "CONTAINER OR REGISTRATION NUMBER";
450  INPUT C$
460  IF C$[1,1]="D" THEN 530
470  IF C$[1,1]="S" THEN 530
480  READ #1,1
490  IF  END #1 THEN 1920
500  READ #1;I$,M,T,V,D,M3,E$,M1,T1,M4
510  IF C$=I$ THEN 630
520  GOTO 500
530  READ #2,1
540  IF  END #2 THEN 1920
550  READ #2;J$,F$,M2
560  IF C$=F$ THEN 580
580  READ #1,1
590  IF  END #1 THEN 1920
600  READ #1;I$,M,T,V,D,M3,E$,M1,T1,M4
610  IF J$=I$ THEN 680
620  GOTO 600
630  PRINT "ELIGIBLE FOR SHIPPER OWNED CONTAINER DISCOUNT";
640  INPUT Z$
650  IF Z$[1,1]="N" THEN 670
660  GOTO 680
670  D=0
680  GOSUB 700
690  GOTO 800
700  IF M#0 THEN 730
710  PRINT "MINIMUM CHARGEABLE NET WEIGHT";
720  INPUT M
730  PRINT "ACTUAL TARE WEIGHT OF CONTAINER";
740  INPUT T2
750  IF T#0 THEN 770
760  T=T2
770  T3=T MIN T2
780  T4=T MAX T2
790  RETURN 
800  GOSUB 820
810  GOTO 920
820  W=0
830  PRINT "HOW MANY COMMODITIES";
840  INPUT N
850  FOR I=1 TO N
860  PRINT  USING 870;I
870  IMAGE#,"WGT ",2D,"="
880  INPUT W[I]
890  W=W[I]+W
900  NEXT I
910  RETURN 
920  IF C$[1,1]="D" THEN 950
930  IF C$[1,1]="S" THEN 950
940  GOTO 970
950  IF (W+T4)>M2 THEN 990
960  GOTO 1070
970  IF (W+T4)>M3 THEN 1020
980  GOTO 1070
990  PRINT  USING 1040;M2
1000  PRINT  USING 1050;W+T4-M2
1010  GOTO 800
1020  PRINT  USING 1040;M3
1030  PRINT  USING 1050;W+T4-M3
1040  IMAGE#,"MAXIMUM GROSS WEIGHT OF ",2DX3D," LBS EXCEEDED. REMOVE"
1050  IMAGE 2DX3D," LBS."/
1060  GOTO 800
1070  IF C$[1,1]="D" THEN 1110
1080  IF C$[1,1]="S" THEN 1110
1090  IF C$[1,1]="C" THEN 1110
1100  GOTO 1130
1110  PRINT "CONTAINER COST";
1120  INPUT O
1130  GOSUB 1150
1140  GOTO 1300
1150  S=0
1160  FOR I=1 TO N
1170  PRINT  USING 1180;I
1180  IMAGE#,"RATE ",2D,"="
1190  INPUT R[I]
1200  S=(R[I]*W[I])+S
1210  NEXT I
1220  A=A1=R[1]
1230  FOR I=2 TO N
1240  IF R[I] <= A THEN 1260
1250  A=R[I]
1260  IF R[I] >= A1 THEN 1280
1270  A1=R[I]
1280  NEXT I
1290  RETURN 
1300  S1=S
1310  PRINT "ORIGIN AIRPORT";
1320  INPUT A$
1330  PRINT "DESTINATION AIRPORT";
1340  INPUT D$
1350  IF Z$[1,1]="N" THEN 1940
1360  IF C$[1,1]="D" THEN 1390
1370  IF C$[1,1]="S" THEN 1390
1380  IF C$[1,1]#"C" THEN 1940
1390  W1=W+T2
1400  W2=W1-T3
1410  REM**TEST FOR MINIMUM CHARGEABLE WGT AND COSTING OF EXCESS TARE.
1420  S=(T2*A)+S
1430  IF W1 >= M THEN 1470
1440  T6=M-W1
1450  S=(T6*A1)+S
1460  REM**TEST FOR IATA 10% RULE.
1470  IF D<.1*S THEN 1510
1480  D1=(.1*S)*10
1490  D2=INT(D1)
1500  D=D2/10
1510  PRINT LIN(3)
1520  PRINT  USING 1530;X$
1530  IMAGE 15X,"ANALYSIS OF SHIPPING IN SHIPPER OWNED ",4A
1540  PRINT  USING 1550
1550  IMAGE 20X,"CONTAINERS VS. NORMAL PACKAGING"
1560  PRINT  USING 1570;A$,D$
1570  IMAGE 28X,"FROM ",3A," TO ",3A
1580  PRINT  USING 1590;C$
1590  IMAGE 25X,"USING ",7A," CONTAINER"/
1600  W3=W1 MAX W2
1610  PRINT  USING 1620;W3,S
1620  IMAGE 10X,"GROSS COST OF SHIPMENT OF ",4D," LBS ",4X,"$",4D.2D
1630  PRINT  USING 1640;O
1640  IMAGE 10X,"PLUS CONTAINER COST",22X,3D.2D
1650  PRINT  USING 1660;-D
1660  IMAGE 10X,"LESS CONTAINER REBATE",20X,3D.2D
1670  W4=W1-M
1680  IF W4 <= 0 THEN 1730
1690  IF W4<T THEN 1710
1700  W4=T
1710  C1=(W4*A)
1720  GOTO 1740
1730  C1=0
1740  PRINT  USING 1750;-C1
1750  IMAGE 10X,"LESS TARE WEIGHT ALLOWANCE",14X,4D.2D
1760  PRINT  USING 1770;S+O-D-C1
1770  IMAGE 10X,"NET COST OF SHIPMENT",20X,4D.2D/
1780  PRINT  USING 1790;S1
1790  IMAGE 10X,"COST IF NET CONTENTS ARE SHIPPED LOOSE",2X,4D.2D
1800  PRINT  USING 1810;X$
1810  IMAGE 10X,"COST IF SHIPPED IN NON-",4A," CONTAINER"
1820  PRINT  USING 1830;S1+(T2*A1)
1830  IMAGE 10X,"OF EQUAL TARE WEIGHT",20X,4D.2D/////
1840  PRINT "MORE";
1850  INPUT Y$
1860  IF Y$[1,1]="Y" THEN 80
1870  IF Y$[1,1]="N" THEN 4000
1880  GOTO 4000
1890  PRINT "---------------------------------------------------------";
1900  PRINT "---------------"
1910  RETURN 
1920  PRINT "DATA NOT ON FILE."
1930  GOTO 80
1940  PRINT "CONTAINER CHARGE";
1950  INPUT C2
1960  IF W <= M THEN 2170
1970  PRINT "SECOND PIVOT WEIGHT";
1980  INPUT W9
1990  IF W9>M THEN 2010
2000  W9=0
2010  IF W <= M THEN 2170
2020  PRINT "FIRST OVER PIVOT RATE=";
2030  INPUT R1
2040  IF W9=0 OR W<W9 THEN 2060
2050  GOTO 2080
2060  W8=W-M
2070  GOTO 2090
2080  W8=W9-M
2090  IF W9#0 AND W>W9 THEN 2110
2100  GOTO 2150
2110  PRINT "SECOND OVER PIVOT RATE=";
2120  INPUT R2
2130  W7=W-W9
2140  GOTO 2180
2150  R2=W7=0
2160  GOTO 2180
2170  R1=W9=R2=W8=0
2180  E9=R1*W8+R2*W7
2190  PRINT LIN(3)
2200  PRINT  USING 2210;X$
2210  IMAGE 15X,"ANALYSIS OF SHIPPING IN AIRLINE OWNED ",4A
2220  PRINT  USING 2230
2230  IMAGE 17X,"CONTAINER VS. SPECIFIC COMMODITY RATES"
2240  PRINT  USING 1570;A$,D$
2250  PRINT  USING 1590;C$
2260  PRINT  USING 2270;M,C2
2270  IMAGE 10X,"MINIMUM CHARGEABLE WEIGHT OF",X,5D,X,"LBS",2X,"$",5D.2D
2280  IF W <= M THEN 2300
2290  PRINT  USING 2300;W-M,E9
2300  IMAGE 10X,"PLUS EXCESS OF",15X,5D,X,"LBS",3X,5D.2D
2310  IF C$[1,1]#"C" THEN 2350
2320  PRINT  USING 2330;O
2330  IMAGE 10X,"PLUS CONTAINER COST",23X,4D.2D
2340  GOTO 2390
2350  LET O=0
2360  IF Z$[1,1]="N" THEN 2390
2370  PRINT  USING 2380;-D
2380  IMAGE 10X,"LESS CONTAINER DISCOUNT",20X,3D.2D
2390  PRINT  USING 2400;C2+E9+O-D
2400  IMAGE 10X,"TOTAL CONTAINER COST",20X,"$",5D.2D/
2410  PRINT  USING 2420;S
2420  IMAGE 10X,"COST IF NET CONTENTS ARE SHIPPED LOOSE",2X,"$",5D.2D
2430  PRINT  USING 2440;S-(C2+E9+O-D)
2440  IMAGE 10X,"SAVINGS OR LOSS(-)",22X,"$",5D.2D/////
2450  GOTO 1840
2460  REM**ATA SECTION.
2470  X$="ATA"
2480  PRINT "CONTAINER NUMBER";
2490  INPUT C$
2500  READ #1,1
2510  IF  END #1 THEN 1920
2520  READ #1;I$,M,T,V,D,M3,E$,M1,T1,M4
2530  IF C$=E$ THEN 2550
2540  GOTO 2520
2550  M=M1
2560  T=T1
2570  GOSUB 700
2580  GOSUB 820
2590  IF (W+T4)>M4 THEN 2610
2600  GOTO 2640
2610  PRINT  USING 1040;M4
2620  PRINT  USING 1050;W+T4-M4
2630  GOSUB 820
2640  IF C$[1,1]="B" THEN 2700
2650  IF C$[1,1]="D" THEN 2700
2660  IF C$[1,1]="E" THEN 2700
2670  IF C$[1,1]="Q" THEN 2700
2680  IF C$="LD-N" THEN 2700
2690  GOTO 2730
2700  PRINT "CONTAINER COST";
2710  INPUT O
2720  GOTO 2740
2730  O=0
2740  IF C$[1,1]="Q" THEN 2810
2750  IF C$[1,1]="E" THEN 2810
2760  IF N<2 THEN 2810
2770  PRINT "USING THE MIXED SHIPMENT RULE (RULE 12,C.A.B.131),YOU";
2780  PRINT " MAY INPUT RATES"
2790  PRINT  USING 2800;W
2800  IMAGE "EQUAL TO ",5D," LBS FOR EACH COMMODITY IN THE CONTAINER."
2810  GOSUB 1150
2820  PRINT "ORIGIN AIRPORT";
2830  INPUT A$
2840  PRINT "DESTINATION AIRPORT";
2850  INPUT D$
2860  IF C$[1,1]="E" THEN 2900
2870  IF C$[1,1]="Q" THEN 2900
2880  GOTO 3260
2890  REM**SETTING US OR CANADIAN MINIMUM CHARGE.
2900  IF A$[1,1]="Y" THEN 2930
2910  IF D$[1,1]="Y" THEN 2930
2920  GOTO 2960
2930  IF A$[1,1]=D$[1,1] THEN 2960
2940  E=15
2950  GOTO 2970
2960  E=10
2970  PRINT "GENERAL CARGO RATE";
2980  INPUT R2
2990  IF C$[1,1]="E" THEN 3020
3000  M6=126
3010  GOTO 3030
3020  M6=164
3030  IF (W+T2)<M6 THEN 3070
3040  M7=INT(.1*(W+T2-T))
3050  W1=(W-M7)
3060  GOTO 3110
3070  IF C$[1,1]="E" THEN 3100
3080  W1=100
3090  GOTO 3110
3100  W1=130
3110  C2=W1*R2
3120  IF C2 >= E THEN 3140
3130  C2=E
3140  PRINT LIN(3)
3150  PRINT  USING 1530;X$
3160  PRINT  USING 1550
3170  PRINT  USING 1570;A$,D$
3180  PRINT  USING 1590;C$
3190  PRINT  USING 1620;W1,C2
3200  PRINT  USING 1640;O
3210  PRINT  USING 1770;C2+O
3220  PRINT  USING 1790;S
3230  PRINT  USING 1810;X$
3240  PRINT  USING 1830;S+(T2*A1)
3250  GOTO 1840
3260  PRINT "DAYLIGHT OR REGULAR";
3270  INPUT W$
3280  PRINT "CONTAINER CHARGE";
3290  INPUT C2
3300  IF W <= M THEN 3350
3310  IF W$[1,1]="D" THEN 3350
3320  PRINT "RATE/LB FOR EXCESS ABOVE PIVOT";
3330  INPUT R1
3340  GOTO 3360
3350  R1=0
3360  IF C$[1,1]="B" THEN 3400
3370  IF C$[1,1]="D" THEN 3400
3380  IF C$="LD-N" THEN 3400
3390  GOTO 3420
3400  IF T2 <= T THEN 3420
3410  D=A1*(T2-T)
3420  IF N<2 THEN 3550
3430  IF C$="B" THEN 3490
3440  IF C$="B-2" THEN 3510
3450  IF C$="D" THEN 3530
3460  IF C$="LD-N" THEN 3510
3470  D9=.01
3480  GOTO 3560
3490  D9=.0075
3500  GOTO 3560
3510  D9=.0045
3520  GOTO 3560
3530  D9=.0035
3540  GOTO 3560
3550  D9=0
3560  IF C$[1,1]="B" THEN 3600
3570  IF C$[1,1]="D" THEN 3600
3580  IF C$="LD-N" THEN 3600
3590  GOTO 3650
3600  IF T2=T THEN 3650
3610  IF T2>T THEN 3660
3620  D=0
3630  D6=A1*(T-T2)
3640  GOTO 3670
3650  D=0
3660  D6=0
3670  PRINT LIN(3)
3680  IF C$[1,1]="B" THEN 3720
3690  IF C$[1,1]="D" THEN 3720
3700  IF C$="LD-N" THEN 3720
3710  GOTO 3740
3720  PRINT  USING 1530;X$
3730  GOTO 3750
3740  PRINT  USING 2210;X$
3750  PRINT  USING 2230
3760  PRINT  USING 1570;A$,D$
3770  PRINT  USING 1590;C$
3780  PRINT  USING 2270;M,C2
3790  IF R1=0 THEN 3810
3800  PRINT  USING 2300;W-M,(W-M)*R1
3810  IF O=0 THEN 3900
3820  PRINT  USING 2330;O
3830  IF D6>0 THEN 3880
3840  IF D=0 THEN 3900
3850  PRINT  USING 3860;D
3860  IMAGE 10X,"PLUS EXCESS TARE CHARGE",17X,"$",5D.2D
3870  GOTO 3900
3880  PRINT  USING 3890;-D6
3890  IMAGE 10X,"LESS UNDER TARE WEIGHT DISCOUNT",7X,"$",5D.2D
3900  PRINT  USING 2400;C2+((W-M)*R1)+O+D-D6
3910  IF N>1 THEN 3940
3920  PRINT  USING 2420;S
3930  GOTO 3980
3940  PRINT  USING 3950;S-(D9*W)-D6+O+D
3950  IMAGE 10X,"MIXED SHIPMENT RULE COST",16X,"$",5D.2D
3960  PRINT  USING 2440;(S-(D9*W))-(C2+((W-M)*R1))
3970  GOTO 3990
3980  PRINT  USING 2440;S-(C2+((W-M)*R1)+O+D-D6)
3990  GOTO 1840
4000  END 
