Fáìlì:Locomotive BASIC color bars.gif
Ìtóbi ìkọ́yẹ̀wò yìí: 800 × 557 pixels. Àwọn ìgbéhàn míràn: 320 × 223 pixels | 640 × 446 pixels | 841 × 586 pixels.
Fáìlì àtìbẹ̀rẹ̀ (841 × 586 pixel, ìtóbi faili: 58 KB, irú MIME: image/gif, lílọ́po, fèrèsé àwòrán 128, 11 s)
 |
Fáìlì yìí wá láti Wikimedia Commons. Àròyé láti ojúewé ìjúwe rẹ̀ níbẹ̀ nìyí nísàlẹ̀. |
Àkótán
| Ìjúwe |
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. |
| Ọjọ́ọdún | |
| Orísun | Iṣẹ́ onítọ̀hún |
| Olùdá | 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.
Ìwé àṣẹ
Èmi gangan, tó jẹ́ pé èmi ni mo ni ẹ̀tọ́àwòkọ iṣẹ́ yìí, fara mọ́ ọ láti tẹ̀ẹ́jáde lábẹ́ ìwé-àṣẹ ìsàlẹ̀ yìí:
 
|
This file is made available under the Creative Commons CC0 1.0 Universal Public Domain Dedication. |
| The person who associated a work with this deed has dedicated the work to the public domain by waiving all of their rights to the work worldwide under copyright law, including all related and neighboring rights, to the extent allowed by law. You can copy, modify, distribute and perform the work, even for commercial purposes, all without asking permission.
|
Ìtàn fáìlì
Ẹ kan kliki lórí ọjọ́ọdún/àkókò kan láti wo fáìlì ọ̀ún bó ṣe hàn ní àkókò na.
| Ọjọ́ọdún/Àkókò | Àwòrán kékeré | Àwọn ìwọ̀n | Oníṣe | Àríwí | |
|---|---|---|---|---|---|
| lọ́wọ́ | 20:15, 24 Oṣù Ọ̀pẹ̀ 2023 | | 841 × 586 (58 KB) | Morn | Uploaded own work with UploadWizard |
Ìlò fáìlì
Kò sí ojúewé tó únlo fáìlì yìí.
Ìlò fáìlì káàkiri
Àwọn wiki míràn wọ̀nyí lo fáìlì yìí:
- Ìlò ní ar.wikipedia.org
- Ìlò ní en.wikipedia.org
