00100	EXTERNAL SIMPLE PROCEDURE SETSYM ;
00200	
00300	EXTERNAL INTEGER SIMPLE PROCEDURE LOOKSYM(STRING A) ;
00400	
00500	EXTERNAL SIMPLE PROCEDURE ENTERSYM(STRING WORD; INTEGER VAL) ;
00600	
00700	COMMENT   P A S S   O N E   P R O C E D U R E S   - - - - - - - - - - - - - - - ;
00800	
00900	EXTERNAL STRING SIMPLE PROCEDURE ERRLINE ;
01000	
01100	EXTERNAL STRING SIMPLE PROCEDURE WARN(STRING SHORT_VERSION,LONG_VERSION) ;
01200	
01300	EXTERNAL STRING SIMPLE PROCEDURE SOMEINPUT ;
01400	
01500	EXTERNAL SIMPLE PROCEDURE IMPOSSIBLE(STRING WHERE);
01600	
01700	EXTERNAL STRING SIMPLE PROCEDURE CAPITALIZE(STRING MIXEDCASE) ;
01800	
01900	EXTERNAL INTEGER SIMPLE PROCEDURE GETREC ;
02000	
02100	EXTERNAL SIMPLE PROCEDURE RLEASREC(INTEGER ARRAY A) ;
02200	
02300	EXTERNAL INTEGER SIMPLE PROCEDURE GARBAGE ; COMMENT * * * * * TEMPORARY * * * * *  ;
02400	EXTERNAL INTEGER SIMPLE PROCEDURE GARBG2 ; COMMENT """"""""""""""""""""""""" ;
02500	
02600	EXTERNAL SIMPLE PROCEDURE GROW(REFERENCE INTEGER ARRAY ARR;
02700		REFERENCE INTEGER IDA,WDS; INTEGER EXTRA ; STRING WHY) ;
02800	
02900	EXTERNAL SIMPLE PROCEDURE SGROW(REFERENCE STRING ARRAY ARR;
03000		REFERENCE INTEGER IDA,WDS; INTEGER EXTRA ; STRING WHY) ;
03100	
03200	EXTERNAL SIMPLE PROCEDURE GROWNESTS ;
03300	
03400	EXTERNAL SIMPLE PROCEDURE GROWOWLS(INTEGER EXTRA) ;
03500	
03600	EXTERNAL INTEGER SIMPLE PROCEDURE PUSHI(INTEGER WDS, TYP) ;
03700	
03800	EXTERNAL INTEGER SIMPLE PROCEDURE PUSHS(INTEGER WDS; STRING FIRST) ;
03900	
04000	EXTERNAL INTEGER SIMPLE PROCEDURE PUTI(INTEGER WDS, FIRST) ;
04100	
04200	EXTERNAL INTEGER SIMPLE PROCEDURE PUTS(STRING VAL) ;
04300	
04400	EXTERNAL SIMPLE PROCEDURE SWICH(STRING NEWINPUTSTR; INTEGER NEWINPUTCHAN, ARGS) ;
04500	
04600	EXTERNAL STRING SIMPLE PROCEDURE SWICHBACK ;
04700	
04800	EXTERNAL BOOLEAN SIMPLE PROCEDURE SYMLOOK(STRING NAME) ;
04900	
05000	EXTERNAL INTEGER SIMPLE PROCEDURE SYMNUM(STRING NAME) ;
05100	
05200	EXTERNAL INTEGER SIMPLE PROCEDURE CURRNUM(INTEGER LOC) ;
05300	
05400	EXTERNAL BOOLEAN SIMPLE PROCEDURE SIMLOOK(STRING NAME) ;
05500	
05600	EXTERNAL INTEGER SIMPLE PROCEDURE SIMNUM(STRING NAME) ;
     

00100	EXTERNAL INTEGER SIMPLE PROCEDURE WRITEON(BOOLEAN BINARY ; STRING FILENAME) ;
00200	
00300	EXTERNAL SIMPLE PROCEDURE DISDECLARE(INTEGER SYMB, OLDTYPE, OLDIX) ;
00400	
00500	EXTERNAL INTEGER SIMPLE PROCEDURE DECLARE(INTEGER LOC, NEWTYPE) ;
00600	
00700	EXTERNAL STRING SIMPLE PROCEDURE VASSIGN(INTEGER VSYMB, VTYPE, VIX; STRING VAL) ;
00800	
00900	EXTERNAL SIMPLE PROCEDURE ASSIGN(STRING NAME, VAL) ;
01000	
01100	EXTERNAL SIMPLE PROCEDURE SEND(INTEGER PORTIX; STRING MESSAGE) ;
01200	
01300	EXTERNAL SIMPLE PROCEDURE RECEIVE(INTEGER PORTIX; STRING ALPHABETIZE) ;
01400	
01500	EXTERNAL RECURSIVE PROCEDURE STATEMENT ;
01600	
01700	EXTERNAL SIMPLE PROCEDURE DAPART ;
01800	
01900	EXTERNAL SIMPLE PROCEDURE MAKEPAGE(INTEGER HIGH, WIDE) ;
02000	
02100	EXTERNAL SIMPLE PROCEDURE MAKEAREA(INTEGER ITSIX) ;
02200	
02300	EXTERNAL SIMPLE PROCEDURE COMPMAXIMS ;
02400	
02500	EXTERNAL SIMPLE PROCEDURE PLACE(INTEGER NEWAREAIX) ;
02600	
02700	EXTERNAL SIMPLE PROCEDURE BEGINBLOCK(BOOLEAN MIDPGPH; INTEGER ECASE; STRING NAME) ;
02800	
02900	EXTERNAL RECURSIVE BOOLEAN PROCEDURE ENDBLOCK ;
03000	
03100	EXTERNAL SIMPLE PROCEDURE ANYEND(BOOLEAN CHECK) ;
03200	
03300	EXTERNAL RECURSIVE PROCEDURE STARTEND ;
03400	
03500	EXTERNAL RECURSIVE PROCEDURE BEGINEND ;
03600	
03700	EXTERNAL RECURSIVE PROCEDURE ONCEEND ;
03800	
03900	EXTERNAL RECURSIVE PROCEDURE RESPEND ;
04000	
04100	EXTERNAL BOOLEAN SIMPLE PROCEDURE FINDINSET(INTEGER HM) ;
04200	
04300	EXTERNAL INTEGER SIMPLE PROCEDURE FINDSIGNAL(INTEGER SIGASC) ;
04400	
04500	EXTERNAL INTEGER SIMPLE PROCEDURE FINDTRAN(INTEGER UASYMB, VARI) ;
04600	
04700	EXTERNAL RECURSIVE PROCEDURE RESPOND(INTEGER IX) ;
04800	
04900	EXTERNAL SIMPLE PROCEDURE BIND(INTEGER LOC, NEWIX) ;
     

00100	EXTERNAL SIMPLE PROCEDURE OPENFRAME ;
00200	
00300	EXTERNAL SIMPLE PROCEDURE OPENPAGE ;
00400	
00500	EXTERNAL RECURSIVE PROCEDURE OPENAREA(INTEGER ITSIX) ;
00600	
00700	EXTERNAL RECURSIVE PROCEDURE CLOSET(INTEGER ITSIX; BOOLEAN CLOSEIT, DISDECLAREIT) ;
00800	
00900	EXTERNAL RECURSIVE PROCEDURE CLOSEAREA(INTEGER ITSIX; BOOLEAN DISDECLAREIT) ;
01000	
01100	EXTERNAL RECURSIVE PROCEDURE CLOSEUNIT(INTEGER ITSIX; BOOLEAN DISDECLAREIT) ;
01200	
01300	EXTERNAL PROCEDURE CREUNIT(INTEGER INLINE, PFROM, PCHARS, PBY, PIN; STRING PPRINTING; INTEGER USYMB) ;
01400	
01500	EXTERNAL SIMPLE PROCEDURE FINPAGE ;
01600	
01700	EXTERNAL RECURSIVE PROCEDURE USTEP(INTEGER USYMB, UIX) ;
01800	
01900	EXTERNAL SIMPLE PROCEDURE NEXTPAGE ;
02000	
02100	EXTERNAL INTEGER SIMPLE PROCEDURE NEWBLANK(INTEGER MOLE) ;
02200	
02300	EXTERNAL RECURSIVE INTEGER PROCEDURE FIND_ROOM(INTEGER SOURCE,
02400		EXTRA, FROMCOL, FROMLINE, MORECOMING) ;
02500	
02600	EXTERNAL RECURSIVE PROCEDURE TOCOLUMN(INTEGER COLNO) ;
02700	
02800	EXTERNAL RECURSIVE PROCEDURE TOLINE(INTEGER LINENO) ;
02900	
03000	EXTERNAL RECURSIVE PROCEDURE SKIPLINES(INTEGER HMLINES) ;
03100	
03200	EXTERNAL RECURSIVE PROCEDURE PLACELINE(INTEGER CHARS,POSN,FAKE,
03300		ABOVE,BELOW,LEADB,FIRSTLBL,JUSTIFY,MORECOMING) ;
03400	
03500	EXTERNAL SIMPLE PROCEDURE SWICHF(STRING FILENAME) ;
03600	
03700	EXTERNAL SIMPLE PROCEDURE TURN(INTEGER CHR, FUN, ONOFF) ;