#! /bin/csh -f
# This log.in file made by Levon H. Sukissian, September 17 1990
#
set term=70092
set path=(. /bin /usr/bin /usr/contrib/bin /usr/local/bin /usr/lib)
stty erase "" kill "" intr "^C" eof ""
stty isig
stty susp ""
set home_dir = "/home/courses/novice"
set autologout = 10 

# if you want to disable novice logins, just rm the valid_time file
# the following test is 1 if the file exists, 0 otherwise
test  ! -f valid_time 
set valid_time = $status
# if you don't want any new accounts, set enable_new_account to 0
set enable_new_account = 0

umask 033
setenv TZ EET-2
tset -Q
set prompt = "\
Ð Ñ Ï Ó Ï × Ç...    ÃñÜøôå exit     Á Ì Å Ó Ù Ó     "
#
#
#
if ($valid_time == 0) then
   echo ""
   echo "Ð ëúäéëÝ÷ novice äåî íñðòåü îá øòçóéíðñðéçèåü áõôÜ ôçî ýòá."
   echo "ÑåòÛóôå ñÛìé ôçî ýòá ñðõ ûøåôå ëáîðîéëÛ åòãáóôÜòéð\!"
   echo ""
   goto LABEL_QUIT
endif

set TTY = `tty | grep /dev/tty | wc -c`
if("$TTY" == 0) then
	echo ""
	echo ""
	echo ""
	echo ""
	echo "Èá Üèåìá îá óá÷ äý óôð ÅòãáóôÜòéð\!\!\!"
	echo ""
	echo ""
	echo ""
	goto LABEL_QUIT
endif
LABEL_START:
clear
echo ""
echo ""
echo -n "Äýóôå ôð ñòðóúñéëÝ óá÷ Ýîðíá øòÜóç÷ ãéÛ ôðî ëúäéëÝ novice:  "
set us_name = "$<"
set tmpp = `echo $us_name | wc -c`
if ($tmpp == 0) then
	echo ""
	echo ""
	echo ""
	echo ""
	echo "Ôð ñòðóúñéëÝ Ýîðíá øòÜóç÷ ñðõ óá÷ æçôÜèçëå èá ñòûñåé îá åüîáé ôð åñüèåôð"
	echo "óá÷. ÅÛî ôð óàóôçíá óá÷ åéäðñðéÜóåé Ýôé ôð Ýîðíá áõôÝ Üäç âòüóëåôáé óå"
	echo "øòÜóç (óõîåñýîõíð÷ íå ëÛñðéðî óõîÛäåìöÝ óá÷), ôÝôå óáî ñòðóúñéëÝ Ýîðíá"
	echo "øòÜóç÷ äýóôå íûòð÷ ôðõ åñéèûôðõ óá÷ (ôðõ÷ ñòýôðõ÷ 10 øáòáëôÜòå÷ ãéÛ ñáòÛ"
	echo "äåéãíá)."
	echo ""
	echo ""
	echo -n "ÑáôÜóôå return ãéÛ ôç óõîûøåéá."
	set tmp = "$<"
	goto LABEL_START
endif
set user_exist = `./.hiddenbin/grep "^${us_name}:" $home_dir/.hiddenbin/passwd | wc -c`
if ($user_exist != 0) then
	goto LABEL_CHECK_HOME_DIR
else
clear
if ($enable_new_account == 1) then
   goto LABEL_NEW_USER
endif
echo ""
echo "Ð ëúäéëÝ÷ øòÜóç÷ ñðõ äýóáôå äåî õñÛòøåé. ÅÛî ëÛîáôå ëÛñðéð"
echo "ìÛèð÷, ôÝôå ïáîáñòðóñáèÜóôå. ÅÛî äåî ûøåôå Üäç äçíéðõòãÜóåé"
echo "ëúäéëÝ ôÝôå áñåõèõîèåüôå óôðî õñåàèõîð ôðõ åòãáóôçòüðõ."
echo ""
echo -n "Èûìåôå îá ïáîáñòðóñáèÜóåôå (yes/no):"
set tmp="$<"
if ("$tmp" == "yes") then
	goto LABEL_START
else
	logout
endif
LABEL_NEW_USER:
	 echo "Ð ëúäéëÝ÷ øòÜóç÷ ñðõ äýóáôå Üôáî $us_name."
	 echo -n "Èûìåôå îá óõîåøüóåôå íå áõôÝ ôðî ëúäéëÝ; (ÁñáîôÜóôå íå yes Ü no):"
	 set tmp = "$<"
	 if  ($tmp != "yes") goto LABEL_START
	 set us_dir = $home_dir/$us_name
	 mkdir $us_dir > /dev/null
	 goto LABEL_CR_PASSWD
 endif
LABEL_CHECK_HOME_DIR:
if (-d $us_name) then
	goto LABEL_PASSWD
else
	clear
	echo "Åøåôå óðâáòÝ ñòÝâìçíá íå ôðî ñòðóúñéëÝ øýòð åòãáóüá÷ óá÷."
	echo "Ñáòáëáìý åñéëðéîúîÜóôå íå ôðî õñåàèõîð ôðõ óõóôÜíáôð÷."
	echo ""
	echo ""
	echo ""
	echo ""
	echo ""
	echo -n "Ñáòáëáìý, ñáôÜóôå return ãéÛ ôç óõîûøåéá."
	set tmp = "$<"
	logout
