COMMENT ⊗   VALID 00004 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	EXTERNAL SIMPLE PROCEDURE SETSYM 
C00005 00003	EXTERNAL INTEGER SIMPLE PROCEDURE WRITEON(BOOLEAN BINARY  STRING FILENAME) 
C00008 00004	EXTERNAL SIMPLE PROCEDURE OPENFRAME 
C00010 ENDMK
C⊗;
EXTERNAL SIMPLE PROCEDURE SETSYM ;

EXTERNAL INTEGER SIMPLE PROCEDURE LOOKSYM(STRING A) ;

EXTERNAL SIMPLE PROCEDURE ENTERSYM(STRING WORD; INTEGER VAL) ;

COMMENT   P A S S   O N E   P R O C E D U R E S   - - - - - - - - - - - - - - - ;

EXTERNAL STRING SIMPLE PROCEDURE ERRLINE ;

EXTERNAL STRING SIMPLE PROCEDURE WARN(STRING SHORT_VERSION,LONG_VERSION) ;

EXTERNAL STRING SIMPLE PROCEDURE SOMEINPUT ;

EXTERNAL SIMPLE PROCEDURE IMPOSSIBLE(STRING WHERE);

EXTERNAL STRING SIMPLE PROCEDURE CAPITALIZE(STRING MIXEDCASE) ;

EXTERNAL SIMPLE PROCEDURE ZEROSTRINGS(INTEGER STRS; REFERENCE STRING LOCN) ;

EXTERNAL INTEGER SIMPLE PROCEDURE GETREC ;

EXTERNAL SIMPLE PROCEDURE RLEASREC(INTEGER ARRAY A) ;

EXTERNAL INTEGER SIMPLE PROCEDURE GARBAGE ; COMMENT * * * * * TEMPORARY * * * * *  ;
EXTERNAL INTEGER SIMPLE PROCEDURE GARBG2 ; COMMENT """"""""""""""""""""""""" ;

EXTERNAL SIMPLE PROCEDURE GROW(REFERENCE INTEGER ARRAY ARR;
	REFERENCE INTEGER IDA,WDS; INTEGER EXTRA ; STRING WHY) ;

EXTERNAL SIMPLE PROCEDURE SGROW(REFERENCE STRING ARRAY ARR;
	REFERENCE INTEGER IDA,WDS; INTEGER EXTRA ; STRING WHY) ;

EXTERNAL SIMPLE PROCEDURE GROWNESTS ;

EXTERNAL SIMPLE PROCEDURE GROWOWLS(INTEGER EXTRA) ;

EXTERNAL INTEGER SIMPLE PROCEDURE PUSHI(INTEGER WDS, TYP) ;

EXTERNAL INTEGER SIMPLE PROCEDURE PUSHS(INTEGER WDS; STRING FIRST) ;

EXTERNAL INTEGER SIMPLE PROCEDURE PUTI(INTEGER WDS, FIRST) ;

EXTERNAL INTEGER SIMPLE PROCEDURE PUTS(STRING VAL) ;

EXTERNAL SIMPLE PROCEDURE SWICH(STRING NEWINPUTSTR; INTEGER NEWINPUTCHAN, ARGS) ;

EXTERNAL STRING SIMPLE PROCEDURE SWICHBACK ;

EXTERNAL BOOLEAN SIMPLE PROCEDURE SYMLOOK(STRING NAME) ;

EXTERNAL INTEGER SIMPLE PROCEDURE SYMNUM(STRING NAME) ;

EXTERNAL INTEGER SIMPLE PROCEDURE CURRNUM(INTEGER LOC) ;

EXTERNAL BOOLEAN SIMPLE PROCEDURE SIMLOOK(STRING NAME) ;

EXTERNAL INTEGER SIMPLE PROCEDURE SIMNUM(STRING NAME) ;
EXTERNAL INTEGER SIMPLE PROCEDURE WRITEON(BOOLEAN BINARY ; STRING FILENAME) ;

EXTERNAL SIMPLE PROCEDURE DISDECLARE(INTEGER SYMB, OLDTYPE, OLDIX) ;

EXTERNAL INTEGER SIMPLE PROCEDURE DECLARE(INTEGER LOC, NEWTYPE) ;

EXTERNAL STRING SIMPLE PROCEDURE VASSIGN(INTEGER VSYMB, VTYPE, VIX; STRING VAL) ;

EXTERNAL SIMPLE PROCEDURE ASSIGN(STRING NAME, VAL) ;

