{ Contents: zerofirqb - zero the firqb } { zeroxrb - zero the xrb } { zerofx - zero both the firqb and xrb } { - 4/6/84 - EFM } procedure zerofirqb; { Zero the firqb - 4/6/84 - EFM } var firqb origin 402B : array [1..16] of integer; i : integer; begin for i := 1 to 16 do firqb[i] := 0 end; { zerofirqb } procedure zeroxrb; { Zero the xrb - 4/6/84 - EFM } var xrb origin 442B : array [1..14] of integer; i : integer; begin for i := 1 to 14 do xrb[i] := 0 end; { zeroxrb } procedure zerofx; { Zero the firqb and the xrb - 4/6/84 - EFM } begin zerofirqb; zeroxrb end; { zerofx }