
  { Define command table for system core command processor.

  TYPE
    syt$command_table_entry = RECORD
      short_name: string (8),
      long_name: string (31),
      repeatable_command: boolean,
      proc_p: ^procedure
                 (    text: string ( * );
                      id: dpt$window_id;
                  VAR status: ost$status),
    RECEND;

*copyc dpt$window_id
*copyc ost$status
