Αλφαριθμητικά στη Μ2000 μέρος 1ο

Εδώ θα δούμε μερικά πράγματα για τα αλφαριθμητικά (έχουμε και τον ειδικό τύπο Έγγραφο και εδώ το χρησιμοποιούμε για να σπάσουμε μια πρόταση σε λέξεις).
Βλέπουμε διάφορες συναρτήσεις όπως Μήκος(), Αρισ$(), Μεσ$()
Στη τελευταία τύπωσε ορίζω πλάτος σηλών 6 αλλά έχω κρατήσει την προηγούμενη τιμή στο κ και την ξαναβάζω. Το $(4) είναι αναλογική γραφή με στήλες. Ηαναφορά είναι αναλογική γραφή με παραγράφους. Στην τύπωσε δεν βάζουμε παραγράφους γιατί την αλλαγή γραμμής την αφήνει σαν χαρακτήρα, απλά δεν την βλέπουμε.
π.χ. Αυτό θα τυπωθεί σε μια γραμμή και οι τέσσερις αν έχουμε κανονική γραφή, ή η πρώτη γραμμή αν έχουμε αναλογική γραφή. Δοκίμασε με Τύπωσε $(0), και με Τύπωσε $(4),
Τύπωσε {111111111
2222222222
2222
33333333
}

Στο παράδειγμα επιλέγουμε ματζέντα για φόντο και κίτρινο για γράμματα Ή όλα μπήκε για να δείξει ότι μπορούμε να ορίσουμε μεταβλητή χωρίς τιμή, σαν να παραγγέλνουμε ένα καθαρό ποτήρι! Η φίλτρο$() αφαιρεί την παρουσία χαρακτήρων. Για να αφαιρέσουμε λέξεις κάνουμε αλλαγή μιας λέξης με το τίποτα δηλαδή το κενό αλφαριθμητικό "". Φυσικά αν θέλουμε οι λέξεις να έχουν κάποια όρια θα πρέπει να αφαιρέσουμε χαρακτήρες που δεν θέλουμε!

Όμως η Μ2000 έχει αυτόματο σύστημα για να βρίσκει τις λέξεις και το πόσες είναι. Η εσωτερική ρουτίνα δουλεύει πολύ γρήγορα και ταξινομεί κιόλας!

ΑΛΛΑΓΗ: το παράδειγμα τώρα παίζει σωστά και με επιλογή τα Ρωσικά. Διότι με την αναθεώρηση 108 η εμφάνιση στην οθόνη από την τύπωσε εμφανίζει δυο χαρακτήρες σε ένα  (η Αναφορά το έκανε). Δηλαδή εδώ έχουμε τόνους (Ox301 ή 769 αριθμός unicode) που ανήκει στα Combining Diacritical Marks. Στον διορθωτή δεν είχαμε θέμα, αλλά είχαμε στη Τύπωσε και στην εισαγωγή στη κονσόλα. Μπορεί κανείς να βάλει δυο ή περισσότερα σημεία πάνω στο γράμμα! Δείτε νεώτερη ανάρτηση για την αναθεώρηση 108.

Ένταση 100 ' Εξ ορισμού η ένταση του ήχου είναι στο μέσον 50.
Φόρμα 60,30
Οθονη 5
Πένα 14\\ αλφαριθμητικά
Καθαρό Ολα$
Ρωσικά$="Са́ша: Приве́т! Меня́ зову́т Са́ша. Как тебя́ зову́т?"
Αναφορά Ρωσικά$
Λόγος$="SA-sha: preev-YET; men-YA za-VOOT SA-sha. kak tye-BYA za-VOOT?)"
Πένα 7 {Αναφορά Παράθεση$(Φίλτρο$(Λόγος$,"-"))}
Ανανέωση
Λόγος Αλλαγή$("-","h",Λόγος$)
Ελληνικά$="Σάσσα: Γεια σου! Το όνομά μου είναι Σάσσα. Ποιό είναι το όνομά σου;"
Αναφορά Ελληνικά$
\\Όλα$=Ελληνικά$
Όλα$=Ρωσικά$
Έγγραφο Ε$=Αλλαγη$(" ",χαρ$(10), Φίλτρο$(Όλα$,":;!."))
Μακρύς μετρητής
αν Μπροστά(Ε$, μετρητής) τότε {
            Ενώ μετρητής> 0 {
                  χ$=Παράγραφος$(Ε$,(μετρητής))
                  Πένα 8+Μήκος(χ$) {
                        Τύπωσε $(4), χ$;" ";
                  }
            }
            Τύπωσε $(0)
      }
Τύπωσε
μετρητής=0
κ=Στηλη
αν Μπροστά(Ε$, μετρητής) τότε {
            Ενώ μετρητής> 0 {
                  χ$=Παράγραφος$(Ε$,(μετρητής))
                  Πένα 8+Μήκος(χ$) {
                        Τύπωσε $(0,6), χ$, Μήκος(χ$), Κεφ$(χ$), Κεφ$(Αρισ$(χ$,1))+Μεσ$(χ$,2)
                  }
            }
            Τύπωσε $(0,κ)
      }
Τύπωσε "Αριθμός Λέξεων (και όμοιες):", Εγγράφου.Παρ(Ε$)
Τύπωσε Εγγράφου.Λέξεις(Ε$),
μοναδικές=Εγγράφου.Μοναδικές.Λέξεις(Ε$)
Τύπωσε μοναδικές

Λέξεις Ε$ 'περνάει τις λέξεις από την τελευταία αναζήτηση στο σωρό
' Αν δεν έχουμε κάνει αναζήτηση, τότε κάνει για μας, αλλά όχι με αριθμό σε κάθε λέξη

Για ι=1 έως μοναδικές {
      \\ Μας δίνει λέξη και αριθμό παρουσίας (χωρίς να λογαριάσει μικρά - μεγάλα)
      Τύπωσε Γράμμα$
}