home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / ARQS_ZIP / GUITSCAL.ZIP / SCALES.BAS (.txt) < prev   
Encoding:
GW-BASIC  |  1992-04-10  |  768 b   |  23 lines
  1. 5        REM PROGRAM FOR SPACING GUITAR FRETS
  2. 10       PRINT "WHAT IS THE GUITARS SCALE FROM NUT TO SADDLE (IN INCHES)?"
  3. 20       INPUT S
  4. 30       PRINT "INT IS THE INTERVAL BETWEEN FRETS"
  5. 40       PRINT "LENGTH IS DISTANCE FROM NUT OT FRET"
  6. 50       PRINT "REM SCALE IS LENGTH FROM FRET TO SADDLE"
  7. 55       PRINT
  8. 60       PRINT "FRET","INT","LENGTH","REM SCALE"
  9. 65       PRINT "****************************************************************"
  10. 70       LET L=0
  11. 80       LET F=0
  12. 90       LET F=F+1
  13. 100      LET I=S/17.817
  14. 110      LET L=I+L
  15. 120      LET S=S-I
  16. 130      PRINT F,I,L,S
  17. 140      IF F=25 THEN 160
  18. 150      GOTO 90
  19. 160      PRINT "CHECK TO SEE IF FRET 12 IS HALFWAY BETWEEN NUT AND SADDLE"
  20. 170      PRINT "AND FRET 5 IS HALFWAY BETWEEN NUT AND FRET 12 (CONSIDER"
  21. 180      PRINT "COMPENSATION)"
  22. 190      END
  23.