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