1    REM DEVELOPED BY DICK PHILLIPS
5    PRINT CHR$(26)
10   PRINT "NACA AIRFOIL 25012"
20   PRINT 
30   PRINT "WING RIB PLOTTING PROGRAM"
40   PRINT
50   PRINT "DECIMAL FRACTIONS ONLY"
60   PRINT:DASH$=STRING$ (80,45)
61   INPUT "ENTERED CHORD DESIRED FOR NACA 25012";C
62   LPRINT DASH$
64   LPRINT CHR$(29)CHR$(31) "DIMENSIONS FOR NACA 25012 @";C;"INCH CHORD"
66   LPRINT CHR$(30)
68   LPRINT DASH$
70   LPRINT "STATION",,"OFFSET","UPPER","LOWER"
75   LPRINT DASH$
80   LPRINT "STATION 0, LE",, "0","-","0"
90   LPRINT "STATION 1.25",, C*.0125, C*.0248, C*-.0138
100  LPRINT "STATION 2.5",, C*.025, C*.0337, C*-.0194
110  LPRINT "STATION 5.0",, C*.05, C*.047, C*-.0249
120  LPRINT "STATION 7.5",, C*.075, C*.0562, C*-.0282
130  LPRINT "STATION 10",, C*.1, C*.0636, C*-.0304
140  LPRINT "STATION 15",, C*.15, C*.0739, C*-.033
150  LPRINT "STATION 20",, C*.20, C*.0797, C*-.0354
160  LPRINT "STATION 25",, C*.25, C*.082, C*-.0368
170  LPRINT "STATION 30",, C*.30, C*.0821, C*-.0379
180  LPRINT "STATION 40",, C*.40, C*.0775, C*-.0387
190  LPRINT "STATION 50",, C*.50, C*.0692, C*-.0367
200  LPRINT "STATION 60",, C*.60, C*.0587, C*-.0327
210  LPRINT "STATION 70",, C*.70, C*.0464, C*-.027
220  LPRINT "STATION 80",, C*.80, C*.0327, C*-.0197
230  LPRINT "STATION 90",, C*.90, C*.0178, C*-.0113
240  LPRINT "STATION 95",, C*.95, C*.0098, C*-.0064
250  LPRINT "STATION 100",, C*1, C*.0013, C*-.0013
260  FOR X=1 TO 6
265  LPRINT
270  NEXT X
280  END