(* some array errors *)
program list_test;
(* this complicates things by adding a list and a proc *)
const HOW_MANY = 6;
      FIRST = 0;
      FULL = 7;
var   p,part_list : array[FIRST..HOW_MANY] of number;
      full_list : array[FIRST..FULL] of number;
      huh : array[FULL..FIRST] of number;
      i : number;

procedure SETLIST(which1, which2);
var  i : counter;
begin
  for i:=FIRST to HOW_MANY do
    part_list[i] := i;
  for i:=HOW_MANY downto which2 do
    full_list[i+1] := part_list[i];
  full_list[which1] := 0;
end; (* SETLIST *)

begin
  p := full_list;
  full_list := 5;
  i[1] := 1; Set_List(full_list, p);
end. (* list_test *)