C64-dev/newLang/tests/semantic/uses.n8

class Box
  public word size
  private byte[0] none
  public method fill(a as byte[4])
  end method
  public method get() as word[2]
  end method
end class

program Main
  var x as byte
  var w as word
  var ok as boolean
  var b as Box
  var arr as byte[3]
  if w
  end if
  while 1
  end while
  x = 5.size
  x = x.size
  x = arr.size
  x = w[0]
  x = arr[ok]
  x = arr[3]
  x = arr[-1]
  print b
  print arr
  print null
  delete w
  for ok = 1 to 2
  end for
  for x = 0 to 300
  end for
  b.fill(arr)
  w = b.get()[0]
end program