Retro1.org codex

PROC FSETABL;
  BEGIN
 
 
#
***       FSETABL - COMPILE THE *COMFTAB* COMMON BLOCK.
*
*         FSETABL IS THE ONLY COMPILATION IN SINGLE THAT USES
*         CONTROL PRESET WITH THE COMFTAB COMMON BLOCK.  IN THE MULTI-
*         USER SUBSYSTEM, THE SMFEX MONITOR WILL DO THIS JOB.
#
 
  DEF LISTCON #1#;
 
CONTROL PRESET;              # UNIVERSL DECLARES #
 
*IFCALL SINGLE,COMFSGL
*IFCALL ONLY,COMFONL
*IFCALL MULTI,COMFMLT
*CALL COMFFSE
 
 
*CALL COMFTAB
 
 
  END TERM