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
|