Singleton Class Demo
  BeginPrivate
    Name$
    X.i
  EndPrivate

  Public Method Init(Name$)
    This\Name$ = Name$
  EndMethod

  Public Method GetX()
    MethodReturn This\X
  EndMethod

  Public Method SetX(n)
    This\X = n
  EndMethod

  Public Method Hello()
    MessageRequester("Hello!", "I'm "+This\Name$)
  EndMethod

EndClass