00100
00200
00300
00400 PROCEDURES
00100
00200
00300
00400 PORTS PRIVATE SIMPLE STRING PROCEDURE
00500 ALFIZE (STRING FILENAME, LEFTRIGHT) ;
00600 ALGOL PUBLIC SIMPLE PROCEDURE
00700 ALGOL! ;
00800 IFK NOT TENEX THENK
00900 USERS PUBLIC SIMPLE PROCEDURE
01000 ANYSTART (STRING COMDLINE) ;
01100 ENDC
01200 FILLR PUBLIC SIMPLE PROCEDURE
01300 APPEND (STRING CHARS) ;
01400 TEMPL PUBLIC RECURSIVE PROCEDURE
01500 APPLYTOARGUMENTS (BOOLEAN DO!IT, PROCALL) ;
01600 AREAS PUBLIC SIMPLE PROCEDURE
01700 AREAS! ;
01800 VARBL PUBLIC RECURSIVE BOOLEAN PROCEDURE
01900 ASSIGNMENT ;
02000 AREAS PUBLIC RECURSIVE PROCEDURE
02100 ASSUREAREA ;
02200 RESPS PUBLIC RECURSIVE BOOLEAN PROCEDURE
02300 ATLEAD (INTEGER LEADSPACES) ;
02400 BLOCK PUBLIC RECURSIVE PROCEDURE
02500 BEGINBLOCK (BOOLEAN MIDPGPH; INTEGER ECASE ; STRING NAME) ;
02600 DATUM PUBLIC INTEGER PROCEDURE
02700 BIGGER (INTEGER PTR,HM) ;
02740 DATUM PUBLIC INTEGER PROCEDURE
02770 BIGGR2 (INTEGER PTR,HM) ;
02800 TOKEN PUBLIC SIMPLE PROCEDURE
02900 BIND (INTEGER LOC, NEWIX) ;
03000 BLOCK PUBLIC SIMPLE PROCEDURE
03100 BLOCK! ;
03200 QUADS PUBLIC RECURSIVE PROCEDURE
03300 BOUND (INTEGER KIND) ;
03400 AREAS PUBLIC PROCEDURE
03500 BURPAREAS (BOOLEAN VERBOSE) ;
03600 SORCE PUBLIC SIMPLE PROCEDURE
03700 BURPINPUT (BOOLEAN VERBOSE) ;
03800 TOKEN PUBLIC SIMPLE STRING PROCEDURE
03900 CAPITALIZE (STRING MIXEDCASE) ;
04000 CNTRS PRIVATE SIMPLE INTEGER PROCEDURE
04100 CHRSALF (INTEGER INT, ALFABET) ;
04200 ALGOL PUBLIC RECURSIVE BOOLEAN PROCEDURE
04300 CHUNK (BOOLEAN VALID) ;
04400 AREAS PUBLIC RECURSIVE PROCEDURE
04500 CLOSEAREA (INTEGER ITSIX; BOOLEAN DISDECLAREIT) ;
04600 CNTRS PUBLIC RECURSIVE PROCEDURE
04700 CLOSECOUNTER (INTEGER ITSIX; BOOLEAN DISDECLAREIT) ;
04800 RESPS PUBLIC RECURSIVE PROCEDURE
04900 CLOSET (INTEGER ITSIX; BOOLEAN CLOSEIT, DISDECLAREIT) ;
05000 CNTRS PUBLIC SIMPLE PROCEDURE
05100 CNTRS! ;
05200 COLMS PUBLIC SIMPLE INTEGER PROCEDURE
05300 COLSLEFT ;
05400 COMMD PUBLIC RECURSIVE BOOLEAN PROCEDURE
05500 COMMAND ;
05600 COMMD PUBLIC SIMPLE PROCEDURE
05700 COMMD! ;
05800 FILLR PUBLIC SIMPLE PROCEDURE
05900 COMPMAXIMS ;
06000 DATUM PUBLIC SIMPLE INTEGER PROCEDURE
06100 CREATE2 (INTEGER LB1, UB1, LB2, UB2) ;
00100
00200
00300
00400 CNTRS PUBLIC PROCEDURE
00500 CRECOUNTER (INTEGER INLINE, PFROM, PTO, PBY, PIN; STRING
00600 PPRINTING; INTEGER USYMB) ;
00700 CTRLC PUBLIC SIMPLE PROCEDURE
00800 CTRLC! ;
00900 CNTRS PRIVATE SIMPLE STRING PROCEDURE
01000 CVALF (INTEGER ALFABET, VAL) ;
01100 IFK TENEX THENK
01200 FILES PRIVATE SIMPLE STRING PROCEDURE
01300 CVFIL (STRING FILENAME; REFERENCE STRING EXT, PPN) ;
01400 ENDC
01500 IFK CMUVER THENK
01600 FILES PRIVATE SIMPLE STRING PROCEDURE
01700 CVPPN (INTEGER VALUE) ;
01800 ENDC
01900 COLMS PUBLIC SIMPLE PROCEDURE
02000 DAPART ;
02100 AREAS PUBLIC RECURSIVE PROCEDURE
02200 DAREA (BOOLEAN TITAREA) ;
02300 DATUM PUBLIC SIMPLE PROCEDURE
02400 DATUM! ;
02500 PAGES PUBLIC RECURSIVE PROCEDURE
02600 DBLANKPAGE ;
02700 PASTE PUBLIC RECURSIVE PROCEDURE
02800 DBREAK ;
02900 USERS PUBLIC SIMPLE PROCEDURE
03000 DBURP ;
03100 AREAS PUBLIC RECURSIVE PROCEDURE
03200 DCLOSE ;
03300 COMMD PRIVATE SIMPLE PROCEDURE
03400 DCOMMANDCHARACTER ;
03500 ALGOL PUBLIC RECURSIVE PROCEDURE
03600 DCONDITIONAL ;
03700 CNTRS PUBLIC SIMPLE PROCEDURE
03800 DCOUNT ;
03900 FONTS PUBLIC SIMPLE PROCEDURE
04000 DDEVICE ;
04100 TEMPL PUBLIC SIMPLE PROCEDURE
04200 DDONE (BOOLEAN RETURNS) ;
04300 TOKEN PUBLIC SIMPLE INTEGER PROCEDURE
04400 DECLARE (INTEGER LOC, NEWTYPE) ;
04500 TEMPL PUBLIC SIMPLE STRING PROCEDURE
04600 DEFN (BOOLEAN SUBSTVARIABLES,FORFILE; INTEGER ARGS,
04700 IBASE) ;
04800 FONTS PUBLIC SIMPLE PROCEDURE
04900 DFONT (BOOLEAN SELECT) ;
05000 PAGES PUBLIC RECURSIVE PROCEDURE
05100 DFRAME (BOOLEAN BOXFRM) ;
05200 VERTI PUBLIC SIMPLE BOOLEAN PROCEDURE
05300 DIMENSIONED (INTEGER DEFAULT; REFERENCE INTEGER K) ;
05400 QUADS PUBLIC SIMPLE PROCEDURE
05500 DINDENT ;
05600 PORTS PUBLIC SIMPLE PROCEDURE
05700 DINSERT ;
05800 TOKEN PUBLIC SIMPLE PROCEDURE
05900 DISDECLARE (INTEGER SYMB, OLDTYPE, OLDIX) ;
06000 TEMPL PUBLIC SIMPLE PROCEDURE
06100 DMACRO (INTEGER ODDONE) ;
06200 COLMS PUBLIC SIMPLE PROCEDURE
06300 DMARGINS (BOOLEAN INWARD) ;
00100
00200
00300
00400 CNTRS PUBLIC RECURSIVE PROCEDURE
00500 DNEXT ;
00600 FONTS PUBLIC SIMPLE PROCEDURE
00700 DPICHAR ;
00800 PORTS PUBLIC SIMPLE PROCEDURE
00900 DPORTION ;
01000 VERTI PUBLIC SIMPLE PROCEDURE
01100 DPREFACE ;
01200 USERS PUBLIC SIMPLE PROCEDURE
01300 DPUB!DEBUG ;
01400 PORTS PUBLIC SIMPLE PROCEDURE
01500 DRECEIVE ;
01600 TEMPL PUBLIC SIMPLE PROCEDURE
01700 DREPEAT ;
01800 SORCE PUBLIC SIMPLE PROCEDURE
01900 DREQUIRE ;
02000 RESPS PUBLIC SIMPLE PROCEDURE
02100 DRESPONSE (INTEGER COMDWD) ;
02200 PORTS PUBLIC SIMPLE PROCEDURE
02300 DSEND ;
02400 VERTI PUBLIC RECURSIVE PROCEDURE
02500 DSKIP (BOOLEAN GRPSKIP) ;
02600 CTRLC PUBLIC SIMPLE PROCEDURE
02700 DSNEAK ;
02800 VERTI PUBLIC SIMPLE PROCEDURE
02900 DSPACING ;
03000 QUADS PUBLIC SIMPLE PROCEDURE
03100 DSUPERIMPOSE ;
03200 QUADS PUBLIC SIMPLE PROCEDURE
03300 DTABS ;
03400 CTRLC PUBLIC SIMPLE PROCEDURE
03500 DTURN (BOOLEAN TURNON) ;
03600 ERROR PUBLIC SIMPLE PROCEDURE
03700 DUSERERR ;
03800 VARBL PUBLIC SIMPLE PROCEDURE
03900 DVARIABLE ;
04000 ALGOL PUBLIC RECURSIVE STRING PROCEDURE
04100 E (STRING DEFAULT, STOPWORD) ;
04200 ERROR PUBLIC SIMPLE STRING PROCEDURE
04300 EARLYWARNING (STRING MESSG) ;
04400 FILLR PUBLIC RECURSIVE PROCEDURE
04500 EMIT (STRING CHARS) ;
04600 FILLR PUBLIC RECURSIVE PROCEDURE
04700 EMITPIECE (STRING CHARS; INTEGER NCHARS, XCHARL) ;
04800 ALGOL PRIVATE SIMPLE BOOLEAN PROCEDURE
04900 EMPTYCHUNK ;
05000 FILLR PUBLIC SIMPLE PROCEDURE
05100 EMSPACES (INTEGER N) ;
05200 BLOCK PUBLIC SIMPLE PROCEDURE
05300 ENDANY (BOOLEAN CHECK) ;
05400 BLOCK PUBLIC RECURSIVE PROCEDURE
05500 ENDBEGIN ;
05600 BLOCK PUBLIC RECURSIVE BOOLEAN PROCEDURE
05700 ENDBLOCK ;
05800 CTRLC PRIVATE SIMPLE BOOLEAN PROCEDURE
05900 ENDOFSEGMENT ;
06000 BLOCK PUBLIC RECURSIVE PROCEDURE
06100 ENDONCE ;
06200 BLOCK PUBLIC RECURSIVE PROCEDURE
06300 ENDRESP ;
06400 BLOCK PUBLIC RECURSIVE PROCEDURE
06500 ENDSTART ;
00100
00200
00300
00400 PASTE PUBLIC SIMPLE STRING PROCEDURE
00500 ENOUGH (STRING STR ; INTEGER WID, F) ;
00600 TOKEN PRIVATE PROCEDURE
00700 ENTERSYM (STRING WORD; INTEGER VAL) ;
00800 ERROR PUBLIC SIMPLE STRING PROCEDURE
00900 ERRLINE ;
01000 ERROR PUBLIC SIMPLE PROCEDURE
01100 ERROR! ;
01200 VARBL PUBLIC SIMPLE STRING PROCEDURE
01300 EVALV (STRING THISWD ; INTEGER IX, TYP) ;
01400 TOKEN PUBLIC SIMPLE PROCEDURE
01500 FAMILYHAS (INTEGER FAMNUM; STRING MEMBERS) ;
01600 FILES PUBLIC SIMPLE PROCEDURE
01700 FILES! ;
01800 FILLR PUBLIC SIMPLE PROCEDURE
01900 FILLR! ;
02000 CTRLC PRIVATE INTEGER PROCEDURE
02100 FIND!CHR (INTEGER CHR) ;
02200 PASTE PUBLIC RECURSIVE INTEGER PROCEDURE
02300 FIND!ROOM (INTEGER SOURCE, EXTRA, FROMCOL, FROMLINE,
02400 MORECOMING) ;
02500 RESPS PUBLIC SIMPLE BOOLEAN PROCEDURE
02600 FINDINSET (INTEGER HM) ;
02700 RESPS PUBLIC SIMPLE INTEGER PROCEDURE
02800 FINDSIGNAL (INTEGER SIGASC) ;
02900 RESPS PUBLIC SIMPLE INTEGER PROCEDURE
03000 FINDTRAN (INTEGER UASYMB, VARI) ;
03100 DATUM PUBLIC SIMPLE PROCEDURE
03200 FINIDATUM ;
03300 FILES PUBLIC SIMPLE PROCEDURE
03400 FINIFILES ;
03500 PAGES PUBLIC SIMPLE PROCEDURE
03600 FINIPAGES ;
03700 XREFS PUBLIC SIMPLE PROCEDURE
03800 FINIXREFS ;
03900 PAGES PUBLIC PROCEDURE
04000 FINPAGE ;
04100 PORTS PUBLIC SIMPLE PROCEDURE
04200 FINPORTION ;
04300 PAGES PUBLIC SIMPLE PROCEDURE
04400 FIXFRAME (INTEGER FRIDA) ;
04500 FONTS PUBLIC SIMPLE STRING PROCEDURE
04600 FONTEQUIV (STRING ABBREV) ;
04700 FONTS PUBLIC SIMPLE PROCEDURE
04800 FONTS! ;
04900 DATUM PUBLIC SIMPLE PROCEDURE
05000 GOAWAY (INTEGER I) ;
05100 DATUM PUBLIC SIMPLE PROCEDURE
05200 GROW (REFERENCE INTEGER ARRAY ARR; REFERENCE INTEGER
05300 IDA,WDS; INTEGER EXTRA; STRING WHY) ;
05340 AREAS PUBLIC SIMPLE PROCEDURE
05370 GROWAA (INTEGER EXTRA) ;
05400 SORCE PUBLIC SIMPLE PROCEDURE
05500 GROWNESTS ;
05600 PAGES PUBLIC SIMPLE PROCEDURE
05700 GROWOWLS (INTEGER EXTRA) ;
05800 ERROR PUBLIC SIMPLE PROCEDURE
05900 IMPOSSIBLE (STRING WHERE) ;
06000 IFK TENEX THENK
06100 ERROR PRIVATE SIMPLE STRING PROCEDURE
06200 INCHWL ;
06300 ENDC
00100
00200
00300
00400 IFK TENEX THENK
00500 USERS PRIVATE SIMPLE INTEGER PROCEDURE
00600 ININTEGER (INTEGER NUMBER) ;
00700 ENDC
00800 RUNP2 PUBLIC SIMPLE PROCEDURE
00900 INTERMEDIATEFILES ;
01000 XREFS PUBLIC SIMPLE BOOLEAN PROCEDURE
01100 LABELDEF ;
01200 XREFS PUBLIC SIMPLE STRING PROCEDURE
01300 LABELREF (INTEGER USYMB, LEN) ;
01400 PASTE PUBLIC SIMPLE INTEGER PROCEDURE
01500 LINESLEFT ;
01600 PORTS PRIVATE SIMPLE INTEGER PROCEDURE
01700 LOG2 (INTEGER BINARY) ;
01800 TOKEN PRIVATE INTEGER PROCEDURE
01900 LOOKSYM (STRING A) ;
02000 AREAS PUBLIC SIMPLE PROCEDURE
02100 MAKEAREA (INTEGER ITSIX) ;
02200 PAGES PUBLIC SIMPLE PROCEDURE
02300 MAKEPAGE (INTEGER HIGH, WIDE) ;
02400 ALGOL PUBLIC SIMPLE PROCEDURE
02500 MANUSCRIPT ;
02600 FONTS PUBLIC SIMPLE STRING PROCEDURE
02700 MASH (STRING S) ;
02800 COLMS PUBLIC RECURSIVE BOOLEAN PROCEDURE
02900 MOVEGROUP (BOOLEAN OFFPAGE ; INTEGER TOCOL, TOLINE, EXTRA) ;
03000 PASTE PUBLIC SIMPLE INTEGER PROCEDURE
03100 NEWBLANK (INTEGER MOLE) ;
03200 PASTE PUBLIC SIMPLE INTEGER PROCEDURE
03300 NEWNEWBLANK (INTEGER NMOLE) ;
03400 CNTRS PUBLIC RECURSIVE PROCEDURE
03500 NEXTCOUNTER (INTEGER USYMB, UIX) ;
03600 PAGES PUBLIC SIMPLE PROCEDURE
03700 NEXTPAGE ;
03800 CNTRS PUBLIC SIMPLE INTEGER PROCEDURE
03900 NEXTSTATEMENT ;
04000 ALGOL PRIVATE SIMPLE BOOLEAN PROCEDURE
04100 NONSENSE (BOOLEAN VALID) ;
04200 PORTS PUBLIC SIMPLE PROCEDURE
04300 NOPORTION ;
04400 ERROR PRIVATE SIMPLE INTEGER PROCEDURE
04500 NREPORT (INTEGER LOC; STRING MESG, RSP) ;
04600 FILLR PUBLIC SIMPLE PROCEDURE
04700 OKCR (BOOLEAN EVEN!IN!SUPERSUBSCRIPT) ;
04800 FILLR PRIVATE SIMPLE PROCEDURE
04900 OKSP (BOOLEAN EVEN!BEFORE!LMARG) ;
05000 AREAS PUBLIC RECURSIVE PROCEDURE
05100 OPENAREA (INTEGER ITSIX) ;
05200 PAGES PUBLIC SIMPLE PROCEDURE
05300 OPENFRAME ;
05400 PAGES PUBLIC SIMPLE PROCEDURE
05500 OPENPAGE ;
05600 FILES PUBLIC INTEGER PROCEDURE
05700 OPENTOREAD (INTEGER MODE ; STRING FILEKIND ; REFERENCE STRING
05800 FILENAME; IFC TENEX THENC STRING ELSEC INTEGER ENDC
05900 EXTDEFAULT, PPNDEFAULT) ;
06000 PASTE PRIVATE SIMPLE INTEGER PROCEDURE
06100 OWLOUT (STRING C1,C2,C3) ;
06200 PASTE PRIVATE SIMPLE PROCEDURE
06300 OWLPLACE (INTEGER OWLOUTVALUE, MILLLEAD) ;
00100
00200
00300
00400 PAGES PUBLIC SIMPLE PROCEDURE
00500 PAGES! ;
00600 COMMD PUBLIC RECURSIVE PROCEDURE
00700 PARAMS (INTEGER MOST; STRING ARRAY PRE,PAR,POST) ;
00800 TOKEN PUBLIC RECURSIVE STRING PROCEDURE
00900 PASS ;
01000 PASTE PUBLIC SIMPLE PROCEDURE
01100 PASTE! ;
01200 FONTS PUBLIC SIMPLE INTEGER PROCEDURE
01300 PERUSEFONT (INTEGER WHICH, CHAN) ;
01400 FILLR PUBLIC RECURSIVE PROCEDURE
01500 PGPHSTART ;
01600 FONTS PUBLIC SIMPLE STRING PROCEDURE
01700 PICKFONT (INTEGER F) ;
01800 AREAS PUBLIC SIMPLE PROCEDURE
01900 PLACE (INTEGER NEWAREAIX) ;
02000 PASTE PUBLIC RECURSIVE PROCEDURE
02100 PLACELINE (INTEGER CHARS,POSN,XPOSN,FAKE,
02200 ABOVE,BELOW,LEADB,MLEADB,FIRSTLBL,
02300 JUSTIFY,MORECOMING) ;
02400 PORTS PUBLIC SIMPLE PROCEDURE
02500 PORTS! ;
02600 TEMPL PUBLIC RECURSIVE STRING PROCEDURE
02700 PROCSTATEMENT ;
02800 DATUM PUBLIC SIMPLE INTEGER PROCEDURE
02900 PUSHI (INTEGER WDS, TYP) ;
03000 DATUM PUBLIC SIMPLE INTEGER PROCEDURE
03100 PUSHS (INTEGER WDS; STRING FIRST) ;
03200 DATUM PUBLIC SIMPLE INTEGER PROCEDURE
03300 PUTI (INTEGER WDS, FIRST) ;
03400 DATUM PUBLIC SIMPLE INTEGER PROCEDURE
03500 PUTS (STRING VAL) ;
03600 QUADS PUBLIC SIMPLE PROCEDURE
03700 QUADS! ;
03800 PORTS PRIVATE PROCEDURE
03900 QUICKERSORT (INTEGER J, BASE) ;
04000 SORCE PUBLIC SIMPLE STRING PROCEDURE
04100 RD (INTEGER BRKTBL) ;
04200 TOKEN PUBLIC SIMPLE PROCEDURE
04300 RDENTITY ;
04400 FONTS PUBLIC SIMPLE PROCEDURE
04500 READFONT (INTEGER WHICH; STRING FILENAME, BFILENAME) ;
04600 PORTS PUBLIC SIMPLE PROCEDURE
04700 RECEIVE (INTEGER PORTIX; STRING ALPHABETIZE) ;
04800 AREAS PUBLIC SIMPLE PROCEDURE
04900 REMNULLS ;
05000 ERROR PUBLIC SIMPLE INTEGER PROCEDURE
05100 REPORT (INTEGER LOC; STRING MESG, RSP) ;
05200 RESPS PUBLIC RECURSIVE PROCEDURE
05300 RESPOND (INTEGER IX) ;
05400 RESPS PUBLIC SIMPLE PROCEDURE
05500 RESPS! ;
05600 FONTS PUBLIC SIMPLE INTEGER PROCEDURE
05700 RFONT (INTEGER F) ;
05800 IFK NOT TENEX THENK
05900 USERS PUBLIC SIMPLE PROCEDURE
06000 RPGSTART ;
06100 ENDC
00100
00200
00300
00400 IFK CMUVER THENK
00500 USERS PUBLIC SIMPLE PROCEDURE
00600 RUNLIBPROG (STRING FILENAME) ;
00700 ENDC
00800 RUNP2 PUBLIC PROCEDURE
00900 RUNPASS2 ;
01000 DATUM PUBLIC INTEGER PROCEDURE
01100 SBIGGER (INTEGER PTR,HM) ;
01200 CTRLC PUBLIC RECURSIVE PROCEDURE
01300 SCANTEXT ;
01400 IFK TENEX THENK
01500 FILES PRIVATE STRING PROCEDURE
01600 SCANTO (STRING BRKS; REFERENCE STRING SCANNEE; BOOLEAN
01700 INCLUDE) ;
01800 ENDC
01900 DATUM PUBLIC SIMPLE INTEGER PROCEDURE
02000 SCREATE (INTEGER LB1, UB1) ;
02100 QUADS PUBLIC SIMPLE PROCEDURE
02200 SCRIPT (INTEGER ARROW) ;
02300 FONTS PUBLIC SIMPLE PROCEDURE
02400 SELECTFONT (INTEGER WHICH) ;
02500 PORTS PUBLIC SIMPLE PROCEDURE
02600 SEND (INTEGER PORTIX; STRING MESSG) ;
02700 FONTS PUBLIC SIMPLE PROCEDURE
02800 SETDEVICEPARAMETERS (INTEGER DEVICE) ;
02900 TOKEN PRIVATE PROCEDURE
03000 SETSYM ;
03100 IFK TENEX THENK
03200 FILES PUBLIC SIMPLE PROCEDURE
03300 SFBSZ (INTEGER CHAN, SIZE) ;
03400 ENDC
03500 DATUM PUBLIC SIMPLE PROCEDURE
03600 SGROW (REFERENCE STRING ARRAY ARR; REFERENCE INTEGER
03700 IDA,WDS ; INTEGER EXTRA; STRING WHY) ;
03800 RESPS PUBLIC SIMPLE BOOLEAN PROCEDURE
03900 SIGNA (INTEGER SIGCH1) ;
04000 TOKEN PUBLIC SIMPLE BOOLEAN PROCEDURE
04100 SIMLOOK (STRING NAME) ;
04200 TOKEN PUBLIC SIMPLE INTEGER PROCEDURE
04300 SIMNUM (STRING NAME) ;
04400 COMMD PUBLIC RECURSIVE STRING PROCEDURE
04500 SIMPAR ;
04600 VERTI PUBLIC RECURSIVE PROCEDURE
04700 SKIPLINES (INTEGER HMLINES) ;
04800 ERROR PUBLIC SIMPLE STRING PROCEDURE
04900 SOMEINPUT ;
05000 SORCE PUBLIC SIMPLE PROCEDURE
05100 SORCE! ;
05200 FILLR PUBLIC SIMPLE STRING PROCEDURE
05300 SPS (INTEGER N) ;
05400 IFK NOT TENEX THENK
05500 USERS PUBLIC SIMPLE PROCEDURE
05600 SSTART ;
05700 ENDC
05800 ALGOL PUBLIC RECURSIVE BOOLEAN PROCEDURE
05900 STATEMENT ;
06000 PORTS PUBLIC SIMPLE BOOLEAN PROCEDURE
06100 STRLSS (INTEGER XI, YI) ;
00100
00200
00300
00400 IFK TENEX THENK
00500 USERS PRIVATE SIMPLE BOOLEAN PROCEDURE
00600 SUBCOMMAND (INTEGER NUMBER) ;
00700 ENDC
00800 USERS PRIVATE SIMPLE STRING PROCEDURE
00900 SUBST (STRING STR, OLDS, NEWFIRST, NEWREST) ;
01000 DATUM PUBLIC SIMPLE INTEGER PROCEDURE
01100 SWHATIS (STRING ARRAY A) ;
01200 SORCE PUBLIC SIMPLE PROCEDURE
01300 SWICH (STRING NEWINPUTSTR; INTEGER NEWINPUTCHAN, ARGS) ;
01400 SORCE PUBLIC SIMPLE STRING PROCEDURE
01500 SWICHBACK ;
01600 SORCE PUBLIC SIMPLE PROCEDURE
01700 SWICHF (STRING FILENAME) ;
01800 SORCE PRIVATE SIMPLE PROCEDURE
01900 SWICHFILE (STRING FILENAME ; INTEGER CHAN) ;
02000 FONTS PUBLIC SIMPLE PROCEDURE
02100 SWITCHFONT (INTEGER WHICH) ;
02200 TOKEN PUBLIC SIMPLE BOOLEAN PROCEDURE
02300 SYMLOOK (STRING NAME) ;
02400 TOKEN PUBLIC SIMPLE INTEGER PROCEDURE
02500 SYMNUM (STRING NAME) ;
02600 QUADS PUBLIC RECURSIVE PROCEDURE
02700 TABTO (INTEGER POSNO) ;
02800 TEMPL PUBLIC SIMPLE PROCEDURE
02900 TEMPL! ;
03000 IFK TENEX THENK
03100 USERS PUBLIC SIMPLE PROCEDURE
03200 TENEXSTART ;
03300 ENDC
03400 FILLR PUBLIC RECURSIVE BOOLEAN PROCEDURE
03500 TEXTLINE ;
03600 FILLR PRIVATE RECURSIVE PROCEDURE
03700 TEXTSEGMENT ;
03800 COLMS PUBLIC RECURSIVE PROCEDURE
03900 TOCOLUMN (INTEGER COLNO) ;
04000 BLOCK PUBLIC RECURSIVE PROCEDURE
04100 TOEND ;
04200 TOKEN PUBLIC SIMPLE PROCEDURE
04300 TOKEN! ;
04400 VERTI PUBLIC RECURSIVE PROCEDURE
04500 TOLINE (INTEGER LINENO) ;
04600 PASTE PRIVATE SIMPLE INTEGER PROCEDURE
04700 TOPMOST (INTEGER COLNO, LINO) ;
04800 FONTS PUBLIC SIMPLE STRING PROCEDURE
04900 TRUNCATE (STRING STR; INTEGER LEN) ;
05000 CTRLC PUBLIC SIMPLE PROCEDURE
05100 TURN (INTEGER CHR,FUN,ONOFF) ;
05200 ERROR PUBLIC STRING PROCEDURE
05300 TYPEIN ;
05400 IFK TENEX THENK
05500 FILES PUBLIC SIMPLE STRING PROCEDURE
05600 UNCVFIL (INTEGER CHAN; STRING NAME, EXT, PPN) ;
05700 ENDC
05800 IFK NOT TENEX THENK
05900 FILES PUBLIC SIMPLE STRING PROCEDURE
06000 UNCVFIL (INTEGER CHAN, NAME, EXT, PPN) ;
06100 ENDC
06200 QUADS PUBLIC SIMPLE PROCEDURE
06300 UNSCRIPT (INTEGER ARROW) ;
00100
00200
00300
00400 USERS PUBLIC SIMPLE PROCEDURE
00500 USERS! ;
00600 VARBL PUBLIC SIMPLE PROCEDURE
00700 VARASSIGN (STRING NAME, VAL) ;
00800 VARBL PUBLIC SIMPLE PROCEDURE
00900 VARBL! ;
01000 VARBL PUBLIC SIMPLE STRING PROCEDURE
01100 VASSIGN (INTEGER VSYMB, VTYPE, VIX; STRING VAL) ;
01200 VERTI PUBLIC SIMPLE PROCEDURE
01300 VERTI! ;
01400 VARBL PUBLIC SIMPLE STRING PROCEDURE
01500 VEVAL ;
01600 TEMPL PUBLIC SIMPLE PROCEDURE
01700 WARNLONG (STRING SEGM, MESG) ;
01800 ERROR PUBLIC SIMPLE STRING PROCEDURE
01900 WARNN (REFERENCE BOOLEAN QUIETER; STRING
02000 SHORT!VERSION,LONG!VERSION) ;
02100 DATUM PUBLIC SIMPLE INTEGER PROCEDURE
02200 WHATIS (INTEGER ARRAY A) ;
02300 FILES PUBLIC SIMPLE INTEGER PROCEDURE
02400 WRITEON (BOOLEAN BINARY; STRING FILENAME) ;
02500 FONTS PUBLIC SIMPLE INTEGER PROCEDURE
02600 XLENGTH (STRING CHARS) ;
02700 IFK TENEX THENK
02800 FILES PUBLIC SIMPLE BOOLEAN PROCEDURE
02900 XLOOKUP (INTEGER CHAN; STRING NAME, EXT; INTEGER JUNK;
03000 STRING PPN) ;
03100 ENDC
03200 IFK NOT TENEX THENK
03300 FILES PUBLIC SIMPLE BOOLEAN PROCEDURE
03400 XLOOKUP (INTEGER CHAN, NAME, EXT, JUNK, PPN) ;
03500 ENDC
03600 XREFS PUBLIC SIMPLE PROCEDURE
03700 XREFS! ;
03800 FONTS PUBLIC SIMPLE INTEGER PROCEDURE
03900 XSPLEN (INTEGER N) ;
04000 DATUM PUBLIC SIMPLE PROCEDURE
04100 ZEROSTRINGS (INTEGER STRS; REFERENCE STRING LOCN) ;
04200 DATUM PUBLIC SIMPLE PROCEDURE
04300 ZEROWORDS (INTEGER WDS; REFERENCE INTEGER LOCN) ;
04400
04500
04600 FINISHED