home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / S12334.ZIP / VALID.BAS < prev   
BASIC Source File  |  1989-03-23  |  515b  |  21 lines
  1. '***** Valid.Bas - BASIC function that reports if a drive 
  2. '                  letter is valid
  3.  
  4. 'syntax: Okay = Valid%(Drive$)
  5. ' where: Okay receives -1 if the drive is valid, or zero if it is not
  6.  
  7. DEFINT A-Z
  8. DECLARE SUB DosQCurDisk(SEG Temp, SEG DriveMap&)
  9.  
  10. FUNCTION Valid%(Drive$)
  11.  
  12.    Call DosQCurDisk(Temp, DriveMap&)
  13.    Drive = ASC(Drive$) - ASC("A")
  14.    IF DriveMap& AND 2 ^ Drive THEN    'Check the appropriate bit in the mask
  15.       Valid% = -1
  16.    ELSE
  17.       Valid% = 0
  18.    END IF
  19.  
  20. END FUNCTION
  21.