10 CLS
20 INPUT "Which printer (410)";P
30 IF P=410 THEN 60
40 DIM D$(60),C$(80)
50 LPRINT CHR$(27);CHR$(23):LPRINT CHR$(27);CHR$(14)
60 LPRINT  "              -ORION AIR-":LPRINT:LPRINT "          S L O County Airport":LPRINT "           San Luis Obispo, CA"
65 IF P=410 THEN 80
70 LPRINT CHR$(27);CHR$(15):LPRINT:LPRINT
80 INPUT "date";D$
90 LPRINT "               ******************"
100 LPRINT "               WEIGHT AND BALANCE                       ";D$
110 LPRINT "               ******************                 Supercedes all previous wt/bal"
120 INPUT "NOSE(1) OR TAIL WHEEL(2)";Z
130 INPUT "AIRCRAFT IDENTIFICATION";C$
140 LPRINT "               ";C$
145 INPUT "again(no)";D$
146 IF D$="no" THEN 150
147 GOTO 130
150 INPUT "OWNER";C$
160 LPRINT "               OWNER:  ";C$
170 INPUT "again (no)";D$
180 IF D$ = "no" THEN 190
182 INPUT "OWNER";C$:LPRINT "                       ";C$
184 INPUT "AGAIN (no)";D$: IF D$ <> "no" THEN 182
190 LPRINT
200 LPRINT "                AIRCRAFT SPECIFICATIONS"
210 INPUT "GIVE LEVEL POINT";D$
220 LPRINT "                    LEVEL AT ";D$
230 INPUT "GIVE DATUM";D$
240 LPRINT "                    DATUM IS AT ";D$
250 INPUT "GIVE DISTANCE TO MAIN WHEELS ";D1
260 LPRINT "                    DISTANCE TO MAIN WHEELS IS . . . . .";D1;" INCHES"
270 IF Z=1 THEN 330
280 INPUT "GIVE DISTANCE TO TAILWHEEL";D2
290 LPRINT "                             TO TAIL WHEEL IS. . . . . .";D2;" INCHES"
300 D9=D2-D1
310 LPRINT "                             FROM MAIN TO TAIL WHEEL IS ";D9;" INCHES"
320 GOTO 380
330 INPUT "GIVE DISTANCE TO NOSEWHEEL";D3
340 LPRINT "                             TO NOSE WHEEL IS. . . . . .";D3;" INCHES"
350 D9=D1-D3
360 LPRINT "                             FROM NOSE TO MAIN WHEELS IS ";D9;" INCHES"
370 IF Z=1 THEN 400
380 INPUT "GIVE R, L AND T WEIGHTS";R,L,T
390 GOTO 410
400 INPUT "GIVE R, L AND N WEIGHTS";R,L,T
410 INPUT "QTS OF OIL AND GAL OF GAS";O5,G5
420 LPRINT "                    CONDITION OF AIRCRAFT: ";O5;"  QTS OIL & ";G5;" GALS GAS"
430 P0=R+L+T-O5*2-G5*6
440 LPRINT "                    EMPTY WEIGHT IS ";P0;" POUNDS"
450 INPUT "GIVE PREVIOUS EMPTY WEIGHT";D8
460 LPRINT "                    PREVIOUS EMPTY WEIGHT WAS ";D8;" POUNDS"
470 INPUT "MAXIMUM WEIGHT IS";D7
480 LPRINT "                    MAXIMUM WEIGHT IS ";D7;" POUNDS"
490 INPUT "MEAN AERODYNAMIC CHORD IS ";D6
500 LPRINT "                    MEAN AERODYNAMIC CHORD IS ";D6;" INCHES"
510 INPUT "GIVE MOMENTS (G,O,PI,PA,B)";G1,O1,L4,S1,B1
520 INPUT "GIVE WEIGHTS (G,O,PI,PA,B)";G2,O2,L2,S2,B2
530 T9=(D1-O1)*O5*2/D9
540 T1=T+T9
550 R1=R-(O5*2+T9)/2
560 L1=L-(O5*2+T9)/2
570 R9=(D1-G1)*G5*6/D9
580 T1=T1+R9
590 R1=R1-(G5*6+R9)/2
600 L1=L1-(G5*6+R9)/2
610 IF Z=1 THEN 640
620 P1=(D1*(R1+L1)+D2*T1)/P0
630 GOTO 650
640 P1=(D1*(R1+L1)+D3*T1)/P0
650 LPRINT USING "                                   EMPTY WEIGHT C.G. IS               #####.# INCHES";P1
660 LPRINT
670 LPRINT "               WEIGHING:"
680 IF Z=1 THEN 710
690 LPRINT "                     RIGHT      LEFT        TAIL       TOTAL"
700 GOTO 720
710 LPRINT "                     RIGHT      LEFT        NOSE       TOTAL"
720 LPRINT USING "                    ####.#     ####.#     ####.#     #####.#";R,L,T,R+L+T
730 LPRINT USING "                    ####.#     ####.#     ####.#     #####.# CORRECTED FOR GAS AND OIL";R1,L1,T1,P0
740 LPRINT
750 LPRINT
760 LPRINT "               MOMENT ARMS AND WEIGHTS"
770 LPRINT
780 LPRINT "                                PLANE     GAS     OIL   PILOT   PASS.  BAGGAGE"
790 P3=P1*P0/1000
800 G3=G1*G2/1000
810 O3=O1*O2/1000
820 L3=L4*L2/1000
830 S3=S1*S2/1000
840 B3=B1*B2/1000
850 LPRINT USING "                    ARM        ####.#  ####.#  ####.#  ####.#  ####.#  ####.#";P1,G1,O1,L4,S1,B1
860 LPRINT USING "                    WEIGHTS    ####.#  ####.#  ####.#  ####.#  ####.#  ####.#";P0,G2,O2,L2,S2,B2
870 LPRINT USING "                   INDEX UNITS ####.#  ####.#  ####.#  ####.#  ####.#  ####.#";P3,G3,O3,L3,S3,B3
880 LPRINT
890 LPRINT
900 LPRINT "               SPECIAL COMMENTS:"
910 INPUT "SPECIAL COMMENTS (none)";C$
920 IF C$="NONE" THEN 970
930 IF C$="none" THEN 970
940 IF C$="no" THEN 970
950 LPRINT "                    ";C$
960 GOTO 910
970 INPUT "SAMPLE LOADINGS (NO)";D$
980 IF D$="NO" THEN 1360
990 LPRINT "                ********************************************************************************"
1000 LPRINT
1010 LPRINT "               SAMPLE LOADINGS:"
1020 LPRINT "                             PLANE     GAS     OIL   PILOT   PASS.   BAGG.    TOTAL"
1030 LPRINT
1040 INPUT "CONDITION";C$
1050 LPRINT "               ";C$
1060 INPUT "GIVE WTS (G,PI,PASS,BAGG)";G2,L2,S2,B2
1070 P3=P0*P1/1000
1080 G3=G2*G1/1000
1090 O3=O2*O1/1000
1100 L3=L2*L4/1000
1110 S3=S2*S1/1000
1120 B3=B2*B1/1000
1130 T7=P0+G2+O2+L2+S2+B2
1140 LPRINT USING "               WEIGHTS      ####.#  ####.#  ####.#  ####.#  ####.#  ####.#  #####.#";P0,G2,O2,L2,S2,B2,T7
1150 T8=P3+G3+O3+L3+S3+B3
1160 LPRINT USING "               INDEX UNITS  ####.#  ####.#  ####.#  ####.#  ####.#  ####.#  #####.#";P3,G3,O3,L3,S3,B3,T8
1170 LPRINT USING "                                           C.G. AT ####.# INCHES";T8/T7*1000
1180 LPRINT
1190 INPUT "AGAIN";C$
1200 IF C$="NO" THEN 1220
1210 GOTO 1040
1220 END
