Au clair de la lune

rem ============================================================================
rem           A ma petite-fille
rem          Au clair de la lune
rem ============================================================================
label arrete

width 0, screen_x/2 : height 0,560 : top 0, 100 : left 0,200
color 0,230,210,65 : caption 0,"<CLICK> pour arrêter" : on_click 0,arrete
on_close 0,arrete
alpha 1 : top 1,2 : left 1,210 : font_name 1,"comic sans ms" : font_size 1,24
font_bold 1 : font_color 1, 0,0,255 : caption 1,"Au clair de la lune"

picture 2 : left 2,50 : top 2 ,5 : width 2,70 : height 2,33 : file_load 2,"lune1_g.bmp"
picture 3 : left 3,width(0)-110 : top 3 ,5 :width 3,60 : height 3,33 : file_load 3,"lune1_d.bmp"
picture 4 : left 4,50 : top 4,200 : width 4,300 : height 4,262 : file_load 4, "lune2_g.bmp"
picture 5 : left 5,370 : top 5,200 : width 5,300 : height 5,262 : file_load 5, "lune2_d.bmp"
display
2d_pen_color 255,255,0 : 2d_pen_width 10 : 2d_rectangle 50,50,width(0)-50,150
2d_pen_color 150,050,0 : 2d_pen_width 10 : 2d_fill_color 230,210,65 : 2d_rectangle 60,60,width(0)-60,140

alpha 20 :left 20,65 : top 20,65 : font_bold 20 : font_size 20,34
color 20, 230,210,65 : font_name 20,"arial" : font_color 20,100,150,200

sound 30 : file_load 30,"Au_clair_de_la_lune.wav" : play 30
Afficher()

arrete:
 terminate
 
rem ============================================================================
SUB Afficher()
    dim_local t$,spc$ ,p,i
    p = 3000-50 : spc$ = string$(7," ")
    pause 4000 :' à ajuster pour synchroniser le défilement du texte
    read t$
    while upper$(t$) <> "FIN"
       t$ = spc$ + t$  : caption 20,t$ : pause p : read t$
    end_while
    pause 5000
    for i = height(0) to 0 step -10
        height 0, i : pause 100
    next i
END_SUB
rem ============================================================================
data   "Au clair de la lune,"
data   "Mon ami Pierrot,"
data   "Prête-moi ta plume"
data   "Pour écrire un mot,"
data   "Ma chandelle est morte,"
data   "Je n'ai plus de feu,"
data   "Ouvre-moi ta porte"
data   "Pour l'amour de Dieu."
data   "mmm....mmm....mmm...."
data   "mmm....mmm....mmm...."
data   "Au clair de la lune,"
data   "Pierrot répondit :"
data   "Je n'ai pas de plume,"
data   "Je suis dans mon lit."
data   "Va chez la voisine, "
data   "Je crois qu'elle y est,"
data   "Car dans sa cuisine,"
data   "On bat le briquet."
data   "mmm....mmm....mmm...."
data   "mmm....mmm....mmm...."
data   "Au clair de la lune,"
data   "S'en fut Arlequin"
data   "Frapper chez la brune"
data   "Elle répond soudain"
data   "- Qui frappe de la sorte ?"
data   "Il dit à son tour :"
data   "Ouvrez votre porte,"
data   "Pour le Dieu d'amour !"
data   "mmm....mmm....mmm...."
data   "mmm....mmm....mmm...."
data   "Au clair de la lune,"
data   "On n'y voit que peu."
data   "On chercha la plume,"
data   "On chercha du feu."
data   "En cherchant d'la sorte,"
data   "Je n'sais c'qu'on trouva"
data   "Mais je sais qu'la porte"
data   "Sur eux se ferma."
data   "mmm....mmm....mmm...."
data   "mmm....mmm....mmm...."

data "FIN"
rem ============================================================================

SUB Afficher()
    dim_local t$,spc$ ,p,i
    p = 3000-50 : spc$ = string$(7," ")
    pause 5000 : read t$
    while upper$(t$) <> "FIN"
       t$ = spc$ + t$  : caption 20,t$ : pause p : read t$
    end_while
    pause 5000
    for i = height(0) to 0 step -10
        height 0, i : pause 100
    next i
END_SUB