1 LPRINT "L0"
5 CLEAR 3000
6 DATA 4,83.4,2141.5,67.5,1811.5
7 DATA 5,89.5,2311.5,73.6,1981.5
8 DATA 0,124.7,2771.5,108.8,2441.5
10 LPRINT "M400,1400":LPRINT "D400,400,1800,400,1800,1400,400,1400"
20 LPRINT "M400,1350":LPRINT "D1800,1350,1800,1250,400,1250,400,1150,1800,1150,1800,1050,400,1050,400,950,1800,950,1800,850,400,850,400,750,1800,750,1800,650,400,650,400,550,1800,550,1800,450,400,450"
30 LPRINT "M500,400":LPRINT "D500,1400,600,1400,600,400,700,400,700,1400,800,1400,800,400,900,400,900,1400,1000,1400,1000,400,1100,400,1100,1400,1200,1400,1200,400,1300,400,1300,1400,1400,1400,1400,400,1500,400,1500,1400,1600,1400,1600,400"
40 LPRINT "D1700,400,1700,1400"
50 LPRINT "M600,450":LPRINT "D840,800,1430,1300,1730,1300,960,450"
100 LPRINT "M600,450":LPRINT "S5":LPRINT "N1":LPRINT "M840,800":LPRINT "N1":LPRINT "M1430,1300":LPRINT "N1":LPRINT "M1730,1300":LPRINT "N1"
101 LPRINT "M960,450":LPRINT "N1"
199 LPRINT "L1"
200 FOR I= 1 TO 3
201 READ N,X1,Y1,X2,Y2
202 X1=INT(X1*20-600):Y1=INT(Y1-1250):X2=INT(X2*20-600):Y2=INT(Y2-1250)
203 LPRINT "M";X1;",";Y1:LPRINT "N";N:LPRINT "D";X2;",";Y2:LPRINT "N";N
204 NEXT I
205 LPRINT "L0"
300 LPRINT "S4":LPRINT "M2000,900":LPRINT "N4":LPRINT "M2100,900":LPRINT "PPilot and Fuel"
310 LPRINT "M2000,800":LPRINT "N0":LPRINT "M2100,800":LPRINT "PFour People and Baggage"
320 LPRINT "M2000,700":LPRINT "N5":LPRINT "M2100,700":LPRINT "PPilot and Passenger"
400 LPRINT "M2200,200":LPRINT "S3":LPRINT "PC. E. Dills":LPRINT "M2200,150":LPRINT "PKirk180:1"
500 LPRINT "Q3":LPRINT "M250,600":LPRINT "S8":LPRINT "PWeight"
510 LPRINT "Q0":LPRINT "M600,250":LPRINT "PIndex Units"
520 LPRINT "S4":LPRINT "M260,350": FOR I= 50 TO 120 STEP 10:LPRINT "R100,0":LPRINT "P";I:NEXT I
530 LPRINT "M270,450":FOR I= 1700 TO 2600 STEP 100:LPRINT "M"270;",";I-1250:LPRINT "P";I:NEXT I
550 LPRINT "M800,1600":LPRINT "S12":LPRINT "PN 2459 C":LPRINT "M800,1500":LPRINT "S10":LPRINT "PCessna 180":LPRINT "M2000,1600":LPRINT "S7":LPRINT "PRobert B. Kirk":LPRINT "M2000,1520":LPRINT "PTempleton,  CA"
1000 LPRINT "H"
