'ProgramMode:RUN
Locate 1,1,"SAVING CHUNK"
1->P
For 0->B To HW-J Step J
0
1->C
For 0->A To J-1
Ans+C(StrSrc(Str 9,StrMid(Str 1,B-A+J,1))-1
CI->C
Next
Ans->Mat A[(M-1)HW/J+P,N
Isz P
S=>Locate 1,2,S-1
S=>Dsz S