あと41～50行ですが LOCATE 0,28 FOR I=0 TO 9:? MID$("Version1.0",I,1);:WAIT 2:NEXT 　とすると、こんなに短くなります。 　この機会にLEFT$関数、RIGHT$関数、MID$関数を覚えてみましょう。文字列の操作が非常に楽になります。