Poisson d'avril

dim tex$,nl$,i
width 0,900 : height 0,550
alpha 1 : top 1,5 : left 1,150 : color 1,255,0,255 : font_color 1,255,255,0 : font_size 1,24
caption 1,"        Poésie du poisson d'avril        "
container 10 : height 10, 400 : width 10, 760 : left 10,50 : top 10,50 : color 10,20,150,55
alpha 20 :  parent 20,10 : color 20,0,0,255 : font_color 20,255,255,0 : font_size 20,24 : left 20, 50
nl$ = chr$(13)
tex$ = tex$ + " J'ai vu trois chats bleus, à la queue leu-leu" + nl$
tex$ = tex$ + " Marchant sur un fil ......Poisson d'avril !" + nl$
tex$ = tex$ + " J'ai vu un chameau faire du vélo"   + nl$
tex$ = tex$ + " Tout autour d'une île.....Poisson d'avril !"  + nl$
tex$ = tex$ + " J'ai vu un gros ver en hélicoptère"  + nl$
tex$ = tex$ + " Traversant la ville.......Poisson d'avril !" + nl$
tex$ = tex$ + " J'ai vu une vache avec des moustaches"  + nl$
tex$ = tex$ + " Et de très longs cils.....Poisson d'avril !  " + nl$
tex$ = tex$ + " J'ai vu dix corbeaux assis sur le dos"  + nl$
tex$ = tex$ + " D'un vieux crocodile......Poisson d'avril !" + nl$
tex$ = tex$ + nl$+ nl$+ nl$+ nl$+ nl$+ nl$ + nl$+ nl$+ nl$+ nl$+ nl$
tex$ = tex$ + " Et toi Panoramicien, tu observes, sans réserve " +nl$
tex$ = tex$ + " Papydall .....qui se fait perdre les pédales" + nl$
tex$ = tex$ + " Tu n'as rien d'autre à faire que de lire"+nl$
tex$ = tex$ + " Des histoires de ..... Poisson d'avril ?" +nl$
tex$ = tex$ + nl$+ nl$+ nl$+ nl$+ nl$+ nl$+ nl$ + nl$+ nl$+ nl$

for i = 250 to -750 step -1 : top 20,i : caption 20,tex$ : pause 40 : next i
pause 2000
for i = 550 to 0 step -1 : height 0,i : pause 5 : next i
terminate