View difference between Paste ID: GBTsR9f4 and TmKnPaQS
SHOW: | | - or go back to the newest paste.
1-
dim as string strings(1 to 10) = {"hello world"," hello world","  hello world","   hello world","    hello world","     hello world","      hello world","       hello world","        hello world","         hello world"}
1+
dim as string strings = "hello world"
2-
2+
 do
3-
for h as integer = 1 to 10 step 1
3+
  color 6
4-
	color 4
4+
  for i as long = -9 to 8
5-
	for i as integer = 1 to 10 step 1
5+
    if i=0 then color 4 
6-
		print strings(i)
6+
    locate 1,abs(i)+1,0
7-
		sleep 100
7+
    print " "+strings+" ";
8-
		shell("cls")
8+
    sleep 100
9-
	next
9+
  next i
10-
	color 6
10+
loop
11-
	for j as integer = 10 to 1 step -1
11+