うーん・・・実行結果は悪くないかと思われますが、それよりもあまりスッキリとしないプログラムに見えますね・・・ まず2行目はA=VAL(MID$(TIME$,0,2))で一括りに出来ますし 5行目も@Aに飛ぶのではなく@OPENに直接飛ばせますし、そうなると@Bも不要になります。 あと22行目からは行数の確保か何かでしょうか。LOCATE x,yで直接場所指定出来ますのでそこも不要になるかと。 工夫次第でプログラムはシェイプアップ、ひいてはスリム化による高速化も可能となります。