! =============================================================
! Η τεχνική αυτή επιδεικνύει έναν τρόπο με τον οποίο
! μπορούν δύο ή περισσότερα ανεξάρτητα προγράμματα να
! συνεργάζονται μεταξύ τους. Με τη μέθοδο αυτή είναι
! δυνατόν ένα μεγάλο πρόγραμμα να σπάσει σε πολλά μικρότερα.
! Ο συνδετικός κρίκος μεταξύ των προγραμμάτων είναι τα
! αρχεία, που εδώ χρησιμοποιούνται σα χώρος προσωρινής
! αποθήκευσης των παραμέτρων κλήσης και των αποτελεσμάτων.
! Σε αυτό το παράδειγμα το "Αρχικό" πρόγραμμα δίνει τυχαίες
! τιμές σε έναν πίνακα και τον αποθηκεύει σε ένα αρχείο.
! Κατόπιν καλεί ένα άλλο πρόγραμμα ("Καλούμενο") το οποίο
! διαβάζει τον πίνακα από το αρχείο, τον ταξινομεί και τον
! αποθηκεύει πάλι. Έτσι, μετά την εκτέλεση του "Καλούμενου"
! προγράμματος, το "Αρχικό" μπορεί να διαβάσει τον
! ταξινομημένο πλέον πίνακα από το αρχείο.
!
! Στην έκδοση 6.3 επιλύθηκαν κάποια προβλήματα της εντολής
! ΕΚΤΕΛΕΣΕ και προστέθηκε ή δυνατότητα επιλογής του τρόπου
! κλήσης (ΣΕΙΡΙΑΚΗ_ΕΚΤΕΛΕΣΗ ή ΠΑΡΑΛΛΗΛΗ_ΕΚΤΕΛΕΣΗ).
!
! Για να δείτε τα αποτελέσματα αυτού του σχήματος, αποθηκεύστε
! τις εκτελέσιμες μορφές των δύο προγραμμάτων στον ίδιο φάκελο.
! Το exe του "Αρχικού" ονομάστε το "arxiko.exe" και του
! "Καλούμενου" ονομάστε το "kaloumeno.exe".
! Τέλος, κάντε διπλό κλικ στο "arxiko.exe".
! =============================================================
ΠΡΟΓΡΑΜΜΑ Αρχικό
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: i, Π[10]
ΑΡΧΕΙΑ ΑΚΕΡΑΙΩΝ: Α
ΑΡΧΗ
ΣΥΣΧΕΤΙΣΕ_ΑΡΧΕΙΟ Α, 'params'
ΔΗΜΙΟΥΡΓΗΣΕ_ΑΡΧΕΙΟ Α
ΓΡΑΨΕ 'Αρχική μορφή του πίνακα:'
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
Π[i] <-- ΤΥΧΑΙΟΣ(100)
ΓΡΑΨΕ i, 'ο στοιχείο: ', Π[i]
ΓΡΑΨΕ_ΑΡΧΕΙΟ Α, Π[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΚΛΕΙΣΕ_ΑΡΧΕΙΟ Α
! Αν χρησιμοποιούσαμε ΠΑΡΑΛΛΗΛΗ_ΕΚΤΕΛΕΣΗ το
ΣΕΙΡΙΑΚΗ_ΕΚΤΕΛΕΣΗ ! καλούμενο πρόγραμμα δε θα προλάβαινε να
ΕΚΤΕΛΕΣΕ 'kaloumeno.exe' ! κάνει την ταξινόμηση.
! Η εντολή ΣΕΙΡΙΑΚΗ_ΕΚΤΕΛΕΣΗ μπορεί και να
! παραληφθεί, αφού είναι ή προεπιλογή.
ΑΝΟΙΞΕ_ΑΡΧΕΙΟ Α
ΓΡΑΨΕ
ΓΡΑΨΕ 'Ακολουθεί ο πίνακας όπως ταξινομήθηκε από το καλούμενο πρόγραμμα:'
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
ΔΙΑΒΑΣΕ_ΑΡΧΕΙΟ Α, Π[i]
ΓΡΑΨΕ i, 'ο στοιχείο: ', Π[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΚΛΕΙΣΕ_ΑΡΧΕΙΟ Α
ΔΙΑΓΡΑΨΕ_ΑΡΧΕΙΟ Α
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Αρχικό