######################################################
#                                                    #
#     BINAURAL BEAT GENERATOR:                       #
#                                                    #
#        written by: DANA M. NIBBY                   #
#                                                    #
# This software is shareware. It may be freely       #
# distributed as long as money is not charged for    #
# it. If you have any modifications to this code,    #
# Please send it to: D_NIBBY@UNHH.UNH.EDU            #
# Thanks... (S)HAREWARE 1991                         #
#                                                    #
######################################################


main:

    a$ = "":cls
    print spc(25) "** Binaural Beat Generator **"
    print:print:print
    print spc(22) "(1) Play individual binaural beat"
    print spc(22) "(2) Create a binaural beat program"
    print spc(22) "(3) PLAY program"
    print spc(22) "(4) LOAD program"
    print spc(22) "(5) SAVE program"
    input a$
    if a$ = "1" then individual
    if a$ = "2" then create
    if a$ = "3" then player
    if a$ = "4" then prgld
    if a$ = "5" then prgsv

        individual:

            cls:print"surface frequency ..";:input sf
            print "binaural frequency ..";:input bf
            print "volume (0-255) ..";:input vol
            print:print:print "NOW PLAYING A ";bf;" HZ BBEAT"
            print:print "HIT ANY KEY TO END"

          indibeat:

             sound sf,50,vol,0: sound sf+bf,50,vol,1
             a$ = inkey$: if a$ = "" then indibeat
             goto main


  create:

   print"name of program..";: input appel$
   print"how many segments..";: input seg
   for x = 1 to seg
   print "segment #";x:print
   print"surface frequency..";: input sf(x)
   print"binaural frequency..";: input bf(x)
   print"duration (in seconds)..";: input dura(x)
   next x: goto main


  player:

   print"NOW PLAYING PROGRAM: ";appel$
   for x = 1 to seg
    print:print"Segment #";x
    print"Surface frequency :";sf(x)
    print"Binaural frequency :";bf(x)
    dura(x) = dura(x) + TIMER
     TIMER on
       ploop:
         sound sf(x),50,255,0
         sound sf(x) + bf(x),50,255,1
         if TIMER > dura (x) then FINAL
         goto ploop
           final:
             TIMER off:next x: goto main


   prgsv:

      appel$ = appel$ + ".bbeat"
      open appel$ FOR OUTPUT AS #1
      write #1,seg
      for x = 1 to seg
       write #1, sf(x), bf(x), dura(x)
       next x: close #1: goto main


   prgld:

      print "program name..";: input appel$
      appel$ = appel$ + ".bbeat"
      open "I" , #1, appel$
       input #1, seg
       for x = 1 to seg
          input #1, sf(x), bf(x), dura(x)
          next x: close #1: goto main

Disclaimer: The file contained in the box above or displayed in a separate window from a link in the box above is NOT owned nor implied to be owned by BeYoND THe iLLuSioN. Most files at BeYoND THe iLLuSioN are originally from public Bulletin Board Systems (BBS) which were popular in the days before the Internet or from gopher, web, and FTP sites from the early days of the Internet which no longer exist today. Essentially, all files were acquired from the public domain in one for or another.

However, there have been occasions when copyright protected material has appeared on BeYoND THe iLLuSIoN without permission of the copyright holder. In these instances, we have and will continue to remove the copyright protected file as soon as it is brought to our attention. This can now be done using our Report Copyright Material form. Fill out the form, and the webmaster will be notified of the situation.

There are also times when files found on BeYoND THe iLLuSioN have a real home somewhere else on the Internet. In these instances, we will gladly replace the file with a link to its true home whenever it is brought to our attention. If you know of the true home of any of these files, you can use our Report Original URL form to bring it yo our attention.