14 lines
280 B
Plaintext
Executable File
14 lines
280 B
Plaintext
Executable File
'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 |