
{* ZCYTFP cyt$file_processor *}

{ The following are predefined strings for referring to file processor.}

?? FMT (FORMAT := OFF) ??
  CONST
    cyc$ada                         = 'ADA                            ',
    cyc$apl                         = 'APL                            ',
    cyc$assembler                   = 'ASSEMBLER                      ',
    cyc$basic                       = 'BASIC                          ',
    cyc$c                           = 'C                              ',
    cyc$cobol                       = 'COBOL                          ',
    cyc$cybil                       = 'CYBIL                          ',
    cyc$debugger                    = 'DEBUGGER                       ',
    cyc$fortran                     = 'FORTRAN                        ',
    cyc$lisp                        = 'LISP                           ',
    cyc$pascal                      = 'PASCAL                         ',
    cyc$pli                         = 'PLI                            ',
    cyc$ppu_assembler               = 'PPU_ASSEMBLER                  ',
    cyc$prolog                      = 'PROLOG                         ',
    cyc$scl                         = 'SCL                            ',
    cyc$scu                         = 'SCU                            ',
    cyc$unknown_processor           = 'UNKNOWN                        ',
    cyc$vx                          = 'VX                             ';
?? FMT (FORMAT := ON) ??

  TYPE
    cyt$file_processor = string (31);
