Dear Rony,

Here you will find some assignments of these days from our group:

/**/ p1 = .Person~New; p1~firstName= "Max"; p1~familyName= "Mustermann"; p1~points= "28" p2=.Person~New~~"firstName="("Lukas")~~"points="(23) p2~~"familyName="("Rossi") SAY p1~firstName p1~familyName p1~points p2~firstName SAY p1~firstName p1~points p1~~increasePoints(25)~points ::CLASS Person ::ATTRIBUTE firstName ::ATTRIBUTE familyName ::ATTRIBUTE points ::METHOD increasePoints EXPOSE points USE ARG increase points = points + increase

/**/ h1 = .Cat ~NEW ~~"NAME="("Paciugo") ~~Meow .BigCat ~NEW ~~"NAME="("Sibilla") ~Meow ::CLASS Cat SUBCLASS Object ::ATTRIBUTE Name ::METHOD Meow SAY self~Name":" "Miao" ::CLASS BigCat SUBCLASS cat ::METHOD Meow SAY self~Name":" "MIAOOOOOOOOO"

say "resource named 'info':" say .resources~info ::resource info *************************************** * * * Keep in mind: * * * * Stand up and move every 30 minutes ;) * * * *************************************** ::END

STRING - REVERSE SAY REVERSE("d:\Office\events\econ.typ") /* function */ SAY "d:\Office\events\econ.typ"~REVERSE /* message */

tmpColl = .array ~new tmpColl[6,7] = "a" tmpColl ~"[]="("b", 1, 2) tmpColl ~~put("b", 3, 8) ~~put("c", 5, 4) SAY tmpColl~string":" tmpSupp = tmpColl~SUPPLIER DO WHILE tmpSupp~AVAILABLE idx = tmpSupp~INDEX SAY "index ["idx~makeString("L",",")"] item ["tmpSupp~ITEM"]" tmpSupp~NEXT END

Kind regards, Milos and Giorgia