(dialog --inputbox "Input cassete name" 8 60)2>temp0002.ds
cname=`cat temp0002.ds` 
(dialog --inputbox "Short description" 8 60)2>temp0002.ds
descr=`cat temp0002.ds`
rm temp0002.ds
dialog --yesno "Save cassete to files ?" 5 60
sf=$?
if [ $sf -eq 0 ]
then 
	msg="File to save:"
	dialog --yesno "Automate names ?" 5 60
	an=$?
fi
echo "\"$descr\"" >> "$cname.tds"
error=0
skp=0
j=0
dialog --infobox "Starting..." 3 30
while [ $error -eq 0 ]
do
	(dd if=/dev/st0 of=sur bs=1024 skip=$skp)2>temp0009.ds
	if [ $? -ne 0 ] 
	then
		(rm sur)2>/dev/null
		error=1
	else
		mt rewind
		if [ $? -ne 0 ]
		then
			error=1
		fi
		s=`head -n 1 temp0009.ds`
		(rm temp0009.ds)2>/dev/null
		num=""
		ef=1
		i=0
		while [ $ef -ne 0 ] 
		do
			i=`expr $i + 1`
			k=`echo $s | cut -c $i`
			scmp $k "+"
			if [ $? -eq 0 ]
			then 
				num=$num$k
			else
				ef=0
			fi
		done
		if [ $num -lt 5 ]
		then
			(rm sur)2>/dev/null
			error=1
		else
			j=`expr $j + 1`
			num=`expr $num + 1`
			if [ $sf -eq 0 ] 
			then
				conv.sol > /dev/null
				if [ $an -eq 0 ]
				then
					ddate=`head -n 1 temp0008.ds | tail -n +1`
					ddate=`echo "$ddate" | cut -c 4-5`
					ndate=`head -n 2 temp0008.ds | tail -n +2`
					symb=`echo "$ndate" | cut -c 2`
					if `test -z $symb`
					then
						ndate=`echo "$ndate" | cut -c 3-5`
						ndate=0$ndate
						ddate=$ddate$ndate
					else
						ndate=`echo "$ndate" | cut -c 2-5`
						ddate=$ddate$ndate
					fi
					(rm temp0008.ds)2>/dev/null 
					mv conv.out "$ddate.sds"
				else
					( dialog --inputbox "$msg" 8 60 )2>temp0002.ds
					sname=`cat temp0002.ds`
					rm temp0002.ds
					mv conv.out "$sname.sds"
				fi
			fi
			rm sur
			skp=`expr $num + $skp`
			dialog --infobox "Finished read $j record. $skp , $num" 3 70
			echo $skp >> "$cname.tds"
		fi
	fi
done
dialog --msgbox "I had read $j records" 8 60
