	character*20 a,ss
	call getarg(1,ss)
	open(1,file='1.1',status='old')
11	read(1,'(a)',end=10)a
	if(a(1:1).ne.'p')goto 11
	k=lnblnk(a)
	write(*,*)'mkdir '//a(1:k)
        write(*,*)'cd '//a(1:k)
        write(*,*)'cp /batc7/'//ss(1:lnblnk(ss))//'/'//a(1:k)//'/pip* .'
	write(*,*)'ls /batc7/'//ss(1:lnblnk(ss))//'/'//a(1:k)//'/p*.fit >1.1'
	write(*,*)'ch554k 1.1'
	write(*,*)'cd ..'
	if(k.gt.7)write(*,*)'mv '//a//' '//a(1:7)
	goto 11
10	close(1)
	end
