Sinclair BASIC
Sinclair BASIC je dialekt programovacího jazyka BASIC pro počítače ZX Spectrum. Sinclair BASIC vyvinula firma Nine Tiles Networks Ltd.
Historie
editovatPrvní varianta z roku 1979 byla uložena ve 4 KB ROM počítače ZX80. Šlo o nekompletní implementaci minimal BASICu podle normy ANSI z roku 1978. Vývoj pokračoval 8 KB verzí pro ZX81 a implementací pro ZX Spectrum, která se vešla do 16 KB ROM. Na počítačích ZX Spectrum +2 a ZX Spectrum +3 byl použit jazyk Sinclair 128 BASIC, který byl rozšířený o některé příkazy a možnost psát příkazy po písmenech.[1]
Protože implementace Sinclair BASICu ponechávala v ROM počítačů ZX Spectrum nevyužité místo, objevilo se několik ROM se Sinclair BASICem rozšířeným o některé možnosti. Jednou z těchto modifikací je SE BASIC Andrewa Owena, který podporuje i rozšířené grafické možnosti obvodu ULAplus,[2] a jehož některé rozšířené příkazy byly inspirovány obdobnými rozšířenými příkazy počítačů TK 95, Timex Sinclair 2068 a původní španělské verze počítače Sinclair ZX Spectrum 128K+.[3] Andrew Owen je také autorem OpenSE Basicu, což je varianta Sinclair BASICu vydaná pod licencí GPL v.2.[4][5][6] Sinclair BASICem byl inspirován projekt Sparky eZX BASIC.[7]
Jazyk
editovatKlíčová slova
editovatSpectrum mělo 86 klíčových slov. Ve výčtu jsou vyznačena takto: příkazy, výrazy, funkce a ostatní klíčová slova:
- ABS, ACS, AND[p 1], ASN, AT, ATN, ATTR, BEEP, BIN, BORDER, BRIGHT, CAT[p 2], CHR$, CIRCLE, CLEAR, CLOSE#[p 2], CLS, CODE, CONTINUE, COPY, COS, DATA, DEF FN, DIM, DRAW, ERASE[p 2], EXP, FLASH, FN, FOR, FORMAT[p 2], GO SUB, GO TO, IF, IN, INK, INKEY$, INPUT, INT, INVERSE, LEN, LET, LINE, LIST, LLIST, LN, LOAD, LPRINT, MERGE, MOVE[p 2], NEW, NEXT, NOT[p 1], OPEN#[p 2], OR[p 1], OUT, OVER, PAPER, PAUSE, PEEK, PI, PLOT, POINT, POKE, PRINT, RANDOMIZE, READ, REM, RESTORE, RETURN, RND, RUN, SAVE, SCREEN$, SGN, SIN, SQR, STEP, STR$, TAB, TAN, THEN , TO, USR, VAL, VAL$, VERIFY
Výrazy a příkazy, které byly pouze na počítačích ZX81, TS1000 a TS1500:
- FAST, SCROLL, SLOW, UNPLOT, GOSUB/GOTO (Spectrum má GO SUB a GO TO)
Model 128K přinesl tyto příkazy:
- PLAY, SPECTRUM[p 3]
Původní Španělská verze počítače ZX Spectrum 128K+ neobsahovala systém nabídek jako pozdější anglická verze a verze z ní vycházející, ale místo nich používala další přidané příkazy:
Tyto příkazy ovšem není možné vložit do programu, jsou určeny pouze k přímému vykonání.[9]
Timex BASIC používaný v TS2048 a TS2068 (kompatibilních se Spectrem) má navíc těchto šest slov:
- DELETE, FREE, ON ERR, RESET, SOUND, STICK
Počítače TK 90X a TK 95 mají navíc příkazy:
- TRACE a UDG.[10]
Zvláštní rysy
editovatElse
editovatNeexistuje operátor ELSE ve výrazu IF - THEN (- ELSE). Tedy namísto
10 IF V=5 THEN GO TO 50 ELSE GO TO 100
se musí zapsat
10 IF V=5 THEN GO TO 50
20 GO TO 100
LET
editovatLET je povinné. Tedy zapisuje se
10 LET A=1
na rozdíl od chybného zápisu
A=1
Proměnné
editovatNázev proměnné typu textový řetězec musí obsahovat pouze jeden znak. Tedy
10 LET A=5
20 LET Apples=5
30 LET A$="Hello"
jsou správné, ale
LET APPLES$="Fruit"
je chybný zápis.
Zápis a spuštění programu
editovatV době návrhu Sinclair BASICu bylo běžné, že se řádky programu číslovaly. Programátor musel čísla řádků zapisovat sám. Pokud se číslo řádku nezapsalo, ihned po zadání příkazu se tento příkaz vykonal.
Spuštění programu se provádí příkazem RUN (od začátku programu), nebo RUN s číslem řádku (od daného čísla řádku). Program je možné také spustit příkazem GO TO (s číslem řádku).
Pokud je program spuštěn například příkazem RUN 5, ale číslo řádku 5 neexistuje, spustí se program od následujícího vyššího čísla řádku (například 10).
Program není nutné ukončovat příkazem STOP, jak to bylo běžné v mnoha jiných variantách BASICu.
Hello World
editovatVelmi jednoduchý příklad programu Hello world může vypadat takto:
10 PRINT "Hello World"
Možnosti rozšíření syntaxe a množiny příkazů v ZX Spectru
editovat- pomocí externí ROM, např. v ZX Interface 1, Disciple,
- výměnou ROM, např. ISO ROM, LEC ROM,
- využitím systémové proměnné ON ERROR,
- interpretací poznámek v příkazu REM,[11][p 5]
- napojením doplňkového interpretu na stránkovací rutiny ZX Specter 128,[14]
- napojením doplňkového interpretu na rozšiřující interpret v ZX Interface 1.[15][16]
Poznámky
editovat- ↑ a b c AND, NOT a OR jsou logické operátory.
- ↑ a b c d e f CAT, CLOSE#, ERASE, FORMAT, MOVE a OPEN# jsou příkazy a výrazy pro ZX Microdrive. Pokud se použijí bez tohoto zařízení, vyvolají chybu. Československý počítač Didaktik tyto příkazy využíval také pokud byla připojena disketová jednotka. Příkazy OPEN# a CLOSE# je sice možné použít i bez ZX Microdrive, ale pouze v jejich omezené variantě.
- ↑ tyto příkazy nahradily grafické znaky pod písmeny 'T' a 'U', což někdy způsobovalo chybné zobrazení u programů, které tyto grafické znaky využívaly.
- ↑ Příkaz WIDTH obsahoval chybu, kvůli které ho nebylo doporučeno používat.
- ↑ Podobným způsoben je řešen i kompilátor assembleru pro ZX Spectrum nazvaný Assembler[12] a stejný způsob používá i zařízení MicroSource pro vkládání instrukcí assembleru a příkazů Forthu do BASICu.[13]
Reference
editovat- ↑ 128 BASIC na World of Spectrum
- ↑ ZX Interface 2 - SE BASIC (3rd Party ROM Cartridge) Archivováno 25. 3. 2015 na Wayback Machine. na www.fruitcake.plus.com
- ↑ Z80 Programmers' Challenge Archivováno 2. 4. 2015 na Wayback Machine. na compgroups.net
- ↑ opense-basic Archivováno 24. 9. 2015 na Wayback Machine. na filewatcher.com
- ↑ OpenSE Basic na SpeccyWiki
- ↑ OpenSE BASIC na World of Spectrum
- ↑ Specifications na rk-internet.com/eZXSparky
- ↑ Spectrum 128 ROM Disassembly - Spanish Spectrum 128 Archivováno 31. 12. 2012 na Wayback Machine. na fruitcake.plus.com
- ↑ ZX Interface 2 - Spanish ZX Spectrum 128 Emulator ROM Cartridge Archivováno 13. 5. 2013 na Wayback Machine. na fruitcake.plus.com
- ↑ http://microhobby.speccy.cz/010303/ord/microdigital.htm
- ↑ ... do you add extra commands to Basic?. Sinclair User. March 1988, čís. 72, s. 70–71. Dostupné online.
- ↑ Universum. Public Domain - programy (téměř) zadarmo. ZX Magazín. 1993, čís. 1/93, s. 23–26. ISSN 1210-4833.
- ↑ Going Forth .... Crash. February 1986, čís. 25, s. 95–97. Dostupné online. Dostupné také na: [1].
- ↑ Spectrum 128 Extended BASIC Archivováno 24. 9. 2015 na Wayback Machine. na www.fruitcake.plus.com
- ↑ Extending BASIC. Your Spectrum. May 1984, čís. 3. Dostupné online. ((anglicky))
- ↑ LOGAN, Ian. Spectrum Microdrive Book. [s.l.]: Melbourne House, 1983. Dostupné v archivu pořízeném dne 2014-05-17. ISBN 0-86161-127-6, ISBN 0-86759-128-5. Kapitola Adding New Statements, s. 91–104. ((anglicky)) Archivováno 17. 5. 2014 na Wayback Machine.
