Τρίτη 30 Απριλίου 2019

1222. The Mall Athens – Lego Shop



Την Τετάρτη, 3 Απριλίου 2019, διάνυσα τα είκοσι πέντε (25), περίπου, χιλιόμετρα μεταξύ Τ47 και The Mall Athens, στο Μαρούσι. Στόχος το να επισκεφθώ το εκεί, επίσημο, κατάστημα της Lego και να δω το, από τις αρχές Μαρτίου 2019 διαθέσιμο, κουτί της Ford Mustang, Lego Creator Expert (10265).

Στάθηκα τυχερός, μιας και, στο Mall, «έπεσα» πάνω στην έκθεση Classic Cars, με χορηγό την Ford, την ύπαρξη της οποίας αγνοούσα. Δεν έχασα, βεβαίως, την ευκαιρία! To Huawei 20 Pro πήρε φωτιά! Φωτογράφισα τα δώδεκα (12) από τα δεκατέσσερα (14) εκτιθέμενα κλασικά αυτοκίνητα, μιας και δύο μου «ξέφυγαν»!, και ανέβασα τις σχετικές φωτογραφίες στην εγγραφή «1218. The Mall Athens – Classic Cars», της Παρασκευής, 5 Απριλίου 2019.

Μεταξύ της φωτογράφισης των αυτοκινήτων, η οποία με είχε συνεπάρει, επισκέφθηκα και το Lego Shop. Εκεί είχα την ευχαρίστηση να δω τόσο το κουτί όσο και το συναρμολογημένο μοντέλο της Ford Μustang. Υπήρχαν επίσης συναρμολογημένα και άλλα, ακριβά, μοντέλα της Lego, όπως η Bugatti Chiron, κόστους 459,99 €! Ομολογουμένως εντυπωσιακή αλλά, από την άλλη, το ποσό που κοστίζει θα έλεγα ότι είναι εξωφρενικό για την Ελληνική πραγματικότητα και, ίσως, όχι μόνο.

Το κατάστημα μικρό και καλοβαλμένο με δύο ευγενέστατα παιδιά (αγόρι, κορίτσι) πρόθυμα να εξυπηρετήσουν. Ζήτησα την άδεια τους και φωτογράφισα κάποια από τα εκθέματα και τα κουτιά. Υπήρχαν, επίσης, αρκετά δοχεία με χύμα κομμάτια (τουβλάκια) της Lego. Επιπλέον, βρήκα κάποια κουτιά της σειράς Brickheadz τα οποία δεν είχα δει σε άλλα καταστήματα (Public, Μουστάκας, Max Stores).

Δεν έφυγα, βεβαίως, από το κατάστημα με άδεια χέρια! Αγόρασα το κουτί 41614 (Owen & Blue, Brickheadz), από τα «σπάνια» που προανέφερα. Η αγορά του κουτιού 10265 (Ford Mustang), πάντως, είναι προγραμματισμένη. Θα το αγοράσω! Όχι όμως από το Lego Shop αλλά από τα Public, όταν ευαρεστηθούν να το φέρουν. Και αυτό λόγω μιας δωροεπιταγής, των Public, που μου χάρισαν εκλεκτοί συνάδελφοι με την ευκαιρία της αποχώρησής μου από την υπηρεσία.



Σε σχετική ερώτηση, που έκανα, στον ευγενέστατο πωλητή του καταστήματος, η απάντηση ήταν ότι τα κουτιά της Lego εμφανίζονται, στα άλλα σημεία πώλησής τους, μετά από τέσσερεις και πέντε μήνες. Έπεμψα, λοιπόν, κι εγώ σχετικό ερωτηματικό ηλεκτρονικό μήνυμα στα, της δωροεπιταγής, Public για να την που ακολουθεί λάβω απάντηση:

Καλημέρα σας,

Σας ευχαριστούμε που επικοινωνήσατε με το Public.gr.

Σε συνέχεια του ερωτήματός σας, θα θέλαμε να σας ενημερώσουμε ότι το προϊόν που αναφέρετε δεν είναι διαθέσιμο για αγορά και προς το παρόν δεν υπάρχει κάποια πληροφορία για το πότε και αν θα γίνει διαθέσιμο.

Ως εκ τούτου, δεν υπάρχει η δυνατότητα καταχώρησης παραγγελίας.

Παραμένουμε πάντα στη διάθεσή σας για οποιαδήποτε διευκρίνιση ή πληροφορία.

Μου έκαναν την καρδιά περιβόλι!

Ακολουθούν δέκα (10) φωτογραφίες από το στο The Mall Athens κατάστημα της Lego:











Καλή Πρωτομαγιά.
Καλό Μάιο!

Ένα κλικ μακριά Dobie Gray και “Drift Away”:



30/04/2019

Σάββατο 27 Απριλίου 2019

1221. Η Ενδυμασία του Ουρανού

Την πρώτη φορά τη συνάντησα σε ένα βιβλίο. Τη δεύτερη σε μία ταινία. Ποια; Μα . . . την ενδυμασία του ουρανού!

Το βιβλίο ήταν το «Μόνο Τα Όνειρα Μου» της Ντενίζ Ρόμπινς, έκδοση «ΒΙΠΕΡ», το οποίο απόκτησα στις 19 Αυγούστου 1972. Ένα βιβλίο που πλέον δεν έχω στην κατοχή μου μια και  θυσιάστηκε, μεταξύ άλλων πολλών,  εν ονόματι της εφαρμογής του «Project Δήμητρα».


Η ταινία ήταν η The Upside” («Η Θετική Πλευρά της Ζωής») (2017) ριμέικ της εξαιρετικής Γαλλικής  ταινίας Intouchables” («Άθικτοι») (2011). Η «ενδυμασία», στην πρώτη ταινία, εμφανίζεται στο 01:09:17,104, ακριβώς!


Όμως αρκετά το παιδέψαμε! Ας το πάρει το ποτάμι! Δεν πρόκειται για τίποτα άλλο παρά ένα σύντομο ποίημα του W. B. Yeats (1865 – 1939) ένα απόσπασμα του οποίου στο βιβλίο, που προανέφερα, εμφανίζεται σαν προοίμιο και στην ταινία «Η Θετική Πλευρά της Ζωής» το χρησιμοποιεί ένας των πρωταγωνιστών σε μία επιστολή του.


Ακολουθεί το ποίημα και μία ερασιτεχνική, εντελώς, μετάφρασή του στα Ελληνικά, από την ταπεινότητα μου. Τόλμημα για το οποίο ζητώ την κατανόησή σας:

Aedh Wishes for the Cloths of Heaven

Had I the heavens' embroidered cloths,
Enwrought with golden and silver light,
The blue and the dim and the dark cloths
Of night and light and the half light,
I would spread the cloths under your feet:
But I, being poor, have only my dreams;
I have spread my dreams under your feet;
Tread softly because you tread on my dreams.

O Aedh Εύχεται Να Είχε την Ενδυμασία του Ουρανού

Αν είχα τ’ ουρανού την κεντημένη ενδυμασία,
Την φτιαγμένη με χρυσαφένιο κι ασημένιο φως,
Την μπλε κι αχνή και σκοτεινή ενδυμασία,
Της νύχτας και της μέρας και του ημίφωτος,
Θα άπλωνα την ενδυμασία κάτω από τα πόδια σου:
Μα εγώ, όντας φτωχός, έχω μονάχα τα όνειρά μου·
Τα όνειρά μου άπλωσα κάτω από τα πόδια σου·
Πάτα απαλά γιατί πατάς πάνω στα όνειρά μου.

Μια ενδιαφέρουσα σύντομη ανάλυση του ποιήματος, στα Αγγλικά, μπορείτε να διαβάσετε: εδώ.

