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 | + |
