home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / VOL.ZIP / VOL.DOC < prev    next >
Encoding:
Text File  |  1989-07-08  |  2.8 KB  |  68 lines
  1. Program ..............:  VOL.PAS
  2. Version ..............:  1.01
  3. Implementation .......:  Turbo Pascal v4.x, v5.x
  4. Author ...............:  Vernon E. Davis
  5.                       :  17 South Centre Street
  6.                       :  Merchantville, NJ 08109
  7.                       :  CompuServe [71330,2705]
  8. References ...........:  MS-DOS Encyclopedia (Microsoft Press)
  9. Purpose ..............:  To allow the manipulation of
  10.                       :  MS-DOS Disk Volume Labels.
  11. Type Declarations ....:  Two User Types Defined ...
  12.                       :  TYPE  Drive = Byte;
  13.                       :    The value of Drive corresponds to disk location.
  14.                       :    ( 1 = A:   2 = B:   3 = C:   4 = D:  etc. )
  15.                       :  TYPE  VolumeName  = String[11];
  16.                       :    Spaces allowed. Functions do not check for
  17.                       :    invalid characters other than period ( . ).
  18.                       :    Functions do convert all input to uppercase.
  19. Function Declarations :  Four Functions Available ...
  20.  
  21.    Function ADDVOL(Drive; VolumeName) : Boolean;
  22.       This function allows the addition of a New Volume Label on
  23.       a disk that does not have one.
  24.       Returns:
  25.          FALSE if
  26.            1. Drive is less than 1 ( A: ) or greater than 26 ( Z: ).
  27.            2. Drive is an invalid specification.
  28.            3. Volume Label already exists.
  29.            4. Error in adding New Volume Label.
  30.          TRUE if
  31.            1. New Volume Label has been added.
  32.  
  33.    Function CHGVOL(Drive; VolumeName) : Boolean;
  34.       This function changes the current Volume Label to that of the
  35.       New Volume Label.
  36.       Returns:
  37.          FALSE if
  38.            1. Drive is less than 1 ( A: ) or greater than 26 ( Z: ).
  39.            2. Drive is an invalid specification.
  40.            3. No Volume Label exists.
  41.            4. Error in changing Volume Label.
  42.          TRUE if
  43.            1. Volume Label has been changed.
  44.  
  45.    Function DELVOL(Drive) : Boolean;
  46.       This function allows the deletion of a Volume Label.
  47.       Returns:
  48.          FALSE if
  49.            1. Drive is less than 1 ( A: ) or greater than 26 ( Z: ).
  50.            2. Drive is an invalid specification.
  51.            3. No Volume Label exists.
  52.            4. Error in deleting Volume Label.
  53.          TRUE if
  54.            1. Volume Label has been deleted.
  55.  
  56.    Function GETVOL(Drive) : VolumeName;
  57.       This function returns the Volume Label string.
  58.       Returns:
  59.          NULL if
  60.            1. Drive is less than 1 ( A: ) or greater than 26 ( Z: ).
  61.            2. Drive is an invalid specification.
  62.            3. No Volume Label exists.
  63.            4. Error in reading Volume Label.
  64.          !NULL if
  65.            1. Volume Label has been read.
  66.  
  67. See the accompanying program, VOLTEST.PAS, for actual code.
  68.