home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / listings / v_03_05 / 3n05051a < prev    next >
Text File  |  1992-02-05  |  440b  |  23 lines
  1. DEFINT A-Z
  2.  
  3. Declare Function DisketteType%(x%)
  4.  
  5. FOR J = 0 TO 4
  6.  
  7.   PRINT "Physical Drive ";J;": ";
  8.  
  9.   SELECT CASE (DisketteType(J))
  10.     CASE 0:
  11.       Print "Not present/cannot identify"
  12.     CASE 1:
  13.       Print "360k  5.25-inch  40 tracks"
  14.     CASE 2:
  15.       Print "1.2M  5.25-inch  80 tracks"
  16.     CASE 3:
  17.       Print "720k  3.5-inch   80 tracks"
  18.     CASE 4:
  19.       Print "1.44M 3.5-inch   80 tracks"
  20.   END SELECT
  21.  
  22. NEXT J
  23.