早速のお返事ありがたうござゐます

proc main

if @hwnd = 0 then exit proc
　　dim file$, a$
　　file$=@@QxDirectory$+ "\新規手紙.txt"　
　　if file$ = "" then exit proc
　　@Redraw = 0
　　 @UndoBlock = 1
　　open file$ for input as #1
　　do until eof(1)
　　ineinput #1, a$
　　@Input a$
　　　@CharReturn2
　　loop
　　close #1
　　@CharReturn2
　　 @Redraw = 1
　　@UndoBlock = 0
end proc

一部修正して　この記述にしてやうやく思ひ出しました

open file$ for input as #1＝ファイル開いて　カーソル位置に　１行づつ挿入せよ
loop＝繰り返せ
　
　#1＝カーソル位置
　a$＝読み込んだ論理行
　@charReturn2＝改行

@Redraw=0
視覚化せずに
@Redraw=1

この＜視覚化せず＞にファイル文書を一行づつ
＜読込み＞そして＜書込む＞　この技法スゴイですよね
------------------------------------------------------------
さて　今回は　かぶねこさんの自動書込が　上手く行かず
たった一つのテキストの読込みに修正してしまひましたが
宜しかったら　
ショートカットキーの取扱ひから
全くの初心者に　応へる感じで　
読込みテクスト自動書き込みの操作法を教へていただけたら…
兎に角　呑み込みが悪い奴だと思って　ご指導下さい
------------------------------------------------------------

別件ですが
　スマートアプリコントロールのブロックで
　ＱＸ使へなくなってゐる方がゐると思ひ
　そのブロックを受けないやうに旧ＱＸを改良できないものか？
　アラケンさんに　メール飛ばして置きました
　この件で　何か進展ありましたら
　それは　それで投稿の題名を＜スマートブロック解除＞で投稿します
私の場合　
　・粘り強く再起動
　・＜ＰＣ＞のＱＸではなく＜ＵＳＢ＞に取り込んだＱＸを起動させる
　合計数十回＜ＳＡＣ＞のブロックに合ひましたが
　その都度上記法で乗り越えてきました