T0z1:p=300;22 d=18 sty=gras cf=20,20,20 cc=0,255,0 t= les éléments interactifs ont ici un fond vert ! T0z2:p=300;40 d=14 sty=italique cf=blanc cc=bleu t=(exercice= ajouter: rentabilite.txt) ! P1:p=40;50 VU_N ! $V1ixlst: type=nombre(1,0,22) ! $V1list: type=liste(saisie1.gp0~saisie2.gp0~bolide.gp0~fleur.gp0~film.gp0~algebra.gp0,25,3) ! T1list:p=P1.x+50;P1.y d=18 cf=20,222,20 cc=220,10,20 t= liste de scripts GAMIN ! B1liste: frm=T1list CLICK=gm1.saisir(25,1,$V1list,ERR[STATUT&MODOP],$V1ixlst) ! R2:p1=P1.x-9;P1.y+9 dM=500;28 cc=180,0,180 cf=230,230,0,0.6,Ss ! E2add:p1=P1.x+260;P1.y+12 dM=70;24 cc=20,200,70 cf=20,222,20,0.7,Ss ! T2add:p=P1.x+270;P1.y+25 d=16 cc=0,20,220 t=ajouter ! G2del:cc=20,200,70 cf=20,222,20,0.7,Ss pts=_P1.x+360;P1.y+35! e-7!_88;0| e5!_0;-24| e-9!_-88;0| e-5!_0;24| &# T2del:p=P1.x+370;P1.y+25 d=16 cc=0,20,220 t=supprimer ! $V2nom: type=texte($V1list.selObj|script.gp0,25) # T2nom:p=P1.x;P1.y+30 d=18 cc=220,10,20 cf=20,222,20 t=$V2nom # B1nom: frm=T2nom CLICK=gm1.saisir(25,1,$V2nom,ERR[STATUT&MODOP]) ! A0x:p=25;5 bo=-20;400 va=-10 ! A0y:p=5;10 or=1 bo=-20;500 va=-10 ! T9txt:p=P1.x+A0x.va*-1;P1.y+A0y.va*-1+60 cc=gris d=12 vu=/P1.vu f=$V2nom t=$V2nom # $V4cmd: type=nombre(0,0,3) ! B4ajou: frm=E2add CLICK=gm1.faire($V4cmd.v=1,ERR[STATUT]) ! CMD4a0: #-> ?=($V4cmd=1) # CMD4a1: # $V1list.Plus(T2nom.t) # CMD4a3: # $V4cmd.v=0 # CMD4a4: #<- ?=(NON) # B4del: frm=G2del CLICK=gm1.faire($V4cmd.v=2,ERR[MODOP]) ! CMD4b0: #-> ?=($V4cmd=2) # CMD4b3: # $V1list.Moins($V1ixlst) # CMD4b5: # $V4cmd.v=0 # CMD4b6: #<- ?=(NON) #