Αφτά, λοιπόν, και, βεβαίως, Καλή Ανάσταση!

Ένα κλικ μακριά Χαΐνηδες, Κάλια Σπυριδάκη και «Καράβι, Καραβάκι»:



27/04/2019 (Μεγάλο Σάββατο)

Σάββατο 20 Απριλίου 2019

1220. Περίπατοι



Προσπαθώ, τον τελευταίο καιρό, να κάνω περιπάτους. Οι λόγοι αρκετοί. Να μην κλείνομαι στην Τ47. Να διατηρώ μια ανεκτή φυσική κατάσταση. Να φωτογραφίζω. Δεν βγαίνει η ζωή με διάβασμα, μουσική και ταινίες μόνο.

Λοιπόν, περπατώ. Σκέφτομαι. Φωτογραφίζω. Όλα όσο μπορώ. Τυχαίνει, κάποιες φορές, να συναντώ εμπόδια στα που θέλω να φωτογραφίσω. Άβολο φως. Περαστικοί. Αυτοκίνητα. Προσπέραση. Τέτοια. Σημειώνω την τοποθεσία. Στόχος το να επανέλθω.

Σε πρόσφατο περίπατό μου είχα δύο τέτοιες περιπτώσεις. Δύο κτήρια. Μου φάνηκαν, αυτά και ο περίγυρός τους, ελκυστικά. Ένα υπό κατασκευή, ντυμένο με μπλε λινάτσες. Το άλλο με φωτοβολταϊκά στη στέγη. Τα σημείωσα.

Εχθές κατηφόρισα από την Τ47. Στόχος: Να τα πιο πάνω κτήρια φωτογραφήσω. Ενεργοποίησα, λίγες μέρες πριν, την Canon Ixus 285 HS. Βεβαίως και με έχει απογοητεύσει όσο αφορά την φωτογράφιση προσώπων ή τη λήψη φωτογραφιών σε κλειστούς χώρους. Παραμένει, όμως, το γεγονός ότι διαθέτει οπτικό ζουμ 12X. Συνεπώς για τοπία και κτήρια, με φως ημέρας, κάνει!

Με την Canon έτοιμη, λοιπόν, περπάτησα και φωτογράφησα. Τα αποτελέσματα ικανοποιητικά. Δεν ακριβώς πέτυχα την φωτογράφιση του κτηρίου με τα φωτοβολταϊκά. Ίσως την επόμενη φορά. Ακολουθούν, βεβαίως, σχετικές φωτογραφίες:














Καλή Κυριακή,

Καλή Μεγάλη Εβδομάδα!

Ένα κλικ μακριά Joe Dassin και “Regarde-Toi”:


20/04/2019

Κυριακή 14 Απριλίου 2019

1219. Η/Υ, dBase III Plus και Clipper


Έρχεται η στιγμή, ας πούμε μετά από τριάντα πέντε έτη εργασίας, να αδειάσεις το υπηρεσιακό σου γραφείο από τα προσωπικά σου αντικείμενα. Το πράττεις. Το μόνο σίγουρο, στην περίπτωση αυτή, ότι και θα βρεις και θα θυμηθείς. Μου συνέβη.

Βρήκα! Τρία πλαστικά ντοσιέ και τέσσερα χαρτιών σετ. Συνολικό πλήθος σελίδων: 304. Περιεχόμενο; Προγράμματα! Προγράμματα σε Clipper για εφαρμογές που, στα τέλη της δεκαετίας του 80 αρχές αυτής του 90, είχα φτιάξει για την υπηρεσία.

Προγράμματα με ονόματα όπως: C_PASS.PRG, EPP.PRG, EP_ETOYS.PRG, FUNCTION ANTIL (FRASH, ARADA, X_NUM), FUNCTION BALE() και άλλα τέτοια πολλά. Θυμήθηκα!

