7 lines
273 B
Forth
7 lines
273 B
Forth
TYPE(MIXED) !Name the "type".
|
|
INTEGER COUNTER !Its content is listed.
|
|
REAL WEIGHT,DEPTH
|
|
CHARACTER*28 MARKNAME
|
|
COMPLEX PATH(6) !The mixed collection includes an array.
|
|
END TYPE MIXED
|
|
TYPE(MIXED) TEMP,A(6) !Declare some items of that type.
|