endif
LABEL_MENU:
onintr LABEL_MENU
clear
echo "                  Å Ò Ã Á Ó Ô Ç Ò É Ð   Í Ð Ñ   Ñ Ì Ç Ò Ð Ö Ð Ò É Ë Ç Ó"
echo "                    ÍÛèçíá: ÅÉÓÁÃÚÃÇ ÓÔÐÕÓ ÇÌÅËÔÒÐÎÉËÐÕÓ ÕÑÐÌÐÃÉÓÔÅÓ"
echo "------------------------------------------------------------------------------"
echo ""
echo "			Åñéìûïôå íüá áñÝ ôé÷ ñáòáëÛôú åòãáóüå÷:"
echo ""
echo "help     : On-line âðÜèåéá óøåôéëÛ íå ôé÷ ñáòáëÛôú åîôðìû÷."
echo ""
echo "dir      : Ñáòðõóüáóç óôçî ðèÝîç ôúî ðîðíÛôúî ôúî áòøåüúî óá÷."
echo ""
echo "edit     : Äçíéðõòãüá Ü åñåïåòãáóüá áòøåüðõ."
echo ""
echo "pascomp  : ÍåôÛöòáóç ñòðãòÛííáôð÷."
echo ""
echo "run      : Åëôûìåóç ñòðãòÛííáôð÷."
echo ""
echo "print    : Åëôàñúóç áòøåüðõ."
echo ""
echo "delete   : ÓâÜóéíð áòøåüðõ."
echo ""
echo "exit     : ÅÏÐÄÐÓ áñÝ ôð óàóôçíá."
echo ""
echo ""
echo -n "		ÅñéìðãÜ: "
set choice = "$<"
switch("$choice")
	case "dir":
		clear
		echo ""
		echo ""
		echo "                             Å Ñ É Ì Ð Ã Ç:    dir"
		echo ""
		echo ""
		echo "Ôá áòøåüá ñðõ óá÷ áîÜëðõî åüîáé:"
		echo ""
		echo ""
		echo ""
		/bin/ls .
		echo ""
		echo ""
		echo ""
		echo ""
		echo -n "ÑáôÜóôå return ãéÛ îá åñéóôòûùôå óôð menu åòãáóéýî."
		set tmp = "$<"
		goto LABEL_MENU
	case "edit":
		clear
		echo ""
		echo ""
		echo "                             Å Ñ É Ì Ð Ã Ç:    edit"
		echo ""
		echo ""
		echo "ÆçôÜóáôå îá äçíéðõòãÜóåôå Ü îá åñåïåòãáóôåüôå ëÛñðéð áòøåüð. Ôá áòøåüá, ñðõ"
		echo "áõôÜ ôç óôéãíÜ  ûøåôå óôç äéÛèåóç óá÷  ëáé åñéäûøðîôáé åñåïåòãáóüá íå  ôðî"
		echo "vi editor, åíöáîüæðîôáé áíûóú÷ ñáòáëÛôú:"
		echo ""
		echo ""
		echo ""
		/bin/ls .
		echo ""
		echo ""
		echo ""
		echo "Áíûóú÷ ñáòáëÛôú èá óá÷ æçôçèåü îá ãòÛùåôå ôð Ýîðíá ôðõ áòøåüðõ íå ôð ðñðüð"
		echo "èûìåôå îá äðõìûùåôå. Ôð Ýîðíá áõôÝ íñðòåü îá åüîáé ëÛñðéð áñÝ áõôÛ ñðõ íÝ-"
		echo "ìé÷ åíöáîüóôçëáî (ëáé Üäç õñÛòøåé) Ü ëÛñðéð Ûììð, áî ñòÝëåéôáé îá äçíéðõòãÜ-"
		echo "óåôå îûð  áòøåüð. ÃéÛ äçíéðõòãüá îûðõ áòøåüðõ, íçî ïåøÛóåôå Ýôé ôð Ýîðíá ñðõ"
		echo "èá äýóåôå èá ñòûñåé îá ôåìåéýîåé óå .p åÛî ôð áòøåüð áõôÝ èá ñåòéûøåé ñçãáüð"
		echo "ëýäéëá óå pascal.\!\!\!"
		echo ""
		echo ""
		echo -n "Ðîðíá áòøåüðõ ãéÛ editing:  "
		set flname = "$<"
		vi $flname
		echo ""
		echo ""
		echo -n "ÑáôÜóôå return ãéÛ îá åñéóôòûùåôå óôð menu åòãáóéýî."
		set tmp = "$<"
		goto LABEL_MENU
	case "pascomp":
		clear
		echo ""
		echo ""
		echo "                             Å Ñ É Ì Ð Ã Ç:    pascomp"
		echo ""
		echo ""
		echo "ÆçôÜóáôå îá íåôáöòÛóåôå ëÛñðéð áòøåüð ñðõ ñåòéûøåé ñçãáüð ëýäéëá óå pascal."
		set fileexist = `/bin/ls | grep .p | wc -c`
		if($fileexist != 0) then
			echo "Ôá áòøåüá, ñðõ áõôÜ ôç óôéãíÜ  ûøåôå óôç äéÛèåóç óá÷  ëáé åñéäûøðîôáé íåôÛ-"
			echo "öòáóç, åíöáîüæðîôáé áíûóú÷ ñáòáëÛôú:"
			echo ""
			echo ""
			echo ""
			/bin/ls *.p
		else
			echo ""
			echo ""
			echo ""
			echo "Äåî õñÛòøåé ëáîûîá áòøåüð ãéÛ íåôÛöòáóç..."
			echo ""
			echo ""
			echo ""
			echo -n "ÑáôÜóôå return ãéÛ îá åñéóôòûùôå óôð menu åòãáóéýî."
			set tmp = "$<"
			goto LABEL_MENU
		endif
		echo ""
		echo ""
		echo ""
		echo "Áíûóú÷ ñáòáëÛôú èá óá÷ æçôçèåü îá äýóåôå ôð Ýîðíá ôðõ áòøåüðõ, ôð ðñðüð èû-"
		echo "ìåôå îá íåôáöòáóôåü. Áî ç íåôÛöòáóç åüîáé åñéôõøÜ÷, ôÝôå èá äçíéðõòãçèåü ôð"
		echo "åëôåìûóéíð áòøåüð íå Ýîðíá áõôÝ ñðõ èá äýóåôå ëáé ëáôÛìçïç Ýøé ñìûðî .p áììÛ"
		echo ".exec (ñ.ø Áî äýóåôå ôð Ýîðíá foo.p, ôð åëôåìûóéíð èá ñÛòåé Ýîðíá foo.exec)"
		echo "ÍåôÛ ôð ôûìð÷ ôç÷ íåôÛöòáóç÷ èá åíöáîéóôåü ç ìûïç END óå öúôåéîÝ öÝîôð. ÃéÛ"
		echo "îá óõîåøüóôå, ñáôÜóôå q"
		echo ""
		echo ""
		echo ""
		echo -n "Ðîðíá áòøåüðõ ãéÛ íåôÛöòáóç:  "
		set compflname = "$<"
		if(-f $compflname) then
			set execfile = `basename $compflname .p`
			pc -o ${execfile}.exec $compflname |& less
			echo ""
			echo ""
			echo ""
			echo ""
			echo -n "ÑáôÜóôå return ãéÛ îá åñéóôòûùôå óôð menu åòãáóéýî."
			set tmp = "$<"
			goto LABEL_MENU
		else
			echo "Ôð áòøåüð íå Ýîðíá $compflname äåî õñÛòøåé..."
			echo ""
			echo ""
			echo -n "ÑáôÜóôå return ãéÛ îá åñéóôòûùôå óôð menu åòãáóéýî."
			set tmp = "$<"
			goto LABEL_MENU
		endif
	case "delete":
		clear
		echo ""
		echo ""
		echo "                             Å Ñ É Ì Ð Ã Ç:    delete"
		echo ""
		echo ""
		echo "ÆçôÜóáôå îá óâÜóåôå ëÛñðéð áòøåüð. Ôð áòøåüð, ôð Ýîðíá ôðõ ðñðüðõ èá äýóå-"
		echo "ôå áíûóú÷ ñáòáëÛôú, èá óâçóôåü ÐÒÉÓÔÉËÁ ëáé áíåôÛëìçôá, ãéáõôÝ ãòÛùôå ôð "
		echo "íå ôç äûðõóá ñòðóðøÜ."
		echo ""
		echo ""
		echo ""
		echo -n "		Èûìåôå îá óõîåøüóåôå (ÁñáîôÜóôå íå yes Ü no): "
		set ans = "$<"
		while ("$ans" != "yes" && "$ans" != "no")
    			echo -n "ÁñáîôÜóôå íå yes Ü no:  "
    			set ans = "$<"
		end
		if ("$ans" != "yes") then
			goto LABEL_MENU
		endif
		set fileexist = `/bin/ls | wc -c`
		if ($fileexist == 0) then
			echo ""
			echo ""
			echo ""
			echo "Äåî õñÛòøåé ëáîûîá áòøåüð ãéÛ óâÜóéíð \!\!\!"
			echo ""
			echo ""
			echo ""
			echo -n "ÑáôÜóôå return ãéÛ îá åñéóôòûùåôå óôð menu åòãáóéýî."
			set tmp = "$<"
			goto LABEL_MENU
		endif
		echo "Ôá áòøåüá, ñðõ áõôÜ ôç óôéãíÜ ûøåôå óôç äéÛèåóç óá÷ ëáé íñðòåüôå îá óâÜ"
		echo "óåôå, åíöáîüæðîôáé áíûóú÷ ñáòáëÛôú:"
		echo ""
		echo ""
		echo ""
		/bin/ls .
		echo ""
		echo ""
		echo ""
		echo -n "Ðîðíá áòøåüðõ ãéÛ óâÜóéíð:  "
		set delname = "$<"
		if (-f $delname) then
			/bin/rm -f $delname
		else
			echo ""
			echo ""
			echo ""
			echo -n "ÑáôÜóôå return ãéÛ îá åñéóôòûùôå óôð menu åòãáóéýî."
			set tmp = "$<"
			goto LABEL_MENU
		endif
		echo ""
		echo ""
		echo ""
		echo -n "ÑáôÜóôå return ãéÛ îá åñéóôòûùåôå óôð menu åòãáóéýî."
		set tmp = "$<"
		goto LABEL_MENU
	case "run":
		LABEL_RUN:
		clear
		echo ""
		echo ""
		echo "                             Å Ñ É Ì Ð Ã Ç:    run"
		echo ""
		echo ""
		echo "ÆçôÜóáôå îá ôòûïåôå ëÛñðéð áòøåüð."
		echo ""
		echo ""
		echo ""
		set fileexist = `/bin/ls | grep .exec | wc -c`
		if($fileexist != 0) then
			echo "Ôá áòøåüá, ñðõ áõôÜ ôç óôéãíÜ  ûøåôå óôç äéÛèåóç óá÷  ëáé íñðòðàî îá ôòûïðõî,"
			echo "åíöáîüæðîôáé áíûóú÷ ñáòáëÛôú:"
			echo ""
			echo ""
			/bin/ls *.exec
			echo ""
			echo ""
		else
			echo "Äåî õñÛòøåé ËÁÎÅÎÁ åëôåìûóéíð áòøåüð."
			echo ""
			echo ""
			echo ""
			echo -n "ÑáôÜóôå return ãéÛ îá åñéóôòûùåôå óôð menu åòãáóéýî."
			set tmp = "$<"
			goto LABEL_MENU
		endif
		echo ""
		echo ""
		echo ""
		echo -n "Ðîðíá áòøåüðõ ãéÛ ôòûïéíð:  "
		set runflname = "$<"
		if (-f "$runflname") then
			$runflname
			echo ""
			echo ""
			echo ""
			echo ""
			echo ""
			echo -n "ÑáôÜóôå return ãéÛ îá åñéóôòûùåôå óôð menu åòãáóéýî."
			set tmp = "$<"
			goto LABEL_MENU
		else
			echo ""
			echo ""
			echo "Ôð åëôåìûóéíð ñðõ æçôÜóáôå îá ôòûïåé ÄÅÎ õñÛòøåé."
			echo ""
			echo ""
			echo -n "ÑáôÜóôå return ãéÛ îá åñéóôòûùåôå óôð menu åòãáóéýî."
			set tmp = "$<"
			goto LABEL_MENU
		endif
	case "print":
		clear
		echo ""
		echo ""
		echo "                             Å Ñ É Ì Ð Ã Ç:    print"
		echo ""
		echo ""
		echo ""
		echo ""
		echo "Ñ Ò Ð Ó Ð Ø Ç: ÆçôÜóáôå ôçî åëôàñúóç ëÛñðéðõ áòøåüðõ óá÷."
		echo ""
		echo "Åüíáé õñðøòåúíûîð÷ îá óá÷ õñåîèõíüóú Ýôé:"
		echo ""
