Try this code. After you run it once, rem out the first part and remove the remstart/remend from the second part.
sync on : sync rate 60
do
DisplayData()
if spacekey()=1 then exit
sync
loop
end
function DisplayData()
restore MyData
for i=1 to 4
read a$
text 10,20*i,a$
next i
MyData:
data "This","code","really","works!"
endfunction
remstart
sync on : sync rate 60
do
DisplayData2()
if spacekey()=1 then exit
sync
loop
end
function DisplayData2()
restore MyData2
for i=1 to 4
read a$
text 10,20*i,a$
next i
endfunction
MyData2:
data "This","code","doesn't","work!"
remend
LB