##%%A-RCB-0047-SL-18-8     STANDARD DEFINITIONS FOR RATFOR LIBRARY
 
DEFINE	YES	1
DEFINE	NO	0
DEFINE	EOF	-1
DEFINE	EOS	"000
DEFINE	BLANK	"040
DEFINE	TAB	"011
DEFINE	NEWLINE	-2
DEFINE	ESCAPECHAR	'@'
DEFINE	NUMERIC	-3
DEFINE	ALPHABETIC	-4
DEFINE	CHAR	LOGICAL*1
DEFINE	ARB	1000
DEFINE	STDLUNTI	5
DEFINE	STDLUNIN	3
DEFINE	STDLUNOUT	4
 
#  Added by PDM, 78-01-05
 
DEFINE 	TYPER	5
DEFINE	PRINTER	6
DEFINE	BUGON	IF(.TRUE.)
DEFINE	BUGOFF	IF(.FALSE.)
DEFINE	CASE	GOTO(
DEFINE	USING	)