# define(VAX)
 
# note the order of the next several defines is significant!
 
define(ICR,# ICR ONLY )
define(NOTICR)
ICR define(NOTICR,# NOT ICR)
 
# Local ICR functions supported by LIST:
define(WLD,)			# Invoke LIST on wild card file names
define(DT80,ICR)		# Route output to printer port of DT80
define(HELP)			# Invoke HELP facility for LIST
define(NOHELP,)
HELP define(NOHELP,# NO HELP)
define(WIDTH,ICR)		# Allow screen widths other than SCRWIDTH
 
# Record or Block i/o.
define(RECORDIO,)		# set to define(RECORDIO,) for record io
define(BLOCKIO,)
RECORDIO define(BLOCKIO,# BLOCK IO)
RECORDIO define(MARKSIZE,4)	# size of buffer for mark/point
BLOCKIO  define(MARKSIZE,3)
 
define(BELL,7)
define(BS,8)
define(TAB,9)
define(LF,10)
define(FF,12)
define(CR,13)
define(ESC,27)
define(BUFSIZ,512)
define(QBUFSIZ,_arith(BUFSIZ,+,8))
define(MAXMARK,1000)
define(MAXINT,2147483647)
define(SCRWIDTH,80)
define(SCRLENGTH,23)
define(CURLINE,'.')
define(OLDDOT,'#')
define(FIRSTLINE,'%')
define(LASTLINE,'$')
define(TOPSCRVAR,'@')
define(SAVELINE,'*')
define(SEARCHCHAR,'/')
define(BACKSEARCH,'\')
define(LITERAL,'"')
define(BOL,FIRSTLINE)
define(EOL,LASTLINE)
define(CONTROLCHAR,'^')
define(REDIRECT,'>')
define(EOS,0)
define(EOF,-10)
define(ARB,10000)
define(character,byte)
define(RECORDTOOLONG,-40)
define(ERROR,-1)
define(YES,1)
define(NO,0)
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(biginteger,integer*4)
_ifdef(VAX)
define(MAXLINE,514)
define(NODESIZE,66)
define(DEVSIZE,65)
define(UICSIZE,92)
define(NAMESIZE,10)
define(EXTSIZE,5)
define(VERSIZE,7)
define(index,indexx)
define(STD$IN,'SYS$INPUT:')
define(STD$OUT,'SYS$OUTPUT:')
define(DEFAULT$DISK,'SYS$DISK:')
define(DEFAULT$EXT,'.LIS')
define(DEFAULT$COMMAND,'.COM')
_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,'TO:')
define(DEFAULT$DISK,'SY:')
define(DEFAULT$EXT,'.LST')
define(DEFAULT$COMMAND,'.CMD')
_enddef
define(FILENAMESIZE,_arith(_
  _arith(NODESIZE,+,DEVSIZE,+,UICSIZE,+,NAMESIZE,+,EXTSIZE),+,_
  _arith(VERSIZE,-,5)))