read filename < $HOME/pasfile
while [ "$command" != 'x' ] 
do
tput clear
echo
echo
echo
echo
echo '****************** Pascal developement menu *************************'
echo
echo '              The current project is: '$filename 
echo
echo
echo ' (e) Edit ' $filename 
echo ' (d) Debug ' $filename
echo ' (c) Compile for debug '
echo ' (a) mAke the project '
echo ' (r) Run the file '
echo ' (m) edit the Makefile '
echo ' (b) Back up the file ' $filename'.p'
echo ' (v) saVe the project ' $filename' to diskette '
echo ' (n) change to a New project'
echo ' (x) eXit menu system '
echo
echo '*********************************************************************'
read command
if [ "$command" = "e" ] || [ "$command" = "E" ]
then
	jstar "$filename".p
elif [ "$command" = "d" ] || [ "$command" = "D" ]
then
	tput clear
	gdb "$filename"
elif [ "$command" = "c" ] || [ "$command" = "C" ]
then
	tput clear
	echo "Now compiling" $filename".p"
	p2c "$filename".p
	gcc -g -o "$filename" "$filename".c -lp2c
	echo "Press return to continue"
	read dummy
elif [ "$command" = "a" ] || [ "$command" = "A" ]
then
	make
	echo "Press return to continue"
	read dummy
elif [ "$command" = "r" ] || [ "$command" = "R" ]
then
	$filename
	echo "Press return to continue"
	read dummy
elif [ "$command" = "m" ] || [ "$command" = "M" ]
then
	jstar makefile
	cp makefile "$filename".mak
elif [ "$command" = "b" ] || [ "$command" = "B" ]
then
	mcopy "$filename".p a:
elif [ "$command" = "n" ] || [ "$command" = "N" ]
then
	cp makefile $filename'.mak'
	tput clear
	echo "What is the new project to work on?"
	read dummy
	echo "$dummy" > $HOME/pasfile 
	read filename < $HOME/pasfile
	cp $filename'.mak' makefile
elif [ "$command" = "v" ] || [ "$command" = "V" ]
then
	mcopy "$filename".* a:	
elif [ "$command" = "x" ] || [ "$command" = "X" ]
then
	command=x
else
	$command
	echo "Press return to continue"
	read dummy
fi
done
tput clear



