while.vb

FastScript 1.94 Full Source

' FastScript v1.0          
' While operator demo      


dim i, j


  j = 1
  i = 0
  while i < 10
    j = j + 1
    Inc(i)
  wend

  ShowMessage(j)