袋文字

諸事情でHSP2を使ってます。んで、袋文字はHSP3だと簡単に命令一発でできるわけですが、2だとそうはいかないわけで。久しぶりに弄くってたら上手く行ったので載せて見ます。
やってることは単純。

font "ＭＳ ゴシック",50,17
mms="TrashyHeaven"
x=10:y=10

repeat 6
pos x+cnt-3,y
mes mms
pos x+cnt-3,-1+y+cnt
mes mms
loop

color 255,255,255
pos x,y
mes mms
stop