Télécharger Imprimer la page

AMSTRAD CPC664 Manuel De L'utilisateur page 93

Publicité

NOM$(x)
55 IF NQM$( x ) = " " THEN 80
80 PRI NT"entree des données t ermi née"
47 PRINT"pour a r r ê t e r appuyer [ENTER]"
90 FOR x=l TO 100
100 PRINT N0M$( x ); " ";TEL$(x>
110 NEXT
95 IF N0M$( x ) = " " THEN 120
120 P RI NT " l i s t e t ermi née"
1 0 0
130 INPUT "nom a t r ouver
140 FOR x=l TO 100
150 IF INSTR(NOM$<x),RECHERCHE$)=0 THEN 180
160 PRINT NOM$<x);" ";TEL$(x)
170 END
180 NEXT
190 PRINT "Ce nom n ' est pas r é p e r t o r i e "
run
Passons aux ch oses sérieu ses...
95
1 1 0
RECHERCHE*
Chapitre 2 Page 4

Publicité

loading