1 voter: proc (godatap, i, j, s);
 2 
 3 /* VOTER - vote for a pattern "s" wide around point (i, j)
 4 
 5    THVV 7/74 */
 6 
 7 dcl (i, j) fixed bin,
 8      s fixed bin;
 9 
10 %include godata;
11 
12 dcl (ii, jj) fixed bin;
13 dcl (iii, jjj) fixed bin;
14 
15           do ii = -s to s;
16                do jj = -s to s;
17                     if abs (ii) + abs (jj) <= s then do;
18                          iii = i + ii;
19                          jjj = j + jj;
20                          if iii > 0 then if iii < 20 then   /* this ain't space war */
21                                    if jjj > 0 then if jjj < 20 then
22                                              votes (iii, jjj) = votes (iii, jjj) + 1;
23                     end;
24                end;
25           end;
26 
27      end voter;