perm filename SPARES[S,AIL]22 blob sn#210230 filedate 1976-04-11 generic text, type T, neo UTF8
COMMENT ⊗   VALID 00002 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	DSCR SPARES
 00005 ENDMK
⊗;
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.
HERE(SCANC)
	JRST	SCANC.
NOTENX<
HERE(TMPIN)
	JRST	TMPIN.
HERE(TMPOUT)
	JRST	TMPOU.
>;NOTENX
>;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