perm filename SPARES[S,AIL] blob sn#429863 filedate 1979-04-07 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	DSCR SPARES
C00005 ENDMK
CāŠ—;
DSCR SPARES
DES
	THIS AREA CONTAINS MANY SPARE HERE TABLE ENTRIES.
	TO USE A SPARE:
	PUT A HEREFK(FOO,FOOFAK) WHERE YOU WANT FOO.
	SAY (IN THIS FILE)
		HERE(FOO)
			JRST FOOFAK
	THEN YOU CAN COME BACK & CLEAN UP LATER (WHEN PUTTING UP A NEW
	SAISGX.
āŠ—

UP <
HERE(CV6STR)
	JRST	CV6ST.
NOTENX<
HERE(ERENAME)
	JRST	ERENA.
		ERR <DRYROT IN HERE SPARES>
>;NOTENX
HERE(CVASTR)
	JRST	CVAST.
NRC <
HERE($RECFN)
	JRST	$RECF.
HERE($RCINI)
	JRST	$RCIN.
>;NRC

;;%CD%	JFR 6-7-75 PDQ'S NEW RECORD STUFF
HERE($RMARK)
	JRST	$RMAR.
;; %CD% ā†‘

HERE(SPLICE)		;FANCY STRING MAKER
	JRST	SPLIC.
HERE(SPLPRT)		;CONSTRUCT AND OUTSTR USING SPLICE
	JRST	SPLPR.
HERE(EDFILE)	;CALL EDITOR
	JRST	EDFIL.
NOTENX<
NOSTANFORD<
HERE(BACKUP)
	JRST	BACKU.
>;NOSTANFORD
>;NOTENX

HERE(SETPRINT)
	JRST	SETPR.
HERE(GETPRINT)
	JRST	GETPR.
HERE($PINT)
	JRST 	$PINT.
HERE($PREL)
	JRST	$PREL.
HERE($PITM)
	JRST	$PITM.
HERE($PSET)
	JRST	$PSET.
HERE($PLST)
	JRST	$PLST.
HERE($PREC)
	JRST	$PREC.
HERE($PSTR)
	JRST	$PSTR.
TYMSHR <
HERE(CHNIOR)
	JRST CHNCR.
HERE(CHNIOV)
	JRST CHNCV.
HERE (IONEOU)
	JRST IONOU.
HERE (AUXCLV)
	JRST AUXCV.
HERE (AUXCLR)
	JRST AUXCR.
HERE (CALLI)
	JRST CALLI.
>
HERE(SCANC)
	JRST	SCANC.

HERE($$DERR)
	JRST	$$DER.
NOTENX<
HERE(TMPIN)
	JRST	TMPIN.
HERE(TMPOUT)
	JRST	TMPOU.
>;NOTENX

HERE(CVEL)
	JRST	CVEL.
HERE($PLRL)
	JRST	$PLRL.
HERE(LREALIN)
	JRST	LREA.IN
HERE(LREALSCAN)
	JRST	LREA.SCAN
TENX<
HERE(SACTF)
	JRST $SACTF
HERE(RCUSR)
	JRST $RCUSR
HERE(RCDIR)
	JRST $RCDIR
HERE(ACCES)
	JRST $ACCES
HERE(RSCAN)
	JRST $RSCAN
HERE(CLOSF$)
	JRST CLOSF.
HERE(DELF$)
	JRST DELF.
HERE(IDTIM$)
	JRST IDTIM.
HERE(ERSTRING)
	JRST ERSTR.
> ;TENX
>;UP

;MORE CAN BE ADDED, UP TO THE CAPACITY OF THE XFER VECTOR

;;END IT ALL
IFN SEGS,<LIT
	VAR
STANFO <
	0		;BECAUSE OF THE INCREDIBLE LOSSAGE IN THE PETIT CHANNEL
>;STANFO
	DEPHASE 
	END	UPWRT>
	END