; 00001
.INCLUDE "LB:[MACROS]MACROS.MAC"
.INCLUDE "C.MAC"

MODULE CHeader, MNAME=CHDR, VER=01, COMM=<>

  FROM SYSMAC IMPORT FINIT$, FSRSZ$
  FROM .MAIN  IMPORT .MAIN
  FROM EXIT   IMPORT EXIT

  PROCEDURE CStart
  BEGIN
    FINIT$
    CALL  .MAIN
    PUSH  R0
    CALL  EXIT
  END CStart

  $ASCII

    CopyRight:
      .ASCII /COPYRIGHT (C) 1978 WHITESMITHS, LTD./

  FSRSZ$ 0

END CHeader

.END CStart