sys a,b
if a then
if b 
do
a=b
b=a
do
exit do
continue do
end do
exit do
continue do
while a>b
exit while
wend
select a
case 1
b=1
case 2
b=2
end select
for a=1 to 2
exit for
next
end do
end if
end if
