j'ai un petit problème

dim i%
for i%= 1 to 5
print "bonjour"
message "i% =" + STR$(i%)
next i%

message "n%="+str$(n%)+" num%="+str$(num%) : stop

 ' radios.bas
DIM nRadios% : nRadios% = 42
DIM Station$(nRadios%) , url$(nRadios%) , Freq$(nRadios%)
DIM url1$ , num% , res% , WB% , n%, aff%, i%
DIM obj% , cont% , dig%(6) , chaine% , but%(4)

LABEL change , exit, what, choice, FinData

DATA "France-Inter"            , "http://www.ecouterradioenligne.com/france-inter/"    , " 87_80"       
DATA "Générations"            , "http://www-ecouterradioenligne.com/generations/"    , " 88_20"
DATA "Nostalgie"              , "http://www.ecouterradioenligne.com/nostalgie/"      , " 90_40"             
DATA "Chante-France"          , "https://www.chantefrance.com/player/"                , " 90_90"
DATA "Contact-Fm"              , "http://www.ecouterradioenligne.com/contact-fm/"      , " 91_40"           
DATA "Cherie-Fm"              , "http://www.ecouterradioenligne.com/cherie/"          , " 91_70"
DATA "France-Musique"          , "http://www.ecouterradioenligne.com/france-musique/"  , " 92_00"   
DATA "france-culture"          , "http://www.ecouterradioenligne.com/france-culture/"  , " 93_50"
DATA "Orient-Fm"              , "http://www.ecouterradioenligne.com/orient/"          , " 94_30"               
DATA "galaxie FM France"      , "http://www.ecouterradioenligne.com/galaxie/"        , " 95_30"   
DATA "Puls Radio"              , "http://www.ecouterradioenligne.com/puls/"            , " 95_40"                 
DATA "Jazz"                    , "http://www.ecouterradioenligne.com/jazz/"            , " 95_70"
DATA "Skyrock"                , "http://www.ecouterradioenligne.com/skyrock/"        , " 96_00"                 
DATA "Voltage"                , "http://www.ecouterradioenligne.com/voltage/"        , " 96_90"
DATA "Rire et chanson"        , "http://www.ecouterradioenligne.com/rire-et-chanson/" , " 97_40" 
DATA  "Metropolys"            , "http://www.ecouterradioenligne.com/metropolys/"      , " 97_60"
DATA "FG DJ Radio"            , "http://www.ecouterradioenligne.com/fg-dj/"          , " 98_20"               
DATA "Vibration FM"            , "http://www.ecouterradioenligne.com/vibration/"      , " 98_70"
DATA "Latina"                  , "http://www.ecouterradioenligne.com/latina/"          , " 99_00"                   
DATA "France Maghreb 2 France" , "http://www.ecouterradioenligne.com/maghreb-2/"      , " 99_50"
DATA "NRJ"                    , "http://www.ecouterradioenligne.com/nrj-france/"      , "100_30"                 
DATA "Alouette France"        , "http://www.ecouterradioenligne.com/alouette/"        , "100_30"
DATA "Fun Radio"              , "http://www.ecouterradioenligne.com/fun/"            , "101_90"                 
DATA "Oui FM"                  , "http://player.ouifm.fr/rock/"                        , "102_30"
DATA "MFM Radio France"        , "http://www.ecouterradioenligne.com/mfm/"            , "102_70"           
DATA "Gold FM"                , "http://www.ecouterradioenligne.com/gold-fm/"        , "103_30"     

ON_ERROR_GOTO FinData
FOR n%=1 TO nRadios% : READ Station$(n%) : READ url$(n%) : READ Freq$(n%) : NEXT n%
FinData:
OFF_ERROR_GOTO

BORDER_HIDE 0 : LEFT 0,5 : TOP 0,5 : HEIGHT 0,105 : WIDTH 0,355 : FONT_SIZE 0,10 : FONT_BOLD 0 : FONT_COLOR 0,0,255,0 : COLOR 0,0,0,0 : obj%=obj%+1

