/*Ubung 1*/

EinkaufslisteMann=.set~of("Bier", "Duschgel", "Deo","Brot","Butter")
EinkaufslisteFrau=.set~of("Kaffee","Zahnpasta","Brot","Butter","vegane Milch","Eier")



DO i over EinkaufslisteMann
Say i
end

DO i over EinkaufslisteFrau
Say i
end


CALL Ausgabe EinkaufslisteMann~UNION(EinkaufslisteFrau), "UNION"

EXIT

::ROUTINE Ausgabe 
USE ARG Einkauf, a
SAY(a": ")
DO i over Einkauf
SAY(i)
END
say

/* gro��e vs. kleine Buchstaben beim Sortieren von Arrays
.output CHAROUT in GUI funktioniert nicht*/

/*Ubung 2*/
myIE=.OLEObject~new("InternetExplorer.Application")
myIE~Visible=.True
myIE~Navigate("https://www.wu.ac.at/en/prodmanengl/")
CALL SysSleep 5
myIE~quit
Say "Matth��us arbeitet am Institut f��r Wirtschaftsinformatik und Gesellschaft und das ist die Webseite des Instituts:"
myIE2=.OLEObject~new("InternetExplorer.Application")
myIE2~Visible=.True
myIE2~Navigate("https://www.wu.ac.at/ec")
CALL SysSleep 5
EXIT