begin

ROUTINE MAKE MOVE(INTEGERARRAYNAME COMP)

! generates COMP[26] = (((int *)(COMP[26])) + (1));

COMP(26) = COMP(26)+1;        ! increase crown count
END

integerarray comp(-1:30)

make move(comp)

integerarrayname ian

ian == comp

ian(26) = ian(26) + 1

make move(ian)

endofprogram