'test exit for et bouton

    WindowWidth = 200
    WindowHeight = 270
 
    'pour tester l'exit : 0=pas d'exit, 1=exit for
    sto=0
 
    'boucle
    debut=0
    fin=10000
    tour$=""
 
    'prépa affichage fenêtre
    statictext #test,"Tour n°",25,10,50,30
    statictext #test,"Boucle",25,50,60,20
    statictext #test,"Début :",35,75,60,20
    statictext #test,"Fin :",35,95,60,20
 
    statictext #test.tr,tour$,75,10,120,50
 
    textbox #test.deb,95,70,50,20
    textbox #test.fin,95,90,50,20
 
    button #test.lancer, "Lancer la boucle", [lancer], UL, 15, 120, 170, 30
    button #test.stop, "Faire l'EXIT FOR", [stop], UL, 15, 160, 170, 30
    button #test.quitter, "Quitter", [quit], UL, 15, 200, 170, 30
 
    'affichage fenêtre
    open "Test EXIT FOR et boutons" for window as #test
 
    'taille d'affichage du tour actuel de la boucle
    print #test.tr,"!font arial 24"
 
    'affichage début et fin de la boucle
    print #test.deb,str$(debut)
    print #test.fin,str$(fin)
 
    wait
 
 
'fin du programme, au cas où...
end
 
 
'******** zone des sous-programmes ********
[lancer]
    print:print "on va lancer la boucle"
 
    'lecture du début et de la fin de la boucle
    print #test.deb,"!contents? deb$"
    print #test.fin,"!contents? fin$"
    deb=val(deb$)
    fin=val(fin$)
 
    'on lance la boucle
    for a=deb to fin
        print a
        print #test.tr,str$(a)
        if sto=1 then exit for
    next
 
    print "fin de boucle"
wait
 
 
[stop]
    print "sto passe à 1"
    sto=1
