私のコメント、言葉足らずでしたね。失礼しました。しゅうぽんさんの最初の画像に書かれているプログラムを、一部変更するという意味のつもりでした。正確に言い直します。
2行目の「TOUCH OUT I,X,Y」を「STICK OUT SX,SY」に書き換え、さらに3行目の「IF I THEN SPOFS 0,X,Y」を「LOCATE 0,0:? X,Y」に書き換えて、他の部分はそのままで、(DIRECTモードに切り替えて)実行してください。あと、説明書で「WHILE」命令の意味を確認することもオススメします。