-- File: VersionImpl.mesa - last edit:
-- AOF                  8-Feb-88 15:33:20
-- bjd                 31-Jul-87 20:50:08
-- PK    ,	 8-Nov-82 18:27:56
-- JGS,		17-Aug-81 11:36:19
-- SEH,		20-Oct-82 17:07:15
-- LGR    ,	 6-Jan-84 13:29:17
-- RSJ     ,	10-Nov-83 15:59:12
-- AMD    ,	19-Apr-84 12:38:58
-- DWE    ,	18-Nov-83 16:34:58
-- RSF      ,	14-Dec-83 15:46:09
-- KAM  ,	 4-Oct-84 17:45:21
-- DWR    	21-Nov-84 15:53:06
-- DJW    	21-Jan-85 17:51:24
-- JCS    	26-Jul-85 16:31:59
-- DCG		30-Sep-85 16:07:46

-- Copyright (C) 1981, 1982, 1983, 1984, 1985, 1986, 1987, 1988 by Xerox Corporation. All rights reserved. 

DIRECTORY
  String USING [AppendString],
  Version USING [],
  VersionExtras USING [];

VersionImpl: PROGRAM IMPORTS String EXPORTS Version, VersionExtras =
  BEGIN

  Append: PUBLIC PROC [s: LONG STRING] = {String.AppendString[s, "14.0-"L]};

  AppendCopyright: PUBLIC PROC [s: LONG STRING] = {
    String.AppendString[s,
      "Copyright (C) Xerox Corporation 1983, 1984, 1985, 1986, 1987, 1988. All rights reserved."L]};

  END.