execute IBEBlock
returns (iresult integer)
as
begin
vals = 0;
iresult = ibec_High(vals);
suspend; /* iresult = 0 */
vals[1] = 12;
iresult = ibec_High(vals);
suspend; /* iresult = 1 */
vals[10] = 'ibexpert';
iresult = ibec_High(vals);
suspend; /* iresult = 10 */
ibec_SetLength(vals, 5);
iresult = ibec_High(vals);
suspend; /* iresult = 4 */
ibec_SetLength(vals, 500);
iresult = ibec_High(vals);
suspend; /* iresult = 499 */
ibec_SetLength(vals, 0);
iresult = ibec_High(vals);
suspend; /* iresult = 0 */
end