Publicité
36 FRINT"5. charger l e r é p e r t o i r e "
37 INPUT"votre choix
38 O N ch GOSÜB 4 0, 9 0 , 1 3 8
39 GOTO 32
40 FOR x = l TO 100
45 CLS
47 F'RlNT"pour a r r ê t e r appuyer LENTERj"
50 INF'UT "nom" ; NÜM$ (x )
55 IF NOM$( x )="" THEN 80
60 INPUT " t é l é p h o n é " ; TEL$ ( x )
70 NEXT
80 PRI NT"entree des données t e r mi née . "
85 RETURN
90 FOR x=l TO 100
95 IF NOM$( x > ="" THEN 120
100 PRINT NOMKx) ; " ";TEL$(x)
110 N E X T
120 PR I NT " -f i n de l i s t e "
125 RETURN
130 INPUT "nom a trouver";RECHERCHE$
140 FOR x = l TO 100
150 IF INSTR(NOM$ (x ) , RECHERCHE!)=0 THEN 180
160 PRINT N0M$ ( x ); " "j TEL* ( x)
170 RETURN
180 NEXT
190 PRINT"ce nom n ' est pas r é p e r t o r i e . "
200 RETURN
RENUM
LIST
10 REM r é p e r t o i r e t él éphoni que
20 DIM N0M$(100)
30 DIM TEL$(100)
40 PRINT"1.
50 PRINT"2.
60 PRINT"3. c onsul t er l e r é p e r t o i r e "
70 PRINT"4. sauvegarder l e r é p e r t o i r e "
80 PRINT"5. charger l e r é p e r t o i r e "
90 I NPUT"votre choix
Chapitre 2 P age 7
(pui s ENTER) "; t h
a j o u t e r un correspondant"
l i s t e r
l es correspondants"
(pui s ENTER) " ; ch
RENUM-
Passons aux ch oses sérieu ses...
Publicité
