C64-dev/newLang/tests/grammar/accepted/stmts.n8

class Worker
  private word value

  public method init(start as word)
    self.value = start
  end method

  public method tick(amount as word)
    self.value = self.value + amount
  end method

  public method run(limit as word) as word
    var i as word
    var total as word
    i = 0
    total = 0
    while i < limit
      total = total + i
      i = i + 1
    end while
    if total > 100
      print "large"
    else
      print total
    end if
    for i = 0 to 3 step 1
      self.tick(i)
    end for
    for i = 0 to 1
      self.tick(i)
    end for
    return total
  end method
end class

program Main
  var worker as Worker
  var total as word
  worker = new Worker(1)
  worker.tick(1)
  total = worker.run(4)
  print total
  delete worker
end program