46 lines
777 B
Plaintext
Executable File
46 lines
777 B
Plaintext
Executable File
'ProgramMode:RUN
|
|
{10,120->Dim Mat B
|
|
Locate 3,1,"//20"
|
|
63309337->Mat B[1,1
|
|
94863834->Mat B[10,1
|
|
126618679->Mat B[1,120
|
|
252836660->Mat B[10,120
|
|
Locate 1,1,4
|
|
For 2->A To 9
|
|
63309338->Mat B[A,1
|
|
126618676->Mat B[A,120
|
|
Locate 1,1,2(A+1
|
|
Next
|
|
Locate 4,2,"//236"
|
|
For 2->A To 119
|
|
5->Mat B[1,A
|
|
6*316^3->Mat B[10,A
|
|
Locate 1,2,2(A-1
|
|
Next
|
|
Locate 4,3,"//500"
|
|
For 1->C To 500
|
|
RanInt#(1,40->M
|
|
RanInt#(1,120->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
|
|
Locate 1,3,C
|
|
Next
|
|
RanInt#(15,25->M
|
|
RanInt#(55,65->N
|
|
11->X
|
|
4->Y
|
|
X->O
|
|
Y->P~Q
|
|
1->L
|
|
1->D
|
|
0->S
|
|
{38,27,28,37->List6
|
|
"ABCDEFGHIJKLMNOPQRSTUVWXYZ#"->Str 4
|
|
Prog "~SLOD"
|
|
Prog "~SSCR"
|
|
1->E
|
|
{3,E->Dim Mat A |