'-----
'LOOPS
'=====

  dim a,b,c,d as long, s as string


  'SIMPLE LOOPS
  '------------
  
  a=4
  '
  b=0
  do
    b+=1
    if b>a then exit do
  end do 'or enddo

  b=0
  do
    b+=1
    if b>a then exit do
  loop

  '----------------
  'CONDITIONAL FORM
  '================
  
  b=0
  while b<=a
    b+=1
  end while ' or endwhile

  b=0
  while b<=a
    b+=1
  wend

  b=0
  while b<=a {b+=1}

  b=0
  do {b+=1} while b<a


  print `Result ` b