TEST_1

Bartek = .Birthday~New 
Bartek~Date = "19930208"
Bartek~Time = "14:00"
SAY Bartek~Time

Alejandra = .Birthday~New~~"Date="("19921022")~~"Time="("10:19")
SAY Alejandra~Date 


::CLASS Birthday
::ATTRIBUTE date 
::ATTRIBUTE time

TEST_2

Aleman = .Sprache~New
Aleman~Name= "Aleman"
Aleman~Region= "Alemania;Austria"
Aleman~Number_Speaker= 20000
Aleman~Present()


:: CLASS Sprache 
::ATTRIBUTE Name
::ATTRIBUTE Region
::ATTRIBUTE Number_Speaker
::METHOD Present
EXPOSE Name Region Number_Speaker
SAY "me llamo" Name "y me hablan en" Region "y me hablan" Number_Speaker "Personas"

TEST_3

Aleman = .Sprache~New("Aleman","Alemania;Austria",20000)
Aleman~Present()

ESP = .Sprache~New("Espanol","A. Latina y Espana",20013872300)
ESP~Present()


:: CLASS Sprache 
::ATTRIBUTE Name
::ATTRIBUTE Region
::ATTRIBUTE Number_Speaker
::METHOD INIT 
  EXPOSE Name Region Number_Speaker
  USE ARG Name, Region, Number_Speaker
::METHOD Present
EXPOSE Name Region Number_Speaker
SAY "me llamo" Name "y me hablan en" Region "y me hablan" Number_Speaker "Personas"