An Example Source Module

 
*FILE MEMBER=MYSUB LIBRARY=SNOMAN LANGUAGE=FORTRAN77 DATE=25:Mar:1992
      SUBROUTINE  MYSUB
 
      <standard code here>
 
      INCLUDE '[-.inc_dir]file.inc'
 
*ENDHEADER
 
      <standard code here>
 
*IF VAX THEN
 
      <special VAX code>
 
*ELSEIF UNIX THEN
 
      <special UNIX code>
 
*IF APOLLO,DECSTATION THEN
 
      <special code common to APOLLO and DECstations>
 
*ELSE
 
      STOP 'Please run this program on a supported platform !'
 
*ENDIF
 
*ENDIF
 
      <standard code here>
 
*ENDFILE MEMBER=MYSUB