NOMAINWIN
    mois$ = "Jan Fév Mar Avr Mai Jun Jui Aou Sep Oct Nov Déc"
    today$ = date$("mm/dd/yyyy")
    j = date$(today$)
    jsem$ = word$("Mar Mer Jeu x Ven Sam x Dim Lun",int((j/7-int(j/7))*10)+1)
    date$ = jsem$+" "+mid$(today$,4,2)+" "+word$(mois$, val(today$))+"   "+left$(time$(),5)'right$(today$,4)
    gosub [calcjouran]
    'gosub [calcjoursem]
    '----------------------------- Planning 1 -----------------------
    ncx = 31  'nombre de case en X
    ncy = 24  'nombre de case en Y
     if moisactu$="Avr" or moisactu$="Jun" or moisactu$="Sep" or moisactu$="Nov" then
        ncx=30
     else
        ncx=31
     end if
     if moisactu$="Fév"  then ncx=28 ' y'aura un soucis pour les années bisextiles
    global Xcol,Ycol ' pas utile Lol!
    DIM info$(10,10) 'déclaration des tableaux
    'dim cell(ncx,ncy)
    'dim cell$(ncx,ncy)
    'dim liste$(8)
    dim cell(365,ncy)
    dim cell$(365,ncy)
 
    '***gosub [charge] 'chargement du fichier (mois en cours)
    '***gosub [backup]
    [retourouvre]
    dc = 30  'size of a cell in pixels
    MapWidth = ncx*dc 'Dimensions de la map (relative à N cellules*Dim cellules)
    MapHeight = ncy*dc/2
    WindowWidth = MapWidth+130  'Dimensions de la fenêtre (relative à la map)
    WindowHeight = MapHeight+175
    UpperLeftX = 20 'placement de la fenêtre'''(DisplayWidth-WindowWidth) / 3
    UpperLeftY = 50
   '--------------------------- Fin planning 1 -----------------------
    dim gene(365)
    for x=1 to 365
       gene(x)=x 'mise en tableau (ça peut servir)
    next x
 
    STATICTEXT #w.a, "\|/", 535, 5, 55, 20
    STATICTEXT #w.v, "Vitesse:", 5, 5, 55, 20
    STATICTEXT #w.m, "Mois:", 5, 30, 40, 20
    STATICTEXT #w.ja, "J/An:", 5, 53, 70, 20
    STATICTEXT #w.jm, "J/Mois:", 5, 78, 70, 20
    textbox #w.vit, 65, 5, 30, 20
    BUTTON #w.mv, "-", [moinsv], UL, 100, 5, 20, 20
    BUTTON #w.pv, "+", [plusv], UL, 125, 5, 20, 20
    BUTTON #w.gau, "<<--", [gauche], UL, 220, 5, 40, 20
    BUTTON #w.droi, "-->>", [droite], UL, 270, 5, 40, 20
 
    BUTTON #w.go, "< Go", [gogau], UL, 600, 5, 30, 20
    BUTTON #w.go, "Go >", [godr], UL, 640, 5, 30, 20
    BUTTON #w.sup, "Pas à Pas", [pas], UL, 680, 5, 60, 20
    BUTTON #w.des, "<--Désactive", [desac], UL, 750, 5, 70, 20
    GRAPHICBOX #w.g, 90, 30, 960, 105 '930
    graphicbox #w.map, 90, 136, MapWidth,  MapHeight '*********
    open "  Essai de scrolling..."+space$(20)+date$ for window_nf as #w
     print #w, "trapclose [quit]"  ' Le print est facultatif
     #w.g, "down;fill black"
     #w.map "down; fill black"'*****************
    #w.map "when leftButtonMove [Mark]" '*********
    #w.map "when leftButtonDown [Mark]"'************
    #w.map "when rightButtonMove [supress]"'*********
    #w.map "when rightButtonDown [supress]"'*********
     '------------------------ init var ------------------
     temp=200:v=3
     droi=1:gau=1
     x=0:y=30:xx=0
     a=jouran-15 'centrage du jour actuel
     gosub [nomjoura]'jour "a" au lancement retourne jsa$ et js(le N° d'ordre)
     '-------------------------init graph --------------
     #w.vit,str$(v)
     #w.a, "!font Comic_Sans_MS 12"
     #w.v, "!font Comic_Sans_MS 12":#w.m, "!font Comic_Sans_MS 12"
     #w.ja, "!font Comic_Sans_MS 12":#w.jm, "!font Comic_Sans_MS 12"
     #w.droi, word$("-->> Stop",droi)
     #w.gau, word$("<<-- Stop",gau)
      colsep$="pink" '************
 
     gosub [affiche]
    'gosub [displayopen] '*********
    gosub [grid] '************
    'gosub [boxname]***********
 
  wait
  [droite]
      #w.gau,"!disable"
      droi=droi+1
      if droi=3 then droi=1
      #w.droi, word$("-->> Stop",droi)
    [loopdr]
      if pas=1 then wait
      [godr]
    if droi=1 then #w.gau,"!enable":wait
    a=a+1:k=k+1
    if a+31>365 then a=1 'fin année
    gosub [affiche]
    gosub [pause]
    goto [loopdr]
 
  [gauche]
    #w.droi,"!disable"
    gau=gau+1
    if gau=3 then gau=1
    #w.gau, word$("<<-- Stop",gau)
    [loopgau]
      if pas=1 then wait
      [gogau]
    if gau=1 then #w.droi,"!enable":wait
    a=a-1:k=k-1
    if a<1 then a=334'début année
    gosub [affiche]
    gosub [pause]
    goto [loopgau]
  wait
  [affiche]
    #w.g, "fill black"
     y=40:xx=0
     b=a+31
 
     #w.g, "color yellow;backcolor black"
     #w.g, "place ";xx;" ";y+50'--------aff Jour de la semaine initial
     #w.g, "\";jsa$
    for x=a to b
       #w.g, "place ";xx;" ";y+50'--------aff Jour de la semaine (suivants)
       #w.g, "\";semai$(js)
       gosub [testmoi]
       #w.g, "font courier_new 10 bold" '--------aff Jour de l'Année
       #w.g, "color green;backcolor black"
       #w.g, "place ";xx;" ";y
       #w.g, "\";gene(x)
       #w.g, "color cyan;backcolor black" '------aff Jour du mois
       #w.g, "place ";xx;" ";y+25
       #w.g, "\";jm
 
       js=js+ 1
       if js=8 then js=1
         xx=xx+30
 
      mx=xx-(jm*30) 'determine place MOIS'-------aff Mois...mx=xx-(jm*30)
       #w.g, "font courier_new 12 bold"
       #w.g, "color cyan;backcolor black"
       #w.g, "place ";mx;" ";"15"
       #w.g, "\";m$ 
       #w.g, "font courier_new 10 bold"
 
    next x
    #w.g, "flush;discard"
   ' gosub [dispscroll]
  return
  [dispscroll]
       for y=1 to ncy '----------- placement couleurs
          for x=1 to ncx
             if cell$(x,y)<>"" then col$=cell$(x,y)' double test de ce qu'il y a dans le tableau
             if cell$(x,y)="" then col$="black"    ' et on met le nom de couleur dans la variable col$
             #w.map "backcolor ";col$;" ; color ";col$ 'ici le nom de la couleur est dans la variable col$
             #w.map "place ";(x-1)*dc+2;" ";(y-1)*dc/2+2;"; boxfilled ";(x-1)*dc+dc-1;" ";((y-1)*dc/2)+(dc/2)-1
          next x
       next y
       #w.map "flush;discard"
       ' Note: Le: /2--> because j'avais fait des cases carrées au départ
  return
  [testmoi]
    if x<32 then m$="Janvier  ":jm=x
    if x>31 and x<60 then m$="Février  ":jm=x-31
    if x>59 and x<91 then m$="Mars     ":jm=x-59
    if x>90 and x<121 then m$="Avril    ":jm=x-90
    if x>120 and x<152 then m$="Mai      ":jm=x-120
    if x>151 and x<182 then m$="Juin     ":jm=x-151
    if x>181 and x<213 then m$="Juillet    ":jm=x-181
    if x>212 and x<244 then m$="Aout     ":jm=x-212
    if x>243 and x<274 then m$="Septembre":jm=x-243
    if x>273 and x<305 then m$="Octobre  ":jm=x-273
    if x>304 and x<335 then m$="Novembre ":jm=x-304
    if x>334 and x<366 then m$="Décembre ":jm=x-334
  return
  [calcjouran]
    moi$=word$(date$,3)
    select case moi$
      case "Jan"
      nj=0
      case "Fév"
      nj=31
      case "Mar"
      nj=59
      case "Avr"
      nj=90
      case "Mai"
      nj=120
      case "Jun"
      nj=151
      case "Jui"
      nj=181
      case "Aou"
      nj=212
      case "Sep"
      nj=243
      case "Oct"
      nj=273
      case "Nov"
      nj=304
      case "Déc"
      nj=334
    end select
    jouran=nj+val(word$(date$,2))
    jpointe=nj+mX-5
  return
  [nomjoura]
   k=j-15
   jsa$ = word$("Mar Mer Jeu x Ven Sam x Dim Lun",int((k/7-int(k/7))*10)+1)
    sem$="Lun Mar Mer Jeu Ven Sam Dim"
    for xs=1 to 7
       semai$(xs)=word$(sem$,xs)
    next xs
    for xs=1 to 7
       if jsa$=semai$(xs) then js=xs: exit for'N° d'ordre dans la semaine
    next xs
 return
  '------------------------ flags -----------------------
  [moinsv]
    temp=temp+100:v=v-1
    'if temp > 1000 then temp=1000
    if v < 1 then v=1
    #w.vit,str$(v)
  wait
  [plusv]
    temp=temp-100:v=v+1
    if temp < 50 then temp=50
    if v > 10 then v=10
    #w.vit,str$(v)
  wait
  [pas]
    pas=1
  wait
  [desac]
    pas=0
  wait
  '-----------------------------------------------------
  [pause]
        timer temp, [temps]
        wait
        [temps]
        timer 0
  return
  '----------------------------
  [grid] ' La grille
    #w.map, "color lightgray;backcolor black;size 1"
    xx=5:y=dc/2
    for x=1 to 25
       #w.map, "place ";xx;" ";y
       #w.map, "line ";xx;" ";y;" ";xx+MapWidth;" ";y
       y=y+dc/2
    next x
    xx=0:y=0
    for x=1 to ncx
       #w.map, "place ";xx;" ";y
       #w.map, "line ";xx;" ";y;" ";xx;" ";y+MapHeight
       xx=xx+dc
    next x
        xx=5:y=dc*3 '----------separateur
        #w.map, "color ";colsep$ 
        #w.map, "size 2"
        for x=1 to 8
           #w.map, "line ";xx;" ";y;" ";MapWidth;" ";y
           y=y+dc*3
        next x
    #w.map, "flush;discard" 'rafraîchi l'affichage si couvert/découvert
  return
 
  [Mark] 'on débarque ici quand on clique gauche
        mX = int(MouseX/dc)+1:Xcol=mX 'transformation des coords pixels en coord cellules
        mY = int(MouseY/dc*2)+1:Ycol=mY ' +1 because les tableaux commencent à "O"
        'cell$(mX,mY)=str$(mX)+" "+str$(mY)
        mXX = int(MouseX/dc)
        mYY = int(MouseY/dc*2)
        gosub [calcjouran]
        if mY=1 or mY=4 or mY=7 or mY=10 or mY=13 or mY=16 or mY=19 or mY=22 then goto [blue]
        if mY=2 or mY=5 or mY=8 or mY=11 or mY=14 or mY=17 or mY=20 or mY=23 then goto [red]
        if mY=3 or mY=6 or mY=9 or mY=12 or mY=15 or mY=18 or mY=21 or mY=24 then goto [yellow]
  [blue]
        #w.map "backcolor blue; color blue"
        #w.map "place ";mXX*dc+2;" ";mYY*dc/2+2;"; boxfilled ";mXX*dc+dc-1;" ";(mYY*dc/2)+(dc/2)-1
        cell$(jpointe,Ycol)="blue"'''''''''''''''''''''''''''
        if supr=1 then gosub [suppression]
         #w.map "flush; discard"
    wait
  [red]
        #w.map "backcolor red; color red"
        #w.map "place ";mXX*dc+2;" ";mYY*dc/2+2;"; boxfilled ";mXX*dc+dc-1;" ";(mYY*dc/2)+(dc/2)-1
        cell$(jpointe,Ycol)="red"
        if supr=1 then gosub [suppression]
         #w.map "flush; discard"
    wait
  [yellow]
        #w.map "backcolor yellow; color yellow"
        #w.map "place ";mXX*dc+2;" ";mYY*dc/2+2;"; boxfilled ";mXX*dc+dc-1;" ";(mYY*dc/2)+(dc/2)-1
        cell$(jpointe,Ycol)="yellow"
        if supr=1 then gosub [suppression]
        #w.map "flush"
  wait
  [supress] ' on arrive ici quand on clique droite
        mX = int(MouseX/dc)+1:Xcol=mX 'transformation des coords pixels en coord cellules
        mY = int(MouseY/dc*2)+1:Ycol=mY ' +1 because les tableaux commencent à "O"
        'cell$(mX,mY)=str$(mX)+" "+str$(mY)
        mXX = int(MouseX/dc)
        mYY = int(MouseY/dc*2)
        #w.map "backcolor black; color black"
        #w.map "place ";mXX*dc+2;" ";mYY*dc/2+2;"; boxfilled ";mXX*dc+dc-1;" ";(mYY*dc/2)+(dc/2)-1
        cell$(jpointe,Ycol)=""
         #w.map "flush; discard"
  wait
  wait
  [quit]
    CLOSE #w
    END