#FILE=DEFIN.RAT  ===== GENERAL CHARACTER SET DEFINITIONS ===============
# PCN #73, DEC 79, ADD CARET,TILDE FOR .NOT.
DEFINE (ALPHA=-100)
DEFINE (AMPER=38)		#AMPERSAND
DEFINE (ATSIGN=64)
DEFINE (BACKSLASH=92)
DEFINE (BAD=-1)
DEFINE (BACKSPACE=8)
DEFINE (BANG=33) 		# EXCLAMATION MARK
DEFINE (BAR=124)
DEFINE (BELL=7)
DEFINE (BIGA=65)
DEFINE (BIGB=66)
DEFINE (BIGC=67)
DEFINE (BIGD=68)
DEFINE (BIGE=69)
DEFINE (BIGF=70)
DEFINE (BIGG=71)
DEFINE (BIGH=72)
DEFINE (BIGI=73)
DEFINE (BIGJ=74)
DEFINE (BIGK=75)
DEFINE (BIGL=76)
DEFINE (BIGM=77)
DEFINE (BIGN=78)
DEFINE (BIGO=79)
DEFINE (BIGP=80)
DEFINE (BIGQ=81)
DEFINE (BIGR=82)
DEFINE (BIGS=83)
DEFINE (BIGT=84)
DEFINE (BIGU=85)
DEFINE (BIGV=86)
DEFINE (BIGW=87)
DEFINE (BIGX=88)
DEFINE (BIGY=89)
DEFINE (BIGZ=90)
DEFINE (BLANK=32)
DEFINE (CARET=94)		#PCN 73, DEC 79
DEFINE (CHARFUNC=LOGICAL)	#ADDED, 3OCT76 !!!
DEFINE (COLON=58)
DEFINE (COMMA=44)
MACRO (DECREMENT,$=$-1)
DEFINE (DIG0=48)
DEFINE (DIG1=49)
DEFINE (DIG2=50)
DEFINE (DIG3=51)
DEFINE (DIG4=52)
DEFINE (DIG5=53)
DEFINE (DIG6=54)
DEFINE (DIG7=55)
DEFINE (DIG8=56)
DEFINE (DIG9=57)
DEFINE (DIGIT=-20)
DEFINE (DOLLAR=36)
DEFINE (DQUOTE=34)
DEFINE (DUMMYSIZE=1)	#LENGTH OF ARGUMENT ARRAYS IN SUBROUTINES
DEFINE (EQUALS=61)
DEFINE (EOF=-3)
DEFINE (EOS=0)		#END-OF-STRING   !!!!
DEFINE (FORMFEED=12)
DEFINE (FUNCSIZE=*1)		#ADDED,3OCT76,!!!!
DEFINE (GREATER=62)
DEFINE (HUGE=32767)		#ARBITRARILY LARGE NUMBER
MACRO (INCREMENT,$=$+1)
DEFINE (LBRACE=123)
DEFINE (LBRACK=91)
DEFINE (LESS=60)
DEFINE (LETTER=-30)
DEFINE (LETA=97)
DEFINE (LETB=98)
DEFINE (LETC=99)
DEFINE (LETD=100)
DEFINE (LETE=101)
DEFINE (LETF=102)
DEFINE (LETG=103)
DEFINE (LETH=104)
DEFINE (LETI=105)
DEFINE (LETJ=106)
DEFINE (LETK=107)
DEFINE (LETL=108)
DEFINE (LETM=109)
DEFINE (LETN=110)
DEFINE (LETO=111)
DEFINE (LETP=112)
DEFINE (LETQ=113)
DEFINE (LETR=114)
DEFINE (LETS=115)
DEFINE (LETT=116)
DEFINE (LETU=117)
DEFINE (LETV=118)
DEFINE (LETW=119)
DEFINE (LETX=120)
DEFINE (LETY=121)
DEFINE (LETZ=122)
DEFINE (LPAREN=40)
DEFINE (MINUS=45)
DEFINE (NCHARS=33) 	# NUMBER OF SPECIAL CHARACTERS
DEFINE (NEWLINE=10)
DEFINE (NO=0)
DEFINE (PERCENT=37)
DEFINE (PERIOD=46)
DEFINE (PLUS=43)
DEFINE (QMARK=63)
DEFINE (RBRACE=125)
DEFINE (RBRACK=93)
DEFINE (RPAREN=41)
DEFINE (SEMICOL=59)
DEFINE (SHARP=35)
DEFINE (SLASH=47)
DEFINE (SQUOTE=39)
DEFINE (STAR=42)
DEFINE (TAB=9)
DEFINE (TILDE=126)		#PCN 73, DEC 79
DEFINE (YES=1)
DEFINE (CHARACTER=LOGICAL*1)		#!!!
DEFINE (UNDERLINE=95)
#