NOMAINWIN
    WindowWidth=500
    WindowHeight=400
    UpperLeftX=INT((DisplayWidth-WindowWidth)/2)
    UpperLeftY=INT((DisplayHeight-WindowHeight)/2)
    open "In graph" for graphics AS #w
     print #w, "trapclose [quit]"
     #w, "down"
     #w, "fill black"
     #w, "setfocus"
     #w "when characterInput [letter]"
     #w "when leftButtonDown [yes]"
     yes=1
  wait
  [letter]
    a$=a$+Inkey$ 'méfiance au I majuscule sinon ça marche pas
    eff=eff+10 'pour chaque lettre ajoutée on ajoute 10 pour l'effacement
  wait  'a$ contient toutes les lettres entrées
  [yes]
     #w, "place ";oldmX;" ";oldmY 'on positionne à l'ancien emplacement
     #w, "color red; backcolor black" 'on efface l'ancien texte
     #w, "boxfilled ";oldmX+oldeff;" ";oldmY-20
     mX=int(MouseX):mY=int(MouseY)' on stocke la position souris
     oldmX=mX:oldmY=mY 'on mémorise la position
     print text("yellow","black",mX,mY,a$) 'on affiche le texte
     a$="":oldeff=eff:eff=0 'on vide a$:on mémorise la longueur d'effacement et on remets à 0

      #w, "flush" ' pour que la fenetre soit rafrachie...
                      ' ...aprés avoir été couverte ou réduite
  wait
  Function text(col$,bak$,x,y,msg$) '------fonction d'affichage de textes
    #w, "font Comic_sans_ms 12" 'on déclare une police et une taille
    #w, "color ";col$;" ; backcolor ";bak$ 
    #w,"Place ";x;" ";y;";|";msg$
  End Function
  [quit]
    CLOSE #w
    END
 

print #w,"\blabla"
print #w,"\"+"blabla"

 
NOMAINWIN
WindowWidth=500
WindowHeight=400
UpperLeftX=INT((DisplayWidth-WindowWidth)/2)
UpperLeftY=INT((DisplayHeight-WindowHeight)/2)
open "Fenêtre" for graphics AS #w
[début]
#w "when characterInput [A]"
wait
[A]
Print #w, Inkey$
goto [début] 
 

 
 
NOMAINWIN
 
WindowWidth=500
WindowHeight=400
UpperLeftX=INT((DisplayWidth-WindowWidth)/2)
UpperLeftY=INT((DisplayHeight-WindowHeight)/2)
 
open "Fenêtre" for graphics AS #w
    print #w, "setfocus"            'la fenêtre a le focus, sinon il faudrait le lui donner
                                    'en cliquant dessus

    #w "when characterInput [A]"    'quand on appuie sur une touche on va à [A]
    #w, "trapclose [quit]"          'quand le gadget de fermeture de la fenêtre est cliqué, on va à [quit]
wait
end
 
[A]
    Print #w, "\"+ Inkey$           'dans une fenetre graphics il faut "\" avant la chaine à afficher
    wait
 
[quit]
    close #w
    end
 
 

 
     NOMAINWIN
    WindowWidth = 280
    WindowHeight = 460
    UpperLeftX = (DisplayWidth-WindowWidth)-200
    UpperLeftY = 20 ' (DisplayHeight-WindowHeight)
   ' BUTTON #w.go, "Change", [go], UL, 10, 50, 60, 20
    GRAPHICBOX #w.m 0, 0, 280, 460
    OPEN "Help" FOR window_nf AS #w
    #w, "TRAPCLOSE [closeHelp]"
     #w.m , "down"
     x=20: y=50
  [ret]
     #w.m, "setfocus"
     #w.m, "when characterInput [fetch]"
    wait
