C64-dev/newLang/tests/parser/scopes.n8

class A
  private word count

  public method one(p as word)
    var t as word
    t = p
    count = t
  end method

  public method two()
    t = 1
    p = 2
    count = 3
  end method
end class

class B
  public method three(count as byte)
    var mine as word
    count = 1
    mine = 2
    var late as word
    late = mine
  end method

  public method four()
    count = 4
    mine = 5
  end method
end class

program Main
  var a as A
  a = new A()
  var b as B
  b = new Ghost()
  t = 0
  count = 0
  if a = null
    var inner as word
  end if
  self.count = 1
end program