Arkivo:Locomotive BASIC color bars.gif
Grandeso de ica previdado: 800 x 557 pixels. Altra qualeso, en pixel-i: 320 x 223 pixels | 640 x 446 pixels | 841 x 586 pixels.
Arkivo originala (841 × 586 pixel-i, grandeso dil arkivo: 58 KB, MIME type: image/gif, ripeta GIF, 128 ĉeloj, 11 s)
Titulo
| Deskripto |
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. |
| Dato | |
| Fonto | Propra verko |
| Autoro | 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.
Licencizo
Me, la posedanto dil autoroyuro pri ica imajo/arkivo, permisos lua uzado camaniere:
 
|
Ĉi tiu dosiero estas disponebla laŭ la Krea Komunaĵo CC0 1.0 Universala Publikaĵiga Dediĉo. |
| La persono kiu asociis verkon kun ĉi tiu faro dediĉis la verkon kiel publikaĵon forlasante ĉiujn siajn rajtojn al la verko mondvaste sub aŭtorrajta leĝo inkluzivante ĉiujn rilatajn aŭ najbarajn rajtojn permesitajn de leĝo. Oni povas kopii, modifi, distribui kaj ludi la verkon, eĉ por komercaj kialoj, ĉiuj sen peto de permeso.
|
Historio dil arkivo
Kliktez sur la dato/horo por vidar arkivo quale ol aparis ye ta tempo.
| Dato/Horo | Miniaturo | Dimensioni | Uzero | Komento | |
|---|---|---|---|---|---|
| aktuala | 20:15, 24 dec. 2023 | | 841 × 586 (58 KB) | Morn | Uploaded own work with UploadWizard |
Ligilo al imajo
Nula pagino ligesas ad ica pagino.
Uzado en altra Wiki
La sequanta Wiki anke uzas ica arkivo:
- Uzado en ar.wikipedia.org
- Uzado en en.wikipedia.org
