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

  Name:     drivestr() - get a string of the available drives
  Usage:    <string> = drivestr()
  Params:   none
  Returns:  string equal to all the available drive letters

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

                 @  8,0  say "Valid drives are :"+drivestr()
                 @ 10,0  say "Enter drive to log on to:"
                 @ 10,26 get tdrive pict "!:" valid isdisk(tdrive)
                 read

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