Fail:Locomotive BASIC color bars.gif
Saiz pralihat ini: 800 × 557 piksel. Leraian-leraian lain: 320 × 223 piksel | 640 × 446 piksel | 841 × 586 piksel.
Fail asli (841 × 586 piksel, saiz fail: 58 KB, jenis MIME: image/gif, berulang, 128 bingkai, 11 s)
Ringkasan
| Keterangan |
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. |
| Tarikh | |
| Sumber | Karya sendiri |
| Pengarang | 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.
Perlesenan
Dengan ini, saya selaku pemegang hak cipta karya ini, menerbitkannya di bawah lesen yang berikut:
 
|
Fail ini disediakan di bawah Dedikasi Domain Awam Sejagat CC0 1.0 Creative Commons. |
| Pihak yang mengaitkan karya ini dengan surat ikatan ini telah mendedikasikan karya ini kepada domain awam dengan melepaskan segala haknya kepada karya ini di seluruh dunia di bawah undang-undang hak cipta, termasuk semua hak berkaitan dan berjiran, sejauh mana yang dibenarkan oleh undang-undang. Anda boleh menyalin, mengubah suai, mengedarkan dan mempersembahkan karya ini, termasuk untuk tujuan komersil, semuanya tanpa meminta kebenaran.
|
Sejarah fail
Klik pada tarikh/waktu untuk melihat rupa fail tersebut pada waktu itu.
| Tarikh/Waktu | Gambar kenit | Ukuran | Pengguna | Komen | |
|---|---|---|---|---|---|
| semasa | 20:15, 24 Disember 2023 | | 841 × 586 (58 KB) | Morn | Uploaded own work with UploadWizard |
Penggunaan fail
Tiada laman yang menggunakan fail ini.
Penggunaan fail sejagat
Fail ini digunakan oleh wiki-wiki lain yang berikut:
- Penggunaan di ar.wikipedia.org
- Penggunaan di en.wikipedia.org
