define(VAX)			# comment this out for PDP11
 
define(WLD)			# Invoke LIST on wild card file names
 

# note the order of the next several defines is significant!
 
# Record or Block i/o.
_ifdef(VAX)
define(RECORDIO)		# set to "define(RECORDIO)" for record io,
_elsedef
define(RECORDIO,#)		# or to "define(RECORDIO,#)" for block io
_enddef
define(BLOCKIO)
RECORDIO define(BLOCKIO,# BLOCK IO)
RECORDIO define(MARKSIZE,4)	# size of buffer for mark/point
BLOCKIO  define(MARKSIZE,3)

 
define(DEFAULT_PROMPT,0)
define(DO_PROMPT,1)
define(NO_PROMPT,2)

define(NFLAGS,4)		# command line switch flags
define(HEADER,1)
define(NUMBERS,2)
define(TRIM,3)
define(DELETE,4)

define(BELL,7)
define(BS,8)
define(TAB,9)
define(LF,10)
define(FF,12)
define(CR,13)
define(ESC,27)

define(NPAREN,4)
define(BUFSIZ,512)
define(QBUFSIZ,_arith(BUFSIZ,+,8))
define(MAXMARK,500)
define(MAXINT,2147483647)
define(SCRWIDTH,80)
define(SCRLENGTH,23)

define(DOT,'.')
define(BEGIN_COMMAND_LINE_DOT,'#')
define(LASTLINE,'$')
define(TOPSCRVAR,'@')
define(SAVELINE,'*')
define(CONTROLCHAR,'^')

define(SEARCHCHAR,'/')
define(BACKSEARCH,'\')
define(SEARCH$OK,0)
define(SEARCH$FORWARDFAIL,1)
define(SEARCH$BACKFAIL,2)

define(REDIRECT,'>')
define(REDIRECT$NONE,0)
define(REDIRECT$REDIRECT,1)
define(REDIRECT$APPEND,2)
define(REDIRECT$WILD,4)

define(EOS,0)
define(ARB,10000)
define(ERROR,-1)
define(YES,1)
define(NO,0)
define(EOF,-10)
define(SUCCESS,1)
define(RECORDTOOLONG,-40)
BLOCKIO define(FILECORRUPT,-1053)
define(BUFFEROVERFLOW,-1054)

define(TT$OUT,3)
define(TT$IN,2)
define(FILE$OUT,4)
define(FILE$IN,1)
define(FINDFILE,5)

define(LIST,1)
define(NONE,2)
define(FORTRAN,3)

define(index,indexx)
define(character,byte)
define(biginteger,integer*4)

define(set,$1 = $1 | ($2))
define(isset,((($1) & ($2)) != 0))

_ifdef(VAX)

define(MAXLINE,514)
define(NODESIZE,66)
define(DEVSIZE,65)
define(UICSIZE,82)
define(NAMESIZE,130)				# because of foreign file specs
define(EXTSIZE,5)
define(VERSIZE,7)
define(STD$IN,'SYS$INPUT')
define(STD$OUT,'SYS$OUTPUT')
define(DEFAULT$DISK,EOS)
define(DEFAULT$EXT,'.LIS')
define(DEFAULT$COMMAND,'.COM')
define(DEFAULT$NOEXT,EOS)
define(EXIT_SUCCESS,16%10000001)
define(EXIT_ERROR,16%10000002)

_elsedef

define(MAXLINE,134)
define(NODESIZE,1)
define(DEVSIZE,6)
define(UICSIZE,10)
define(NAMESIZE,10)
define(EXTSIZE,5)
define(VERSIZE,7)
define(STD$IN,'TI:')
define(STD$OUT,'TI:')
define(DEFAULT$DISK,'SY:')
define(DEFAULT$EXT,'.LST')
define(DEFAULT$COMMAND,'.CMD')
define(DEFAULT$NOEXT,'.')
define(EXIT_SUCCESS,1)
define(EXIT_ERROR,2)

_enddef

define(FILENAMESIZE,_arith(_
  _arith(NODESIZE,+,DEVSIZE,+,UICSIZE,+,NAMESIZE,+,EXTSIZE),+,_
  _arith(VERSIZE,-,5)))