IF NOT ABSENT(%A), GOTO 1L
DP 0,PARAMETER MISSING (TAPE SERIAL NUMBER)
EXIT
1L
CREATE !
INPUT !,T))))
DEADSTART,DEADSTART
GUIDE,GUIDE
PROLOGUIDE,PROLOGUIDE
PROLMESSAGES,PROLMESSAGES
PROLSTER,PROLSTER
INICSTER,INICSTER
PROLSOURCE,PROLSOURCE
INICSOURCE,INICSOURCE
BOOTSTRAPTXT,BOOTSTRAPTXT
MONITORTEXT,MONITORTEXT
INICJATOR,INICJATOR
PROLSIZE,PROLSIZE
PROLOG,PROLOG
WARREN,WARREN
PREFIX,PREFIX
SORTSCAN,SORTSCAN
GRAPHSQUEENS,GRAPHSQUEENS
PARSER,PARSER
TRAINS,TRAINS
COMPILER,COMPILER
WARPLAN,WARPLAN
WARPLANTEST1,WARPLANTEST1
WARPLANTEST2,WARPLANTEST2
WARPLANTEST3,WARPLANTEST3
SYSTEMTAPE,SYSTEMTAPE
????
))))
COPYOUT (%A),T????,*CR !
ERASE !
EXIT