[問題]問一個原LISP中載入外部LISP後如何自動輸入動作值

論壇裡有個前輩分享一個程式TOA.VLX，
這程式能在文字前、中、後添加字元，非常好用，
因為工作經常需要用到這個程式，但因為沒有原始碼，
所以我只能採用載入方法運用程式。
我運用的方法為呼叫程式選取固定圖層的文字後，
複製出新的圖元，並針對新的圖元做圖層變更，
再運用TOA程式添加固定字元到固定位置，
我編寫程式如下:

(LOAD "d:/LISP/TOA.VLX")
(defun C:CpT ()
 (setvar "cmdecho" 0)
 (setq en (entlast))
 (princ "\n請選取指定圖層的文字")
 (setq ss (ssget '((0 . "*TEXT") (8 . "#[#]"))))
 (command "_.copy" ss "" (getpoint "\n請指定基準點: ")
  (getpoint "\nESC結束或指定目的點: "))
 (setq ss1 (ssadd))
 (while (setq en (entnext en))
    (setq ss1 (ssadd en ss1)))
 (command "change" ss1 "" "p" "c" "bylayer" "la" "0" "")
 (C:TOC) ←這邊之後要怎麼輸入？
 )
       
這邊載入TOC後會指令行會問你要添加甚麼字元(我會填*)，
輸入字元後會問你要添加到文字的第幾位(我會填4)，
請問要如何讓程式載入TOC後在ss1選集中自動輸入"*"字元在第4位"