Click above to get retro games delivered to your door ever month!

  Name:     drives() - get number of valid drives
  Usage:    <integer> = drives()
  Params:   none
  Returns:  an integer equal to the amount of available drives

 ---------------------------------- Example ---------------------------------

                 mem1 = drivestr()
                 for x = 1 to drives()
                      @ 10,x say "Directory of drive "+;
                      substr(mem1,x,1)+": - " + ;
                      curdir(substr(mem1,x,1))
                 next