perm filename SPARES.OLD[S,AIL] 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