Magazine Pom's : la collection

3S0 IF MJ • 0 THEN MJ • 1
390 IF TL * T THEN 550
OO REM ••••• FIN DE MOT
410 IF LEN 0 THEN 70
430 IF TL • 0 AND C > 0 TH EN 550
440 1,.19 • " " • WS: IF TL " LEN (1,.1.$1) > LL THE
N 500
460 TWSCI ) • W8 :I • 1 .. l:TL • TL ' LEN (WS>
: IF C • 0 TH EN 120
470 D • O:W • • "": GOTO 520
500 REM ••••• FIN DE LIGNE
510 D - LL - TL
520 GOSUB 1000 :TW.(1) • WS :I • 2:TL 5 L
EN < WS ): T * S: IF C • 0 THEN 120
540 IF LEN (WSl > 0 THEN 470
550 T • 0:1,.1$ . MIO& : NEXT L: IF KI 0 THEN
1150
1120 FOR L • 1 - K1 TO 1 - 1: FOR M 1 TO K
- l:SS • SS .. " ": NEXT ":BS BS " T
1150
1160
1170
1180
1190
0,580,600, 590 1210
560 IF N < 1 THEN 110
570 FOR L • 1 TD H: GOSUS 1000: NEXT
1>0
5S0 GOSUS 1300: GOTO 110
590 T INT « LL LEM (WS)) 1 2):1 1: GO
600 S
Ta 120
N
.,0 T N:TL . N: GOTO 120
900
910
920
930
940
1000
1010
1020
1030
IF TL > 0 THEM D • 0:
ON A GOTO 940,920 ,930
PRINT OS; "PRlfO": GOTO
PRINT OS: "CLOSE" ;NBS
'MD
GOSUB 1000
REM ••••• IMPRESSION D'UNE LI GNE
B9 . .. .. : IF 1 • 1 TH EN 1150
IF T • 0 TH EN 1040
FOR L • 1 TO T:B$ • B$ .. " -- : NEXT :T
°
100 B8 • BS • TW$;: INVERSE : PRINT "1" ::
NORMAL : PRINT TABe 8> :"SUR ECRAN": P
RINT ; PRINT TAse 5> ;: INVERSE : PRIN
T "2":: NORI1AL : PRINT TABe 8>; "SUR 1
MPRII1ANTE"; PRINT : PRINT TABC 5> :; 1
NVERSE : PRIMT "3";; NORMAL : PRINT T
AB ( S>:"SUR DISQUE"
LA GESTION DE FICHIERS
TOUS AZIMUTS.
pour grer
documentation, vos
pour mettre à jour vos
paie de vos employs, etc.
Un programme simple et complet :
NUi" besoin de connaître hnfonnatique;
dfinissez vous m(!me votre ITlOdl!le de
fichier; vous pourrez, à tout moment,
sans avoir à rire les donnœs, ajouter
ou retrancher des rubriques; classez,
lectionnez vos fiches de multiples
fa\Ons, par mots clés ou selon une combi·
nalson de critêres tels que ·égal ·plus
grand que: ·plus petit que: ·diffrent:
·compris entre"; faites loutes sortes de
calculs; corrigez automatiquement une
si'iection de fiches; presentez les informations
de votre choix sous différentes
formes (états, étiquettes) et dans n'im·
porte quel ordre (alphabétique, numéri·
que, chronologique), etc.
'Actuellement en promotion.
Sicob Boutique N°6?
Un programme parfaitement mo·
iIüTalre: eX Base 100 est un des pro·
grammes de ex Système. Si vos besoins
évoluent, vous pourrez, à tout moment,
compléter votre programme et, en parti·
culier, acœder à ex Texte pour un traitement
de texte totalement intégré avec vos
fichiers.
ex Base 100 est un logiciel français déve·
loppt par Controle X. et présenté dans un
coffrel luxueux avee,Nêotron,37, ruede Florence,
1050 Bruxelles) .
f - - - -D EMANDE DE'
1 DOCUMENTATION 1
1
1
Nom
1 Société
1
Adresse ______ _ 1
1
1 l. _ _ _ _ _ _ _
17