| Code |
:Effecr
:output(3,2,"OPEN OFFICE TI
:output(5,6,"BY G.
:Pause
:Lbl HU
:Effecr
:Menu("open ti","nouveau",AO,"ouvrir",BO,"modifier",FW,"effacer,CO,"a propos",DO,"quitter",81
:LblFW
:Effecr
:Menu("modifier",Chaine1,RJ,chaine4,OK,Chaine7,SL,"retour",HU
:LblSL
:Effecr
:Output(4,1,Chaine9
:Input "ajouter: ",Chaine0
:Chaine9+" "+chaine0->chaine9
:" "->chaine0
:Effecr
:GotoFW
:Lbl OK
:Effecr
:Output(4,1,chaine6
:Input "ajouter: ",chaine0
:chaine6+" "+chaine0->chaine6
:" "->chaine0
:Effecr
:goto FW
:Lbl OK
Effecr
Output(4,1,Chaine6
Input"AJOUTER: ",chaine0
:chaine6+" "+chaine0->chaine6
""->chaine0
:Effecr
:gotoFW
:LblRJ
:Effecr
:Output(4,1,Chaine3
:Input "AJOUTER: ", chaine0
chaine3+" "+chaine0->chaine3
:""->chaine0
:Effecr
:gotoFW
:Lbl C[théta]
:Effecr
:Menu("EFFACER...",chaine1,F[théta],chaine4,G[théta],chaine7,H[théta],"RETOUR",HU
:Lbl F[théta]
:""->chaine1
:""->chaine2
:""->chaine3
:goto C[théta]
:Lbl G[théta]
:""->chaine4
:""->Chaine5
:""->Chaine6
:goto C[théta]
:Lbl H[théta]
:""->Chaine7
:""->chaine8
:""->chaine9
:goto C[théta]
:Lbl D[théta]
:Effecr
:Output(2,1,"OPEN OFFICE TI:
:Output(4,2,"CREATEUR: G.
:Output(6,2,"LE 31/07/16
:Pause
:Goto HU
:Lbl A[théta]
:Effecr
:Menu("EMPLACEMENT",chaine1, I[théta], Chaine4, J[théta], Chaine7, K[théta], :"RETOUR", HU
:Lbl K[théta]
:Input "NOM: ", Chaine7
:Effecr
:Input "", Chaine8
:Effecr
:Menu("ENREGISTRER?","OUI", L[théta],"NON", M[théta]
:Lbl M[théta]
:Effecr
:""->Chaine7
:""->Chaine8
:Goto HU
:Lbl L[théta]
:Effecr
:Chaine7+": "+chaine8->Chaine9
:Goto HU
:Lbl J[théta]
:Input "NOM: ", chaine4
EffecrInput "", chaine5
Effecr
Menu("ENREGISTRER","OUI", N[théta],"NON", O[théta]
Lbl O[théta]
Effecr
""->chaine4
""->chaine5
goto HU
Lbl N[théta]
Effecr
Chaine4+": "+chaine5->chaine6
Goto HU
Lbl I[théta]
Input "NOM: ", chaine1
Effecr
Input "", chaine2
Effecr
Menu("ENREGISTRER?","OUI", P[théta],"NON", Q[théta]
LblQ[théta]
Effecr
""->chaine1
""->chaine2
""->chaine3
Goto HU
LblP[théta]
Effecr
|
LA SUITE PLUS TARD :/
|
