I liked this snippet. Simple and entertaining.
So I modded it a little.
sync on : sync rate 80
x=250
y=250
a=140
b=140
dirx=0
speed=5
diry=0
input "Enter text:";a$
input "Enter text:";b$
do
cls
text x,y,a$
text a,b,b$
if y=<0 then diry=1
if y=>470 then diry=0
if x=<0 then dirx=1
if x=>570 then dirx=0
if diry=1 then inc y,speed
if diry=0 then dec y,speed
if dirx=1 then inc x,speed
if dirx=0 then dec x,speed
if a=<0 then diry=1
if a=>470 then diry=0
if b=<0 then dirx=1
if b=>570 then dirx=0
if diry=1 then inc a,speed
if diry=0 then dec a,speed
if dirx=1 then inc b,speed
if dirx=0 then dec b,speed
sync
loop
A book? I hate book. Book is stupid.