home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST69.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  908 b   |  39 lines
  1. ********************
  2.  
  3. FUNCTION Dr_status
  4.  
  5.    PARAMETERS _thedrive, _drdisp, _drrow, _drcol
  6.  
  7.    PRIVATE _retval, _dispthis
  8.  
  9.    IF PCOUNT() = 2
  10.       _drrow = ROW()
  11.       _drcol = COL()
  12.    ELSE
  13.       IF PCOUNT() = 1
  14.          _drrow = ROW()
  15.          _drcol = COL()
  16.          _drdisp = .F.
  17.       ENDIF
  18.    ENDIF
  19.  
  20.    _retval = DRIVEREADY(_thedrive)
  21.    DO CASE
  22.    CASE _retval = 0
  23.       _dispthis = "                Drive is ready"
  24.    CASE _retval = 1
  25.       _dispthis = "     Drive is ready, BUT is write protected"
  26.    CASE _retval = 2
  27.       _dispthis = "      Drive is NOT ready, the door is open"
  28.    CASE _retval = 3
  29.       _dispthis =      "Drive is NOT ready; it is NOT a DOS disk"
  30.    OTHERWISE
  31.       _dispthis = "Drive is NOT ready due to a miscellaneous error"
  32.    ENDCASE
  33.    IF _drdisp
  34.       @ _drrow, _drcol SAY _dispthis
  35.    ENDIF
  36.    RETURN((_retval = 0))
  37.  
  38. * End of File
  39.