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

První 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

Klíčová slova

Spectrum 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:

EDIT, RENUMBER, DELETE a WIDTH.[8][p 4]

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

Else

Neexistuje 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

LET je povinné. Tedy zapisuje se

10 LET A=1

na rozdíl od chybného zápisu

A=1

Proměnné

Ná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

V 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

Velmi 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

  • 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

  1. ↑ a b c AND, NOT a OR jsou logické operátory.
  2. ↑ 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ě.
  3. ↑ 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.
  4. ↑ Příkaz WIDTH obsahoval chybu, kvůli které ho nebylo doporučeno používat.
  5. ↑ 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

  1. ↑ 128 BASIC na World of Spectrum
  2. ↑ ZX Interface 2 - SE BASIC (3rd Party ROM Cartridge) Archivováno 25. 3. 2015 na Wayback Machine. na www.fruitcake.plus.com
  3. ↑ Z80 Programmers' Challenge Archivováno 2. 4. 2015 na Wayback Machine. na compgroups.net
  4. ↑ opense-basic Archivováno 24. 9. 2015 na Wayback Machine. na filewatcher.com
  5. ↑ OpenSE Basic na SpeccyWiki
  6. ↑ OpenSE BASIC na World of Spectrum
  7. ↑ Specifications na rk-internet.com/eZXSparky
  8. ↑ Spectrum 128 ROM Disassembly - Spanish Spectrum 128 Archivováno 31. 12. 2012 na Wayback Machine. na fruitcake.plus.com
  9. ↑ ZX Interface 2 - Spanish ZX Spectrum 128 Emulator ROM Cartridge Archivováno 13. 5. 2013 na Wayback Machine. na fruitcake.plus.com
  10. ↑ http://microhobby.speccy.cz/010303/ord/microdigital.htm
  11. ↑ ... do you add extra commands to Basic?. Sinclair User. March 1988, čís. 72, s. 70–71. Dostupné online. 
  12. ↑ Universum. Public Domain - programy (téměř) zadarmo. ZX Magazín. 1993, čís. 1/93, s. 23–26. ISSN 1210-4833. 
  13. ↑ Going Forth .... Crash. February 1986, čís. 25, s. 95–97. Dostupné online. Dostupné také na: [1]. 
  14. ↑ Spectrum 128 Extended BASIC Archivováno 24. 9. 2015 na Wayback Machine. na www.fruitcake.plus.com
  15. ↑ Extending BASIC. Your Spectrum. May 1984, čís. 3. Dostupné online. ((anglicky)) 
  16. ↑ 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.

Související články

Externí odkazy