cd `pwd`
(rm rc.ds)2>/dev/null
s=`(ls *.tds)2>/dev/null | wc -l`
if [ $s -ge 9 ]
then
	num=9
else
	num=`expr $s + 1`
fi
echo "while [ 1 -eq 1 ]" >>rc.ds
echo "do" >>rc.ds
echo -n "(dialog --menu \"Choose casette:\" 20 40 $num " >>rc.ds
echo -n "new.tds \"Read new cassete\" " >>rc.ds
if [ $s -ne 0 ]
then
	for name in *.tds
	do
		echo -n "$name `head -n 1 $name` " >>rc.ds
	done
fi
echo ")2>temp0002.ds" >>rc.ds
echo "fname=\`head -n 1 temp0002.ds\`" >>rc.ds
echo "rm temp0002.ds" >>rc.ds
echo "if \`test -z \$fname\`" >>rc.ds
echo "then" >>rc.ds
echo "exit" >>rc.ds
echo "fi" >>rc.ds
echo "if \`test \$fname = \"new.tds\"\`" >>rc.ds
echo "then" >>rc.ds
echo "(exec save)" >>rc.ds
echo "rtape" >>rc.ds
echo "exit 1" >>rc.ds
echo "else" >>rc.ds
echo "num=\`cat \$fname | wc -l \`" >>rc.ds
echo "num=\`expr \$num - 1 \`" >>rc.ds
echo "ef=0" >>rc.ds
echo "while [ \$ef -eq 0 ] " >>rc.ds
echo "do" >>rc.ds
msg1="           Detected \$num records  in cassete.\\n"
msg2="       Enter record to read and wait until done.\\n"
msg3="                Or enter 0 to read whole disk.\\n"
echo "dialog --msgbox \"$msg1$msg2$msg3 \" 7 60" >>rc.ds
msg1="\"Choose record number (0 - all)\""
echo "(dialog --inputbox $msg1 7 50)2>temp0002.ds " >>rc.ds 
echo "rec=\`head -n 1 temp0002.ds\`" >>rc.ds
echo "rm temp0002.ds" >>rc.ds
echo "if [ \$rec -le \$num ]" >>rc.ds
echo "then" >>rc.ds
echo "ef=1" >>rc.ds
echo "fi" >>rc.ds
echo "done">>rc.ds
echo "(exec dump \$fname \$rec)" >> rc.ds
echo "fi" >>rc.ds
echo "done" >>rc.ds


chmod +x rc.ds
(exec rc.ds)
if [ $? -eq 1 ]
then
	exit
fi
(rm sur)2>/dev/null
(rm rc.ds)2>/dev/null
dialog --yesno "Do you want paw ?" 8 60
if [ $? -eq 0 ]
then
	dialog --infobox "Wait!!!" 3 60
	(rm 1$s.kumac)2>/dev/null
	(rm 2$s.kumac)2>/dev/null
	(rm 3$s.kumac)2>/dev/null
	(rm 4$s.kumac)2>/dev/null
	(rm 5$s.kumac)2>/dev/null
	(mv ~/.pawlogon.kumac pl.k)2>/dev/null
	(mv ~/.Xdefaults xdefaults)2>/dev/null
	(mv ~/.xinitrc initrc)2>/dev/null
#	cat initrc >> ~/.xinitrc
	echo "paw++" >> ~/.xinitrc
	echo "Paw++*kxtermGeometry:			1x1+0+0"        >>~/.Xdefaults
	echo "Paw++*kuipBrowser_shell.geometry:	        1x1+0+0"        >>~/.Xdefaults
	echo "Paw++*kuipGraphics_shell.geometry:        1018x500+0+235" >>~/.Xdefaults
	pj=0
	pi=0
	for name in *.sds
	do
		pi=`expr $pi + 1`
		pj=`expr $pj + 1`
		if [ $pj -gt 9 ] 
		then 
			pjj=$pj
		else
			pjj=0$pj
		fi 
		
		i=1
		k=""
		s=""
		ok=1
		while [ $ok -eq 1 ]
		do 	
			k=`echo $name | cut -c $i`
			scmp $k .
			if [ $? -eq 0 ] 
			then
				s=$s$k
			else
				ok=0
			fi
			i=`expr $i + 1` 

		done 	
		echo "panel 1.$pjj 'exec 1$s' 'Run I $s'" >>~/.pawlogon.kumac
		echo "panel 2.$pjj 'exec 2$s' 'Run 2 $s'" >>~/.pawlogon.kumac
		echo "panel 3.$pjj 'exec 3$s' 'Run 3 $s'" >>~/.pawlogon.kumac
		echo "panel 4.$pjj 'exec 4$s' 'Run 4 $s'" >>~/.pawlogon.kumac
		echo "panel 5.$pjj 'exec 5$s' 'Run A $s'" >>~/.pawlogon.kumac
		(rm $s.kumac)2>/dev/null
		ii=0
		while [ $ii -lt 4 ]
		do
			ii=`expr $ii + 1`
			ii1=`expr $ii - 1`
			ii1=`mul $ii1 4`
			ii1=`expr $ii1 + 2`
			ii2=`expr $ii1 + 1`
			ii3=`expr $ii2 + 1`
			ii4=`expr $ii3 + 1`
			echo "zone 2 2" >> $ii$s.kumac
			echo "NTUPLE/CREATE '$pi' '$name' '17' ' ' '1000' ''" >> $ii$s.kumac
			echo "NTUPLE/READ '$pi' '$name' '*' ' ' '1000000'" >> $ii$s.kumac
			echo "NTUPLE/PLOT '$pi.var$ii1%var1' '1.' '99999999' '1' '100000000' ' ' '1000000'" >>$ii$s.kumac
			echo "NTUPLE/PLOT '$pi.var$ii2%var1' '1.' '99999999' '1' '100000000' ' ' '1000000'" >>$ii$s.kumac
			echo "NTUPLE/PLOT '$pi.var$ii3%var1' '1.' '99999999' '1' '100000000' ' ' '1000000'" >>$ii$s.kumac
			echo "NTUPLE/PLOT '$pi.var$ii4%var1' '1.' '99999999' '1' '100000000' ' ' '1000000'" >>$ii$s.kumac
		done
		echo "zone 4 4" >> 5$s.kumac
		echo "NTUPLE/CREATE '$pi' '$name' '17' ' ' '1000' ''" >> 5$s.kumac
		echo "NTUPLE/READ '$pi' '$name' '*' ' ' '1000000'" >> 5$s.kumac
		ii=1
		while [ $ii -lt 17 ]
		do
			ii=`expr $ii + 1`
			echo "NTUPLE/PLOT '$pi.var$ii%var1' '1.' '99999999' '1' '100000000' ' ' '1000000'" >>5$s.kumac
		done
	done
	pj=`expr $pj + 1`
	if [ $pj -gt 9 ]
	then
		pjj=$pj
	else
		pjj=0$pj
	fi
	echo "panel 6.01 'quit' 'Quit'" >> ~/.pawlogon.kumac
	echo "panel 0 D 'Microsoft must die !' 1018x230+0+0" >>~/.pawlogon.kumac
	echo "Size '40.' '18.'" >> ~/.pawlogon.kumac
#	echo "NTUPLE/CREATE '1' '$name' '17' ' ' '1000' ''" >> ~/.pawlogon.kumac
	startx
	(mv pl.k ~/.pawlogon.kumac)>/dev/null
	(mv xdefaults ~/.Xdefaults)>/dev/null
	(mv initrc ~/.xinitrc)>/dev/null
	for name in *.sds
	do
		i=1
		k=""
		s=""
		ok=1
		while [ $ok -eq 1 ]
		do 	
			k=`echo $name | cut -c $i`
			scmp $k .
			if [ $? -eq 0 ] 
			then
				s=$s$k
			else
				ok=0
			fi
			i=`expr $i + 1` 

		done 	
		(rm 1$s.kumac)2>/dev/null
		(rm 2$s.kumac)2>/dev/null
		(rm 3$s.kumac)2>/dev/null
		(rm 4$s.kumac)2>/dev/null
		(rm 5$s.kumac)2>/dev/null
	done
fi
reset
echo "                                                   Copyleft by DarkSoft"

