Anonymous user
Creating an Array: Difference between revisions
→{{header|AppleScript}}: ++ amigae
m (→{{header|Ruby}}: lang tag) |
(→{{header|AppleScript}}: ++ amigae) |
||
Line 76:
array of pointers to ints[index] := HEAP INT := i*i # allocate global memory #
OD
=={{header|AmigaE}}==
<lang amigae>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</lang>
=={{header|AppleScript}}==
| |||