home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / EDUCATIN / MDLPLNE2.LBR / NAC25012.BQS / NAC25012.BAS
BASIC Source File  |  2000-06-30  |  2KB  |  37 lines
  1. 1    REM DEVELOPED BY DICK PHILLIPS
  2. 5    PRINT CHR$(26)
  3. 10   PRINT "NACA AIRFOIL 25012"
  4. 20   PRINT 
  5. 30   PRINT "WING RIB PLOTTING PROGRAM"
  6. 40   PRINT
  7. 50   PRINT "DECIMAL FRACTIONS ONLY"
  8. 60   PRINT:DASH$=STRING$ (80,45)
  9. 61   INPUT "ENTERED CHORD DESIRED FOR NACA 25012";C
  10. 62   LPRINT DASH$
  11. 64   LPRINT CHR$(29)CHR$(31) "DIMENSIONS FOR NACA 25012 @";C;"INCH CHORD"
  12. 66   LPRINT CHR$(30)
  13. 68   LPRINT DASH$
  14. 70   LPRINT "STATION",,"OFFSET","UPPER","LOWER"
  15. 75   LPRINT DASH$
  16. 80   LPRINT "STATION 0, LE",, "0","-","0"
  17. 90   LPRINT "STATION 1.25",, C*.0125, C*.0248, C*-.0138
  18. 100  LPRINT "STATION 2.5",, C*.025, C*.0337, C*-.0194
  19. 110  LPRINT "STATION 5.0",, C*.05, C*.047, C*-.0249
  20. 120  LPRINT "STATION 7.5",, C*.075, C*.0562, C*-.0282
  21. 130  LPRINT "STATION 10",, C*.1, C*.0636, C*-.0304
  22. 140  LPRINT "STATION 15",, C*.15, C*.0739, C*-.033
  23. 150  LPRINT "STATION 20",, C*.20, C*.0797, C*-.0354
  24. 160  LPRINT "STATION 25",, C*.25, C*.082, C*-.0368
  25. 170  LPRINT "STATION 30",, C*.30, C*.0821, C*-.0379
  26. 180  LPRINT "STATION 40",, C*.40, C*.0775, C*-.0387
  27. 190  LPRINT "STATION 50",, C*.50, C*.0692, C*-.0367
  28. 200  LPRINT "STATION 60",, C*.60, C*.0587, C*-.0327
  29. 210  LPRINT "STATION 70",, C*.70, C*.0464, C*-.027
  30. 220  LPRINT "STATION 80",, C*.80, C*.0327, C*-.0197
  31. 230  LPRINT "STATION 90",, C*.90, C*.0178, C*-.0113
  32. 240  LPRINT "STATION 95",, C*.95, C*.0098, C*-.0064
  33. 250  LPRINT "STATION 100",, C*1, C*.0013, C*-.0013
  34. 260  FOR X=1 TO 6
  35. 265  LPRINT
  36. 270  NEXT X
  37. 280  END