Ας το πιάσουμε από την αρχή. Καταφεύγω στο, ψηφιοποιημένο, χειρόγραφο ημερολόγιο μου. Ψάχνω τη λέξη «υπολογιστή». Πέρα από αυτόν που χρησιμοποίησα, στο ΕΜΠ, για την Διπλωματική μου εργασία, το 1979, βρίσκω το απόσπασμα που ακολουθεί:

. . . Σήμερα μάλιστα άρχισα να ασχολούμαι ενεργά με έναν PC υπολογιστή που διαθέτει ο ΑΗΣ (πακέτο dbase III plus κ.λ.π.).


Τότε, λοιπόν, ξεκίνησαν όλα. Θυμάμαι πόσο αγάπησα την συγκεκριμένη ενασχόληση. Τα απογεύματα που, αμισθί, παρέμενα στο γραφείο για να διαβάσω και να μάθω το άγιο DOS. Τότε που για να χρησιμοποιήσεις τον Η/Υ έπρεπε να πληκτρολογείς υπαρκτές εντολές και όχι να κουνάς ένα ποντίκι και όπου σε βγάλει.

Θυμάμαι και μία περίπτωση που, βραδάκι, μπήκε στο γραφείο που διάβαζα μία νυχτερίδα! Είδα και έπαθα μέχρι να  καταφέρω να την βγάλω σώα έξω από το γραφείο.

Ασχολήθηκα, λοιπόν και κυρίως, με την dBase III Plus η οποία δεν ήταν παρά ένα σύστημα διαχείρισης βάσεων δεδομένων για τα, τότε, λειτουργικά συστήματα CP/M και DOS. Αγόρασα, μάλιστα, και το βιβλίο: «Εισαγωγή και Προγραμματισμός με την dBASE» του Κ. Καραΐσκου, έκδοση «Α. Παπασωτηρίου», στις 27/11/87 (αμ’ έπος αμ’ έργον) με κόστος 4,69 €. Ένα βιβλίο το οποίο, προφανώς, με βοήθησε και από την άλλη με εξόργισε με τα αισχρά Ελληνικά του! Το ωραίο είναι ότι, για την συγκεκριμένη έκδοση, υπήρχε και «επιμελητής»! Ατυχώς το βιβλίο αυτό δεν υπάρχει, πλέον, στην βιβλιοθήκη μου. Ας όψεται το «Project Δήμητρα»!



Το ένα φέρνει το άλλο. Από την dBase III Plus πέρασα στο Clipper της Nantucket. To Clipper ήταν μία γλώσσα προγραμματισμού που επέτρεπε την κατασκευή εφαρμογών διαχείρισης βάσεων δεδομένων που «έτρεχαν» σε περιβάλλον DOS. Σε Clipper, λοιπόν, είναι τα προγράμματα εκτυπώσεις των οποίων βρήκα αδειάζοντας, πώς να το πω;, το γραφείο μου.

Το αγάπησα το Clipper! Ξόδεψα δεκάδες ώρες μελετώντας το. Άρχισα, έτσι, να προγραμματίζω. Θυμάμαι ότι έγραφα τα προγράμματα μου στο σπίτι, στο οποίο δεν είχα, Η/Υ και είχα την αγωνία να πάω στο γραφείο να τα «τρέξω» και να δω αν και πώς λειτουργούν. Με μεθούσε ο προγραμματισμός! Μου έδινε υψηλή πνευματική απόλαυση. Το να ξεπερνάω προβλήματα, να εφευρίσκω λύσεις, να εμπλουτίζω τις εφαρμογές με νέες δυνατότητες ήταν το καλύτερό μου!

