__________________Lecon n14 : Etudions un programme___________________

Voici mon programme du bonto que je vais vous eexpliquer entirement, essayer de suivre jusqu'au bout, vous devriez comprendre.
c'est parti...


::1000->F                       ; stocke 100 dans F, les deuxime 2 points permettent au programme d'tre dtecter par un systme d'exploitation asm
:Lbl H                          ; label H
:ClrDraw                        ; efface le graphique
:Vertical 1                     ; trace une verticale d'abscisse 1
:Vertical 2                     ; d'abscisse 2
:Vertical 94                    ; 94 
:Vertical 95                    ; 95
:Horizontal 1                   ; trace une horizontale d'ordonne 1
:Horizontal 2                   ; d'ordonne 2
:Horizontal 62                  ; 62
:Horizontal 63                  ; 63
:Line(6,15,31,15                ; trace une ligne
:Line(31,15,31,48               ; idem
:Line(31,48,6,48     
:Line(6,48,6,15
:Line(35,15,60,15
:Line(60,15,60,48
:Line(60,48,35,48
:Line(35,48,35,15
:Line(64,15,89,15
:Line(89,15,89,48
:Line(89,48,64,48
:Line(64,48,64,15
:For(X,1,300                    ; dpart de boucle For, ici c'est une tempo car il n'y a rienr entre For et End
:End                            ; fin de boucle
:Text(3,25,"* LE  BONTO *       ; crit sur l'cran graphique
:Text(17,8,1                    ; idem
:Text(17,37,2
:Text(17,66,3
:For(X,1,800                    ; boucle For, nouvelle tempo
:End                            ; fin de boucle
:Lbl 9                          ; label 9
:ClrHome                        ; efface l'cran
:Disp "VOUS CHOISISSEZ","LA CARTE:     ; affihe ce qui se trouve entre les guillemets
:Input "N",B                   ; saisie d'un nombre, utilisation de la variable B
:If B<1 or B>3                  ; si B est infrieur  1 ou suprieur  3
:Goto 9                         ; aller au label 9
:Disp "","VOUS AVEZ:            ; affiche le texte entre guillemets, les 2 premiers guillemets permettent de sauter une ligne
:Output(5,11,F                  ; affiche la valeur de F  la ligne 5 et  partir de la colonne 11
:Output(5,16,"F                 ;  partir de la colonne 16
:Disp "VOUS MISEZ:              ; affiche le texte  la ligne suivante
:Input Q                        ; demande une saisie, utilise Q
:If Q<=0 or Q>F                 ; si Q infrieur ou gale  0 ou suprieur  F (ne tapez pas <= mais le signe infrieur ou gal)
:Goto 9                         ; aller au label 9
:randInt(1,3->L                 ; gnre un nombre entier alatoire entre 1 et 3 et le stocke dans L
:Lbl X                          ; label X
:For(X,1,300                    ; nouvelle tempo     
:End                            ; fin de boucle
:Text(52,36,"*                  ; affiche une toile sur le graphisme
:For(X,1,300                    ; nouvelle tempo 
:End                            ; fin de boucle
:Text(52,36,"     ")            ; efface l'toile
:Text(52,44,"*                  ; affiche une autre toile
:For(X,1,300                    ; tempo
:End                            ; fin de boucle
:Text(52,44,"     ")            ; efface l'toile 
:Text(52,52,"*                  ; nouvelle toile
:For(X,1,300                    ; tempo
:End                            ; fin de boucle
:Text(52,52,"     ")            ; efface l'toile          
:If L=1                         ; si L=1
:Then                           ; alors
:Line(9,37,28,18                ; trace une ligne
:Line(9,18,28,37
:Goto R                         ; va au label R
:End                            ; fin de boucle if
:If L=2                         ; si L=2
:Then                           ; alors
:Line(38,37,57,18               ; trace une ligne
:Line(38,18,57,37
:Goto R                         ; va au label R
:End                            ; fin de boucle if
:If L=3                         ; si L=3
:Then                           ; alors
:Line(67,37,86,18               ; trace une ligne
:Line(67,18,86,37
:End                            ; fin de boucle if
:Lbl R                          ; label R
:Pause                          ; pause, attend que ENTER soit press
:ClrHome                        ; efface l'cran
:If B=L                         ; si B=L
:Then                           ; alors
:2Q+F->F                        ; 2Q+F stocke F
:Output(1,1,"<+ LE BONTO +>   ; affiche le texte
:Output(2,5,"--------
:Output(4,1,"VOUS AVEZ
:Output(5,11,F
:Output(5,16,"F
:Output(7,1,"BONNE  CHANCE !!
:Pause                          ; pause
:Goto H                         ; va au label H
:Else                           ; autrement
:ClrHome                        ; efface l'cran
:Output(2,6,B                   ; affiche la valeur de B
:Output(2,8,"=/                 ; affiche le signe diffrent (ne tapez pas =/ mais le signe diffrent) 
:Output(2,10,L                  ; affiche la valeur de L
:Output(4,1,"MAUVAISE PIOCHE!   ; affiche le texte 
:F-Q->F                         ; stocke F-Q dans F
:Output(7,1,"IL VOUS RESTE      ; affiche le texte
:Output(8,11,F
:Output(8,16,"F
:Pause                          ; pause 
:End                            ; fin de boucle if
:If F=0                         ; si F=0
:Then                           ; alors
:ClrHome                        ; efface l'cran
:Output(4,1,"VOUS ETES RUINE.   ; affiche le texte
:Pause                          ; pause
:ClrDraw                        ; efface l'cran graphique
:ClrHome                        ; efface l'cran texte
:Stop                           ; arrte le programme
:End                            ; fin de la boucle if (obligatoire mme si vous avez mis Stop avant !)
:Goto H                         ; va au label H

Voil, relativement simple. Vous avez surement compris que la variable B correspond  votre choix et que la variable L correspond  l rponse.
Amusez vous  modifier ce programme pour comprendre les fonctions que vous n'avez pa	s compris (vous verrez  qoui sert telle ou telle ligne) mais je pense avoir tout expliquer. Ne diffusez pas mon programme avec vos modifications !! Merci.
C'est ainsi que ce termine mes premires leons pour la programmation en basic sur TI-83, si vous voulez avoir des leons sur des commandes spcifiques, envoyer moi un petit e-mail (Telesphore@ifrance.com) J'aimerai bien aussi un petit e-mail pour me remercier du travail de toutes ces leons et j'espre qu'elles vous ont t bnfiques.
Il y aura peut-tre des leons plus pousses sur le basic dans le futur. 
Sur ceux je vous laisse  votre programmation et n'hsitez pas  m'envoyer vos programmes, je les ajouterai avec plaisir sur mon site (http://www.ifrance.com/Telesphore)

Termin le 05/09/1999