17 lines
161 B
QBasic
17 lines
161 B
QBasic
Type test_type
|
|
Dim w
|
|
End Type
|
|
|
|
Type ano
|
|
Dim t[8] as test_type
|
|
Dim n
|
|
End Type
|
|
|
|
x[4].t.w = 13
|
|
|
|
Dim x[6] as ano
|
|
Dim y[4] as ano
|
|
Dim z[4] as ano
|
|
|
|
ArrayCopy(x, y)
|