[*]Profan

Struct TPunkt = x&,y&
Struct Mitarbeiter = Name$(30),Nettigkeit%,Kasse%
Struct TLine = von!TPunkt,bis!TPunkt
Struct TFarbe = rot&,blau&,gruen&
Hier das Neue
var p# = New(TPunkt,100,100)
var q# = New(TPunkt,300,300)
var hans# = New(Mitarbeiter,"Hans Hannsen",99,1)
var f# = New(TLine,200,100,300,100)
var c# = New(TFarbe,255,128,0)
Einzeilenzuweisung
p# = 200,200
f# = p#,q#
f# = 0,0,100,200
Einzeilenzuweisung auch über return
mit möglicher Fehlermeldung: Strukturen nicht kompatibel,
z.B. bei: f# = p#,100,q#

proc Test

    parameters punkt#
    verschiebt einen Punkt um 100 nach rechts
    return punkt#.x&+100,punkt#.y&

endproc

q# = Test(p#)
Während solch einer Zuweisung kann auch auf eigene Eigenschaften zugegriffen werden
q# = .x& - 100, .y&
Auch für Funktionen
cls c#
DrawPic "Test.png",q#;0
DrawSizedPic "Test.png",f#;0
DrawSizedPic "Test.png",p#,q#;0
Dispose c#,hans#,p#,q#,f#