	.enable substitution,control-z,escape,global
	.disable display,lowercase,timeout
.;
	mount/for mu0:
	.if <exstat> eq 1 .goto tapeok
!
! Error -- could not mount MU0:
!
	.exit 2
.tapeok:
!	backup /rew/new/noini/save=sysmgr mu0: lb0:
	.testfile lb:[sysmgr]user.dat
	.if <filerr> eq 1 .goto fileok
!
! Error -- on LB:[sysmgr]USER.DAT '<filerr>'
!
	dismount/sil mu0:
	.exit 2
.fileok:
	.openr lb:[sysmgr]user.dat
	backup /dir/new/noini/save=001002 mu0: lb0:
	backup /dir/new/noini/save=003054 mu0: lb0:
.loop:
	.read direct
	.ift <eof> .goto done
	backup /dir/noini/save='direct' mu0: lb0:
	.goto loop
.done:
	.close
	dismount/sil mu0:
	.exit
