-- Copyright (C) 1983  by Xerox Corporation. All rights reserved. 
-- VolumeNoDisk.mesa, HGM, 12-Mar-83 21:25:42

DIRECTORY
  String USING [AppendString],
  Volume USING [ID];

VolumeNoDisk: PROGRAM IMPORTS String EXPORTS Volume =
  BEGIN

  -- Keep CMFile.FindSection happy.

  GetLabelString: PUBLIC PROCEDURE [volume: Volume.ID, s: LONG STRING] =
    BEGIN
    String.AppendString[s, "NoDisk"L];
    END;

  END.