Retro1.org codex

PROC FSEDATA;
BEGIN
 
 
#
***       FSEDATA -- COMPILE COMMON BLOCK *COMFDAT*.
*
*         FSEDATA IS THE ONLY COMPILATION IN SINGLE THAT USES
*         CONTROL PRESET WITH THE COMFDAT COMMON BLOCK.  IN MULTI-USER
*         VERSION, THE SMFEX MONITOR WILL INITIALIZE COMFDAT.
#
 
  DEF LISTCON #1#;
 
CONTROL PRESET;              # UNIVERSAL DECLARES          #
 
*IFCALL SINGLE,COMFSGL
*IFCALL ONLY,COMFONL
*IFCALL MULTI,COMFMLT
 
*CALL COMFFSE
 
*CALL COMFVDT
 
*CALL COMFDS1
*CALL COMFVD2
*CALL COMFDS2
 
END TERM