7 lines
147 B
Text
7 lines
147 B
Text
01.10 F N=0,100;S T(N)=0
|
|
01.20 F A=0,6,100;F B=A,9,100;F C=B,20,100;S T(C)=-1
|
|
01.30 S N=101
|
|
01.40 S N=N-1
|
|
01.50 I (T(N))1.4
|
|
01.60 T %3,N,!
|
|
01.70 Q
|