NOMAINWIN
    WindowWidth = 600: WindowHeight = 200
    UpperLeftX = 10: UpperLeftY = 20
    TEXTBOX  #w.a, 20 , 30, 80, 25
    TEXTBOX  #w.b, 110 , 30, 80, 25
    TEXTBOX  #w.c, 200 , 30, 80, 25
    TEXTBOX  #w.d, 290 , 30, 80, 25
    BUTTON #w.go, "EXECUTE", [go], UL, 380, 30, 70, 20
    BUTTON #w.kil, "KILL", [kil], UL, 460, 30, 70, 20
    GRAPHICBOX #w.m 5, 5, WindowWidth-15, WindowHeight-60
    OPEN "Help" FOR window_nf AS #w
    #w, "TRAPCLOSE [closeHelp]"
    #w.m  "down;fill darkpink"
   a=10: b=20: c=50: d=100
    #w.a, str$(a): #w.b, str$(b): #w.c, str$(c): #w.d, str$(d)
    #w.kil, "!disable"
    wait
 [go]
   fold$="doss"
    result = mkdir(fold$)
   #w.a, "!contents? a$"
      open "doss\aa.txt" for output as #f
      ' print #f, a$ 
        close #f
   #w.b, "!contents? b$"
      open "doss\bb.txt" for output as #g
       print #g, b$ 
      close #g
   #w.c, "!contents? c$"
      open "doss\cc.txt"for output as #h
       print #h, c$ 
      close #h
   #w.d, "!contents? d$"
      open "doss\dd.txt" for output as #j
       print #j, d$ 
      close #j
       notice, "Dossier doss créé": goto [got]
     [got] notice, "4 Fichiers dans doss créés"
   #w.kil, "!enable"
 wait
 [kil]
   kill "doss\bb.txt"
   notice, "Le fichier bb.txt a été supprimé dans doss"
  wait
  [closeHelp]
    CLOSE  #w
    END