６４行目にDIALOG "SIKO"を追加して、サブルーチンが実行されているか、確認してみてはいかがでしょうか。