Code:
DIM SHARED mdStoreName AS STRING * 30DIM SHARED mdEmployees(10) AS employeeDIM SHARED mdProducts(100) AS product
Code:
TYPE vec2x AS INTEGERy AS INTEGEREND TYPETYPE shapenumPts AS INTEGERfirstPt AS INTEGEREND TYPEDIM SHARED ptList(31) AS vec2DIM shp AS shapeshp.numPts = 2shp.firstPt = 0ptList(0).x = 10 ' 1st point, index 0ptList(0).y = 15ptList(1).x = 20 ' 2nd point, index 1ptList(1).y = 100
Statistics: Posted by MikeHawk — Thu Jan 21, 2021 3:25 am
Code:
Type employee FirstName as string * 30 LastName as string * 30 Age as integerEnd TypeType product ProductName as string * 30 ProductPrice as DoubleEnd TypeType maindata StoreName as string * 30 employees(10) as employee products(100) as productEnd TypeDim datatoasm as maindata'setup namedatatoasm.StoreName="Valu Mart"'setup first employeedatatoasm.employees(1).FirstName="John"datatoasm.employees(1).LastName="Smith"datatoasm.employees(1).Age=66'setup 2nd employeedatatoasm.employees(2).FirstName="Jack"datatoasm.employees(2).LastName="Daniels"datatoasm.employees(2).Age=77
Code:
employees(10) as employee products(100) as product
Code:
employee1 as employee employee2 as employee ... employee10 as employee product1 as product product2 as product product3 as product ... product99 as product product100 as product
Statistics: Posted by mikefromca — Tue Jan 19, 2021 8:39 pm