Bienvenue murphy !

rem ' Bienvenue-10
data 255,0,0,0,255,0,255,0,255,0,0,255,255,125,0,125,0,255,255,255,0
dim c(7,3) , d , i , j , k , x , y , m$ , n$
n$="murphy"
m$="BONJOUR ET/BIENVENUE/A "+n$ : y=80
label fin , go
for i=1 to 7
  for j=1 to 3
      read c(i,j)
  next j
next i : j=len(m$)+1
caption 0," Bienvenue-10 - Cliquez sur l'écran pour arrêter"
width 0,750 : color 0,0,0,0 : on_click 0,fin
for i=1 to len(m$)
  x=x+60 : if mid$(m$,i,1)="/" then x=0 : y=y+100
  alpha i
  left i,x+20
  top i,y
  font_bold i
  font_size i,30
  font_name i,"Snap ITC"
  if mid$(m$,i,1)<>"/" then caption i,mid$(m$,i,1)
  on_click i,fin
next i
alpha len(m$)+1
timer 100
timer_interval 100,300
on_timer 100,go
end
go:
  for i=1 to len(m$)
      d=d+1 : if d>7 then d=1
      font_color i,c(d,1),c(d,2),c(d,3)
      k=k+1 : if k>len(m$)+1 then k=1
      top k,top(k)+10
      top j,top(j)-10
      j=k
  next i
return
fin:
terminate