Νέα αναθεώρηση 18 για την Μ2000, έκδοση 7

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

 Η pen(πένα) απέκτησε δυνατότητα να χρωματίζει εντός μπλοκ κώδικα (στην έξοδο το χρώμα γυρίζει σε αυτό που ήταν πριν. Αποφεύγουμε να γράψουμε εντολή Πένα μετά και επιπλέον δεν αναφέρουμε πουθενά το χρώμα που βρήκε. Η εντολή δουλεύει για οποιοδήποτε προηγούμενο χρώμα!
Οι εντολές εδώ είναι στα αγγλικά αλλά μπορούν να είναι και στα ελληνικά (και με τόνους).

module flower {
      read posX, posY, size
      refresh 10000 \\  using big number refresh counter make faster the program
      move posX,posY
      \\ Pen variation that gives color for lines inside a block of code
      width 5 { \\ setting line width
            pen #AA6600 { \\using colors like html hex values
                  for q=pi/8 to 2*pi step pi/8 {
                        move posX, posY
                        path #FF66FF { curve angle pi/3+q, size/6,pi/4+q,size,pi+q,size*2/3 }
                  }
                  move posX,posY
                  circle fill #FFAA20, size/3
            }
      }
}
cls #1155AA, 0
refresh 10000
for i=1 to 30 { \\ x.twips and y.twips are the resolution of the displayed form in twips.
      call flower random(x.twips),random(y.twips), random(2,4)*1000
}
refresh 0 \\ now we set refresh counter to 0 so we get the final picture
copy "alfa.bmp"

Εδώ είναι μια εικόνα από τον διορθωτή. Έβαλα εμφάνιση πληροφοριών, τρία "σημάδια" για να πατάμε ένα από τα F6, F7, F8 και να πηγαίνουμε απευθείας.
Με F9 μετράει τις λέξεις (σε κλάσμα του δευτερολέπτου). Η Μ2000 τρέχει σε XP εδώ σε παράθυρο Virtual Box σε σύστημα με Ubuntu Studio.

Οι παραπάνω εντολές είναι γραμμένες στο τμήμα Α (το βλέπουμε στο τίτλο)
 Με τις παρακάτω γραμμές κάνουμε τον υπολογιστή μας να μας δίνει μπουκέτα λουλούδια....κάθε φορά διαφορετικά!

EVERY 100 {
       A
      IF INKEY$<>"" THEN EXIT
}

Κάθε δέκατο του δευτερολέπτου δίνει άλλα σύνθεση, από 30 λουλούδια!

Η τελευταία αναθεώρηση: Μ2000ver7rev18 μπορείτε να κατεβάσετε το πρόγραμμα
Μετά το setup,  το ξεκινάτε και γράφεται Σ Α και ανοίγει ο διορθωτής (Σ από το Συγγραφή, στα αγγλικά το έχω με Edit A). Μπορείτε να κάνετε επικόλληση από τη σελίδα αυτή.
Μετά πατάτε Esc και γράφετε Α και πατάτε enter. Αυτό ήταν
Αν θέλετε φτιάχτε και μια Β και βάλτε μέσα τις τέσσερις παραπάνω γραμμές για να παιζει σαν ταινία, τα λουλούδια!
ΣΩΣΕ ΛΟΥΛΟΥΔΙ (ή SAVE FLOWER)
και το ξαναφορτώνουμε με ΦΟΡΤΩΣΕ ΛΟΥΛΟΥΔΙ (ή LOAD FLOWER)

Δείτε την ενσωματωμένη Βοήθεια (Βοήθεια Βοήθεια και Βοήθεια Όλα)
Έχει 403 εγγραφές και θα προσθέσω και άλλες (αυτό συμβαίνει γιατί η γλώσσα έχει πολλές εντολές για διάφορα πράγματα, σαν να έχει τις χρήσιμες βιβλιοθήκες ρουτινών μαζί...)

Την επόμενη βδομάδα...με περισσότερα νέα!
Γ.Κ.