@TERM LE 0 @SILENCE @ERROR @ENA @DEF FROM: MTA0: @DEF TO: MTA1: @MTCOPY *REWIND (MAGTAPE) FROM: !PLEASE LOAD SCRATCH TAPE ON MTA1: !TYPE CONTROL P WHEN READY ^B *REW TO: *COPY (FROM) FROM: (TO) TO: *REW FROM: *REW TO: @REVIVE *VERIFY (FROM) FROM: (AGAINST) TO: @SILENCE *REWIND (MAGTAPE) FROM: *DISMOUNT TO: *EXIT %CERR:: %TERR:: %ERR:: @ END:: !FINISHED COPYING TAPE ****^G^G^G %FIN::