39 lines
552 B
Plaintext
39 lines
552 B
Plaintext
Macro PrintStruc(StrucVal)
|
|
PrintN(Str(StrucVal#\value1))
|
|
PrintN(Chr(StrucVal#\value2))
|
|
PrintN(StrucVal#\value3)
|
|
If StrucVal#\value4
|
|
PrintN("TRUE")
|
|
Else
|
|
PrintN("FALSE")
|
|
EndIf
|
|
PrintN("")
|
|
EndMacro
|
|
|
|
Structure TTypeA
|
|
value1.i
|
|
value2.c
|
|
value3.s[10]
|
|
value4.b
|
|
EndStructure
|
|
|
|
Define.TTypeA a, b
|
|
|
|
a\value1=10
|
|
a\value2='A'
|
|
a\value3="OK"
|
|
a\value4=#True
|
|
|
|
b=a
|
|
|
|
a\value1=20
|
|
a\value2='B'
|
|
a\value3="NOK"
|
|
a\value4=#False
|
|
|
|
If OpenConsole("")
|
|
PrintN("Value of 'a':") : PrintStruc(a)
|
|
PrintN("Value of 'b':") : PrintStruc(b)
|
|
Input()
|
|
EndIf
|