%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:783 File Name:NB OR Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Lbl 0 \ClrText "Nombre d'or" "--------------------" " by Purobaz" "Nombre de decimales "?\->L L<1\=>\Goto0 \ClrText "Temps de calcul :" \Locate 1,2,0.056L\x^2+2.2L-3.4 \Locate 5,2,"s" L\->\Dim \List 4:1\->D {1,0\->\List 1 {1,0\->\List 2 1\->C:\Do \List 1+\List 2\->\List 3 \For 1\->I \To \Dim \List 3-1 \If \List 3[I]>9 \Then \List 3[I+1]+\Int (\List 3[I]/10)\->\List 3[I+1] 10\Frac (\List 3[I]/10)\->\List 3[I] \IfEnd \Next \Dim \List 3\->O \If \List 3[O]=0 \Then \List 2\->\List 1 \List 3\->\List 2 \Else \Dim \List 3+1\->\Dim \List 1 \For 1\->I \To \Dim \List 2 \List 2[I]\->\List 1[I] \Next \Dim \List 3+1\->\Dim \List 2 \For 1\->I \To \Dim \List 3 \List 3[I]\->\List 2[I] \Next \IfEnd \Isz C \LpWhile C<20+3L \Dim \List 1+3\->\Dim \List 3 \For 1\->I \To \Dim \List 2 \List 2[I]\->\List 3[I] \Next \List 3\->\List 2 \Dim \List 1+3\->\Dim \List 3 \Do \Dim \List 3\->\Dim \List 3 \For 1\->I \To \Dim \List 1-1 \List 1[I]\->\List 3[I+1] \Next -1\->C:\Do C+1\->C \List 3\->\List 1 \List 1-\List 2\->\List 3 \For 1\->I \To \Dim \List 3 \If \List 3[I]<0\ And I<\Dim \List 3 \Then \List 3[I+1]-1\->\List 3[I+1] \List 3[I]+10\->\List 3[I] \IfEnd \Next \Dim \List 3\->O \LpWhile \List 3[O]=0 \List 1\->\List 3 C\->\List 4[D]:\Isz D \LpWhile D\<=L \ClrText \Locate 1,1,"1." 3\->K:1\->L \For 1\->I \To \Dim \List 4 \Locate K,L,\List 4[I] \Isz K \If K>21 \Then 1\->K:\Isz L \IfEnd \Next %End