# echo "		1. Ôð óàóôçíá äåî äûøåôáé KAMMIA áüôçóÜ óá÷ ãéÛ"
# echo "		   åëôàñúóç íåôÛ ôé÷ 14:15."
# echo ""
		echo "ÁÑÁÃÐÒÅÕÅÔÁÉ ç åëôàñúóç ÅËÔÅÌÅÓÉÍÐÕ áòøåüðõ, áòøåüðõ äçìáäÜ, ñðõ ôð ÝîðíÛ ôðõ"
		echo "ôåìåéýîåé óå .exec."
		echo ""
		echo ""
# set DATE=`/bin/date +%H:%M:%S`
# echo "		Ç ýòá áõôÜ ôç óôéãíÜ åüîáé:  $DATE"
# echo ""
# echo ""
# echo ""
		set fileexist = `/bin/ls | wc -c`
		if ($fileexist == 0) then
			echo ""
			echo "Äåî õñÛòøåé ëáîûîá áòøåüð ãéá åëôàñúóç \!\!\!"
			echo ""
			echo ""
			echo -n "ÑáôÜóôå return ãéá îá åñéóôòûùåôå óôð menu åòãáóéýî."
			set tmp = "$<"
			goto LABEL_MENU
		endif
		echo ""
		echo -n "		Èûìåôå îá óõîåøüóåôå (ÁñáîôÜóôå íå yes Ü no): "
		set ans = "$<"
		while ("$ans" != "yes" && "$ans" != "no")
    			echo -n "ÁñáîôÜóôå íå yes Ü no:  "
    			set ans = "$<"
		end
		if ("$ans" == "yes") then
			echo ""
			echo ""
			echo "Ôá áòøåüá, ñðõ ûøåôå óôç äéÛèåóÜ óá÷ ëáé íñðòåüôå îá åëôõñýóåôå,"
			echo "åüîáé:"
			echo ""
			echo ""
			/bin/ls
			echo ""
			echo ""
			echo -n "Ðîðíá áòøåüðõ ñòð÷ åëôàñúóç:  "
			set prflname = "$<"
			goto LABEL_CH_PRINT
		else
			goto LABEL_OUT_PRINT
		endif
