echo "-----------"
echo "files STREE"
echo "-----------"
echo "1 ststructs"
echo "2 mknode"
echo "3 listops consnodes - not in unicon"
echo "4 prstree"
echo "5 stplinks"
echo "6 fire"
echo "-----------"

echo "111 TEST fact"
echo "112 TEST misc"
echo "113 TEST simp0001"
echo "114 TEST simp0002"
echo "123 TEST simp0011"
echo "124 TEST simp0012"
echo "125 TEST simp0013"
echo "888 NOTES.txt"

echo "999 quit"
echo "select"
read select
while [ $select -ne 999 ]
do 
case $select in
1)  emacs stree/ststructs.mh stree/ststructs_cls.icn;;
2)  emacs stree/mknode.c stree/mknode.icn;;
3) emacs stree/listops.c datatypes/consnodes.c;;
4) emacs stree/prstree.c stree/prstree.icn ;;
5) emacs stree/stplinks.mh stree/stplinks.icn;;
6)  firefox nodetreehtml/dump_1_index_94.html;;

111) ./testfact;;
112) ./testmisc;;
113) ./testsimp0001;;
114) ./testsimp0002;;
123) ./testsimp0011;;
124) ./testsimp0012;;
125) ./testsimp0013;;
888) emacs NOTES.txt ;;

esac
echo "-----------"
echo "files STREE"
echo "-----------"
echo "1 ststructs"
echo "2 mknode"
echo "3 listops consnodes - not in unicon"
echo "4 prstree"
echo "5 stplinks"
echo "6 fire"
echo "-----------"

echo "111 TEST fact"
echo "112 TEST misc"
echo "113 TEST simp0001"
echo "114 TEST simp0002"
echo "123 TEST simp0011"
echo "124 TEST simp0012"
echo "125 TEST simp0013"
echo "888 NOTES.txt"

echo "999 quit"
echo "select"
read select
done
