Panoramicien, es-tu là ?

rem ============================================================================
rem       Chercher les caractères communs à deux chaines
rem ============================================================================

Caractere_Commun("Bonjour","Monsieur")
' Caractere_Commun("Panoramicien","Programmeur du dimanche")
end
rem ============================================================================
SUB Caractere_Commun(s1$,s2$)
   dim_local i,j,found,a$
   s1$ = upper$(s1$) : s2$ = upper$(s2$)
   if len(s1$) < len(s2$)
      a$ = s1$ : s1$ = s2$ : s2$ = a$
   end_if

   for i = 1  to len(s1$)
       found = 0
       j = 1
       while (found = 0) and (j <= len(s2$))
           if mid$(s1$,i,1) = mid$(s2$,j,1)
              print "Le caractère : " ; mid$(s1$,i,1) ; " est commun au deux chaines"
              s2$ = left$(s2$,j-1) + chr$(255) + right$(s2$,len(s2$)-j)
              found = 1
           end_if
           j = j + 1
       end_while
   next i
END_SUB
rem ============================================================================

rem ============================================================================
rem               Papydall en manque d’idées
rem ============================================================================
dim j,c,v,x,y
caption 0,"Papydall en manque d’idées ... <CLICK> pour arrêter ..."
repeat
  j = j + 1
  c = cos(j/9.1)* sin(j/9.2) : v = sin(j/9.3)
  x = 320 + c * 320 : y = 256 + v * 256
  2d_poly_from 0,0 : 2d_poly_to 640,0 : 2d_poly_to x,y
  2d_pen_color 0,0,80 : 2d_poly_from 0,0 : 2d_poly_to 0,512 : 2d_poly_to x,y
  2d_pen_color 0,80,30 : 2d_poly_from 640,512 : 2d_poly_to 640,0 : 2d_poly_to x,y
  2d_pen_color 255,255,255 : 2d_poly_from 640,512 : 2d_poly_to 0,512 : 2d_poly_to x,y
until scancode <> 0
terminate
rem ============================================================================