sync on
dim a$(10)
restore anylabelwilldo
for x=1 to 10
read a$(x)
next x
for x=1 to 10
print a$(x)
sync
wait 800
next x
do
sync
loop
anylabelwilldo:
data "Data, Restore, Read is neat"
data "Much neater than using a$(1)='stuff...':a$(2)='some more stuff...' etc, etc, etc"
data "It's most useful for filling arrays with looooooooads of stuff"
data "Why the monkey fall out of tree?"
data "He was dead"
data "Why 2nd monkey fall outta tree?"
data "He was dead too"
data "Why 3rd monkey fall outta tree?"
data "He thought it was a game"
data "The End"