N=F C=0 FOR I=1 TO H　　// 外側ループは結果の格納配列数でよい 　LOCATE 1,1:PRINT N 　T=0 　FOR J=N-1 TO 1 STEP -1 　　D=2*J-1 　　W=T*J+Z[J]*B 　　T=FLOOR(W/D) 　　Z[J]=W-T*D 　NEXT 　W=FLOOR(T/B) 　A0[I]=C+W 　C=T-W*B