wait
 
 
[quit]
    print : print "On quitte..."
    close #test
    end
 
 
 

 
     NOMAINWIN
    WindowWidth = 295
    WindowHeight = 290
    UpperLeftX = (DisplayWidth-WindowWidth)-200
    UpperLeftY = 20 ' (DisplayHeight-WindowHeight)
    TEXTBOX #w.testa, 30 , 30, 70, 25
    BUTTON #w.go, "Go !", [go], UL, 120, 30, 40, 20
    TEXTBOX #w.entr, 180, 30, 70, 25
    BUTTON #w.sto, "Stop !", [stop], UL, 20, 70, 40, 20
    TEXTBOX #w.dur, 100, 170, 90, 25
    GRAPHICBOX #w.m 5, 5, 280, 250
    OPEN "Test B" FOR window_nf AS #w
    #w, "TRAPCLOSE [closetest]"
    #w.m , "down"
    #w.m , "fill blue; color yellow; backcolor blue"
    #w.m, "place 180 70": #w.m, "\Entrer"
    #w.m, "place 170 90": #w.m, "\Borne compteur"
     #w.m, "place 90 210": #w.m, "\Entrer temps de pause"
     #w.entr, "10000": #w.dur, "200"
  wait
    [go]
      #w.dur, "!contents? dur$": dur=val(dur$)
      r=0
      #w.entr, "!contents? var$"
    for a=1 to val(var$)
        if sto=1 then sto=0: exit for
       #w.testa, str$(r)
       r=r+1
       gosub [pause]
    next a
  wait
  [stop]
    sto=1
  wait
  [pause]
    timer dur, [temps]
   wait
  [temps]
    timer 0
  return
  wait
  [closetest]
    CLOSE  #w
    END
 

 
 nomainwin
    WindowWidth=500
    WindowHeight=400
    UpperLeftX=INT((DisplayWidth-WindowWidth)/2)
    UpperLeftY=INT((DisplayHeight-WindowHeight)/2)
    freq1=261           'middle C
    freq2=freq1*1.25992'1.25    'major third
    freq3=freq1*1.49831'1.50    'fifth
    freq4=freq1*1.68179'1.6667  'major sixth
    pi=3.14159265
    omega1=2*pi*freq1
    omega2=2*pi*freq2
    omega3=2*pi*freq3
    omega4=2*pi*freq4
    amp=.75   'a number between 0 and 1
    delta=1/11025
    offset=127
    open "wave" for graphics_nf_nsb as #g ' _fs_nsb as #g
    #g "down ; trapclose [QUIT]"
    for t = 0 to .5 step delta
        sample=amp/2*sin(omega1*t)    'freq1
        x=DisplayWidth*t
        y=sample*offset
        print sample, y+offset
        data$=data$;chr$(int(y+offset))
        '#g "goto ";x;" ";y+offset
    next t
    for t = 0 to .5 step delta
        sample=amp/4*sin(omega1*t)+amp/3*sin(omega2*t)  '1 and 2
        x=DisplayWidth*t
        y=sample*offset
        print sample, y+offset
        data$=data$;chr$(int(y+offset))
        '#g "goto ";x;" ";y+offset
    next t
    for t = 0 to .5 step delta
        sample=amp/4*sin(omega1*t)+amp/4*sin(omega2*t)+amp/3*sin(omega3*t)  '1, 2 and 3
        x=DisplayWidth*t
        y=sample*offset
        print sample, y+offset
        data$=data$;chr$(int(y+offset))
        '#g "goto ";x;" ";y+offset
    next t
    #g "fill white"
    #g "color blue ; place 0 ";yOffset+1;" ; goto ";DisplayWidth;" ";yOffset+1
    #g "color red ; place 0 ";yOffset+127;" ; goto ";DisplayWidth;" ";yOffset+127
    #g "color blue ; place 0 ";yOffset+255;" ; goto ";DisplayWidth;" ";yOffset+255
    #g "color black ; place 0 ";127+yOffset
    flag=0
    for t = 0 to 2 step delta
        if (t>.125  and t<.750) then
            sample=amp/4*sin(omega1*t)+amp/4*sin(omega2*t)+amp/4*sin(omega3*t)+amp/4*sin(omega4*t+t)  'all
        else
            sample=amp/4*sin(omega1*t)+amp/4*sin(omega2*t)+amp/4*sin(omega3*t)  '1, 2 and 3
        end if
        x=DisplayWidth*t
        y=sample*offset
        print sample, y+offset
        data$=data$;chr$(int(y+offset))
        #g "goto ";x;" ";y+offset
    next t
    ChunkID$="RIFF"
    ChunkSize$=makeAsciiNumber$(36+255,4)
    Format$="WAVE"
    SubChunk1ID$="fmt "
    SubChunk1Size$=makeAsciiNumber$(16,4)
    AudioFormat$=makeAsciiNumber$(1,2)
    NumChannels$=makeAsciiNumber$(1,2)
    SampleRate$=makeAsciiNumber$(11025,4)
    ByteRate$=makeAsciiNumber$(11025,4)
    BlockAlign$=makeAsciiNumber$(1,2)
    BitsPerSample$=makeAsciiNumber$(8,2)
    SubChunk2ID$="data"
    SubChunk2Size$=makeAsciiNumber$(len(data$),4)
    wave$=ChunkID$;ChunkSize$;Format$;SubChunk1ID$;SubChunk1Size$;AudioFormat$;NumChannels$;SampleRate$;ByteRate$;BlockAlign$;BitsPerSample$;SubChunk2ID$;SubChunk2Size$
    wave$=wave$;data$
    ChunkID$=mid$(wave$,1,4)    : print "ChunkID$:";ChunkID$ 'should be "RIFF"
    ChunkSize$=mid$(wave$,5,4)
    ChunkSize=bigAsciiNumber(ChunkSize$) : print "ChunkSize$:"; ChunkSize$,"ChunkSize:";ChunkSize,"File length:";len(wave$)
    Format$=mid$(wave$,9,4) : print "Format$:";Format$  'should be "WAVE"
    SubChunk1ID$=mid$(wave$,13,4) : print "SubChunk1ID$:";SubChunk1ID$ 'should be "fmt "
    SubChunk1Size$=mid$(wave$,17,4)
    SubChunk1Size=bigAsciiNumber(SubChunk1Size$) : print "SubChunk1Size$:";SubChunk1Size$,"SubChunk1Size:";SubChunk1Size
    AudioFormat$=mid$(wave$,21,2)
    AudioFormat=bigAsciiNumber(AudioFormat$) : print "AudioFormat$:";AudioFormat$,"AudioFormat:";AudioFormat
    NumChannels$=mid$(wave$,23,2)
    NumChannels=bigAsciiNumber(NumChannels$) : print "NumChannels$:";NumChannels$,"NumChannels:";NumChannels
    SampleRate$=mid$(wave$,25,4)
    SampleRate=bigAsciiNumber(SampleRate$) : print "SampleRate$:";SampleRate$,"SampleRate:";SampleRate
    ByteRate$=mid$(wave$,29,4)
    ByteRate=bigAsciiNumber(ByteRate$) : print "ByteRate$:";ByteRate$,"ByteRate:";ByteRate
    BlockAlign$=mid$(wave$,33,2)
    BlockAlign=bigAsciiNumber(BlockAlign$) : print "BlockAlign$:";BlockAlign$,"BlockAlign:";BlockAlign
    BitsPerSample$=mid$(wave$,35,2)
    BitsPerSample=bigAsciiNumber(BitsPerSample$) : print "BitsPerSample$:";BitsPerSample$,"BitsPerSample:";BitsPerSample
    'data
    SubChunk2ID$=mid$(wave$,37,4) : print "SubChunkID$:";SubChunkID$ 'should be "data"
    SubChunk2Size$=mid$(wave$,41,4)
    SubChunk2Size=bigAsciiNumber(SubChunk2Size$) : print "SubChunk2Size$:";SubChunk2Size$,"SubChunk2Size:";SubChunk2Size
   open "newwave2.wav" for output as #out
    #out wave$
    close #out
    playwave "newwave2.wav"
    kill  "newwave2.wav"
    wait
    [QUIT]
    close #g
    end
    function makeAsciiNumber$(number,length)
        multiplier=256^(length-1)
        for i = length to 1 step -1
            multiplier=256^(i-1) : if multiplier=0 then multiplier=1
            asc=int(number/multiplier)
            number=number-asc*multiplier
            str$=chr$(asc);str$
            'print asc,chr$(asc),asc*multiplier,multiplier,number,,str$
        next i
        makeAsciiNumber$=str$
    end function
    function bigAsciiNumber(str$)
        multiplier=1
        for i = 1 to 4
            token$=mid$(str$,i,1)
            'print token$,asc(token$),asc(token$)*multiplier,multiplier
            num=num+asc(token$)*multiplier
            multiplier=multiplier*256
        next i
        bigAsciiNumber=num
    end function