Δουλεύαμε με δισκέτες τότε. Αρχικά 5 ¼ και κατόπιν 3,5 ιντσών. Οι χωρητικότητες, με τα σημερινά μέτρα, κυριολεκτικά αστείες! Από   360 ΚΒ μέχρι 1,44 ΜΒ! Θυμάμαι, λοιπόν, ότι, μέχρι να αποκτήσουμε εκτυπωτή στη υπηρεσία, πήγαινα και εκτύπωνα τα προγράμματά μου σε μία Εταιρεία, με την οποία συνεργαζόμασταν, προκειμένου να μπορώ να τα μελετήσω/ βελτιστοποιήσω απόγευμα και βράδυ στο σπίτι. Τέτοιο πάθος!

Εξακολουθούσα να αγοράζω, προσωπικά ή / και υπηρεσιακά, σχετικά βιβλία κυρίως, πλέον, για το Clipper. Αγαπημένο βιβλίο το The Clipper Interface Handbookτου John Mueller (Windcrest / McGraw – Hill) το οποίο αγόρασα στις 26/5/1992 με κόστος 20,83 €. Ατυχώς, και πάλι, έπεσε και αυτό θύμα του «Project Δήμητρα».

Η πρώτη εφαρμογή που έφτιαξα ήταν, αν θυμάμαι καλά, σχετική με την αξιολόγηση μισθωτών. Μια εφαρμογή που έδινε τη δυνατότητα να αξιολογήσεις (βαθμολογήσεις) να κατατάξεις και να έχεις πρόσβαση σε ένα πλήθος στατιστικών στοιχείων. Ακολούθησαν, μεταξύ άλλων, μία εφαρμογή για την μισθοδοσία του εκτάκτου προσωπικού και μία για την σύνταξη του Ετήσιου Προϋπολογισμού. Αυτή η τελευταία θα πρέπει να ήταν από τις πρώτες, στην υπηρεσία, που προέκυπτε από προγραμματισμό με τους Πίνακες Προϋπολογισμού εκτυπωμένους, με dot matrix εκτυπωτή, και όχι δακτυλογραφημένους. Μια εφαρμογή για την οποία η δακτυλογράφος, που μέχρι τότε δακτυλογραφούσε, κυρίως υπερωριακά, τους σχετικούς Πίνακες μου έκοψε την «Καλημέρα»!

Ακολούθησαν εφαρμογές, όταν πια είχα μετατεθεί στην Αθήνα τον Σεπτέμβριο του 1993, για την καταχώριση και επεξεργασία υπηρεσιακών πληροφοριών για τους μισθωτούς, για την επίδοση «φύλλων επιστράτευσης», ανάλογα με τον συνδικαλιστικό φορέα των εργαζομένων και, κυρίως, την τήρηση Πρωτοκόλλου Εισερχομένων / Εξερχομένων εγγράφων στην κεντρική υπηρεσία. Η τελευταία αυτή εφαρμογή ήταν και η «βαρύτερη» που είχα φτιάξει και έλυσε αρκετά προβλήματα επί τριετία τουλάχιστον.

Είχε έλθει πλέον η εποχή του λειτουργικού συστήματος Windows, κυρίως η έκδοσή του 3.1 το 1992, και η Nantucket, η Εταιρεία που είχε κατασκευάσει και καθιερώσει το Clipper, δεν μπόρεσε να προσαρμοστεί στην «παραθυρική» εποχή. Έσβησε! Στην ουσία την ακολούθησα! Άλλαξε και το αντικείμενο εργασίας μου και παράτησα τον προγραμματισμό. Έμεινα το διάστημα 1987 – 1994 να μου θυμίζει την πνευματική χαρά και την ανάταση που μου είχε χαρίσει!

Έψαξα τον Η/Υ της Τ47 και, βεβαίως, είχα κρατήσει αντίγραφα από τα Προγράμματα αυτά. Αντίγραφα δισκετών και στο σύνολο τους. Αρχεία EXE, DBF, NTX, BAT. Όλα! Δεν επιθυμώ να επεκταθώ σε τεχνικές λεπτομέρειες που ούτε εγώ πλέον καλοθυμάμαι. Θα παραθέσω όμως, έτσι για να πάρετε μία γεύση, τον κώδικα μιας διαδικασίας (Procedure) και μίας συνάρτησης (Function). Ιδού:

