それと>>111の代わりのコードも用意しておきます。

dim A(∞):dim B(∞):C=2
for E=0 to C
A(E)=E:B(E)=E
next
for F=C to 0 step -1
if B(F)=0 then G=1 else G=0
for H=0 to F*G
if A(F-H)<A(F) or A(F)=0 then I=H:H=F*G
next
for J=1 to C*G*I
A(F)=A(F-I):B(F)=B(F-I):F=F+1
next
G=1-G
for K=1 to F*G
if A(F-K)<A(F) and B(F-K)<B(F) then L=A(F)-A(F-K):M=K:K=F*G
next
for N=1 to C*G*M
A(F)=A(F-M)+L:B(F)=B(F-M):F=F+1
next
next
print C