17 lines
370 B
Text
17 lines
370 B
Text
DEF ai[100] : ARRAY OF CHAR, -> static
|
|
da: PTR TO CHAR,
|
|
la: PTR TO CHAR
|
|
|
|
PROC main()
|
|
da := New(100)
|
|
-> or
|
|
NEW la[100]
|
|
IF da <> NIL
|
|
ai[0] := da[0] -> first is 0
|
|
ai[99] := da[99] -> last is "size"-1
|
|
Dispose(da)
|
|
ENDIF
|
|
-> using NEW, we must specify the size even when
|
|
-> "deallocating" the array
|
|
IF la <> NIL THEN END la[100]
|
|
ENDPROC
|