LABEL_CH_PRINT:
		set prfln = `echo $prflname | grep .exec | wc -c`
		if ($prfln != 0) then
			echo ""
			echo "Íá ãéáôü;;;;; Áöðà åüñáíå Ýôé ÁÑÁÃÐÒÅÕÅÔÁÉ ç åëôàñúóç åëôåìûóéíðõ áòøåüðõ..."
			echo ""
			echo ""
			echo ""
			echo -n "ÑáôÜóôå return ãéá îá åñéóôòûùåôå óôð menu åòãáóéýî."
			set tmp = "$<"
		else
			set printnum = `$home_dir/.hiddenbin/grep "^${us_name}:" $home_dir/.hiddenbin/passwd | awk -F: '{print $3}' `
			echo ""
			echo ""
			echo ""
			echo "Åëôõñýîú ..."
			set bannerx="XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
			echo "$bannerx\n$bannerx\n" > /tmp/prn_nov.$us_name
			banner `whoami` >> /tmp/prn_nov.$us_name
			echo "$bannerx\n$bannerx\n" >> /tmp/prn_nov.$us_name
			echo " Printed at:  `date` ********  on lp$printnum printer\n" >> /tmp/prn_nov.$us_name
			echo "$bannerx\n" >> /tmp/prn_nov.$us_name
			banner $us_name >> /tmp/prn_nov.$us_name
			echo "$bannerx\n" >> /tmp/prn_nov.$us_name
			echo "" >> /tmp/prn_nov.$us_name
			echo "*-/\-\/-/\-\/-/\-\/-/\-\/-/\-\/-/\-\/-/\-\/-/\-\/-/\-\/-/\-\/-/\-\/-/\-\/-/\-\/-*" >> /tmp/prn_nov.$us_name
			echo "" >> /tmp/prn_nov.$us_name
			cat $prflname >> /tmp/prn_nov.$us_name
			lp -dlp$printnum /tmp/prn_nov.$us_name > /dev/null
			/bin/rm -f /tmp/prn_nov.$us_name
			echo -n "ÑáôÜóôå return ãéá îá åñéóôòûùåôå óôð menu åòãáóéýî."
			set tmp = "$<"
		endif
