00100	COMMENT ⊗   VALID 00002 PAGES 
00200	RECORD PAGE   DESCRIPTION
00300	 00001 00001
00400	 00002 00002	DSCR SPARES
00500	 00005 ENDMK
00600	⊗;
     

00100	DSCR SPARES
00200	DES
00300		THIS AREA CONTAINS MANY SPARE HERE TABLE ENTRIES.
00400		TO USE A SPARE:
00500		PUT A HEREFK(FOO,FOOFAK) WHERE YOU WANT FOO.
00600		SAY (IN THIS FILE)
00700			HERE(FOO)
00800				JRST FOOFAK
00900		THEN YOU CAN COME BACK & CLEAN UP LATER (WHEN PUTTING UP A NEW
01000		SAISGX.
01100	⊗
01200	
01300	UP <
01400	HERE(CV6STR)
01500		JRST	CV6ST.
01600	NOTENX<
01700	HERE(ERENAME)
01800		JRST	ERENA.
01900			ERR <DRYROT IN HERE SPARES>
02000	>;NOTENX
02100	HERE(CVASTR)
02200		JRST	CVAST.
02300	NRC <
02400	HERE($RECFN)
02500		JRST	$RECF.
02600	HERE($RCINI)
02700		JRST	$RCIN.
02800	>;NRC
02900	
03000	;;%CD%	JFR 6-7-75 PDQ'S NEW RECORD STUFF
03100	HERE($RMARK)
03200		JRST	$RMAR.
03300	;; %CD% ↑
03400	
03500	HERE(SPLICE)		;FANCY STRING MAKER
03600		JRST	SPLIC.
03700	HERE(SPLPRT)		;CONSTRUCT AND OUTSTR USING SPLICE
03800		JRST	SPLPR.
03900	HERE(EDFILE)	;CALL EDITOR
04000		JRST	EDFIL.
04100	NOTENX<
04200	NOSTANFORD<
04300	HERE(BACKUP)
04400		JRST	BACKU.
04500	>;NOSTANFORD
04600	>;NOTENX
04700	
04800	HERE(SETPRINT)
04900		JRST	SETPR.
05000	HERE(GETPRINT)
05100		JRST	GETPR.
05200	HERE($PINT)
05300		JRST 	$PINT.
05400	HERE($PREL)
05500		JRST	$PREL.
05600	HERE($PITM)
05700		JRST	$PITM.
05800	HERE($PSET)
05900		JRST	$PSET.
06000	HERE($PLST)
06100		JRST	$PLST.
06200	HERE($PREC)
06300		JRST	$PREC.
06400	HERE($PSTR)
06500		JRST	$PSTR.
06600	HERE(SCANC)
06700		JRST	SCANC.
06750	NOTENX<
06800	HERE(TMPIN)
06900		JRST	TMPIN.
07000	HERE(TMPOUT)
07100		JRST	TMPOU.
07150	>;notenx
07200	>;UP
07300	
07400	;MORE CAN BE ADDED, UP TO THE CAPACITY OF THE XFER VECTOR
07500	
07600	;;END IT ALL
07700	IFN SEGS,<LIT
07800		VAR
07900	STANFO <
08000		0		;BECAUSE OF THE INCREDIBLE LOSSAGE IN THE PETIT CHANNEL
08100	>;STANFO
08200		DEPHASE 
08300		END	UPWRT>
08400		END
08500	
08600