1  REM PROGRAM DEVELOPED BY DICK PHILLIPS
5  PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
6  PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
10 PRINT "WING AREA/LOADING CALCULATION - USE DECIMAL FRACTIONS ONLY"
20 PRINT
40 PRINT
50 PRINT "ENTER WING TYPE:"
55 PRINT
56 PRINT
60 PRINT "TAPER WING MONOPLANE = 1"
65 PRINT
70 PRINT "TAPER WING BI-PLANE = 2"
75 PRINT
80 PRINT "CONSTANT CHORD MONOPLANE = 3"
85 PRINT
90 PRINT "CONSTANT CHORD BI-PLANE = 4"
95 PRINT
100 INPUT A:PRINT
110 IF A=1 THEN 170
120 IF A=2 THEN 260
130 IF A=3 THEN 560
140 IF A=4 THEN 650
150 IF A <=0 THEN 770
160 IF A >4 THEN 770
170 PRINT "ENTER WING SPAN IN INCHES":PRINT
180 INPUT S:PRINT
190 PRINT  "ENTER ROOT CHORD,TIP CHORD IN INCHES (XX,XX):PRINT
200 INPUT R,T:PRINT
210 PRINT "ENTER WEIGHT IN POUNDS":PRINT
220 INPUT W:PRINT
230 PRINT "WING AREA IS "(((R+T/2)*S)/144) "SQUARE FEET"
235 PRINT
240 PRINT "WING LOADING IS" (W*16)/((((R+T)/2)*S)/144) "OUNCES PER SQ.FOOT"
245 PRINT:PRINT:PRINT
250 IF (S+R+T+W)>0 THEN 780
260 PRINT "IS TAPER THE SAME IN BOTH WINGS? (0=YES, ANY NUMBER = NO)":PRINT
270 INPUT B:PRINT
280 IF B <> 0 THEN 430
320 PRINT "ENTER UPPER WINGSPAN IN INCHES":PRINT
330 INPUT S1:PRINT
340 PRINT "ENTER LOWER WINGSPAN IN INCHES":PRINT
350 INPUT S2:PRINT
360 PRINT "ENTER ROOT CHORD, TIP CHORD IN INCHES (XX, XX)":PRINT
370 INPUT C1,C2:PRINT
380 PRINT "ENTER WEIGHT IN POUNDS":PRINT
390 INPUT W1:PRINT
400 PRINT "WING AREA IS" (((C1+C2)/2)*(S1+S2))/144 "SQUARE FEET"
405 PRINT
410 PRINT "WING LOADING IS" (W1*16)/((((C1+C2)/2)*(S1+S2))/144) "OOUNCES/SQ.FOOT"
415 PRINT:PRINT:PRINT
420 IF (W1+C1+C2+S1+S2)>0 THEN 780
430 PRINT "ENTER UPPER WINGSPAN IN INCHES":PRINT
440 INPUT S3:PRINT
450 PRINT "ENTER UPPER WING ROOT CHORD, TIP CHORD IN INCHES (XX,XX)":PRINT
460 INPUT C3,C4:PRINT
470 PRINT "ENTER LOWER WINGSPAN IN INCHES":PRINT
480 INPUT S4:PRINT
490 PRINT "ENTER LOWER WING ROOT CHORD, TIP CHORD IN INCHES (XX,XX)":PRINT
500 INPUT C5,C6:PRINT
510 PRINT "ENTER WEIGHT IN POUNDS":PRINT
520 INPUT W2:PRINT
530 PRINT "WING AREA IS" ((((C3+C4)/2)*S3)+(((C5+C6)/2)*S4))/144 "SQUARE FEET"
535 PRINT
540 PRINT "WING LOADING IS" (W2*16)/(((((C3+C4)/2)*S3)+(((C5+C6)/2)*S4))144)
545 PRINT "OUNCES PER SQUARE FOOT"
546 PRINT:PRINT:PRINT
550 IF (W2+C5+C6+S4+C3+C4+S3)>0 THEN 780
560 PRINT "ENTER WINGSPANE IN INCHES":PRINT
570 INPUT S5:PRINT
580 PRINT "ENTER CHORD IN INCHES":PRINT
590 INPUT D:PRINT
600 PRINT "ENTER WEIGHT IN POUNDS":PRINT
610 INPUT W3:PRINT
620 PRINT "WING AREA IS" (D*S5)/144 "SQUARE FEET"
625 PRINT
630 PRINT "WING LOADING IS" (W3*16)/((D*S5)/144) "OUNCES PER SQUARE FOOT"
635 PRINT:PRINT:PRINT
640 IF (W3+D+S5)>0 THEN 780
650 PRINT "ENTER UPPER WINGSPAN IN INCHES":PRINT
660 INPUT S6:PRINT
670 PRINT "ENTER UPPER WING CHORD IN INCHES":PRINT
680 INPUT C7:PRINT
690 PRINT "ENTER LOWER WINGSPAN IN INCHES":PRINT
700 INPUT S7:PRINT
710 PRINT "ENTER LOWER WING CHORD IN INCHES":PRINT
720 INPUT C8:PRINT
730 PRINT "ENTER WEIGHT IN POUNDS":PRINT
740 INPUT W4:PRINT
750 PRINT "WING AREA IS" ((S6*C7)+(S7*C8))/144 "SQUARE FEET"
755 PRINT
760 PRINT "WING LOADING IS" (W4*16)/(((S6*C7)+(S7*C8))/144) "OUNCES PER SQUARE FOOT"
765 PRINT:PRINT:PRINT
766 IF (W4+C8+S7+C7+S6)>0 THEN 780
770 PRINT "NO, NO, DUMMY, 1-2-3 OR 4, NOT " A ", STUPID!"
771 PRINT "_____________________________________________"
772 GOTO 50
780 END