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