You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
16<br />
LA DERNIERE": RINT TAB( 13);"LIGNE (<br />
Pl: "COURANTE<br />
PAR CHAINE ,": GOTO 200<br />
'3'3'30 PRINT INVERSE : PRINT "Q" ;: NORMAL :<br />
RIHT TAS( 4); ..... SANDON DE L'EDITION ,"<br />
: GOTO 200<br />
10 REl"I<br />
20 REI'I<br />
30 ML ..<br />
40 LL ..<br />
'0 CT'<br />
••••• COI"IPOSITEUR DE TEXTE COI"IPOS<br />
••••• G . HISLEUR<br />
66: REt'l NeRE DE LIGNES PAR PAGE<br />
75: REl"I NB DE C"'RACTERES PAR LIGNE<br />
NOE ()<br />
CHRS ('33): REl"I INDICATEUR OE COl"lt'lA<br />
60 11'1' .. .. fit": REI'I INDICATEUR DE l'IAJUSCULE<br />
65 O . .. CHR_ (4) : DII"I TW'(40) , SOURCE. (1000l :<br />
COTO 1500<br />
70 REI'I ••••• RECHERCHE DE CARACTERE<br />
80 IF IX .. MAX THEN '300<br />
85 IF IC ) LEN (SOURCE' THEM 300<br />
290 NEXT : PRINT "ERREUR TEXTE SOURCE": PRIM<br />
T "LIGNE ":IX: PRINT : PRINT SOURCES (I<br />
XI: GOTO '310<br />
300 ON C COTO 350,350,380,350,380,310, 230<br />
310 C • 2:N .. 0: COTO 380<br />
350 caSUB 80: IF LS : OR L_ " CHRS (13)<br />
THEN 360<br />
355 N_ .. NS . L_: COTO 350<br />
360 IF LEN