** membuat teks berjalan di status bar :)
FOR i=0 TO 500
? CHR(7)
SET MESSAGE TO SPACE(i)+'Teks ini jalan ke kanan'
ENDFOR