Berkas:Locomotive BASIC color bars.gif
Ukuran pratinjau ko: 800 × 557 piksel Resolusi lainnyo: 320 × 223 piksel | 640 × 446 piksel | 841 × 586 piksel.
Ukuran nan usali (841 × 586 piksel, ukuran berkas: 58 KB, tipe MIME: image/gif, ulang, 128 bingkai, 11 d)
Ikhtisar
| Katarangan |
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. |
| Tanggal | |
| Sumber | Karya surang |
| Pambuek | 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.
Lisensi
Ambo, pamegang hak cipta karya ko, basamo ko malakekan berkas ko jo lisensi barikuik:
 
|
Berkas ini dilepaskan di bawah CC0 1.0 Dedikasi Domain Publik Universal Creative Commons. |
| Orang yang mengaitkan suatu karya dengan dokumen ini telah mendedikasikan karyanya sebagai domain publik dengan mengabaikan semua hak ciptanya di seluruh dunia menurut hukum hak cipta, termasuk semua hak yang terkait dan berhubungan, sejauh yang diakui hukum. Anda dapat menyalin, menyebarkan, dan mempertunjukkan karya, bahkan untuk tujuan komersial, tanpa meminta izin.
|
Riwayaik berkas
Klik pado tanggal/wakatu untuak mancaliak berkas pado maso tu.
| Tanggal/Wakatu | Miniatur | Dimensi | Pangguno | Komentar | |
|---|---|---|---|---|---|
| kini ko | 25 Desember 2023 03.15 | | 841 × 586 (58 KB) | Morn | Uploaded own work with UploadWizard |
Pamakaian berkas
Indak ado laman nan manggunokan berkas ko.
Pamakaian berkas global
Wiki nan mamakai berkas ko:
- Pamakaian pado ar.wikipedia.org
- Pamakaian pado en.wikipedia.org
