1   REM PROGRAM DEVELOPED BY DICK PHILLIPS
5   PRINT CHR$(26)
10  PRINT "NACA 24012 AIRFOIL"
20  PRINT
30  PRINT "PLOTTING DIMENSION PROGRAM"
40  PRINT
50  PRINT "ENTER FRACTIONS AS DECIMAL"
60  PRINT
70  INPUT "ENTER CHORD DESIRED FOR NACA 24012";C
72  PRINT:DASH$=STRING$(80,45)
74  LPRINT DASH$
75  LPRINT CHR$(29)CHR$(31) "DIMENSIONS FOR NACA 24012 @";C;"INCHES"
76  LPRINT CHR$(30)
77  LPRINT DASH$
90  LPRINT "STATION",,"OFFSET","UPPER","LOWER"
91  LPRINT DASH$
100 PRINT
110 LPRINT "STATION 0",,"LE","0","0"
120 LPRINT "STATION 1.25",, C*.0125, C*.0258, C*-.0134
130 LPRINT "STATION 2.5",, C*.025, C*.0350, C*-.0185
140 LPRINT "STATION 5.0",, C*.05, C*.048, C*-.0237
150 LPRINT "STATION 7.5",, C*.075, C*.0574, C*-.027
160 LPRINT "STATION 10",, C*.1, C*.0644, C*-.0295
170 LPRINT "STATION 15",, C*.15, C*.0737, C*-.0334
180 LPRINT "STATION 20",, C*.2, C*.0782, C*-.0366
190 LPRINT "STATION 25",, C*.25, C*.0796, C*-.0392
200 LPRINT "STATION 30",, C*.3, C*.0789, C*-.0411
210 LPRINT "STATION 40",, C*.4, C*.0744, C*-.0417
220 LPRINT "STATION 50",, C*.5, C*.0666, C*-.0393
230 LPRINT "STATION 60",, C*.6, C*.0567, C*-.0347
240 LPRINT "STATION 70",, C*.7, C*.0448, C*-.0284
250 LPRINT "STATION 80",, C*.8, C*.0318, C*-.0207
260 LPRINT "STATION 90",, C*.9, C*.0173, C*-.0118
270 LPRINT "STATION 95",, C*.95, C*.0094, C*-.0067
280 LPRINT "STATION 100",, C*1, C*.0013, C*-.0013
290 FOR X=1 TO 6
295 LPRINT
297 NEXT X
300 END