# note the order of the next several defines is significant! define(ICR,# ICR ONLY ) define(ICR,# ICR ONLY) # comment this out for export version define(NOTICR,) ICR define(NOTICR,# NOT ICR) # Local ICR functions supported by LIST: define(SRD,) # Invoke LIST on SRD-selected files 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(LF,10) define(CR,13) define(FF,12) define(BUFSIZ,512) define(MAXMARK,1000) define(MAXINT,2147483647) define(SCRWIDTH,80) define(SCRLENGTH,23) define(CURLINE,'.') define(OLDDOT,'#') define(LASTLINE,'$') define(TOPSCRVAR,'@') define(SCRSIZVAR,';') define(SAVELINE,'*') define(SEARCHCHAR,'/') define(BACKSEARCH,'\') define(ESCCHAR,"'") define(BOLSRCH,'%') define(CONTROLCHAR,'^') define(REDIRECT,'>') define(EOS,0) define(ESC,27) define(EOF,-10) define(RECORDTOOLONG,-40) define(ERROR,-1) define(YES,1) define(NO,0) define(MAXLINE,134) define(NONETERM,3) define(TERM,2) define(FILEOUT,4) define(FILEIN,1) define(FINDFILE,5) define(FILENAMESIZE,125) define(NODESIZE,1) define(DEVSIZE,11) define(UICSIZE,81) define(NAMESIZE,21) define(EXTSIZE,5) define(LIST,1) define(NONE,2) define(FORTRAN,3) define(biginteger,integer*4)