02-24-2004, 10:46 AM
Sub Hmmm(eek as MyDataType)
Code:
DECLARE SUB Hmmm (eek AS ANY)
TYPE MyDataType
X AS INTEGER
Y AS INTEGER
N AS STRING * 13
END TYPE
DIM eek AS MyDataType
eek.X = 1
eek.Y = 15
eek.N = "Dr_Davenstein"
Hmmm eek
SUB Hmmm (eek AS MyDataType)
PRINT eek.X
PRINT eek.Y
PRINT eek.N
END SUB