LIGHTSHO.BAS
June 1997 by Marc Kummel aka Treebeard.
Contact mkummel@rain.org, http://www.rain.org/~mkummel/

This is old Basic code from the vault (1994) that reads sound input to a
SoundBlaster and makes a simple realtime lightshow based on the frequency 
content.  It does a realtime FFT in Basic!  This makes great displays from 
CD or radio or an electric guitar if it works for you.  I used some of this 
code in my CLEO program, also available from Treebeard's Basic Vault.

I have a vintage SoundBlaster Pro sound card in my computer, and this
program uses the CT-VOICE.DRV that came with my card.  It works for me, but
maybe not for you.  Newer cards should have new drivers with the same 
services.  If my program can't find your driver, copy it to the program 
directory and name it CT-VOICE.DRV.  CTV3.DRV is a generic driver that I
wrote that might be worth trying.  (The ASM source is available with CLEO.)
You can load *any* driver if you start LIGHTSHO with /D<driver_name>.

My program also needs to find your sound card.  The default address is (hex) 
220.  It also checks for BLASTER and SOUND settings in your environment, or 
you can start LIGHTSHO with /SB200 (say) to set the address to (hex) 200.

The default is to sample LINE input.  To use MIC or CD input, start LIGHTSHO
with /MIC or /CD.  I haven't tested CD.

This program uses the VSPRITES library buried in SBLIB6.  Contact Chad 
Alberts; Route 1 Box 149; Reed City, MI 49677.  I found Chad's library on 
Simtel as VSPRTV11.ZIP.  Good stuff!

To start LIGHTSHO, connect a sound source to your Sound Blaster and type:
  LIGHTSHO [/SB<sb_address>] [/D<driver_name>] [/MIC] [/CD]
There are no menus, but a few commands are recognized while it runs:
  
  <space>         cycle through the different displays
  <Backspace>     
  
  <Insert>        change the number of sound samples taken at a time.
  <Delete>        this effects the resolution of the displays.

  <+><->          adjust the gain up and down.

  <P>             view/edit/change the palette.
  <R>             randomize the palette.
  < >             rotate the palette.
  <S>             system info.
  <Esc>           exit the program.

When it starts, LIGHTSHO loads any palette files that it finds in its 
directory.  These are the same *.MAP files that FRACTINT and CTHUGHA use.
You can activate different palettes by pressing <P> for the palette menu.

File List:
  LIGHTSHO.EXE    DOS executable
  VGAOEM.FON      Win31 font
  CT-VOICE.DRV    SoundBlaster driver
  CTV3.DRV        another driver to try
  FIRESTRM.MAP    Palette maps (Fractint format)
  ROYAL.MAP
  VOLCANO.MAP
  README.TXT      this file
  TBVAULT.TXT     about Treebeard's Basic Vault
  ------------
  LIGHTSHO.BAS    Basic source code
  SBSUP.BI        Basic include files
  SBMOD.BI
  VSPRITES.BI
  SBLIB6.LIB      library for BC (including VSPRITES by Chad Alberts)
  SBLIB6.QLB      quick library for PDS IDE
  SBLIB6.TXT      about the library
  XQB.BAT         batch file to start PDS and load code
  MAKE.BAT        batch file to compile and link from DOS prompt

This program and source code are yours to use and modify as you will, but
they are offered as freeware with no warranty whatsoever.  Give me credit,
but do not distribute any changes under my name, or attribute such changes
to me in any way.  You're on your own!

Send comments and fixes to:

  Marc Kummel aka Treebeard
  mkummel@rain.org
  http://www.rain.org/~mkummel/

For more interesting Basic software with source code, check out Treebeard's
Basic Vault at http://www.rain.org/~mkummel/basic/