Publicité
570 MOVE 10,38
580 DRAW 630 ,38 : DRAW 10,38
590 MOVE 14,42
600 DRAW 626 ,42 : DRAW 14,42
610 WINDOW 3 , 3 9 , 6 , 2 5
620
PRINT:PRINT "Aj out er un enreg.
630
PRINT: PRINT "Enlever un enreg.
640 PRINT: PRINT "Retrouver un enreg. p a r t i c u l i e r . . . . R"
650 PR I NT : PR INT "Changer l e nom des champs.....................
660 PRINT: PRINT "Imprimer l es enreg. de d a t a b a s e . . . . ! "
670 PRINT:PRINT "Charger un f i c h i e r .....................................L"
680 PRINT:PRINT " T r i e r l es enreg. par ordre a l p h a b . . T "
690 PRINT:PRINT "Sauvegarder un f i c h i e r ............................S"
700 WINDOW 1 , 4 0 , 1 , 2 5
710
WHILE G $ >"" : G$ = INKEY* : W END
720
WHILE G4 = "" : G$= INKEY$ : W END
730 option = INSTR("AETCRLSI",UPPER$(G$))
Annexe 3 Page 14
vous
: DRAW 10, 330 ,1
: DRAW 14, 326 ,1
: DRAW 630,330
: DRAW 626,326
a da ta bas e................ A"
a da tabase.................E"
Et pour q u elq u es program m es d e plus...
";sp$;
C"
Publicité
