perm filename SPARES[S,AIL]18 blob
sn#177040 filedate 1975-09-16 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.
NOSTANFORD<
HERE(BACKUP)
JRST BACKU.
>;NOSTANFORD
>;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