Gloups! What is going on ?

[honky]

To see, click x 5 on "Down".
Click x 3 on "Up".

Why 70 80 90 appear after "6"?

Thank you for.


    NOMAINWIN
    mapw=800: maph= 440
   WindowWidth=mapw+15: WindowHeight=maph+95
   UpperLeftX = 10: UpperLeftY = 10
   BUTTON #w.a, "Down", [down], UL, 350, 20, 60, 25
   BUTTON #w.b, "Up", [up], UL, 440, 20, 60, 25
  GRAPHICBOX #w.g, 5, 55, mapw, maph
   OPEN "Help" FOR window_nf AS #w
   #w, "TRAPCLOSE [closeHelp]"
   #w.g, "down;fill darkpink;color white;backcolor darkpink"
   #w.a, "!font courrier 12 bold": #w.b, "!font courrier 12 bold"
  ' open "données.txt" for input as #g
    '  while eof(#g)=0
    '  n=n+1: line input #g, donn$
    '  if donn$="" then n=n-1: goto [passa]
    '  [passa]
    '  wend
   ' close #g
   n=34
    dim list$(n+1): dim aff$(n+1) ':n=0
  ' open "données.txt" for input as #g
    '  while eof(#g)=0
    '  n=n+1: line input #g, donn$
    '  if donn$="" then n=n-1: goto [passb]
   '   list$(n)=donn$
   '   [passb]
   '   wend
  '  close #g
  for x=1 to n
    list$(x)=str$(x);" ";str$(x);" ";str$(x);" ";str$(x);" ";str$(x);" ";str$(x);" ";str$(x)
  next x
   xx=10: yy=30: a=1
 [ret]
   yy=30
   #w.g, "color white;backcolor darkpink"
   for x=a to n
      #w.g, "place ";xx;" ";yy: #w.g, "\ ";str$(x)
     #w.g, "place ";xx+25;" ";yy: #w.g, "\ ";word$(list$(x),1)
     #w.g, "place ";xx+280;" ";yy: #w.g, "\ ";word$(list$(x),2)
     #w.g, "place ";xx+400;" ";yy: #w.g, "\ ";word$(list$(x),3)
     #w.g, "place ";xx+450;" ";yy: #w.g, "\ ";word$(list$(x),4)
     #w.g, "place ";xx+500;" ";yy: #w.g, "\ ";word$(list$(x),5)
     #w.g, "place ";xx+550;" ";yy: #w.g, "\ ";word$(list$(x),6)
     #w.g, "place ";xx+600;" ";yy: #w.g, "\ ";word$(list$(x),7)
     yy=yy+20
   next x
   #w.g, "flush"
  wait
 [down]
  ' #w.g, "color darkpink": #w.g, "place 5 5": #w.g, "boxfilled 700 435"
   a=a+1
   print " a ";a'**********************
   if a>n-20 then a=a-1
   goto [ret]
 wait
 [up]
   a=a-1
   if a<1 then a=a+1
   goto [ret]
 wait
 [closeHelp]
   CLOSE  #w
   END


[/code]
[/div]

[plus]

you are printing over a place that had double digits ending in 0 is my hypothesis. easy to test that, b back in a moment, stay tuned...


yeah something like that, something is alittle off in alignments but a simple clear before each screen gets rid of the worst!

    NOMAINWIN
    mapw=800: maph= 440
   WindowWidth=mapw+15: WindowHeight=maph+95
   UpperLeftX = 10: UpperLeftY = 10
   BUTTON #w.a, "Down", [down], UL, 350, 20, 60, 25
   BUTTON #w.b, "Up", [up], UL, 440, 20, 60, 25
  GRAPHICBOX #w.g, 5, 55, mapw, maph
   OPEN "Help" FOR window_nf AS #w
   #w, "TRAPCLOSE [closeHelp]"
   #w.g, "down;fill darkpink;color white;backcolor darkpink"
   #w.a, "!font courrier 12 bold": #w.b, "!font courrier 12 bold"
  ' open "données.txt" for input as #g
    '  while eof(#g)=0
    '  n=n+1: line input #g, donn$
    '  if donn$="" then n=n-1: goto [passa]
    '  [passa]
    '  wend
   ' close #g
   n=34
    dim list$(n+1): dim aff$(n+1) ':n=0
  ' open "données.txt" for input as #g
    '  while eof(#g)=0
    '  n=n+1: line input #g, donn$
    '  if donn$="" then n=n-1: goto [passb]
   '   list$(n)=donn$
   '   [passb]
   '   wend
  '  close #g

  for x=1 to n
    list$(x)=str$(x);" ";str$(x);" ";str$(x);" ";str$(x);" ";str$(x);" ";str$(x);" ";str$(x)
  next x
   xx=10: yy=30: a=1
 [ret]
   yy=30
   #w.g, "down;fill darkpink;color white;backcolor darkpink"
   for x=a to n
      #w.g, "place ";xx;" ";yy: #w.g, "\ ";str$(x)
     #w.g, "place ";xx+25;" ";yy: #w.g, "\ ";word$(list$(x),1)
     #w.g, "place ";xx+280;" ";yy: #w.g, "\ ";word$(list$(x),2)
     #w.g, "place ";xx+400;" ";yy: #w.g, "\ ";word$(list$(x),3)
     #w.g, "place ";xx+450;" ";yy: #w.g, "\ ";word$(list$(x),4)
     #w.g, "place ";xx+500;" ";yy: #w.g, "\ ";word$(list$(x),5)
     #w.g, "place ";xx+550;" ";yy: #w.g, "\ ";word$(list$(x),6)
     #w.g, "place ";xx+600;" ";yy: #w.g, "\ ";word$(list$(x),7)
     yy=yy+20
   next x
   #w.g, "flush"
  wait
 [down]
  ' #w.g, "color darkpink": #w.g, "place 5 5": #w.g, "boxfilled 700 435"
   a=a+1
   print " a ";a'**********************
   if a>n-20 then a=a-1
   goto [ret]
 wait
 [up]
   a=a-1
   if a<1 then a=a+1
   goto [ret]
 wait
 [closeHelp]
   CLOSE  #w
   END


b = b + ...

[honky]

But yes, that I am stupid.
Thanks.

[plus]

I hate when people say they are stupid, that is a stupid thing to say ie what good does it do?

Could just say "OK", because you are! ;-))

I like to say thanks when someone helps me, i think it makes both of us feel good. You got that right! (thumbs up!)

Should I help you again if it just makes you feel stupid? Dang! I will have to think about that. ;-))

b = b + ...

[honky]

I said that I was stupid because I managed this case a hundred times in the past.
There was also a line of erase in the code but not in the right place.
I deserve the whip.

[plus]

LOL!

No you don't, you don't deserve the whip... wait are you French?

I know of some French folks who were into weird stuff, ie Marquis de Sade

b = b + ...

[honky]

I am French but not sado-masochistic.
Sade it was new for the time.
In our days males turn into females and Versa, it even seems that they can be pregnant (dixit EU).
We do not stop progress