File:Locomotive BASIC color bars.gif
本预览的尺寸：800 × 557像素。 其他分辨率：320 × 223像素 | 640 × 446像素 | 841 × 586像素。
原始文件 （841 × 586像素，文件大小：58 KB，MIME类型：image/gif、循环、128帧、11秒）
摘要
| 描述 |
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.
许可协议
我，本作品著作权人，特此采用以下许可协议发表本作品：
 
|
本作品采用知识共享CC0 1.0 通用公有领域贡献许可协议授权。 |
| 采用本宣告发表本作品的人，已在法律允许的范围内，通过在全世界放弃其对本作品拥有的著作权法规定的所有权利（包括所有相关权利），将本作品贡献至公有领域。您可以复制、修改、传播和表演本作品，将其用于商业目的，无需要求授权。
|
文件历史
点击某个日期/时间查看对应时刻的文件。
| 日期/时间 | 缩略图 | 大小 | 用户 | 备注 | |
|---|---|---|---|---|---|
| 当前 | 2023年12月24日 (日) 20:15 | | 841 × 586（58 KB） | Morn | Uploaded own work with UploadWizard |
文件用途
没有页面链接到本图像。
全域文件用途
以下其他wiki使用此文件：
- ar.wikipedia.org上的用途
- en.wikipedia.org上的用途
