home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 247 / 247.d81 / e.drives < prev    next >
Encoding:
Text File  |  2004-01-01  |  354 b   |  22 lines
  1. u                            PRINT THIS
  2.  
  3.         FIND AVAILABLE DRIVES
  4.         ---------------------
  5.  
  6.     DV=PEEK(186):IFDV<8THENSTOP
  7.     K=0
  8.     CLOSE2
  9.     FORX=8TO29
  10.     OPEN2,X,2:CLOSE2
  11.     IFST=0THENK=K+1:PO831+X,X
  12.     NEXT
  13.  
  14.     The available drives will be
  15.     listed, beginning at location
  16.     832:
  17.  
  18.     FORX=1TOK
  19.     PRINT PEEK(831+X)
  20.     NEXT
  21.  
  22.  
  23.