Bienvenue Eric

rem Pg Bienvenue-23
  dim i , j , n$ , q
  n$="BIENVENUE ERIC"
  q=len(n$)
  width 0,1000
  caption 0,"  Programme "+n$

wait 1000
for i=1 to q
  alpha i
      left i,50*i
      top i,-50
      caption i,mid$(n$,i,1)
      font_bold i
      font_size i,30
next i

for i=1 to q
  for j=-50 to 150 step 10
      top i,j
      wait 1
  next j
next i
wait 1000

for i=q to 1 step -1
  for j=150 to 380 step 10
      top i,j
      wait 1
  next j
  caption i,""
next i
wait 1000

for i=q to 1 step -1
  left i,-50
  top i,150
  caption i,mid$(n$,i,1)
  for j=-50 to i*50 step 15
      left i,j
      wait 1
  next j
next i
wait 2000

for i=q to 1 step -1
  for j=i*50 to 950 step 15
      left i,j
      wait 1
  next j
  caption i,""
next i
wait 1000

left 1,50
caption 1,"Et bonne programmation !"
wait 2000
terminate