[fetch] 'a character was typed!
  key$ = Inkey$
  if asc(key$)=13 then
     #w.m, "color red;backcolor white"
     #w.m, "place ";"10";" ";"100";" ;|";var$ 'affichage phrase
  end if
  var$=var$+key$
  #w.m, "place ";x;" ";y;" ;|";key$ 'affichage lettres
  x=x+15
  goto [ret]
   wait
  [closeHelp]
    CLOSE  #w
    END
 

 
     NOMAINWIN
    WindowWidth = 800 '§§§§§§§§§§§§§§§§§§§§§§
    WindowHeight = 460
    UpperLeftX = (DisplayWidth-WindowWidth)-200
    UpperLeftY = 20 ' (DisplayHeight-WindowHeight)
   ' BUTTON #w.go, "Change", [go], UL, 10, 50, 60, 20
    GRAPHICBOX #w.m 0, 0, 780, 460 '§§§§§§§§§§§§§§§§§§
    OPEN "Help" FOR window_nf AS #w
    #w, "TRAPCLOSE [closeHelp]"
     #w.m , "down"
     x=20: y=80
     xx=10 '§§§§§§§§§§§§§§§§§§§§§
  [ret]
     #w.m, "setfocus"
     #w.m, "when characterInput [fetch]"
    wait
[fetch] 'a character was typed!
  key$ = Inkey$ 
  if asc(key$)=13 then
     #w.m, "color red;backcolor white"
     #w.m, "place ";"10";" ";"120";" ;|";var$ 'affichage phrase
  end if
  var$=var$+key$
  #w.m, "place ";x;" ";y;" ;|";key$ 'affichage lettres
  #w.m, "place ";xx;" ";40;" ;|";asc(key$); "..." '§§§§§§§§§§§§§§§
  x=x+15: xx=xx+40 '§§§§§§§§§§§§§§§§§§§§§§§§§§
  goto [ret]
   wait
  [closeHelp]
    CLOSE  #w
    END
 

 
        NOMAINWIN
    WindowWidth = 800 '§§§§§§§§§§§§§§§§§§§§§§
    WindowHeight = 460
    UpperLeftX = (DisplayWidth-WindowWidth)-200
    UpperLeftY = 20 ' (DisplayHeight-WindowHeight)
   ' BUTTON #w.go, "Change", [go], UL, 10, 50, 60, 20
    GRAPHICBOX #w.m 0, 0, 780, 460 '§§§§§§§§§§§§§§§§§§
    OPEN "Help" FOR window_nf AS #w
    #w, "TRAPCLOSE [closeHelp]"
     #w.m , "down"
     dim trans$(2,27) '----on déclare le tableau (qui commence à 0)
     base$=".- ... -.-. -.. . ..-. --. .... .. "+_ 'le + aditionne les chaines
     ".--- -.- .-.. -- -. --- .--. --.- .-. ... "+_ 'le _ passe le reste à la ligne suivante
     "- ..- ...- -..- -..- -.-- --.."
     alpha$="a b c d e f g h i j k l m n o p q r s t u v w x y z"
     for a=1 to 27 '-----on mets tout ça en tableau
        trans$(2,a)= word$(base$,a)
        trans$(1,a)= word$(alpha$,a)
     next a
    '---------
    for b=1 to 26
       print trans$(1,b); "******";trans$(2,b)
    next b
    '----------

     x=20: y=80
     xx=10 '§§§§§§§§§§§§§§§§§§§§§
  [ret]
     #w.m, "setfocus"
     #w.m, "when characterInput [fetch]"
    wait
[fetch] 'a character was typed!
  key$ = Inkey$ 
  if asc(key$)=13 then
     #w.m, "color red;backcolor white"
     #w.m, "place ";"10";" ";"160";" ;|";var$ 'affichage phrase
  end if
  var$=var$+key$
  #w.m, "color black;backcolor white"
  #w.m, "place ";x;" ";y;" ;|";key$ 'affichage lettres
  #w.m, "place ";xx;" ";40;" ;|";asc(key$); "..." '§§§§§§§§§§§§§§§
  x=x+15: xx=xx+40 '§§§§§§§§§§§§§§§§§§§§§§§§§§
  for b=1 to 26 '---On va tester quelle lettre du tableau
     if key$=trans$(1,b) then
        #w.m, "color red;backcolor white"
        #w.m, "place ";xxa;" ";"120";" ;|";trans$(2,b)
        xxa=xxa+30
     end if
  next b
 
  goto [ret]
   wait
  [closeHelp]
    CLOSE  #w
    END