POPIS PROGRAMU FORTH NA ZX SPECTRUM
               ===================================
              (fig - Forth fy. Abersoft verse 1.1A)

                      POPIS PRIKAZU EDITORU
                      ---------------------
  JEDNOTLIVE PRIKAZY :
n clear     vymaze a naformatuje stranku n
n list      urci aktualni stranku
n p ...     zapis do radku n
n e         zrusi obsah radku n
n d         zrusi obsah radku n,ostatni radky posune nahoru
n s         uvolni radku n,ostatni radky posune dolu
n h         radek n ulozi do mezipameti
n r         radek n naplni obsahem z mezipameti
n i         radek n naplni obsahem  z  mezipameti,ostatni  radky
            posune dolu
l           vylistuje aktualni stranku
  NA KONCI STRANEK :
-->         prechod na dalsi stranku
;s          posledni stranka
  KURSOR EDITORU : ulehcuje opravy a vyhledavani  vadnych  casti
            textu na aktualni strance
top         kursor na zacatek stranky
f text      hleda vpred retezec text,po nalezeni umisti radek
            do editacni oblasti a vypise cislo  radky,nenajde-li
            vypise ? MSG#0
b           pouziva se po f a vraci kursor o delku hledaneho re-
            tezce zpet
n           hleda dalsi vyskyt textu dle f
c text      kopiruje text  na  misto  oznacene  kursorem,neni-li
            text,dojde ke stopu prekladu,opravime to pomoci  top
            x (ENTER)
n m         presune kursor o n mist vpred (+n) nebo vzad (-n)
till text   vymaze radkek od kursoru az po  text,pouzit  bezpro-
            stredne po pozicovani
x text      vyhleda a zrusi dalsi vyskyt retezce text

                   POPIS PRACE S JAZYKEM FORTH
                   ---------------------------
Instalace:
     LOAD "FORTH"    (ENTER)
          Program: FORTH                start tape
          Bytes: FORTH
          48K SPECTRUM fig-FORTH 1.1A
          c Abersoft: 1983              stop tape

     Od tohoto okamziku se pouziva  klavesnice  jako  u  psaciho
stroje (bez BASICovych vyznamu).System reaguje na zadavani vsech
slov pouzitelnych ve FORTHu (viz priloha AR 7/84 a dale).
Vypis vsech pouzitelnych slov ziskame povelem:
     VLIST   (ENTER)
Nasleduje vypis,ktery je mozno prerusit BREAKem.Do tohoto  slov-
niku muzeme zaradit i vlastni slova.Zadame definici slova:
     : CISLO 100 0 DO I . LOOP ;   (ENTER)
Nyni je nove slovo prirazene k puvodnimu slavniku.Presvedcime se
o tom povelem:
     VLIST   (ENTER)  ..  BREAK
Prvni slovo (posledni zadane) ma nazev CISLO.
     Tento zpusob zadavani slov je bez moznosti pozdejsich oprav
,protoze k puvodni definici slova jiz nemame pristup.
Proto se pouziva ve FORTHu EDITOR,ktery umoznuje zapis  slov  do
stranek (screen).Tyto stranky jsou ocislovany jako SCR # 1 - SCR
 #10.
Pristup k temto strankam mame pouze po zadani povelu:
     EDITOR   (ENTER)
Je to prechod do modu EDITOR.Pak muze nasledovat:
     1 CLEAR   (ENTER)
Provedeme tim vymaz a naformatovani stranky 1.O  existenci  teto
stranky se muzeme presvedcit:
     L   (ENTER)
Vylistovani aktualni stranky.Nyni muzeme jiz zapisovat  do  teto
stranky.P = povel pro EDITOR k zarazeni dalsiho textu do radku.
     1 P : CISLA 100 0 DO CR I . LOOP ;   (ENTER)
System svou odpovedi OK oznami,ze zapsal radek 1 do sve pracovni
stranky.Presvedcime se o tom:
     L   (ENTER)
Nasleduje vypis SCR # 1
Takto zapiseme dalsi slova:
     2 P : PIP 500 200 BLEEP ;   (ENTER)
     3 P : PIF 350 5 DO 5 I BLEEP 5 +LOOP ;   (ENTER)
     atd
Po zapisu a event. korekci se pracovni stranka prepise do oblas-
ti DISC povelem:
     FLUSH   (ENTER)
Nasleduje kompilace teto stranky:
     1 LOAD   (ENTER)
Hned si nova data vyzkousime:
     PIP CISLA PIF   (ENTER)
Abychom i priste mohli tato slova pouzivat,nahrajeme  si  je  na
magnetofon:
     SAVET   (ENTER)
Nyni se ulozi vsech 10 pouzitelnych stranek na mgf.Tento zaznam
ma v etikete nazev   Bytes: DISC   a je pouzitelny pouze ve spo-
lupraci s programem FORTH.Nyni si zkusime tento zaznam znovu na-
tahnout.K tomu potrebujeme mit system ve stavu jako po natazeni
FORTHu.To dosahneme povelem:
    COLD   (ENTER)          Studeny start
System provedl novou inicializaci a disponuje opet jen svym za-
kladnim slovnikem.Natazeni provedeme povelem:
    LOADT   (ENTER)      Start mgf.     bytes: DISC
Po uspesnem natazeni provedeme kompilaci:
    1 LOAD   (ENTER)
Slova obsazena ve strankach DISC jsou timto opet prirazena k za-
kladnimu slovniku a muzeme je pouzivat.
V programu FORTH fy. Abersoft existuje i moznost  opustit  FORTH
povelem:
    MON   (ENTER)
a pozdejsi navrat zpet do FORTHu pomoci BASICoveho povelu:
    GOTO 3   (ENTER)
Po povelu SAVET muzeme zaznam prekontrolovat pomoci povelu:
    VERIFY
Slovo BLEEP je obdoba BASICoveho BEEP a zadava se:
    c p BLEEP   (ENTER)    c=pocet kmitu   p=perioda
Slovo DRAW urcuje  p r i m o  bod v souradnicich
    x y DRAW
Priklad:   : CTV 0 0 PLOT 170 0 DRAW 170 170 DRAW 0 170 DRAW 0 0
             DRAW ;   (ENTER)
CTV nam nakresli ctverec o strane 170.