Plein de petit prog d'exemple

filedialog "ouvrir un fichier", "*.txt", fileName$
open fileName$ for input as #1
while b = 0
    line input #1, a$
    a=a+1
    b = eof(#1)
    if a = 1000 then exit while
wend
print "le fichier contient "; a; " lignes"
close #1
open fileName$ for input as #1
for x = 1 to 50
    line input #1, a$
    print a$
    next x
end

WindowWidth=200
WindowHeight=200
textbox #1.a, 10,10,100,22
button #1.but, "&ok", [newWindow], UL, 115,10,50,22
open "Exemple de !contents?" for window as #1
f1=1
print #1, "trapclose [quit]"

wait

[newWindow]
print #1.a, "!contents?"
input #1.a, con$
print con$
if con$ = "" then notice "veuiller saisir quelquechose" : wait
WindowWidth=300
WindowHeight=300
statictext #2.a, con$, 10,10,200,22
open "Exemple de !contents? 2" for window as #2
f2=1
print #2, "trapclose [quit2]"
wait
[quit]
if f1=1 then close #1
end
[quit2]
if f2=1 then close #2
wait

WindowWidth = 200 ' je me la longeur de la fenêtre
WindowHeight = 100 ' puis la hauteur
statictext #1.b, "bonjour", 25, 25, 45, 25 ' j'inscris bonjour
button #1.bouton, "&test", [test], LR, 25, 20, 45, 25 ' je met le bouton
open "Bonjour" for window as #1 ' j'ouvre la fenêtre
f1 = 1 ' je met que comme la fenêtre est ouverte, elle égale un.
print "fenêtre 1-->"; f1
wait
[test]
if f1=1 then
    confirm "la 1ere fenêtre est ouverte, voulez vous la fermez?"; Y$
    if Y$ = "yes" then
        if f1=1 then close #1 ' je dit a l'ordinateur que si me fenêtre f1 = 1, elle est donc ouverte, je la ferme
        f1 = 0 ' je n'oublie pas de mensioner que maitenant qu'elle est fermé, la fenêtre f1 = 0
    end if
end if
print "fenêtre 1-->"; f1
WindowWidth = 200 ' je me la longeur de la fenêtre
WindowHeight = 125 ' puis la hauteur
statictext #2.b, "merci", 25, 25, 45, 25 ' j'inscris merci
button #2.bouton, "&quitter", [quitter], LR, 25, 20, 45, 25 ' je met le bouton
open "merci" for window as #2 ' j'ouvre la fenêtre
f2 = 1 'j'inscris que comme je viens d'ouvri la fenêtre, elle = 1
print "fenêtre 2-->"; f2
wait

  [quitter]
    confirm "voulez vous vraiment quitter?"; quitter$
    if quitter$ = "no" then wait
    print "fenêtre 1-->"; f1
    print "fenêtre 2-->"; f2
if f1 = 1 then close #1
if f2 = 1 then close #2
f1 = 0
f2 = 0
print "fenêtre 1-->"; f1
print "fenêtre 2-->"; f2
end

open "hello world 1.txt" for append as #1 'j'ouvre où je crée le fichier hello world 1.txt
open "hello world 2.txt" for output as #2 'j'ouvre où je crée le fichier hello world 2.txt
print #1, "hello world!!!"                'j'affiche hello world dans le fichier hello world 1.txt
print #2, "hello world!!!"                'j'affiche hello world dans le fichier hello world 2.txt
close #1
close #2
open "hello world 1.txt" for input as #1  'j'ouvre le fichier pour lire dedans
line input #1, ligne$
print ligne$
close #1
print "terminé"
end

    nomainwin
    WindowWidth=800
    WindowHeight=600
    groupbox #1.gp "apptitude", 10,10,100,100
    RADIOBUTTON #1.ext, "Feu", [SetApptitude1], [ResetApptitude1], 20, 30, 150, 22
    RADIOBUTTON #1.ext, "Gel", [SetApptitude2], [ResetApptitude2], 20, 52, 150, 22
    RADIOBUTTON #1.ext, "Foudre", [SetApptitude3], [ResetApptitude3], 20, 74, 150, 22
    textbox #1.app, 200,10,200,22

    open "apptitude" for window as #1
    wait
    [SetApptitude1]
    if app=5 then
        notice "vous avez déjà choisi vos 5 apptitudes"
        wait
    else
        print #1.app, "tu a un sors de Feu"
        app=app+1
    end if
    wait
    [ResetApptitude1]
    [SetApptitude2]
    if app=5 then
        notice "vous avez déjà choisi vos 5 apptitudes"
        wait
    else
        print #1.app, "tu a un sors de Gel"
        app=app+1
    end if
        wait
    [ResetApptitude2]
    [SetApptitude3]
    if app=5 then
        notice "vous avez déjà choisi vos 5 apptitudes"
        wait
    else
        print #1.app, "tu a un sors de Foudre"
        app=app+1
    end if
    wait
    [ResetApptitude3]
wait

Print "exo 1"
print ""
goto [étiquette]    'Je lui dit d'aller a l'étiquette nomé [étiquette]
print "1"          'ça ne l'affichera pas
wait                'ne sert a rien puisqu'il ne sera jamais éxécuter
[étiquette]        'l'Étiquette est la
print "bonjour"

Print"-------------"
Print "exo2"
print ""
goto [étiquette3]    'Je lui dit d'aller a l'étiquette nomé [étiquette3]
[étiquette4]
print "1"          'cette fois-ci, il sera affiché, mais après le bonjour
goto [N3]              'cette fois-ci, il sera éxucuter
[étiquette3]        'l'Étiquette est la
print "bonjour"
goto [étiquette4]
end                'mais lui ne sert plus a rien puisqu'il ne sera jamais éxécuter

[N3]
print "-------------"
Print "exo 3"
print ""
goto [étiquette5]    'Je lui dit d'aller a l'étiquette nomé [étiquette5]
[étiquette6]
print "salut"          'cette fois-ci, il sera affiché, mais après le bonjour
wait                'cette fois-ci, il sera éxucuter
[étiquette5]        'l'Étiquette est la
print "bonjour"
'je te laisse comprendre tout seul
gosub [1b]
gosub [2b]
gosub [3b]
goto [étiquette6]
end                'mais lui ne sert plus a rien puisqu'il ne sera jamais éxécuter
[1b]
print "1"
return
[2b]
print "2"
return
[3b]
print "3"
return

[start]
cls
if x =1 then print "mauvais touche, veuillez réessayer svp."
input "voulez-vous ouvrir (o) ou enregistrer (e) votre fichier-->"; CH$
if instr("Ee", CH$) then [E]
if instr("Oo", CH$) then [O]
x=1
goto [start]
[O]
filedialog "ouvrir un fichier csv...", "*.csv", fileName$
open fileName$ for append as #1
print #1, "bonjour"
print #1, "voila comment écrire dans un fichier externe"
close #1
end
[E]
filedialog "save as ...", "*.csv", fileName$
open fileName$ for append as #1
print #1, "bonjour"
print #1, "voila comment écrire dans un fichier externe"
close #1
end

dim abc$(10)
while a < 10
input "écris quelque chose -->"; abc$(a)
if abc$(a) = "" then exit while
a = a + 1
wend
a = 0
while a < 10
print abc$(a)
a = a + 1
wend
end