home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib40b.dsk / FREQUENCY.TABLE.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  36 lines
  1. 10  REM   ************************
  2. 20  REM   *    Frequency Table   *
  3. 30  REM   *   by Eric Shepherd   *
  4. 40  REM   *    (C) 1991 by       *
  5. 50  REM   * MindCraft Publ. Corp.*
  6. 60  REM   *  Lincoln, MA 01773   *
  7. 70  REM   ************************
  8. 80  REM  
  9. 90  SPEED= 255: HOME 
  10. 100  PRINT  CHR$(4)"PR#3": SPEED= 255: HOME : DIM N(6,12)
  11. 110  PRINT "Freguency Calculator - by Eric Shepherd"
  12. 120  PRINT "Copyright (C) 1991 by MindCraft Publishing Corp.
  13. 130  PRINT "Lincoln, MA   01773"
  14. 140  PRINT 
  15. 150  INPUT "Output to <S>creen or <P>rinter? ";IO$
  16. 160  HOME 
  17. 170  IF IO$ = "P"  OR IO$ = "p"  THEN  PRINT  CHR$(4)"PR#1"
  18. 180  PRINT "Musical Note Frequency Table for AmperSound GS": PRINT "AmperSound GS and Frequency Table by Eric Shepherd": PRINT "Copyright (C) 1991 MindCraft Publishing Corp."
  19. 190  PRINT "--------------------------------------------------------------------------------": REM  80 -s
  20. 200  FOR I = 1 TO 12
  21. 210  READ N(6,I)
  22. 220  FOR J = 5 TO 1  STEP  -1
  23. 230 N(J,I) = N(J +1,I)/2
  24. 240  NEXT J,I
  25. 250  FOR I = 1 TO 6
  26. 260  PRINT "Octave ";I
  27. 270  PRINT "C: ";N(I,1),"C#/Db: ";N(I,2),"D: ";N(I,3)
  28. 280  PRINT "D#/Eb: ";N(I,4),"E: ";N(I,5),"F: ";N(I,6)
  29. 290  PRINT "F#/Gb: ";N(I,7),"G: ";N(I,8),"G#/Ab: ";N(I,9)
  30. 300  PRINT "A: ";N(I,10),"A#/Bb: ";N(I,11),"B: ";N(I,12)
  31. 310  PRINT "================================================================================": REM  80 =s
  32. 320  NEXT I
  33. 330  PRINT  CHR$(4)"PR#0"
  34. 340  END 
  35. 350  REM  Frequency Data:
  36. 360  DATA  20856,22080,23400,24800,26280,27840,29500,31240,33120,35080,37160,39380