//โปรแกรมแสดงคำว่า thai เลื่อนไปทางซ้ายและขวา 5 รอบ
cls
for nj = 1 to 5
  for ni1 = 1 to 75
   @ 5,75-ni1 say "thai "
   inkey(0.1)
  next
  for ni2 = 1 to 75
   @ 5,ni2 say " thai"
   inkey(0.1)
 ; next
next