Advertisement
Mysoft

Untitled

Apr 4th, 2024 (edited)
1,313
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. dim as string strings = "hello world"
  2.  do
  3.   color 6
  4.   for i as long = -9 to 8
  5.     if i=0 then color 4
  6.     locate 1,abs(i)+1,0
  7.     print " "+strings+" ";
  8.     sleep 100
  9.   next i
  10. loop
  11.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement