engines/director/lingo/tests/loops.lingo


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

set x = 5
if x <= 5 then set x = 6
if (x = 5) then
set x = 7 -- this is comment
else
set x = 8
-- this is another comment
end if
put x
-- this is more comment
set y = 1
repeat while (y < 5)
set y = y + 1
put y
end repeat

repeat with z = 10 to 15
put z
end repeat
repeat with y = 5 down to 1
put y
end repeat

repeat while y < 5
set y = y + 1
put y
end repeat