DEFINT A-Z

Declare Function DisketteType%(x%)

FOR J = 0 TO 4

  PRINT "Physical Drive ";J;": ";

  SELECT CASE (DisketteType(J))
    CASE 0:
      Print "Not present/cannot identify"
    CASE 1:
      Print "360k  5.25-inch  40 tracks"
    CASE 2:
      Print "1.2M  5.25-inch  80 tracks"
    CASE 3:
      Print "720k  3.5-inch   80 tracks"
    CASE 4:
      Print "1.44M 3.5-inch   80 tracks"
  END SELECT

NEXT J
