無理やり文字化け

ヒマじゃないけどヒマだから

ヒマじゃないけどヒマだから

#include "hspinet.as"

title"文字化けちゃう"

text=""
text2=""
bufb=""
lpc=""

screen 0,300,248

mesbox text,300,100
input lpc
mesbox text2,300,100

button goto"GO",*main

stop

*main
text2=text

notesel text2
bufb=noteinfo(1)

bufb=int(bufb)

randomize 

title"文字化け中..."

repeat int(lpc)
poke text2,rnd(bufb-1),rnd(200)
await 1
loop

title"文字化けちゃう"
objprm 2,text2
stop