home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / DATABASE / DBT123S.ZIP / DBTAUDIO.PRG < prev    next >
Text File  |  1990-07-22  |  9KB  |  233 lines
  1. *=====================================================================
  2. *   DBTAUDIO.PRG - demo of sound functions
  3. *                  (c) 1989 BERNATH COMPUTER
  4. *                  12:56:56  10/3/1989
  5. *=====================================================================
  6. PARAMETERS CHOICE
  7.  
  8. CALL DBTOOLS WITH "15,3"
  9. CALL DBTOOLS WITH "4,1,0"
  10. CALL DBTOOLS WITH "7,3,9,4,0"
  11. CALL DBTOOLS WITH "3,3,5,11,53,15,5,2,0,1"
  12. DO CASE
  13.    CASE CHOICE = 1 .OR. CHOICE = 3
  14.       CALL DBTOOLS WITH "1,4,10,15,5,0,B L A T - function 2"
  15.       CALL DBTOOLS WITH "1,5,10,15,5,0,T W I D D L E - function 18"
  16.       set color to w/rb
  17.       @ 5,8 SAY "BLAT and TWIDDLE provide an alternative"
  18.       @ 6,8 SAY "to ? CHR(7) (ie, a beep). BLAT gives the"
  19.       @ 7,8 SAY "computer equivalent of a bronx cheer,"
  20.       @ 8,8 SAY "useful for indicating wrong responses,"
  21.       @ 9,8 SAY "while TWIDDLE indicates a positive reponse."
  22.       CALL DBTOOLS WITH "10,10,10,15,5"
  23.       CALL DBTOOLS WITH "3,6,10,16,65,15,4,2,0,1"
  24.       CALL DBTOOLS WITH "1,7,13,15,4,0,Syntax:"
  25.       SET COLOR TO +W/R
  26.       @ 8,13 SAY "CALL DBTOOLS WITH "+CHR(34)+"2"+ CHR(34)+"   (BLAT)"
  27.       @ 9,13 SAY "CALL DBTOOLS WITH "+CHR(34)+"18"+CHR(34)+"   (TWIDDLE)"
  28.       SET COLOR TO W/R
  29.       @ 11,13 SAY "The only parameters BLAT and TWIDDLE need are the"
  30.       @ 12,13 SAY "function numbers."
  31.       CALL DBTOOLS WITH "10,15,25,15,4"
  32.       CALL DBTOOLS WITH "7,2,14,4,0"
  33.       CALL DBTOOLS WITH "3,7,20,20,55,15,1,1,0,1"
  34.       CALL DBTOOLS WITH "1,S,8,30,15,2,0,QUESTIONNAIRE"
  35.       SET COLOR TO +W/B,+BG/N,,B
  36.       @ 10,24 SAY "Who is buried in Grant's Tomb?"
  37.       SET COLOR TO W/B
  38.       @ 12,26 SAY "1. Federal Grant"
  39.       @ 13,26 SAY "2. Ulysses S. Grant"
  40.       @ 14,26 SAY "3. Cary Grant"
  41.       @ 15,26 SAY "4. None of the above"
  42.       @ 16,26 say "5. Quit asking me such"
  43.       @ 17,26 say "   fool questions!"
  44.       CALL DBTOOLS WITH "1,19,29,15,1,0,Select an answer:"
  45.       mSEL = 0
  46.       DO WHILE mSEL <> 5
  47.          @ 19,47 GET mSEL PICTURE "9" RANGE 1,5
  48.          READ
  49.          DO CASE
  50.             CASE mSEL = 2
  51.                CALL DBTOOLS WITH "21,1,12,45,15,76,10,2,4,1"
  52.                CALL DBTOOLS WITH "1,13,50,15,2,0,That's Right!!"
  53.                CALL DBTOOLS WITH "18"
  54.                CALL DBTOOLS WITH "10,14,47,10,2"
  55.                CALL DBTOOLS WITH "19,1"
  56.             CASE mSEL = 5
  57.  
  58.             OTHERWISE
  59.                DO ERRMSG WITH "Guess again, turkey!"
  60.          ENDCASE
  61.        ENDDO
  62.    CASE CHOICE = 2
  63.       CALL DBTOOLS WITH "1,4,8,15,5,0,SOUND - function 17"
  64.       SET COLOR TO W/RB
  65.       @ 6,8 SAY "The SOUND function allows you to play"
  66.       @ 7,8 SAY "musical tones of a specified frequency"
  67.       @ 8,8 SAY "and duration. Simple tunes may be pro-"
  68.       @ 9,8 SAY "grammed."
  69.       CALL DBTOOLS WITH "10,10,8,15,5"
  70.       CALL DBTOOLS WITH "3,6,10,14,65,14,4,2,0,1"
  71.       mPARM = "CALL DBTOOLS WITH "+CHR(34)+"17,frequency,duration"+CHR(34)
  72.       SET COLOR TO +W/R
  73.       @ 7,13 SAY mPARM
  74.       SET COLOR TO W/R
  75.       @  9,13 SAY "where: Frequency is between 50 and 17000 cps"
  76.       @ 10,13 say "       Duration is in clock tics, 1/18th second."
  77.       @ 11,13 say "       (ie, 18 = one second)"
  78.       CALL DBTOOLS WITH "10,13,20,14,4"
  79.  
  80. * note: The even tempered scale is based on the 12th root of 2, ie
  81. *       each note is a multiple of 1.0594631 of the previous note
  82.  
  83.         mFREQ = 440
  84.         mMULT = 1.0594631
  85.         KOUNT = 0
  86.         DO WHILE KOUNT < 16
  87.            mPARM = "17,"+STR(mFREQ,4)+",5"
  88.            CALL DBTOOLS WITH mPARM
  89.            mFREQ = mFREQ * mMULT
  90.            KOUNT = KOUNT + 1
  91.         ENDDO
  92.         CALL DBTOOLS WITH "6,48"
  93.         CALL DBTOOLS WITH "3,10,15,15,45,5,3,1,0,1"
  94.         SET COLOR TO RB/BG
  95.         @ 11,17 SAY "This is part of a Rondo I"
  96.         @ 12,17 SAY "wrote as an assignment in"
  97.         @ 13,17 SAY "a music theory class in "
  98.         @ 14,17 SAY "college."
  99.     KOUNT = 1
  100.     DO WHILE KOUNT < 3
  101.  
  102.         CALL DBTOOLS WITH "17,740,2"            && F#m
  103.         CALL DBTOOLS WITH "17,554,2"
  104.         CALL DBTOOLS WITH "17,740,2"
  105.         CALL DBTOOLS WITH "17,554,2"
  106.         CALL DBTOOLS WITH "17,880,2"
  107.         CALL DBTOOLS WITH "17,554,2"
  108.         CALL DBTOOLS WITH "17,740,2"
  109.         CALL DBTOOLS WITH "17,554,2"
  110.  
  111.         CALL DBTOOLS WITH "17,740,2"            && F#m
  112.         CALL DBTOOLS WITH "17,554,2"
  113.         CALL DBTOOLS WITH "17,740,2"
  114.         CALL DBTOOLS WITH "17,554,2"
  115.         CALL DBTOOLS WITH "17,880,2"
  116.         CALL DBTOOLS WITH "17,554,2"
  117.         CALL DBTOOLS WITH "17,740,2"
  118.         CALL DBTOOLS WITH "17,554,2"
  119.  
  120.         CALL DBTOOLS WITH "17,698,2"            && C#m
  121.         CALL DBTOOLS WITH "17,554,2"
  122.         CALL DBTOOLS WITH "17,698,2"
  123.         CALL DBTOOLS WITH "17,554,2"
  124.         CALL DBTOOLS WITH "17,831,2"
  125.         CALL DBTOOLS WITH "17,554,2"
  126.         CALL DBTOOLS WITH "17,698,2"
  127.         CALL DBTOOLS WITH "17,554,2"
  128.  
  129.         CALL DBTOOLS WITH "17,698,2"
  130.         CALL DBTOOLS WITH "17,554,2"
  131.         CALL DBTOOLS WITH "17,987,2"
  132.         CALL DBTOOLS WITH "17,554,2"
  133.         CALL DBTOOLS WITH "17,880,2"
  134.         CALL DBTOOLS WITH "17,554,2"
  135.         CALL DBTOOLS WITH "17,831,2"
  136.         CALL DBTOOLS WITH "17,554,2"
  137.         KOUNT = KOUNT + 1                       && repeat
  138.      ENDDO
  139.  
  140.         CALL DBTOOLS WITH "17,740,2"            && F#m
  141.         CALL DBTOOLS WITH "17,554,2"
  142.         CALL DBTOOLS WITH "17,740,2"
  143.         CALL DBTOOLS WITH "17,554,2"
  144.         CALL DBTOOLS WITH "17,880,2"
  145.         CALL DBTOOLS WITH "17,554,2"
  146.         CALL DBTOOLS WITH "17,740,2"
  147.         CALL DBTOOLS WITH "17,554,2"
  148.  
  149.         CALL DBTOOLS WITH "17,740,2"            && F#m
  150.         CALL DBTOOLS WITH "17,554,2"
  151.         CALL DBTOOLS WITH "17,740,2"
  152.         CALL DBTOOLS WITH "17,554,2"
  153.         CALL DBTOOLS WITH "17,880,2"
  154.         CALL DBTOOLS WITH "17,554,2"
  155.         CALL DBTOOLS WITH "17,740,2"
  156.         CALL DBTOOLS WITH "17,554,2"
  157.  
  158.         CALL DBTOOLS WITH "17,740,2"            && D
  159.         CALL DBTOOLS WITH "17,587,2"
  160.         CALL DBTOOLS WITH "17,740,2"
  161.         CALL DBTOOLS WITH "17,587,2"
  162.         CALL DBTOOLS WITH "17,880,2"
  163.         CALL DBTOOLS WITH "17,587,2"
  164.         CALL DBTOOLS WITH "17,740,2"
  165.         CALL DBTOOLS WITH "17,587,2"
  166.  
  167.         CALL DBTOOLS WITH "17,740,2"            && D
  168.         CALL DBTOOLS WITH "17,587,2"
  169.         CALL DBTOOLS WITH "17,740,2"
  170.         CALL DBTOOLS WITH "17,587,2"
  171.         CALL DBTOOLS WITH "17,880,2"
  172.         CALL DBTOOLS WITH "17,587,2"
  173.         CALL DBTOOLS WITH "17,740,2"
  174.         CALL DBTOOLS WITH "17,587,2"
  175.  
  176.         CALL DBTOOLS WITH "17,740,2"            && Bm
  177.         CALL DBTOOLS WITH "17,587,2"
  178.         CALL DBTOOLS WITH "17,740,2"
  179.         CALL DBTOOLS WITH "17,587,2"
  180.         CALL DBTOOLS WITH "17,987,2"
  181.         CALL DBTOOLS WITH "17,587,2"
  182.         CALL DBTOOLS WITH "17,740,2"
  183.         CALL DBTOOLS WITH "17,587,2"
  184.  
  185.         CALL DBTOOLS WITH "17,740,2"            && Edim
  186.         CALL DBTOOLS WITH "17,587,2"
  187.         CALL DBTOOLS WITH "17,740,2"
  188.         CALL DBTOOLS WITH "17,587,2"
  189.         CALL DBTOOLS WITH "17,1047,2"
  190.         CALL DBTOOLS WITH "17,587,2"
  191.         CALL DBTOOLS WITH "17,740,2"
  192.         CALL DBTOOLS WITH "17,587,2"
  193.  
  194.         CALL DBTOOLS WITH "17,880,2"            && F#m
  195.         CALL DBTOOLS WITH "17,740,2"
  196.         CALL DBTOOLS WITH "17,880,2"
  197.         CALL DBTOOLS WITH "17,740,2"
  198.         CALL DBTOOLS WITH "17,1109,2"
  199.         CALL DBTOOLS WITH "17,740,2"
  200.         CALL DBTOOLS WITH "17,880,2"
  201.         CALL DBTOOLS WITH "17,740,2"
  202.  
  203.         CALL DBTOOLS WITH "17,880,2"            && F#m
  204.         CALL DBTOOLS WITH "17,740,2"
  205.         CALL DBTOOLS WITH "17,880,2"
  206.         CALL DBTOOLS WITH "17,740,2"
  207.         CALL DBTOOLS WITH "17,1109,2"
  208.         CALL DBTOOLS WITH "17,740,2"
  209.         CALL DBTOOLS WITH "17,880,2"
  210.         CALL DBTOOLS WITH "17,740,2"
  211.  
  212.         CALL DBTOOLS WITH "17,831,2"            && C#m
  213.         CALL DBTOOLS WITH "17,698,2"
  214.         CALL DBTOOLS WITH "17,831,2"
  215.         CALL DBTOOLS WITH "17,698,2"
  216.         CALL DBTOOLS WITH "17,1109,2"
  217.         CALL DBTOOLS WITH "17,698,2"
  218.         CALL DBTOOLS WITH "17,831,2"
  219.         CALL DBTOOLS WITH "17,698,2"
  220.  
  221.         CALL DBTOOLS WITH "17,831,2"            && C#m
  222.         CALL DBTOOLS WITH "17,698,2"
  223.         CALL DBTOOLS WITH "17,831,2"
  224.         CALL DBTOOLS WITH "17,698,2"
  225.         CALL DBTOOLS WITH "17,1109,2"
  226.         CALL DBTOOLS WITH "17,698,2"
  227.         CALL DBTOOLS WITH "17,831,2"
  228. ENDCASE
  229.  
  230.  
  231. CALL DBTOOLS WITH "14,3,0"
  232. RETURN
  233.