檔案:Locomotive BASIC color bars.gif
覽幅：寛八〇〇高五五七微格。 他晰：寛三二〇高二二三微格｜寛六四〇高四四六微格｜寛八四一高五八六微格。
全幅 （微格八四一矩五八六，度：五八 KB，多用網際網路副檔名之型：image/gif、循、一二八幀、一一秒）
概
| 述 |
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. |
| 期 | |
| 碼 | 己作 |
| 作者 | 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.
權
我，本作品的著作權持有者，決定用以下授權條款發佈本作品：
 
|
此檔案在創用CC CC0 1.0 通用公有領域貢獻宣告之下分發。 |
| 在此宣告之下分發本作品者，已依據各國著作權法，在全世界放棄其對本作品所擁有的著作權及所有相關相似的法律權利，從而將本作品貢獻至公有領域。您可以複製、修改、分發和演示該作品，用於任何商業用途，所有這些都不需要請求授權。
|
檔誌
揀日尋檔。
| 日時 | 縮 | 度 | 用戶 | 註 | |
|---|---|---|---|---|---|
| 今 | 二〇二三年一二月二四日 （日） 二〇時一五分 | | 八四一矩五八六（五八 KB） | Morn | Uploaded own work with UploadWizard |
檔所繫者
無頁連本檔也。
總文之用
下他共筆連本檔：
- ar.wikipedia.org上之用
- en.wikipedia.org上之用
