ചുരുക്കം

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.

അനുമതി

ഈ സൃഷ്ടിയുടെ പകർപ്പവകാശ ഉടമയായ ഞാൻ, താഴെ പറയുന്ന അനുമതിയിൽ ഈ സൃഷ്ടി ഇതിനാൽ പ്രസിദ്ധീകരിക്കുന്നു:

ഈ പ്രമാണം സൃഷ്ടിച്ചിരിക്കുന്നത് ക്രിയേറ്റീവ് കോമൺസ് സി.സി.0 ആഗോള പൊതുസഞ്ചയത്തിലേയ്ക്ക് സമർപ്പിച്ചിരിക്കുന്നത് ആയിട്ടാണ്.

ഈ പ്രമാണത്തിന്റെ സൃഷ്ടിയുമായി ബന്ധപ്പെട്ട വ്യക്തി, പകർപ്പവകാശ നിയമവുമായി ബന്ധപ്പെട്ട എല്ലാ നിയമപരമായ അവകാശങ്ങളും, നിയമം അനുവദിക്കുന്ന പരിധി വരെ, അദ്ദേഹത്തിന്റെ/അവരുടെ എല്ലാ അവകാശങ്ങളും, അവയുമായി ബന്ധപ്പെട്ട അവകാശങ്ങളും ആഗോളവ്യാപകമായി പരിത്യജിച്ച്, തന്റെ പ്രവർത്തനം പൊതുസഞ്ചയത്തിലേയ്ക്ക് സമർപ്പിച്ചിരിക്കുന്നു. ഈ സൃഷ്ടി, വ്യാപാരോദ്ദേശമുൾപ്പെടെ ഏതൊരാവശ്യത്തിനും അനുമതിയൊന്നുമാവശ്യപ്പെടാതെ പകർത്താനും, മാറ്റം വരുത്താനും, വിതരണം ചെയ്യാനും, അവതരിപ്പിക്കാനും താങ്കൾക്ക് സാദ്ധ്യമാണ്. http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse