20 lines
411 B
Plaintext
20 lines
411 B
Plaintext
01.01 C--PRINT F(0..15) AND M(0..15)
|
|
01.10 T "F(0..15)"
|
|
01.20 F X=0,15;S N=X;D 4;T %1,N
|
|
01.30 T !"M(0..15)"
|
|
01.40 F X=0,15;S N=X;D 5;T %1,N
|
|
01.50 T !
|
|
01.60 Q
|
|
|
|
04.01 C--N = F(N)
|
|
04.10 I (N(D)),4.11,4.2
|
|
04.11 S N(D)=1;R
|
|
04.20 S D=D+1;S N(D)=N(D-1)-1;D 4;D 5
|
|
04.30 S D=D-1;S N(D)=N(D)-N(D+1)
|
|
|
|
05.01 C--N = M(N)
|
|
05.10 I (N(D)),5.11,5.2
|
|
05.11 R
|
|
05.20 S D=D+1;S N(D)=N(D-1)-1;D 5;D 4
|
|
05.30 S D=D-1;S N(D)=N(D)-N(D+1)
|