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