Κράτηση Τμήματος, αλλαγές και συνέχιση!

Η εντολή Δοκιμή ανοίγει τον έλεγχο, όπου μπορούμε να δούμε τιμές, το σωρό, να κάνουμε διάφορα αλλά δεν μπορούμε να αλλάξουμε τιμές. Δεν μπορούμε δηλαδή να διακόψουμε το πρόγραμμα και να επέμβουμε αλλάζοντας τιμές (ίσως κάποτε το βάλω και αυτό).
Μπορούμε όμως με έναν άλλο τρόπο να το κάνουμε! Δηλαδή με το γενικό τμήμα Στάση, γενικό για να το καλούμε απ΄οπουδήποτε, όταν το καλούμε με την Κάλεσε Τοπικά Στάση μας βγάζει σε γραμμή εντολών! Με την Κάλεσε Τοπικά δεν αλλάζει το όνομα του τμήματος. Μπορούμε να αλλάξουμε τιμές (μπορούμε να προσθέσουμε μεταβλητές αλλα θα χαθούν στο πέρας της εκτέλεσης της Στάσης). Μπορούμε να δώσουμε εντολές όπως Λίστα, ή Τμήματα !, αλλά και πιο "βαριές" να δώσουμε τη Σ όνομα_τμήματος και να αλλάξουμε κώδικα, ή να αλλάξουμε θέση ετικετών (όταν αλλάζουμε το κείμενο - πρόγραμμα- του τμήματος σβήνει ο εσωτερικός πίνακας που δείχνει που είναι η θέση της κάθε ετικέτας που ζητήθηκε έστω μια φορά, οπότε ξαναχτίζεται μετά). Γράφουμε την εντολή Συνέχεια, και συνεχίζει το πρόγραμμα! Μπορούμε όσες φορές θέλουμε να βάλουμε το Κάλεσε Τοπικά Στάση. Το ? μόνο του δίνει τη βοήθεια! Αλλιώς είναι το Τύπωσε.




Τμήμα Γενικό Στάση {
      Τοπική αα_$
      Δες {
                  Τύπωσε "Στάση στο "+Τμήμα$+">";
                  Γραμμή Εισαγωγής αα_$
                  Τύπωσε
                  αα_$=Αποκ$(αα_$)
                  Αν αα_$="?" Τότε Αναφορά "Δώσε Συνέχεια για να συνεχίσεις, ή Λίστα, ή όποια άλλη εντολή θέλεις"
                  Αν Κεφ$(αα_$)="ΣΥΝΕΧΕΙΑ" τότε έξοδος
                  Δες οκ {
                        Ένθεση αα_$
                  }
                  Αν Λάθος ή όχι οκ Τότε Τύπωσε Λάθος$
                  Κυκλικα
      }
}
\\ δοκιμή
Τμήμα Κάτι {
      Α=500
      Τμήμα ΚάτιΆλλο {
            Α=10
            Β=20
            Αναφορά {Δοκίμασε σκέτο ?
            επίσης:
                  Λίστα
                  ? Α
                  ? Β
                  Α+=10  ' για αλλαγή τιμής
            }
            Κάλεσε Τοπικά Στάση
            Τύπωσε Α+Β
      }
      ΚάτιΆλλο
}
Κάτι