include "ConsoleWindow"

dim as Str15 s(11)
dim as long i

s(0) = "Somewhere"
s(2) = " over"
s(4) = " the"
s(6) = " rainbow" + chr$(13)
s(8) = "Bluebirds"
s(10) = " fly."

for i = 0 to 10 step 2
print s(i);
next