LABEL_OUT_PRINT:
		goto LABEL_MENU
	case "help":
		LABEL_MAIN_HELP:
		clear
		echo ""
		echo ""
		echo "                             Å Ñ É Ì Ð Ã Ç:    help"
		echo ""
		echo ""
		echo "	     Ð øýòð÷, óôðî ðñðüð åëñáéäåàåóôå, áîÜëåé óå Ýìðõ÷ íá÷ ëáé Ýìðé íá÷"
		echo "èûìðõíå îá ôðî âìûñðõíå ëáèáòÝ ëáé óõííáæåíûîð, ãéáõôÝ óá÷ ñáòáëáìý, íåôÛ"
		echo "ôçî ÛóëçóÜ óá÷, áöÜóôå ôá ñÛîôá ÐÑÚÓ ÁËÒÉÂÚÓ ôá âòÜëáôå..."
		echo ""
		echo "	     ÁñÝ ôð ëàòéð menu åñéìðãýî äéáìûïáôå ôçî åñéìðãÜ help. Íå ôçî åñé"
		echo "ìðãÜ óá÷ áõôÜ, áñðëôÛôå ôç äõîáôÝôçôá îá ñÛòåôå øòÜóéíå÷ ñìçòðöðòüå÷ ãéÛ ôðî"
		echo "ôòÝñð ìåéôðõòãüá÷ ôç÷ ëÛèå íéÛ÷ áñÝ ôé÷ ñáòáëÛôú åîôðìû÷:"
		echo ""
		echo ""
		echo "			dir	edit	pascomp	    run"

		echo "			print	help	delete	    exit"
		echo ""
		echo ""
		echo -n "Ñáòáëáìý ãòÛùôå ôçî åîôðìÜ, ãéÛ ôçî ðñðüá èûìåôå âðÜèåéá:  "
		set helparg = "$<"
		goto HELP_MENU
#
	case "exit":
		/bin/rm -f molecules.txt
		logout
	default:
		echo ""
		echo ""
		echo ""
		echo "		Ç åñéìðãÜ ñðõ æçôÜóáôå åüîáé ìáîèáóíûîç."
		echo ""
		echo ""
		echo ""
		echo ""
		echo -n "		Ñáòáëáìý, ñáôÜóôå return."
		set tmp = "$<"
		goto LABEL_MENU
endsw
LABEL_PASSWD:
echo -n "Password: "
stty -echo
set passwd = "$<"
stty echo
set probpasswd = `./.hiddenbin/grep "^${us_name}:" $home_dir/.hiddenbin/passwd | awk -F: '{print $2}' `
if( "$probpasswd" == "$passwd") then
 	/bin/cp $home_dir/molecules.txt $us_name/
	cd $us_name
	goto LABEL_MENU
else
	clear
	echo ""
	echo ""
	echo ""
	echo ""
	echo""
	echo "Ôð password ñðõ äýóáôå äåî åüîáé óúóôÝ\!"
	echo ""
	echo "Èá ñòûñåé îá ñòðóñáèÜóåôå ñÛìé..."
	echo ""
	echo ""
	echo ""
	echo -n "Ñáòáëáìý ñáôÜóôå return."
	set tmp = "$<"
	goto LABEL_START
endif
LABEL_CR_PASSWD:
clear
echo "To $us_name Ýîðíá ãéÛ ôðî ëúäéëÝ novice ñðõ åñéìûïáôå, øòçóéíðñðéåüôáé"
echo ""
echo "ãéÛ ñòýôç öðòÛ. Åôóé, ãéá ìÝãðõ÷ áóöáìåüá÷, èá ñòûñåé îá ûøåôå ëáé"
echo ""
echo "ûîá password. Ôð óõîäõáóíÝ, ôðõ ðîÝíáôð÷ ñðõ äýóáôå ñáòáñÛîú, ëáèý÷"
echo ""
echo "åñüóç÷ ëáé ôðõ password, ñðõ èá äýóåôå áíûóú÷ ôýòá, äåî èá ñòûñåé îá"
echo ""
echo "ôðî ïåøîÛôå, åáî èûìåôå, ôçî åñÝíåîç öðòÛ ñðõ èá ûòèåôå îá äðõìûùåôå,"
echo ""
echo "îá âòåüôå ôá áòøåüá óá÷ åëåü ñðõ ôá áöÜóáôå."
echo ""
echo "Ç ìûïç ñðõ èá äýóåôå ñáòáëÛôú óáî password, íñðòåü îá åüîáé ðñðéðóäÜ"
echo ""
echo "ñðôå óõîäõáóíÝ÷ áìöáòéèíçôéëýî øáòáëôÜòúî. Èá ñòûñåé åñüóç÷ îá äýóåôå"
echo ""
echo "éäéáüôåòç ñòðóðøÜ óôç äáëôàìéóç ôç÷ ìûïç÷ äåäðíûîðõ Ýôé ðé øáòáëôÜòå÷"
echo ""
echo "ñðõ èá óôûìîåôå áñÝ ôð ñìçëôòðìÝãéð ÄÅÎ ÈÁ ÅÍÖÁÎÉÆÐÎÔÁÉ ÓÔÇÎ ÐÈÐÎÇ."
echo ""
echo ""
echo ""
echo -n "Ñáòáëáìý ñáôÜóôå return."
set tmp = "$<"
LABEL_CPASSWD:
echo ""
#echo ""
#echo ""
echo ""
echo -n "Ôð password ñðõ åñéèõíåüôå, åüîáé (ÑÒÐÓÐØÇ: Äåî èá åíöáîüæåôáé óôçî ðèÝîç): "
stty -echo
set passwd1 = "$<"
if ("$passwd1" == "") then
	stty echo
	echo ""
	echo "Ôð password ñòûñåé îá åüîáé ôðõìÛøéóôðî ûîá÷ øáòáëôÜòá÷..."
	goto LABEL_CPASSWD
endif
echo ""
stty echo
echo -n "ÁëÝíç íüá öðòÛ ñáòáëáìý: "
stty -echo
set passwd2 = "$<"
stty echo
if("$passwd1" == "$passwd2") then
	set wcc = `./.hiddenbin/wc -l $home_dir/.hiddenbin/passwd | awk '{print $1}'`
	@ kk = $wcc % 2
	./.hiddenbin/putpasswd "${us_name}:${passwd1}:${kk}" $home_dir/.hiddenbin/passwd
	cd $us_name
	goto LABEL_MENU
else
	clear
	echo ""
	echo "Ôð password, ñðõ äýóáôå ôçî äåàôåòç öðòÛ, äåî óõíöúîåü íå áõôÝ"
	echo ""
	echo "ôç÷ ñòýôç÷\!\!\! Ñáòáëáìý ñáôÜóôå return ãéÛ óõîûøåéá."
	echo -n ""
	set tmp = "$<"
	goto LABEL_CPASSWD