EXTERNAL SIMPLE PROCEDURE SEND(INTEGER PORTIX; STRING MESSAGE) ;

EXTERNAL SIMPLE PROCEDURE RECEIVE(INTEGER PORTIX; STRING ALPHABETIZE) ;

EXTERNAL RECURSIVE PROCEDURE STATEMENT ;

EXTERNAL SIMPLE PROCEDURE DAPART ;

EXTERNAL SIMPLE PROCEDURE MAKEPAGE(INTEGER HIGH, WIDE) ;

EXTERNAL SIMPLE PROCEDURE MAKEAREA(INTEGER ITSIX) ;

EXTERNAL SIMPLE PROCEDURE COMPMAXIMS ;

EXTERNAL SIMPLE PROCEDURE PLACE(INTEGER NEWAREAIX) ;

EXTERNAL SIMPLE PROCEDURE BEGINBLOCK(BOOLEAN MIDPGPH; INTEGER ECASE; STRING NAME) ;

EXTERNAL RECURSIVE BOOLEAN PROCEDURE ENDBLOCK ;

EXTERNAL SIMPLE PROCEDURE ANYEND(BOOLEAN CHECK) ;

EXTERNAL RECURSIVE PROCEDURE STARTEND ;

EXTERNAL RECURSIVE PROCEDURE BEGINEND ;

EXTERNAL RECURSIVE PROCEDURE ONCEEND ;

EXTERNAL RECURSIVE PROCEDURE RESPEND ;

EXTERNAL BOOLEAN SIMPLE PROCEDURE FINDINSET(INTEGER HM) ;

EXTERNAL INTEGER SIMPLE PROCEDURE FINDSIGNAL(INTEGER SIGASC) ;

EXTERNAL INTEGER SIMPLE PROCEDURE FINDTRAN(INTEGER UASYMB, VARI) ;

EXTERNAL RECURSIVE PROCEDURE RESPOND(INTEGER IX) ;

EXTERNAL SIMPLE PROCEDURE BIND(INTEGER LOC, NEWIX) ;
EXTERNAL SIMPLE PROCEDURE OPENFRAME ;

EXTERNAL SIMPLE PROCEDURE OPENPAGE ;

EXTERNAL RECURSIVE PROCEDURE OPENAREA(INTEGER ITSIX) ;

EXTERNAL RECURSIVE PROCEDURE CLOSET(INTEGER ITSIX; BOOLEAN CLOSEIT, DISDECLAREIT) ;

EXTERNAL RECURSIVE PROCEDURE CLOSEAREA(INTEGER ITSIX; BOOLEAN DISDECLAREIT) ;

EXTERNAL RECURSIVE PROCEDURE CLOSEUNIT(INTEGER ITSIX; BOOLEAN DISDECLAREIT) ;

EXTERNAL PROCEDURE CREUNIT(INTEGER INLINE, PFROM, PCHARS, PBY, PIN; STRING PPRINTING; INTEGER USYMB) ;

EXTERNAL SIMPLE PROCEDURE NOPORTION ;

EXTERNAL SIMPLE PROCEDURE FINPAGE ;

EXTERNAL RECURSIVE PROCEDURE USTEP(INTEGER USYMB, UIX) ;

EXTERNAL SIMPLE PROCEDURE NEXTPAGE ;

EXTERNAL INTEGER SIMPLE PROCEDURE NEWBLANK(INTEGER MOLE) ;

EXTERNAL RECURSIVE INTEGER PROCEDURE FIND_ROOM(INTEGER SOURCE,
	EXTRA, FROMCOL, FROMLINE, MORECOMING) ;

EXTERNAL RECURSIVE PROCEDURE TOCOLUMN(INTEGER COLNO) ;

EXTERNAL RECURSIVE PROCEDURE TOLINE(INTEGER LINENO) ;

EXTERNAL RECURSIVE PROCEDURE SKIPLINES(INTEGER HMLINES) ;

EXTERNAL RECURSIVE PROCEDURE PLACELINE(INTEGER CHARS,POSN,XPOSN,FAKE,
	ABOVE,BELOW,LEADB,FIRSTLBL,JUSTIFY,MORECOMING) ;

EXTERNAL SIMPLE PROCEDURE SWICHF(STRING FILENAME) ;

EXTERNAL SIMPLE PROCEDURE TURN(INTEGER CHR, FUN, ONOFF) ;