13 lines
314 B
Plaintext
13 lines
314 B
Plaintext
PROC main()
|
|
DEF i, a[10]:ARRAY OF LONG, p:PTR TO LONG
|
|
FOR i:=0 TO 9
|
|
a[i]:=[1, i, i*i]
|
|
/* This assignment is probably not what you want! */
|
|
ENDFOR
|
|
FOR i:=0 TO 9
|
|
p:=a[i]
|
|
WriteF('a[\d] is an array at address \d\n', i, p)
|
|
WriteF(' and the second element is \d\n', p[1])
|
|
ENDFOR
|
|
ENDPROC
|