Fail:Locomotive BASIC color bars.gif
Selle eelvaate suurus: 800 × 557 pikslit. Teised eraldusvõimed: 320 × 223 pikslit | 640 × 446 pikslit | 841 × 586 pikslit.
Algfail (841 × 586 pikslit, faili suurus: 58 KB, MIME tüüp: image/gif, korduv, 128 kaadrit, 11 s)
|
See fail ja sellest kastist allapoole jääv kirjeldus pärinevad kesksest failivaramust Wikimedia Commons. | 
|
Faili lehekülg Commonsis |
Lühikirjeldus
| Kirjeldus |
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. |
| Kuupäev | |
| Allikas | Üleslaadija oma töö |
| Autor | 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.
Litsents
Autoriõiguse omanikuna avaldan selle teose järgmise litsentsi all:
 
|
See fail on avaldatud Creative Commonsi üldise litsentsi CC0 1.0 all. |
| Isik, kes sidus teose selle litsentsiga, on andnud teose avalikku omandisse, loobudes üleilmselt seadusega lubatud ulatuses kõigist õigustest, mis tulenevad autoriõigusseadusest, sealhulgas autoriõigusega kaasnevatest õigustest ja naaberõigustest. Tohid teost kopeerida, muuta, levitada ja esitada; seda kõike luba küsimata ja ka ärilisel eesmärgil.
|
Faili ajalugu
Klõpsa kuupäeva ja kellaaega, et näha sel ajahetkel kasutusel olnud failiversiooni.
| Kuupäev/kellaaeg | Pisipilt | Mõõtmed | Kasutaja | Kommentaar | |
|---|---|---|---|---|---|
| viimane | 24. detsember 2023, kell 23:15 | | 841 × 586 (58 KB) | Morn | Uploaded own work with UploadWizard |
Faili kasutus
Seda faili ei kasuta ükski lehekülg.
Globaalne failikasutus
Järgmised muud vikid kasutavad seda faili:
- Faili kasutus vikis ar.wikipedia.org
- Faili kasutus vikis en.wikipedia.org
