'ProgramMode:RUN
{30,40->Dim Mat B
Locate 4,1,"//600"
For 1->C To 600
Locate 1,1,C
RanInt#(1,120->M
RanInt#(1,40->N
Int ((M-1)/4)+1->A
Mat B[A,N->B
316^(MOD(M-1,4))
Int (MOD(B,Ans*316)/Ans
 Not Ans=>(316^(MOD(M-1,4)))*RanInt#(1,2)+Mat B[A,N->Mat B[A,N
Ans=>Dsz C
Next