Vaizdas:Locomotive BASIC color bars.gif
Šios peržiūros dydis: 800 × 557 taškų. Kitos 3 rezoliucijos: 320 × 223 taškų | 640 × 446 taškų | 841 × 586 taškų.
Didesnės raiškos iliustracija (841 × 586 taškų, rinkmenos dydis: 58 KiB, MIME tipas: image/gif, ciklinis, 128 kadrai, 11 s)
|
Ši byla yra iš bendros Wikimedia Commons nemokamų resursų duomenų bazės, palaikomos Wikimedia Foundation organizacijos. Norėdami sužinoti licencijavimo smulkmenas, žiūrėkite paveikslėlio aprašymą | |
Į paveikslėlio aprašymą |
Aprašymas
| Aprašymas |
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. |
| Data | |
| Šaltinis | Mano darbas |
| Autorius | 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.
Licencija
Aš, šio darbo autoriaus teisių savininkas, publikuoju jį su šia licencija:
 
|
Šis failas prieinamas pagal Creative Commons CC0 1.0 Universal Public Domain Dedication. |
| Asmuo, kuris susiejo darbą su šiuo dokumentu, nusprendė darbą pateikti Commons, atsisakydamas visų savo autoriaus teisių į darbą visame pasaulyje bei visų susijusių ar gretutinių teisių, kurias jis ar ji turėjo, tiek, kiek leidžia įstatymas. Darbai pagal CC0 atsisakymą nereikalauja autoriaus paminėjimo. Kai darbas cituojamas (naudojamas kitur), neprivalote gauti autoriaus patvirtinimo.
|
Rinkmenos istorija
Paspauskite ant datos/laiko, kad pamatytumėte rinkmeną tokią, kokia ji buvo tuo metu.
| Data/Laikas | Miniatiūra | Matmenys | Naudotojas | Paaiškinimas | |
|---|---|---|---|---|---|
| dabartinis | 23:15, 24 gruodžio 2023 | | 841 × 586 (58 KiB) | Morn | Uploaded own work with UploadWizard |
Paveikslėlio naudojimas
Paveikslėlis nenaudojamas nei viename straipsnyje.
Visuotinis rinkmenos naudojimas
Ši rinkmena naudojama šiose viki svetainėse:
- Naudojama ar.wikipedia.org
- Naudojama en.wikipedia.org
