#
# Packer/Unpacker Solid ha archives
# in format, created by Sergej Qkowlew...
# Simplest version.
#
# Sorry! Without any proper checking!!!!
# Use carefully!
#
# Rewrite please!!!!
#



rm -f 0000ffff.mo0

if [ "$1" = "a" ]; then
 if [ -f $2 ]; then
 echo ?HAS-I-Adding to archive $2
 mv $2 $2.ha
 ha ey $2 0000ffff.mo0
 mv 0000ffff.mo0 0000ffff.ha
 ha ae0 0000ffff $3 $4 $5 $6 $7 $8 $9
 mv 0000ffff.ha 0000ffff.mo0
 ha aem2 $2 0000ffff.mo0
 mv $2.ha $2
 exit
 fi
echo ?HAS-I-Creating archive $2
ha ae0 0000ffff $3 $4 $5 $6 $7 $8 $9
mv 0000ffff.ha 0000ffff.mo0
ha aem2 $2 0000ffff.mo0
mv $2.ha $2
exit
fi
if [ "$1" = "e" ]; then
 if [ -f $2 ]; then
 mv $2 $2.ha
 ha ey $2 0000ffff.mo0
 mv 0000ffff.mo0 0000ffff.ha
 ha ey 0000ffff $3 $4 $5 $6 $7 $8 $9
 rm -f 0000ffff.ha
 mv $2.ha $2
 exit
 fi
echo file $2 not found

exit
fi
echo "Ha Solid Packer/Unpacker (C) 1998 Sergej Qkowlew 2:5020/122"
echo ""
echo "Usage:"
echo ""
echo $0 " a archive file      - add 1 file to archive"
echo $0 " e archive file      - extract file from archive"
echo ""
exit
