14 lines
201 B
Plaintext
14 lines
201 B
Plaintext
|
'ProgramMode:RUN
|
||
|
Locate 1,1,"LOADING CHUNK"
|
||
|
""->Str 1
|
||
|
(M-1)HW/J->D
|
||
|
For 1->A To W
|
||
|
Mat A[D+A,N->E
|
||
|
I^J
|
||
|
For 0->B To J-1
|
||
|
Ans/I
|
||
|
Int (E/Ans->C
|
||
|
E-CAns->E
|
||
|
Str 1+StrMid(Str 9,C+1,1)->Str 1
|
||
|
Next
|
||
|
Next
|