Датотека:Locomotive BASIC color bars.gif

Originalna datoteka(841 × 586 piksela, veličina datoteke: 58 kB, MIME tip: image/gif, petlja, 128 kadrova, 11 s)

Opis izmene

Opis
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.
Datum
Izvor Sopstveno delo
Autor 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.

Licenciranje

Ja, nosilac autorskog prava nad ovim delom, objavljujem isto pod sledećom licencom:
Creative Commons CC-Zero Ova datoteka je dostupna pod licencom Creative Commons 1.0 Univerzalna – posvećivanje javnom vlasništvu.
Osoba koja je učestvovalo u radu na ovom dokumentu posvetila je delo javnom vlasništvu, odričući se svih prava na to delo širom sveta, po zakonu o autorskim pravima i povezanim ili srodnim zakonskim pravima koje bi imao/imala, u meri dozvoljenoj zakonom. Možete da umnožavate, menjate, raspodeljujete i prilagođavate delo, čak i u komercijalne svrhe, bez traženja dozvole.

Natpisi

Dodajte objašnjenje u jednom redu o tome šta ova datoteka predstavlja

Stavke prikazane u ovoj datoteci

prikazuje

Creative Commons CC0 License Serbian (Cyrillic script) (transliteracija)

izvor datoteke Serbian (transliteracija)

sopstveno delo Serbian (transliteracija)

24. decembar 2023

Istorija datoteke

Kliknite na datum/vreme da biste videli tadašnju verziju datoteke.

Datum/vremeMinijaturaDimenzijeKorisnikKomentar
trenutna22:15, 24. decembar 2023.Minijatura za verziju na dan 22:15, 24. decembar 2023.841 × 586 (58 kB)MornUploaded own work with UploadWizard

Nema stranica koje koriste ovu datoteku.

Globalna upotreba datoteke

Drugi vikiji koji koriste ovu datoteku: