10 LPRINT "M300,200":LPRINT "D1500,200,1500,1600,300,1600,300,200":LPRINT "M400,200":LPRINT "D400,1600":X=500:FOR I=1 TO 5:LPRINT "M"X;",1600":LPRINT "D"X;",200":LPRINT "M"X+100;",200":LPRINT "D"X+100;",1600":X=X+200:NEXT I
30 Y=240:FOR I = 1 TO 17:LPRINT "M1500,";Y:LPRINT "D300,";Y:Y=Y+40:LPRINT "M300,";Y:LPRINT "D1500,";Y:Y=Y+40:NEXT I
40 LPRINT "M1500,465":LPRINT "D300,1460":LPRINT "M300,1216":LPRINT "D1500,292"
50 LPRINT "S3":LPRINT "Q3":Y=160:FOR I=1 TO 8:LPRINT "M1530,";Y:LPRINT "P";20+5*I:Y=Y+200:NEXT I
60 X=310:FOR I=1 TO 13:LPRINT "M"X;",100":LPRINT "P";1300-50*I:X=X+100:NEXT I
100 LPRINT "M867,880":LPRINT "S4":LPRINT "N2":LPRINT "D1032,736":LPRINT "N2":LPRINT "D1081,736":LPRINT "N2":LPRINT "M741,1032":LPRINT "N3":LPRINT "D906,888":LPRINT "N3":LPRINT "D955,888":LPRINT "N3"
110 LPRINT "M434,1432":LPRINT "N4"
120 LPRINT "Q3":LPRINT "M1800,400":LPRINT "N2":LPRINT "P 170# pilot, with and without gas":LPRINT "M1900,400":LPRINT "N3":LPRINT "P Shapley":LPRINT "M2000,400":LPRINT "N4":LPRINT "P Two pilots":LPRINT "M1650,600":LPRINT "S6":LPRINT "PIndex Units"
121 LPRINT "Q2":LPRINT "M1100,50":LPRINT "PWeight"
150 LPRINT "Q3":LPRINT "S8":LPRINT "M150,400":LPRINT "PShapley's Q-200"
160 LPRINT "S3":LPRINT "M2500,1200":LPRINT "PC E Dills  11/27/87"
199 LPRINT "H"
200 FOR I=1 TO 100
201 INPUT "wt, index";W,I
202 PRINT 2800-2*W
203 PRINT 40*I-800
204 NEXT I
1183 ,55.8