**************************************************************

 PROCEDURE MY_DBU( nTop, nLeft, nBottom, nRight, aEPIKEF, aPEDIO, ;

                   aPERIOXH, nPEDIA, aPLATOS, aTEXT, MyPlik )
**************************************************************

*Περιγραφή -----> Συνάρτηση Εμφάνισης/Ενημέρωσης Αρχείου DBF

    LOCAL browse                        // Το αντικείμενο TBrowse
    LOCAL cColorSave, nCursSave         // "Φύλακες" Καταστάσεων
    LOCAL nKeY                          // Πληκτροπάτημα
    LOCAL lMore                         // Έλεγχος Βρόχου
    LOCAL Fouli                         // Για να κάνουμε, επιτέλους, την δουλειά μας
    LOCAL column                        // Aμ πώς θα την γαζώσουμε !
    LOCAL lSavReadExit := READEXIT( .T. )  // Ενεργοποίηση πλήκτρων Άνω/Κάτω
                                           // για Εξοδο από READ
    LOCAL SSS
    MEMVAR QUI, MyFunc2

       browse := TBrowseDB( nTop, nLeft, nBottom, nRight )

       FOR Fouli=1 TO nPEDIA
        column := TBColumnNew( aEPIKEF[fouli], ;
                  FieldWblock( aPEDIO[fouli], aPERIOXH[fouli] ) )
         column : width := aPLATOS[Fouli]
        browse : addColumn(column)
       NEXT

    TURN_OFF_APPEND_MODE(browse)

    browse:skipBlock := { |x| Skipper(x, browse) }

    browse:headSep := MY_HEADSEP
     browse:colSep := MY_COLSEP
    browse:footSep := MY_FOOTSEP

    FancyColors(browse)

     cColorSave := SetColor("N/W")

      ANTIL( PADC( aTEXT[1], T_STL+1 ), 0, 7, 7 )
      ANTIL( PADC( aTEXT[2], T_STL+1 ), T_GRM-1, 7, 7 )
      ANTIL( PADC( aTEXT[3], T_STL+1 ), T_GRM, 7, 7 )

     SetColor( "N/W" )

     DISPBOX( nTop-1, nLeft-2, nBottom, nRight+2, 2 ) // αντί nBottom + 1

     SetColor("W/W")
    @ nTop, nLeft-1 CLEAR TO nBottom-1, nRight+1 // αντί nBottom
     SetColor( "N/W" )
    @ nTop+1, nLeft-2   SAY CHR(204) + CHR(205) // Για να οι του έσω πλαισίου
    @ nTop+1, nRight+1  SAY CHR(205) + CHR(185) // γραμμές κλείνουν
     SetColor(cColorSave)

    nCursSave := SetCursor(SC_NONE)

    lMore := .T.

    DO WHILE lMore // Βρόχος Βασικός κι Ασήκωτος

      if ( Browse:colPos <= Browse:freeze )
           Browse:colPos := ( Browse:freeze + 1 )
      endif

       nKeY := 0

        DO WHILE nKeY == 0 .AND. .NOT. browse:stable
         browse:stabilize()
         nKeY := Hot_InKey()
        ENDDO

         * Αριθμός Εγγραφής / Σύνολο Εγγραφών
        @ nBottom, nRight-16 SAY "[ " + STR( RECNO(), 5 ) + ;
                                " / " + STR( LASTREC(), 5 ) + " ]" ;
                                 COLOR "N/W"

        IF DELETED()
         @ nTop-1, nRight-16 SAY "< Διεγράφη >"  ;
                             COLOR IF( QUI, "W+/R", "N/W" )
        ELSE
         @ nTop-1, nRight-16 SAY REPLICATE( CHR(205), 13 ) ;
                                 COLOR "N/W"
        ENDIF

        SSS := &MyFunc2

        IF browse:stable
         IF browse:hitBottom .AND. .NOT. IS_APPEND_MODE(browse)
          TURN_ON_APPEND_MODE( Browse )
          nKey := K_DOWN
         ELSE
          IF browse:hitTop .OR. browse:hitBottom
           TONOS( 125, 0 )
          ENDIF
           browse:refreshCurrent()
            ForceStable(browse)
            nKeY := HOT_INKEY(0)
         ENDIF
        ENDIF

        IF nKeY == K_ESC
         lMore := .F.
        ELSE
         MYAPPKEY(browse, nKeY, MyPlik )
        ENDIF

    ENDDO

    SETCURSOR(nCursSave)
    READEXIT( lSavReadExit )

    RETURN


*********************
 FUNCTION SEEK_AP()
*********************

 LOCAL REC, SCR, mAREGG
MEMVAR InOut

  REC := RECNO()
  DBSETORDER( 1 )

  SCR := SCRNSAVE( T_GRM-2, 0, T_GRM, T_STL )
      
  IF InOut < 3 
   mAREGG := DTOC(DATE())
  ELSE
   mAREGG := SPACE(2)   
  ENDIF
               
 XROMA(1)
 ANTIL( PADC( " ΠΛΗΚΤΡΟΛΟΓΕΙΣΤΕ " + ;
          IIF( InOut<3 o:p="">
          T_STL+1 ), T_GRM, 2, 2 ) 
       ANTIL( PADC( IIF( InOut<3 nbsp="" o:p="">
            "EΤΟΙΜΟΣ ! [  ]"), T_STL+1 ), T_GRM-1, 7, 7 )        
 CLEAR GETS
 SET CURSOR ON
        
        IF InOut < 3
          @ T_GRM-1, CENT(SPACE(20)) + 11 GET mAREGG ;
                  COLOR IF( QUI, "W+/BG", "N/W" ) PICTURE "99/99/99"
         ELSE             
          @ T_GRM-1, CENT(SPACE(14)) + 11 GET mAREGG ;
                  COLOR IF( QUI, "W+/BG", "N/W" ) PICTURE "99"  
         ENDIF
        
        READ
         SET CURSOR OFF

         SET SOFTSEEK ON
       IF InOut < 3
         SEEK DTOS(CTOD(mAREGG))
       ELSE
         SEEK SPACE( 2 -LEN(ALLTRIM(mAREGG)))+ALLTRIM(mAREGG)
       ENDIF
          SET SOFTSEEK OFF
        
        IF EOF() // Αλλως ! FOUND() διότι βεβαίως έχουμε και το SOFTSEEK ON !
        IF InOut < 3
         ANTIL( PADC( "ΔΕΝ ΥΠΑΡΧΕΙ ΕΙΣΕΡΧΟΜΕΝΟ ΜΕ ΗΜΕΡΟΜΗΝΙΑ ΠΑΡΑΛΑΒΗΣ " + ;
               mAREGG, T_STL+1 ), T_GRM, 6, 6 )
         ELSE                 
         ANTIL( PADC( "ΔΕΝ ΥΠΑΡΧΕΙ ΤΜΗΜΑ ΜΕ ΚΩΔΙΚΟ ΑΡΙΘΜΟ " + ;
                mAREGG, T_STL+1 ), T_GRM, 6, 6 )
         ENDIF        
         BEEP()       
         HOT_INKEY(3)         
       ELSE
        REC := RECNO()
       ENDIF
      
       GO REC

         SCRNREST( SCR )    
        
      DBSETORDER( 0 )

Ένα κλικ μακριά και από το άλμπουμ «Εστουδιαντίνα ΙΙ, Δάκρυ στο Γυαλί» (2006) το τραγούδι «Κερύνεια» με τους Παντελή Θαλασσινό, Γιώργο Νταλάρα σε μουσική του πρώτου και στίχους του Πόλυ Κυριάκου:


14/04/2019