Αρχείο:Locomotive BASIC color bars.gif
Μέγεθος αυτής της προεπισκόπησης: 800 × 557 εικονοστοιχεία . Άλλες αναλύσεις: 320 × 223 εικονοστοιχεία | 640 × 446 εικονοστοιχεία | 841 × 586 εικονοστοιχεία.
Εικόνα σε υψηλότερη ανάλυση (841 × 586 εικονοστοιχεία, μέγεθος αρχείου: 58 KB, τύπος MIME: image/gif, κυκλικά επαναλαμβανόμενο, 128 καρέ, 11 s)
 |
Αυτό το αρχείο και η περιγραφή του προέρχονται από το Wikimedia Commons. Οι πληροφορίες από την σελίδα περιγραφής του εκεί εμφανίζονται παρακάτω. |
Σύνοψη
| Περιγραφή |
English: An Amstrad CPC emulated in MAME running a short Locomotive BASIC demo program which displays color bars similar to SMPTE color bars or EBU colour bars. |
| Ημερομηνία | |
| Πηγή | Έργο αυτού που το ανεβάζει |
| Δημιουργός | Morn |
Locomotive BASIC program
10 mode 0
20 ink 1,26:ink 2,24:ink 3,20:ink 4,18
30 ink 5,8:ink 6,6:ink 7,2:ink 8,0
40 for i=1 to 8
50 paper i
60 print space$(40);
70 next
Program notes
- Key words are printed in uppercase when the program is output with "list". But entering code is usually done in lowercase.
- line 10: screen mode 0 is used (16 colours; 20x25 characters)
- lines 20/30: set up colour palette; note that multiple instructions can be combined on a line
- lines 40 to 70: a "for" loop over i
- line 50: set the paper (background) colour to i
- line 60: print 40 spaces (= 2 lines); space$ is a built-in function that returns a string
- When the program ends, the "Ready" prompt is white-on-black because the current foreground (pen) colour, which is 1, had been set to white ("ink 1,26"). The background colour is 8 after the loop and "ink 8,0" had set that to black previously. See File:Amstrad CPC ink numbers.png for a chart of Amstrad ink numbers.
Αδειοδότηση
Εγώ, ο κάτοχος των πνευματικών δικαιωμάτων αυτού του έργου, το δημοσιεύω δια του παρόντος υπό την εξής άδεια χρήσης:
 
|
Το αρχείο αυτό έχει διατεθεί με Creative Commons CC0 1.0 Παγκόσμια Εκχώρηση Κοινού Κτήματος. |
| Το πρόσωπο που συσχέτισε ένα έργο με αυτή την πράξη έχει απελευθερώσει αυτό το έργο στην δημόσια σφαίρα παραιτούμενος από όλα τα δικαιώματά του σε αυτό το έργο παγκοσμίως υπό τη νομοθεσία των πνευματικών δικαιωμάτων και όλα τα σχετικά ή παρεμφερή νόμιμα δικαιώματα που είχε στο έργο, στο εύρος που νόμος ορίζει. Έργα υπό την CC0 δεν χρειάζονται απόδοση. Όταν παραθέτετε το έργο, δε χρειάζεται να υπαινιχθείτε έγκριση από το συγγραφέα.
|
Ιστορικό αρχείου
Κλικάρετε σε μια ημερομηνία/ώρα για να δείτε το αρχείο όπως εμφανιζόταν εκείνη τη στιγμή.
| Ώρα/Ημερομ. | Μικρογραφία | Διαστάσεις | Χρήστης | Σχόλια | |
|---|---|---|---|---|---|
| τελευταία | 20:15, 24 Δεκεμβρίου 2023 | | 841 × 586 (58 KB) | Morn | Uploaded own work with UploadWizard |
Συνδέσεις αρχείου
Δεν υπάρχουν σελίδες που συνδέουν σε αυτό το αρχείο.
Καθολική χρήση αρχείου
Τα ακόλουθα άλλα wiki χρησιμοποιούν αυτό το αρχείο:
- Χρήση σε ar.wikipedia.org
- Χρήση σε en.wikipedia.org
