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