CONTAINER obj% : PARENT obj%,0 : CAPTION obj%," RADIO et FREQUENCE " : LEFT obj%,10 :TOP obj%,7 : WIDTH obj%,310 : HEIGHT obj%,84 : cont%=obj% : obj%=obj%+1

FOR n%=1 to 6                                             
  DIGIT1 obj% : PARENT obj%,cont% : LEFT obj%,(n%*30)-10 : TOP obj%,40 : WIDTH obj%,20 : HEIGHT obj%,34 : COLOR obj%,0,255,0 : CAPTION obj%,"" : dig%(n%)=obj% : obj%=obj%+1
NEXT n%

ALPHA obj% : PARENT obj%,cont% : LEFT obj%,20 : TOP obj%,17 : chaine%=obj% : obj%=obj%+1

FOR n%=1 TO 4 : BUTTON obj% : LEFT obj%,321 : TOP obj%,n%*22-13 : WIDTH obj%,21 : HEIGHT obj%,21 : FONT_SIZE obj%,16 : FONT_BOLD obj% : but%(n%)=obj% : obj%=obj%+1 : NEXT n%
CAPTION but%(1),"+" : ON_CLICK but%(1),change : CAPTION but%(2),"-" : ON_CLICK but%(2),change : CAPTION but%(3),"?" : ON_CLICK but%(3),what : CAPTION but%(4),"X" : ON_CLICK but%(4),exit

DLL_ON "kgf.dll"
WB% = DLL_CALL1("WB_Create",HANDLE(0))
res% = DLL_CALL5("WB_Locate",WB%,10,50,0,0)

TRIGGER_CLICK but%(1)

END

change:
  IF NUMBER_CLICK=but%(1) THEN num%=num%+1 : IF num%=(nRadios%+1) THEN num%=1
  IF NUMBER_CLICK=but%(2) THEN num%=num%-1 : IF num%<1 THEN num%=nRadios%
  FOR n%=LEN(Freq$(num%)) TO 1 STEP -1 : CAPTION dig%(n%),MID$(Freq$(num%),n%,1) : NEXT n%
  CAPTION chaine%,Station$(num%)+" - (Chaine "+STR$(num%)+"/nRadios%)"
  url1$=url$(num%)
  res% = DLL_CALL2("WB_Url",WB%,ADR(url1$))
RETURN

exit:
  TERMINATE
 
what:
  IF OBJECT_EXISTS(99)=0
    form 99
    BORDER_HIDE 99 : LEFT 99,LEFT(0)+WIDTH(0) : TOP 99,TOP(0) : HEIGHT 99,105 : WIDTH 99,200 : FONT_SIZE 99,10 : FONT_BOLD 99 : FONT_COLOR 99,0,255,0 : COLOR 0,0,0,0
    LIST 100 : PARENT 100,99 : FULL_SPACE 100 : COLOR 100,0,0,0 : FONT_COLOR 100,0,255,0
    ON_CLICK 100,choice
    FOR n%=1 TO nRadios%
      ITEM_ADD 100,Station$(n%)
    NEXT n%
    aff% = 1
    RETURN
  END_IF
  IF aff%=1
    HIDE 99
    aff% = 0
  ELSE
    SHOW 99
    aff% = 1
  END_IF 
  RETURN
 
choice:
  num% = ITEM_INDEX(100)
  FOR n%=LEN(Freq$(num%)) TO 1 STEP -1 : CAPTION dig%(n%),MID$(Freq$(num%),n%,1) : NEXT n%
  CAPTION chaine%,Station$(num%)+" - (Chaine "+STR$(num%)+"/nRadios%)"
  url1$=url$(num%)
  res% = DLL_CALL2("WB_Url",WB%,ADR(url1$))
  RETURN