66 lines
946 B
Plaintext
66 lines
946 B
Plaintext
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
|
|
|
|
|
|
repeat while y < 5
|
|
set y = y + 1
|
|
if y = 3 then next repeat
|
|
put y
|
|
end repeat
|
|
|
|
-- tests for repeat with
|
|
|
|
on exitRepeatWith
|
|
set aList = [1,2,3,4]
|
|
repeat with a in aList
|
|
if a = 3 then
|
|
exit repeat
|
|
end if
|
|
end repeat
|
|
return a
|
|
end exitRepeatWith
|
|
|
|
on returnRepeatWith
|
|
set aList = [1,2,3,4]
|
|
repeat with a in aList
|
|
if a = 3 then
|
|
return a
|
|
end if
|
|
end repeat
|
|
end returnRepeatWith
|
|
|
|
on directListRepeatWith
|
|
repeat with a in [1,2,3,4]
|
|
put a
|
|
end repeat
|
|
end directListRepeatWith
|
|
|
|
put exitRepeatWith()
|
|
put returnRepeatWith()
|
|
directListRepeatWith()
|