home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / gwbasic / guitar / scales.bas < prev    next >
Encoding:
BASIC Source File  |  1991-05-22  |  845 b   |  22 lines
  1. 10       REM PROGRAM FOR SPACING GUITAR FRETS
  2. 20      PRINT "WHAT IS THE GUITARS SCALE FROM NUT TO SADDLE (IN INCHES)?"
  3. 30      INPUT S
  4. 40      PRINT "INT IS THE INTERVAL BETWEEN FRETS"
  5. 50      PRINT "LENGTH IS DISTANCE FROM NUT OT FRET"
  6. 60      PRINT "REM SCALE IS LENGTH FROM FRET TO SADDLE"
  7. 70      PRINT
  8. 80      PRINT "FRET", "INT", "LENGTH", "REM SCALE"
  9. 90      PRINT "****************************************************************"
  10. 100      LET L = 0
  11. 110      LET F = 0
  12. 120      LET F = F + 1
  13. 130     LET I = S / 17.817
  14. 140     LET L = I + L
  15. 150     LET S = S - I
  16. 160     PRINT F, I, L, S
  17. 170     IF F = 25 THEN 180 ELSE 120
  18. 180     PRINT "CHECK TO SEE IF FRET 12 IS HALFWAY BETWEEN NUT AND SADDLE"
  19. 190     PRINT "AND FRET 5 IS HALFWAY BETWEEN NUT AND FRET 12 (CONSIDER ";
  20. 200     PRINT "COMPENSATION)"
  21. 210     END
  22.