C
C  COMPILERS SUPPORTED BY CPL
	PARAMETER NOCOM = 7		!NUMBER OF COMPILERS
C
C		COMPILER NAME		COMPILER FILE EXTENSION
	PARAMETER RATCMD = 'RAT ',	RATEXT = '.RAT'
	PARAMETER 	RATCM1 = 'F4P '
	PARAMETER FORCMD = 'F4P ',	FOREXT = '.FTN'
	PARAMETER MACCMD = 'MAC ',	MACEXT = '.MAC'
	PARAMETER BASCMD = 'BAS ',	BASEXT = '.B2S'
	PARAMETER CCMD   = 'CPP ',	CEXT   = '.C  '
	PARAMETER 	CCM1 = 'CP1 '
	PARAMETER 	CCM2 = 'CP2 '
	PARAMETER 	CCM3 = 'MAC '
	PARAMETER	CCM4 = 'CLI '
	PARAMETER NBSCMD = 'PF1 ',	NBSEXT = '.PAS'
	PARAMETER 	NBSCM1 = 'PF2 '
	PARAMETER SWECMD = 'PAS ',	SWEEXT = '.SPA'
C
C  SPECIAL SWITCHES RECOGNIZED BY CPL
	PARAMETER GBLSWN = 10		!NUMBER OF CPL SWITCHES
C
	PARAMETER LIST = 'LIST',	LISW = 1	!/LIST
	PARAMETER PRIN = 'PRIN',	PRSW = 2	!/PRINT
	PARAMETER NOOB = 'NOOB',	NBSW = 4	!/NOOBJ
	PARAMETER FORC = 'FORC',	FCSW = 8	!/FORCE
	PARAMETER SYMB = 'SYMB',	SYSW = 16	!/SYMBOLS (RAT)
	PARAMETER KEEP = 'KEEP',	KESW = 32	!/KEEP (RAT,PAS,C)
	PARAMETER XTER = 'XTER',	XTSW = 64	!/XTERNAL (PAS)
	PARAMETER INTE = 'INTE',	INSW = 128	!/INTEGER (C)
	PARAMETER BUIL = 'BUIL',	BUSW = 256	!/BUILD[:FILES]
	PARAMETER LIBR = 'LIBR',	LBSW = 512	!/LIBR:FILENAME
C
C  CPL INTERNAL SWITCHES
	PARAMETER BPIS = 8192		!BASIC+2 COMPILATION PENDING
	PARAMETER RCIS = 16384		!REDIRECT COMMAND LINES TO FILE
	PARAMETER DEIS = -32768		!DELETE CONCATENATED SOURCE
C
C  COMMON AREAS
	REAL COMCMD,COMEXT
	COMMON /CMPNAM/ COMCMD(NOCOM),COMEXT(NOCOM)
C
	INTEGER GBLSW,LCLSW,GBLNM,LCLNM
	LOGICAL ISSET,STREQU
	INTEGER*4 GBLSW4
	BYTE GBLSWB(8,GBLSWN)
	EQUIVALENCE (GBLSW4,GBLSWB)
	COMMON /SWITCH/ GBLSW(5,10),LCLSW(5,10),GBLNM,LCLNM,GBLSW4(2,GBLSWN)
C
	INTEGER CPLSTA,RATCOM,NBSCOM,CCOM,BASCOM
	COMMON /STATUS/ CPLSTA,RATCOM,NBSCOM,CCOM,BASCOM
C
	INTEGER PREFIX,CATPOS
	BYTE CATLIN
	COMMON /PREFIX/ PREFIX(3,10),CATLIN(80),CATPOS
C
	INTEGER BLDPOS,BSWPOS,BSWEND
	BYTE BLDLIN
	LOGICAL NEDBAS
	COMMON /BASP2/ NEDBAS,BLDLIN(80),BLDPOS,BSWPOS,BSWEND
C
	INTEGER LBRPOS
	BYTE LBRLIN
	LOGICAL NEDLBR
	COMMON /LBRIAN/ NEDLBR,LBRLIN(80),LBRPOS