XProfan

Struct xy=x&,y&
und eine Klasse
class my=+my@,#xy#(8)
//konstruktor

proc my.my

    parameters .xy#

    with .xy#

        *jammer*

    endwith

endproc

declare myclass#,myxy#
dim myxy#,xy
myclass#=new(my,xys=s2>)

!
Struct Xy = x&, y&
und eine Klasse
Class My = +My@,
#Xy#(8)
konstruktor

Proc My.my

    Parameters Pos#

    With Pos#

        Print .x&
        Print .y&

    Endwith

Endproc

Declare Myclass#,
Myxy#
Dim Myxy#, Xy

With Myxy#

    .x& = 45
    .y& = 75

EndWith

Myclass# = New(My, Myxy#)
WaitInput