*** AMOS HELP ***  *** Základy AMOSu / Ďídící struktury ***  *** 30 ***

--------------------------------------------
DO ... LOOP
--------------------------------------------
Nekoneâné nepodmínęné opakování smyâky.

Pďíklad: Print "Press any mouse key..."
         Do
         Exit If Mouse Key
         Loop
Jediný zpűsob, jak smyâku opustit, je pouţití pďíkazű Exit nebo Exit If.

--------------------------------------------
EXIT
--------------------------------------------
Opustí smyâku. Pracuje se vőemi typy cyklű
(For...Next, Repeat...Until, While...Wend, Do...Loop)

--------------------------------------------
EXIT IF
--------------------------------------------
Opustí smyâku, je-li výraz v podmínce pravdivý.
Pro vőechny druhy cyklű.
Pďíklad: viz DO...LOOP

--------------------------------------------
FOR ... NEXT
--------------------------------------------
Opakuje âást programu daný poâet cyklű.

Pďíklad: For N=1 To 100     For X=1 To 10    For N=100 To 1 Step -5
         Print N            For Y=1 To 10    For R=1 To 10
         Next N             Plot X*5,Y*5     Print R*N
                            Next Y           Next R
                            Next X           Next N

Instrukci műţeme âíst jako: Pro POÂET=PRVNÍ do POSLEDNÍ krok KROK
Pďednastavená hodnota kroku je jedna. Pokud je krok jedna, műţe
být Step vynecháno. Jestliţe je krok záporný,  POÂET bude klesat
od PRVNÍ aţ do POSLEDNÍ. Kaţdý pďíkaz For musí mít svűj vlastní
pďíkaz Next (aby poâítaâ vędęl, kde smyâka konâí), i kdyţ jméno
POÂET nemusí být u Next uvedeno.

--------------------------------------------
REPEAT ... UNTIL
--------------------------------------------
Opakuje âást programu (s testem na konci smyâky)

Pďíklad: Repeat
         Inc X
         Until X>1000

Protoţe test je provádęn aţ na konci smyâky, je jasné, ţe vţdy
probęhne alespoň jeden cyklus. Kaţdý pďíkaz Repeat musí k sobę
mít odpovídající Until.