endif
HELP_MENU:
switch("$helparg")
	case "dir":
		clear
		echo ""
		echo ""
		echo "                       ÆçôÜóáôå âðÜèåéá ãéÛ ôçî åîôðìÜ dir..."
		echo ""
		echo ""
		echo "Íå ôçî åîôðìÜ áõôÜ, ñáòðõóéÛæðîôáé óôçî ðèÝîç óá÷ ôá ðîÝíáôá ôúî áòøåüúî"
		echo "ñðõ ûøåôå äçíéðõòãÜóåé åóåü÷ íå ôðî editor, áììÛ ëáé áõôÛ ñðõ äçíéðõòãÜ"
		echo "èçëáî áñÝ ôðî íåôáãìúôéóôÜ (íåôÛ äçìáäÜ áñÝ ôçî åñéôõøÜ åëôûìåóç ôç÷"
		echo "åîôðìÜ÷ pascomp)."
		echo ""
		echo "Èá ñòûñåé îá èõíÛóôå ñÛîôá Ýôé, Ýóá ðîÝíáôá áòøåüúî ëáôáìÜãðõî óå .p, åüîáé"
		echo "áòøåüá ñðõ ñåòéûøðõî ëýäéëá óå ãìýóóá pascal, åîý Ýóá ëáôáìÜãðõî óå .exec,"
		echo "åüîáé åëôåìûóéíá áòøåüá. "
		echo ""
		echo "ÁëÝíç, èá ñòûñåé îá èõíÛóôå ôç óøûóç, ñðõ õñÛòøåé íåôáïà åîÝ÷ áòøåüðõ ñðõ ñå"
		echo "òéûøåé ôðî ëýäéëá óå pascal (ñçãáüð ñòÝãòáííá) ëáé ôðõ áîôéóôðüøðõ ôðõ  å-"
		echo "ëôåìûóéíðõ (áõôÝ ñðõ ñòðûëõùå áñÝ ôçî íåôÛöòáóç). Åøðõî ôð üäéð Ýîðíá, áììÛ"
		echo "äéáöûòðõî íÝîð óôçî ëáôÛìçïç, Ýñú÷ äéáâÛóáôå ñáòáñÛîú \!\!\!"
		echo ""
		echo ""
		echo ""
		echo ""
		echo -n "ÑáôÜóôå return ãéÛ îá åñéóôòûùåôå óôð menu åòãáóéýî."
		set tmp = "$<"
		goto LABEL_MENU
	case "edit"
		clear
		echo ""
		echo ""
		echo "                       ÆçôÜóáôå âðÜèåéá ãéÛ ôçî åîôðìÜ edit..."
		echo ""
		echo ""
		echo "Íå ôçî åîôðìÜ áõôÜ íñðòåüôå, íå ôç âðÜèåéá ôðõ vi editor, îá åñåïåòãáóôåüôå"
		echo "ëÛñðéð Üäç õñÛòøðî áòøåüð óá÷ Ü îá äçíéðõòãÜóåôå ëÛñðéð îûð."
		echo "Èõíçèåüôå Ýôé, áî èûìåôå îá äçíéðõòãÜóåôå ûîá áòøåüð ñçãáüðõ ëýäéëá óå pascal,"
		echo "ôð Ýîðíá ôðõ áòøåüðõ èá ñòûñåé îá ôåìåéýîåé ÕÑÐØÒÅÚÔÉËÁ (ãéÛ îá åüîáé áîáãîú"
		echo "òüóéíð áñÝ ôðî íåôáãìúôéóôÜ) óå .p (ñ.ø. foo.p)."
		echo ""
		echo ""
		echo ""
		echo ""
		echo -n "ÑáôÜóôå return ãéÛ îá åñéóôòûùåôå óôð menu åòãáóéýî."
		set tmp = "$<"
		goto LABEL_MENU
	case "pascomp":
		clear
		echo ""
		echo ""
		echo "                   ÆçôÜóáôå âðÜèåéá ãéÛ ôçî åîôðìÜ pascomp..."
		echo ""
		echo ""
		echo "Íå ôçî åîôðìÜ áõôÜ, óá÷ äüîåôáé ç äõîáôÝôçôá îá íåôáöòÛóåôå ëÛñðéð áòøåüð,"
		echo "ñðõ ñåòéûøåé ûîá ñòÝãòáííá óá÷ ãòáííûîð óå ãìýóóá pascal. Ð íåôáãìúôéóôÜ÷ "
		echo "èá ìåéôðõòãÜóåé óúóôÛ åöÝóðî áëðìðõèÜóåôå áëòéâý÷ ôé÷ ðäçãüå÷ ñðõ óá÷ äü"
		echo "îðîôáé, Ýôáî áñÝ ôð menu åòãáóéýî åñéìûïåôå áõôÜ ôçî åîôðìÜ."
		echo ""
		echo ""
		echo ""
		echo ""
		echo -n "ÑáôÜóôå return ãéÛ åñéóôòðöÜ óôð menu åòãáóéýî."
		set tmp = "$<"
		goto LABEL_MENU
	case "run":
		clear
		echo ""
		echo ""
		echo "                       ÆçôÜóáôå âðÜèåéá ãéÛ ôçî åîôðìÜ run..."
		echo ""
		echo ""
		echo "Íå ôçî åîôðìÜ áõôÜ, óá÷ äüîåôáé ç äõîáôÝôçôá îá ôòûïåôå ëÛñðéð åëôåìûóéíð"
		echo "ñòÝãòáííÛ óá÷. Ôð óàóôçíá èá ôòûïåé ôð ñòÝãòáííÛ óá÷, åöÝóðî áëðìðõèÜóåôå"
		echo "áëòéâý÷ ôé÷ ðäçãüå÷, Ýñú÷ áõôû÷ äüîðîôáé áñÝ ôð menu åòãáóéýî íå ôçî åñéìð"
		echo "ãÜ ôç÷ åîôðìÜ÷ áõôÜ÷."
		echo ""
		echo ""
		echo ""
		echo ""
		echo -n "ÑáôÜóôå return ãéÛ åñéóôòðöÜ óôð menu åòãáóéýî."
		set tmp = "$<"
		goto LABEL_MENU
	case "print":
		clear
		echo ""
		echo ""
		echo "                       ÆçôÜóáôå âðÜèåéá ãéÛ ôçî åîôðìÜ print..."
		echo ""
		echo ""
		echo "Íå ôçî åîôðìÜ áõôÜ, óá÷ äüîåôáé ç äõîáôÝôçôá îá åëôõñýóåôå ðñðéðäÜñðôå áòøåüð"
		echo "óá÷ ûøåé ôçî äõîáôÝôçôá åëôàñúóç÷, ôð óàîðìð äçìáäÜ ôúî øáòáëôÜòúî ôðõ åüîáé"
		echo "áîáãîúòüóéíð áñÝ ôðî åëôõñúôÜ. ÑåòéóóÝôåòå÷ ðäçãüå÷ èá ñÛòåôå Ýôáî æçôÜóåôå"
		echo "ôçî åëôûìåóç ôç÷ åîôðìÜ÷ áõôÜ÷ áñÝ ôð menu åòãáóéýî."
		echo ""
		echo ""
		echo ""
		echo ""
		echo -n "ÑáôÜóôå return ãéÛ åñéóôòðöÜ óôð menu åòãáóéýî."
		set tmp = "$<"
		goto LABEL_MENU
	case "help":
		echo ""
		echo ""
		echo "Ôð ëåüíåîð ñðõ íÝìé÷ äéáâÛóáôå \!\!\!"
		echo ""
		echo ""
		echo -n "ÑáôÜóôå return ãéÛ îá åñéóôòûùåôå óôð menu åòãáóéýî."
		set tmp = "$<"
		goto LABEL_MENU
	case "exit":
		clear
		echo "	    ÆçôÜóáôå âðÜèåéá ãéá ôçî åñéìðãÜ exit..."
		echo ""
		echo ""
		echo "Äüîðîôá÷ exit óáî åñéìðãÜ óôð menu åòãáóéýî, ôð óàóôçíá äéáëÝñôåé ôç ìðãéëÜ"
		echo "óàîäåóç ñðõ åüøáôå íûøòé åëåüîç ôç óôéãíÜ. Ñåòéíûîåôå íûøòé îá åíöáîéóôåü"
		echo "óôçî ðèÝîç óá÷ ôð ìðãÝôõñð åéóÝäðõ ôðõ óõóôÜíáôð÷, óâÜóôå ôð ôåòíáôéëÝ óá÷,"
		echo "âÛìôå ôçî ëáòûëìá, ñðõ óá÷ öéìðïûîçóå, óôç èûóç ñðõ ôçî âòÜëáôå, ëáèáòüóôå"
		echo "ôðî øýòð ãàòú áñÝ ôð ôåòíáôéëÝ óá÷ áñÝ øáòôéÛ ñðõ óá÷ áîÜëðõî ëáé åüóôå"
		echo "ûôðéíð÷ (ûôðéíç) îá áñðøúòÜóåôå, Ýóð ôð äõîáôÝî ñéÝ Üóõøá. Óëåöôåüôå ôðî óõ"
		echo "îÛäåìöÝ óá÷, ñðõ ñéèáîÝî åëåüîç ôç óôéãíÜ ñòðóñáèåü îá äýóåé ìàóç óôð ñòÝâìç"
		echo "íá ñðõ ôðî áñáóøðìåü ëáé ôð ðñðüð íûøòé ñòéî áñÝ ìüãð áñáóøðìðàóå ëáé åóÛ÷."
		echo ""
		echo ""
		echo ""
		echo ""
		echo -n "ÑáôÜóôå return ãéÛ îá åñéóôòûùåôå óôð menu åòãáóéýî."
		set tmp = "$<"
		goto LABEL_MENU
	case "delete":
		clear
		echo "	    ÆçôÜóáôå âðÜèåéá ãéá ôçî åñéìðãÜ delete..."
		echo ""
		echo ""
		echo "Äüîðîôá÷ delete óáî åñéìðãÜ óôð menu åòãáóéýî, æçôÛôå áñÝ ôð óàóôçíá îá óâÜ"
		echo "óåé ëÛñðéð áòøåüð ñðõ óá÷ áîÜëåé. ÁõôÝ óçíáüîåé Ýôé, íåôÛ ôçî åëôûìåóç ôç÷"
		echo "åîôðìÜ÷, ôð áòøåüð ñðõ èá óâçóôåü, èá ñÛùåé îá åüîáé ñòðóñåìÛóéíð áñÝ íûòðõ÷"
		echo "óá÷ íå ðñðéðîäÜñðôå ôòÝñð, ãéáõôÝ áõôÜ ôçî åîôðìÜ øòçóéíðñðéÜóôå ôçî íå"
		echo "ÍÅÃÁÌÇ ÑÒÐÓÐØÇ \!\!\!"
		echo ""
		echo ""
		echo ""
		echo ""
		echo -n "ÑáôÜóôå return ãéÛ îá åñéóôòûùåôå óôð menu åòãáóéýî."
		set tmp = "$<"
		goto LABEL_MENU
	default:
		clear
		echo ""
		echo "ÆçôÜóáôå âðÜèåéá ãéÛ åîôðìÜ ñðõ äåî õñÛòøåé..."
		echo ""
		echo ""
		echo ""
		echo ""
		echo -n "ÑáôÜóôå return ãéÛ îá ëÛîåôå áëÝíç íüá ñòðóñÛèåéá."
		set tmp = "$<"
		goto LABEL_MAIN_HELP
endsw
LABEL_QUIT: