15 lines
226 B
Plaintext
15 lines
226 B
Plaintext
|
'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
|
||
|
Next
|
||
|
S=>Locate 1,2,S-1
|
||
|
S=>Dsz S
|