Zeichenkette zerlegen

Aufgabe:


Code 01
:

adresse:"Johann Weilharter Hofrat Magister Leithen 74 5591 Ramingstein"$
adresse:split(adresse)$
vorname:adresse[1]$
zuname:adresse[2]$
berufstitel:adresse[3]$
akadgrad:adresse[4]$
ascii(13)$
zeile1:sconcat(berufstitel," ",akadgrad," ",vorname," ",zuname)$
zeile2:sconcat(adresse[5]," ",adresse[6])$
zeile3:sconcat(adresse[7]," ",adresse[8])$
disp(ascii(13),zeile1,zeile2,zeile3)$

Vroomlab 01:

vl-adresse

Code 02: