#! /bin/csh -f
# This log.in file first made by Levon H. Sukissian, September 17 1990
# Security beauty and functionallity added by Spiros, 1996

# Script starts here
# -----------------------------------
set term=70092
set path=(. /bin /usr/bin /usr/contrib/bin /usr/local/bin /usr/lib)
setenv SHELL "No shell for you"
stty erase "" kill "" intr "^C" eof ""
stty isig
stty susp ""
set home_dir = "/home/courses/novice"
umask 027
setenv TZ EET-2EETDST

set TTY = `tty | grep /dev/tty | wc -c`
if("$TTY" == 0) then
    echo ""
    echo ""
    echo ""
    echo ""
    echo "Θα ήθελα να σας δώ στο Εργαστήριο\!\!\!"
    echo "I would like to see you here, at the lab \!\!\!"
    echo ""
    echo ""
    goto LABEL_QUIT
endif

#Make some use of the soft-key message boxes:
set Term=`tty`
set Term=`basename $Term`
echo "&f 1k 0a 1d -1L "
echo "&f 2k 0a 1d -1L "
echo "&f 3k 0a 1d -1L "
echo "&f 4k 0a 1d -1L "
echo "&f 5k16d-1L  TTY    $Term "
echo "&f 6k 0a 1d -1L "
echo "&f 7k 0a 1d -1L "
echo "&f 8k 0a 1d -1L "
echo "&jB"

LABEL_START:
clear
echo ""
echo ""
echo -n "Δώστε το προσωπικό σας όνομα χρήσης γιά τον κωδικό novice:  "
set us_name = "$<"
if ("$us_name" == "") 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 = `./novadm/grep "^${us_name}:" $home_dir/novadm/passwd | wc -c`

if ($user_exist != 0) then
	goto LABEL_PASSWD
else
    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") then
		goto LABEL_START
	 else
	     set us_dir = $home_dir/$us_name
	     mkdir -p $us_dir > /dev/null
	     goto LABEL_CR_PASSWD
	 endif
endif
LABEL_MENU:
onintr LABEL_MENU
clear
echo "         Υ Π Ο Λ Ο Γ Ι Σ Τ Ι Κ Ο  Κ Ε Ν Τ Ρ Ο  Η Λ Ε Κ Τ Ρ Ο Λ Ο Γ Ω Ν"
echo "                   ΕΙΣΑΓΩΓΗ ΣΤΟΥΣ ΗΛΕΚΤΡΟΝΙΚΟΥΣ ΥΠΟΛΟΓΙΣΤΕΣ"
echo "&dD                                                                                "
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 -n "        Ποιά είναι η επιλογή σου $us_name : "
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 ""
	    /bin/ls 
	    echo ""
	    echo ""
	    echo ""
	    echo "Αμέσως παρακάτω θα σας ζητηθεί να γράψετε το όνομα του αρχείου με το οποίο"
	    echo "θέλετε να δουλέψετε. Το όνομα αυτό μπορεί να είναι κάποιο από αυτά που μό-"
	    echo "λις εμφανίστηκαν (και ήδη υπάρχει) ή κάποιο άλλο, αν πρόκειται να δημιουργή-"
	    echo "σετε νέο  αρχείο. Γιά δημιουργία νέου αρχείου, μην ξεχάσετε ότι το όνομα που"
	    echo "θα δώσετε θα πρέπει να τελειώνει σε .p εάν το αρχείο αυτό θα περιέχει πηγαίο"
	    echo "κώδικα σε pascal.\!\!\!"
	    echo ""
	    echo ""
	    echo -n "Ονομα αρχείου γιά editing:  "
	    set flname = "$<"
	    set flname = `echo $flname|sed 's/[^A-z^0-9\._\-\+]//g'`
	    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 "εκτελέσιμο αρχείο με όνομα αυτό που θα δώσετε και κατάληξη όχι πλέον .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 ""
		    echo "&dBΤο αρχείο με όνομα $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 "&dBΔεν υπάρχει κανένα αρχείο γιά σβήσιμο \!\!\!"
		    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 "&dBΔεν υπάρχει ΚΑΝΕΝΑ εκτελέσιμο αρχείο."
		    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 "&dBΤο εκτελέσιμο που ζητήσατε να τρέξει ΔΕΝ υπάρχει."
		    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 "&dBΜα γιατί;;;;; Αφού είπαμε ότι ΑΠΑΓΟΡΕΥΕΤΑΙ η εκτύπωση εκτελέσιμου αρχείου..."
		    echo ""
		    echo ""
		    echo ""
		    echo -n "Πατήστε return για να επιστρέψετε στο menu εργασιών."
		    set tmp = "$<"
	    else
		    set printnum = `$home_dir/novadm/grep "^${us_name}:" $home_dir/novadm/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 "$prflname 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
	    echo ""$us_name"#`/bin/tty`#`/bin/date +%T`#off">>/home/courses/novice/novadm/novice.log
	    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 = `./novadm/grep "^${us_name}:" $home_dir/novadm/passwd | awk -F: '{print $2}' `
if( "$probpasswd" == "$passwd") then
    #/bin/cp $home_dir/molecules.txt $us_name/
    echo ""$us_name"#`/bin/tty`#`/bin/date +%T`#on">>/home/courses/novice/novadm/novice.log
cd $us_name
#george
    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 ""
echo "  To $us_name όνομα γιά τον κωδικό novice που επιλέξατε, χρησιμοποιείται"
echo "γιά πρώτη φορά. Ετσι, για λόγους ασφαλείας, θα πρέπει να έχετε και"
echo "ένα password. Το συνδυασμό, του ονόματος που δώσατε παραπάνω, καθώς"
echo "επίσης και του password, που θα δώσετε αμέσως τώρα, δεν θα πρέπει να"
echo "τον ξεχνάτε, εαν θέλετε, την επόμενη φορά που θα έρθετε να δουλέψετε,"
echo "να βρείτε τα αρχεία σας εκεί που τα αφήσατε."
echo ""
echo "  Η λέξη που θα δώσετε παρακάτω σαν password, μπορεί να είναι οποιοσδή-"
echo "ποτε συνδυασμός αλφαριθμητικών χαρακτήρων. Θα πρέπει επίσης να δώσετε"
echo "ιδιαίτερη προσοχή  στη δακτύλιση της  λέξης δεδομένου ότι οι χαρακτήρες"
echo "που θα στέλνετε από το πληκτρολόγιο ΔΕΝ ΘΑ ΕΜΦΑΝΙΖΟΝΤΑΙ ΣΤΗΝ ΟΘΟΝΗ."
echo ""
echo ""
echo ""
echo -n "Παρακαλώ πατήστε return."
set tmp = "$<"
LABEL_CPASSWD:
echo ""
#echo ""
#echo ""
echo ""
echo -n "Το password που επιθυμείτε, είναι (&dBΔεν θα εμφανίζεται στην οθόνη): "
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 = `./novadm/wc -l $home_dir/novadm/passwd | awk '{print $1}'`
    @ kk = $wcc % 2
    ./novadm/putpasswd "${us_name}:${passwd1}:${kk}" $home_dir/novadm/passwd
    echo ""$us_name"#`/bin/tty`#`/bin/date +%T`#on">>/home/courses/novice/novadm/novice.log
    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: