重箱の隅の隅ですみません。 STEP式がループ1回につき1回余計に評価されているようです。 FOR文の性能阻害要因かもしれないので一応報告します。 -- DEF GOGGLE5():PRINT "GOGGLE! ";:RETURN 5:END FOR I=5 TO 25 STEP GOGGLE5():NEXT:PRINT -- RUN GOGGLE! GOGGLE! GOGGLE! GOGGLE! GOGGLE! GOGGLE! GOGGLE! GOGGLE! GOGGLE! GOGGLE! GOGGLE! OK