@DEF SAV: <BUFFER>
@ERROR ?
@ERROR %
@DIR SAV:
@IF (ERROR) @GOTO BUILD
! MUST START WITH EMPTY OR MISSING AREA <BFFER>
@GOTO FIN
!
BUILD::
@BUILD SAV:
*PERM 7777777
*WORK 7777777
*
@DUMPER
*TAP MTA0:
*ACC SYS
*SUPER ALWAYS
*RESTOR PS:<MFG>*.* PS:<MFG>
*RESTOR SAV:*.* SAV:*.*
*EXIT
! TYPE "^P" TO INSTALL BUFFER
! TYPE "^P" TO ABORT
=^B
@DAY
@DO SAV:MFG-REST.MIC
%FIN::