パッと見た感じだと原因を特定するのが困難な不具合ですが、これもPSTR$を使えば理由は一目瞭然で0.1を100回足した時点では10未満の数になっているためです。 VAR A,I WHILE A<10 　INC I 　A=A+0.1 　?I,PSTR$(A) 　WAIT 10 WEND