0 GOTO4:REM(C)LOGI'STICK84
1 REM04<¡?¨?z¸Âyé¹ÂyÉÉ0p?y?
xºÂy»ÂÉ0>þÃÉ=çPY0000
4 ON ERROR GOTO9000
5 SCREEN2,2,2:CONSOLE0,16,0,1,1:SCREEN1,1,1:POKE1210,1:GOTO1600
6 IFD>=ZTHENKF=0:IX=0
7 GOTO104
11 RESUMENEXT
12 B$=HEX$(B):XU=2:IFLEN(B$)=3THENXU=1
13 POKEOD,VAL("&H"+RIGHT$(B$,2)):POKEOI,VAL("&H"+LEFT$(B$,XU)):RETURN
15 U$="":FORI=UTOU+79:A$=CHR$(PEEK(I)):IFA$=","THENA$="í"
16 U$=U$+A$:NEXTI:RETURN
17 GOTO10000
18 A$="":FORI=OTOP:IFI>B+H-1THENRETURN
19 A$=A$+CHR$(PEEK(I)):NEXTI:RETURN
20 BEEP9,3 :TT=0:VV=0:GOSUB55:BEEP1,4:RETURN
21 IFE>31THENE=3:F=F+1:IFF>13THENCLS:F=0:CLS:GOSUB50:IFD<HTHENY=B+D+1:X=Y+405:IFX>B+H-1THENX=B+H-1:GOSUB20ELSEGOSUB20
22 LOCATEE,F:PRINTCHR$(129);:RETURN
25 ONERRORGOTO11
26 EX$="ìòñðûöùïýôä":AC$="àኈ‰çå"
27 AD$="423à214á3Š23ˆ1‰412343214ç5å6"+CHR$(44)
28 DATA5,10,16,20,26,28,34,40,44,50:RESTORE28:FORU=1TO10:READA
29 TI$=TI$+CHR$(A):NEXT
30 SCREEN1,1,1:BEEP9,9:CLS:PRINT"0.Sortie    4.Charge1.Saisie    5.Rectif2.Imprime   6.Vrif 3.Sauve     7.New";:ONERRORGOTO11
40 A$=INKEY$:IFA$=""THEN40
46 SCREEN2: A=VAL(A$):IFA>0ANDA<8THENONAGOTO100,340,800,810,4000,1500,7000ELSEIFA=0THENCLS:ENDELSE40
50 SCREEN2,2,2:POKE1210,1:COLOR4,3:LOCATE3,14:PRINT"      -> Memoire :"C"         ";:FORI=0TO14:LOCATE0,I:PRINTUSING"££";I+1:NEXT:LINE(19,0)-(19,186):LINE-(255,186):LOCATE1,15:PRINT" ";: RETURN
55 LOCATE3,TT:IFII=1THENLOCATER,T:TT=T: II=0:VV=R-3
56 PRINTCHR$(PEEK(Y+VV));:VV=VV+1:IFVV+Y>=X+1THEN57ELSEIFVV/29-INT(VV/29)=0THENTT=TT+1:GOTO55ELSE56
57 IFVV/29-INT(VV/29)=0THENTT=TT+1:LOCATE3,TT:RETURNELSERETURN
80 A$="":B$="":FF=408-29*T-R
90 II=R-3:VV=II
91 LOCATER,T
92 PRINT" ";:VV=VV+1:IFVV>FF+IITHENRETURNELSEIFVV/29-INT(VV/29)=0THENT=T+1:R=3:GOTO91ELSE92
100 CLS:BEEP9,9:GOSUB50:POKE1210,1: E=3:F=0:IFH=0THEN103
102 IFG=0THEN103ELSELOCATE3,0:X=B+H-1:Y=X-G+1:GOSUB20:D=H:E=POS(0):F=CSRLIN
103 LOCATEE,F:PRINTCHR$(129);
104 G$=INKEY$:IFG$=""THEN104ELSE  P=ASC(G$):IFP>27ANDP<32ORP=11THEN118
105 IFP=12THEN150
106 GOSUB5000:IFP=13ANDUU=1THEN220ELSEIFP=13THENGOSUB6110:GOTO30
107 IFE<=30THENLOCATEE,F:PRINTG$;CHR$(129); ELSEIFE=31THENLOCATEE,F:PRINTG$;:IFF+1>13THEN108ELSEF=F+1:E=2
108 E=E+1:GOSUB21
110 IFD>=HANDC>0THENC=C-1:H=D+1:G=E-3 ELSEIFD>=HANDC<1THEN117
111  IFUU=1THEN205ELSEPOKEB+D,P:D=D+1:LOCATE20,14:PRINTC;:GOTO104
117 CLS:BEEP9,9:COLOR5,2:LOCATE6,7: PRINT"FICHIERS SATURES !!!":FORI=1TO800:NEXT:GOSUB6110:GOTO30
118 IFUU=1THENIX=IX+1:IFIX=1THENKF=1:Z=D
119 LOCATEE,F:IFD<HTHENPRINTCHR$(PEEK(B+D));ELSEPRINT" ";
120 IFP<>28THEN125
121 IFD>=HTHEN103ELSEO=1:D=D+1:IFE<31THENE=E+1:GOTO103
122 IFF<13THENF=F+1:E=3:GOTO103
123 IFD>HTHEN D=D-O:GOTO103
124 CLS:GOSUB50:F=0:GOSUB138:GOSUB142:GOTO103
125 IFP<>29THEN130
126 D=D-1:O=1:IFE>3THENE=E-1:GOTO103
127 IFF>0THENF=F-1:E=31:GOTO103
128 IFD<0THEND=D+O:GOTO103
129 CLS: GOSUB50:F=13:GOSUB147:GOSUB142:GOTO103
130 IFP<>30THEN135
131 O=29:IFB+D-O<BTHEN103ELSEIFF>0THENF=F-1:D=D-O:GOTO103
132 GOTO128
135 IFP<>31THEN145
136 O=29:IFD+O>HTHEN103ELSEIFF<13THENF=F+1:D=D+O: GOTO103
137 GOTO123
138 Y=B+D:IFO=1THENE=3ELSEY=Y+32-E:D=D+O
139 RETURN
142 X=Y+405:IFX>B+HTHENX=H+B-1
143 GOSUB20:RETURN
145 GOSUB8000:GOTO103
147 Y=B+D:IFO=1THENE=31ELSE Y=Y-E+2:D=D-O
148 Y=Y-405:IFY<BTHENY=B:E=3:F=0:D=0:RETURNELSERETURN
150 COLOR4,5,1:UU=0:G$=INKEY$:BEEP5,1:BEEP9,1:IFG$=CHR$(12)THEN103ELSEIFG$="I"THEN200ELSEIFG$="C"THEN250ELSEIFG$<>"D"THEN150
155 IFD=H-1THEN GOSUB175:IFE+1<32THENLOCATEE+1,F:PRINT" ";:GOTO150ELSELOCATE3,F+1:PRINT" ";:GOTO150
160 IFD>=HTHEN150ELSEOD=1420:OI=1421:W=B:B=W+D:GOSUB12:OD=1423:OI=1424
162 B=W+H-1:GOSUB12:B=W:EXEC1419:GOSUB175:C=C+1:Y=B+D+1:X=Y+31-E:IFF=13THEN170ELSEX=X+(13-F)*29
170 OO=0: IFX>B+HTHENX=B+H-1:OO=1
171 R=E+1:T=F:Y=Y-R+3: IFE=31ANDF=13THEN150ELSEIFE=31THENR=3:T=F+1
173 II=1:GOSUB20:I=POS(0):J=CSRLIN:IFOO=1THENLOCATEI,J:PRINT" ";
174 LOCATE3,14:PRINT" ";:LOCATE20,14:PRINTC;:GOTO150
175 H=H-1:G=G-1:IFG<0THENG=31
176 RETURN
200 KF=0:UU=1:IFC<=0ORD>=HTHEN150
201 R=E+1:T=F:IFE=31ANDF=13THEN103
202 IFR>31THENT=F+1:R=3
203 GOSUB80:GOTO103
205 W=B:OD=1396:OI=1397:B=W+D:GOSUB12:OD=1399:OI=1400:B=W+H:GOSUB12:EXEC1395:B=W:POKEB+D,P:D=D+1:H=H+1:C=C-1:G=G+1:IFG>31THENG=3
208 LOCATE20,14:PRINTC;:GOTO103
220 E=3:F=0:D=0:Y=B:X=Y+405:IFX>B+H-1THENX=B+H-1
221 LOCATE0,0:GOSUB20:GOTO150
250 EK=0:CLS:BEEP9,5:INPUT"Mot a Substituer ";L$:IFL$=""THENGOSUB8000:GOTO150ELSE L=LEN(L$):IFL>75ORL=1THEN250
251 INPUT"Par ";M$:IFM$=""THENGOSUB8000:GOTO150ELSEM=LEN(M$):IFM>75THEN250
252 CLS:BEEP9,9:LOCATE0,7:  PRINT"CORRECTION : (M)ANUELLE / (A)UTO"
253 G$=INKEY$:OK=1:IFG$="A"THENOK=2ELSEIFG$<>"M"THEN253
255 IN=0:CLS:K=B
260 V=0:FORJ=KTOB+H-1:IFPEEK(J)=ASC(LEFT$(L$,1))THENV=1:GOTO264
262 NEXTJ:GOTO300
264 Z=PEEK(J-1):IFJ-1<BTHEN265ELSE IFZ>64ANDZ<91ORZ>96ANDZ<123THENK=J+1:GOTO260
265 FORI=J+1TOJ+L-1:V=V+1:IFPEEK(I)=ASC(MID$(L$,V,1))THENNEXTI:GOTO267ELSEK=J+1:GOTO260
266 K=J+L:GOTO260
267 Z=PEEK(I):IFZ>64ANDZ<91ORZ>96ANDZ<123THEN266
268 IN=IN+1:IFOK=2THEN274ELSE EK=EK+1:BEEP9,4:PRINT"->  "STR$(EK)".(O)UI  ou  (N)ON ?"
272 G$=INKEY$:IFG$="N"THENIN=IN-1:GOTO266ELSEIFG$<>"O"THEN272
274 IFL>MTHEN280ELSEIFL<MTHEN290
275 V=0:FORI=JTOJ+M-1:V=V+1:POKEI,ASC(MID$(M$,V,1)):NEXTI:K=J+M:GOTO260
280 FORI=J+MTOJ+L-1:OD=1420:OI=1421:W=B:B=J:GOSUB12:OD=1423:OI=1424:B=W+H-1:GOSUB12:B=W:EXEC1419:H=H-1:C=C+1:NEXTI:GOTO275
288 GOSUB50:GOTO220
290 FORI=J+LTOJ+M-1:W=B:OD=1396:OI=1397:B=I:GOSUB12:IFC<1THENB=W:GOTO117ELSEOD=1399:OI=1400:B=W+H:GOSUB12:EXEC1395:B=W:H=H+1:C=C-1:NEXTI:GOTO275
300 CLS:R=IN*ABS(L-M):IFL=MTHEN288
301 IFL<MTHENG=G+R:GOTO304ELSEG=G-R
303 IFG<0THENG=G+32:GOTO303ELSE288
304 IFG>31THENG=G-32:GOTO304ELSE288
340 SCREEN6:CLS:BEEP9,9:LOCATE6,2:PRINT"Impression du Texte.":LOCATE6,6:AZ$="":LINE(50,38)-(202,38)
345 PRINT"1/X-710  2/CENTRONIC":LINE(50,86)-(206,86):BEEP4,3
350 G$=INKEY$:IFG$>"0"ANDG$<"3"THENCX=VAL(G$)ELSE350
351 IFH=0THEN30ELSEIFCX=2THENLPRINT:L=1:GOTO355
352 L=5:LPRINT°1,0§CHR$(17);CHR$(18)
353 Z=INSTR(A$,""):SI=0:IFZTHENNN=1:GOTO560
355 SCREEN2,2,2:BEEP9,9:LOCATE6,2: PRINT"Marge a Droite ";:INPUT MD:LOCATE6,5:PRINT"Marge a Gauche ";:INPUTMG
356 SCREEN6: LOCATE6,7: PRINT"Justification  (O/N)":BEEP4,4:LINE(48,96)-(205,96)
357 JU$=INKEY$:IFJU$<>"O"ANDJU$<>"N"THEN357
359 MD=MD*L:MG=MG*L:IFCX=2THENR0=80:L=1:GOTO368
360 IFCX<>2THENLPRINTCHR$(18);"H"
361 X=0:Y=0:T=1:CC=1:SL=0:GR=0:X1=0:X2=0
362 BEEP9,5:LOCATE6,10:PRINT"Sens :  (1 >)  (2 ^)":LINE(48,134)-(205,134)
363 G$=INKEY$:IFG$>"0"ANDG$<"3"THENSC=VAL(G$)ELSE363
364 IFSC=1THENR0=480:IFR0<MG+MD+9THEN355ELSELPRINT"Q0":GOTO368
365 LPRINT"Q1":LPRINT"M460,0":LPRINT"I":BEEP1,2:XX=460
367 SCREEN2,2,2:BEEP1,4:INPUT"Nombre de Colonnes ";CL:SCREEN6: R0=L*CL:IFCL<9ORR0<MG+MD+20THEN367
368 CLS:LOCATE6,7: PRINT".. Soyez patient !!!":LINE(48,97)-(205,97):POKE1210,1: FORI=48TO204STEP2:LINE(127,140)-(I,97):NEXT
369 FORU=BTOB+H-1:ZZ=INT((R0-MG-MD)/L):O=U:P=U+ZZ-1:GOSUB5010
370 CD=0:FORK=1TOLEN(A$):B$=MID$(A$,K,1)
375 IFINSTR("üí",B$)THENCD=CD+2ELSEIFINSTR("ïôýé÷",B$)THENCD=CD+1
380 NEXT:NC=LEN(A$)-CD
385 X1=MG:X2=R0-MD
386 IFX2<0THENX2=460+X2:GOTO386
390 S=INSTR(A$,"é"):IFSTHENX1=X1+(R0-MG-MD-NC*L)/2
391 IFCX=2THENLPRINTSTRING$(X1/L,32);:GOTO405
399 W=1.6:IFSC=2THEN401
400 Y=Y-L*W:LPRINT"M0,"STR$(Y):LPRINT"I":Y=0:X=X1:GOTO405
401 XX=XX-L*W:IFAX=0THENAX=-L*WELSEIFXX<0THENBEEP99,99:GOTO450
402 LPRINT"M"STR$(AX)",0":LPRINT"I":RR=0:AX=-L*W
403 IFSS=1THENSS=0:RETURN
404 Y=0:X=X1-YY
405 RE=Y:FORZ=1TOLEN(A$):B$=MID$(A$,Z,1):IFINSTR("éü÷",B$)THEN500
406 IFB$="õ"THEN420ELSEIFINSTR(AC$,B$)THEN570
407 IFB$="¨"THENB$=" "
408 IFINSTR(EX$,B$)THEN820ELSEIFCX=2THENLPRINTB$;:GOTO420
409 IFSITHENA=X:BB=Y-1:T$="M":GOSUB690:T$="D":A=X+L+2+V:BB=Y-1:GOSUB690
410 T$="M":A=X:BB=Y:GOSUB690:LPRINT"P"B$:IFINKEY$=CHR$(13)THEN30
411 IFGR=0THEN414
412 T$="M":FORV=1TOINT(L/7+.5):A=X+V:BB=Y:GOSUB690:LPRINT"P"B$
413 NEXTV:V=0
414 IFSLTHENA=X:BB=RE-.4*L:T$="M":GOSUB690:T$="D":A=X+L+2+V:BB=RE-.4*L:GOSUB690
415 X=X+L
416 IFX<X2THEN420
417 X=X1:Y=Y-L*W:RE=RE-L*W
418 IFSC=2THENXX=XX-L*W:AX=AX-L*W:IFXX<0THENSS=1:GOSUB401
420 NEXTZ
422 IFCX=2THENLPRINTCHR$(13)
425 NEXTU
430 LPRINTCHR$(17):GOTO30
450 LPRINTCHR$(17):LPRINTCHR$(18);"M460,"-R0:LPRINT"I":LPRINT"Q1"
460 AX=0:XX=460-L*W:LPRINT"I"
470 Y=-L*W:AX=AX-L*W:X=X1:GOTO403
500 IFB$="é"THEN420
505 IFB$=""THENGR=-(GR=0):L=RL+INT(L/7+.5):GOTO420
510 IFB$=""THENSL=-(SL=0):GOTO420
511 IFB$="÷"THENSI=-(SI=0):GOTO420
515 IFB$="ü"THEN530
520 IFB$=""THEN560
525 GOTO420
530 A=VAL(MID$(A$,Z+1,1)):LPRINT"C"A:Z=Z+1:GOTO420
560 A=VAL(MID$(A$,Z+1,1)):Z=Z+1:IFA=0THENA=1
561 IFCX=2THEN568ELSELPRINT"S"A-1
565 RL=ASC(MID$(TI$,A,1)):L=RL:IFNN=0THEN420
567 NN=0:GOTO355
568 IFA=1THENG1=15:L=1:ELSEG1=14:L=2
569 LPRINTCHR$(G1);:GOTO420
570 A=INSTR(AC$,B$)
575 IFA=1ANDA<4THENC$="i":GOTO600
580 IFA>3ANDA<8THENC$="o":GOTO600
585 IFA>7ANDA<12THENC$="a":GOTO600
590 IFA>11ANDA<16THENC$="e":GOTO600
592 IFA>15ANDA<20THENC$="u":GOTO600
594 IFA=20THENC$="n":GOTO600
595 IFA=21THENC$="c":GOTO600
596 IFA=21THENB$=",":GOTO407
600 IFCX=2THENB$=C$:GOTO407
601 A=INSTR(AD$,B$):TA=VAL(MID$(AD$,A+1,1)):B$=C$
606 Q=L/7:ONTAGOTO610,620,630,640,650,660
610 T$="M":A=Q+X:BB=1.2*L+Y:GOSUB690:A=Q+L*.13:BB=1.2*L:GOSUB680
611 BB=BB+L*.13:GOSUB680:A=Q:GOSUB680:BB=L*1.2:GOSUB680
612 T$="M":A=3*Q+X:BB=1.2*L+Y:GOSUB690:A=3*Q+L*.13:BB=1.2*L:GOSUB680
613 BB=BB+L*.13:GOSUB680:A=3*Q:GOSUB680:BB=L*1.2:GOSUB680
614 GOTO410
615 X=X1:Y=0
616 XX=480-L*W:AX=-L*W
620 T$="M":A=Q+X:BB=1.13*L+Y:GOSUB690:A=Q*2:BB=1.4*L:GOSUB680
625 A=Q*4:BB=L*1.13:GOSUB680:GOTO410
630 T$="M":A=Q+X:BB=1.13*L+Y:GOSUB690:A=Q*5:BB=1.4*L:GOSUB680:GOTO410
640 T$="M":A=Q+X+2:BB=1.4*L+Y:GOSUB690:A=Q*5:BB=1.13*L:GOSUB680:GOTO410
650 Q=L/9:T$="M":A=X:BB=Y+1+L*1.13:GOSUB690:A=Q*2:BB=L*1.4:GOSUB680
652 A=Q*4:BB=1.13*L:GOSUB680:A=Q*6:BB=1.4*L:GOSUB680:GOTO410
660 T$="M":A=X+L/3:BB=Y:GOSUB690:A=L/3:BB=-L*.13:GOSUB680
665 A=.6*L:GOSUB680:BB=-L*.4:GOSUB680:A=L/3:GOSUB680:GOTO410
680 IFSC=1THENLPRINT"D"STR$(A+X)","STR$(BB+Y):RETURN
681 LPRINT"D"STR$(BB+Y)","STR$(-A-X):RETURN
690 IFSC=2THENCC=A:A=BB:BB=-CC
695 LPRINTT$STR$(A)","STR$(BB):RETURN
800 SCREEN6:CLS:  LOCATE6,6:BEEP9,3:PRINT"Sauvegarde du Texte.":LINE(48,86)-(205,86):INIT£1,"CASO:":PRINT£1,B,C,G,H:FORU=BTOB+H-1STEP80:GOSUB15:PRINT£1,U$:NEXTU:GOTO30
810 SCREEN6:BEEP2,4:CLS:LOCATE6,6:PRINT"Chargement du Texte.":LINE(48,86)-(205,86): INIT£1,"CASI:":G1=C+H:INPUT£1,B1,G2,G2,H:G2=G1-H:IFG2<1THEN1702ELSEC=G2
812 FORU=0TOH-1STEP80:LINEINPUT£1,U$:GOSUB17:NEXTU:POKEB+C+H-9,0:GOSUB6110:GOTO30
820 A=INSTR(EX$,B$):D=L/2
824 E=-L*.6:T$="M"
825 ONAGOTO830,840,850,860,870,880,890,900,910,920,930,940,950,960
830 A=D:BB=E:GOSUB990:T$="D":BB=D:GOSUB990:A=L:GOSUB990:GOTO415
840 A=D:BB=L:GOSUB990:T$="D":BB=D:GOSUB990:A=L:GOSUB990:GOTO415
850 A=0:BB=D:GOSUB990:T$="D":A=D:GOSUB990:BB=L:GOSUB990:GOTO415
860 A=0:BB=D:GOSUB990:T$="D":A=D:GOSUB990:BB=E:GOSUB990:GOTO415
870 A=D:BB=E:GOSUB990:T$="D":BB=L:GOSUB990:GOTO415
880 A=0:BB=D:GOSUB990:T$="D":A=L:GOSUB990:GOTO415
890 A=D:BB=E:GOSUB990:T$="D":BB=L:GOSUB990
895 T$="M":A=0:BB=D:GOSUB990:T$="D":A=L::GOSUB990:GOTO415
900 Y=RE-L/2-3:GOTO420
910 Y=RE+L/2:GOTO420
920 Y=RE:GOTO420
930 BB=E
935 A=D:GOSUB990:T$="D":BB=D:GOSUB990:GOTO895
940 BB=L:GOTO935
950 A=L
955 BB=D:GOSUB990:T$="D":A=D:GOSUB990:T$="M":GOTO870
960 A=0:GOTO955
990 UU=A:VV=BB:A=A+X:BB=BB+Y:GOSUB690:A=UU:BB=VV:RETURN
1500 SCREEN6:CLS:LOCATE5,6:BEEP9,3:PRINT"Vrification du Texte.":LINE(40,86)-(212,86): INIT£1,"CASI:":INPUT£1,B1,CC,G1,UU:FORU=BTOB+H-1STEP80:GOSUB15:LINEINPUT£1,A$:IFU$=A$THENNEXTU:GOTO30
1520 CLS: LOCATE5,6: PRINT"Sauvegarde incorrecte.":LINE(40,86)-(212,86):  BEEP99,99:FORU=0TO99:NEXTU:GOTO30
1600 CLEAR700:B=24+PEEK(528)+256*PEEK(529):C=B:GOSUB1700:B=PEEK(530)+256*PEEK(531):A=B
1602 B1=C-24:DATA70,84,69,88,84,69,70,0,0,0,0,0,0,0:RESTORE1602:FORI=0TO13:READG1:IFI=7THENI=I+2:NEXTI
1605 POKEB1+I,G1:NEXTI:B=C:C=A-B
1610 IFPEEK(B-9)=255THENGOSUB6130:GOTO26
1615 POKEB-9,255:GOSUB1620:GOTO26
1620 CLS:BEEP9,9:PRINT".Mm.occupe:"H:PRINT".Mm.libre  :"C:G1=H+C:GOSUB1700:PRINT".Mm.totale :"G2-15:INPUT".Modif.mm. ";G1:IFG1<HORG1>G2-15THEN1620
1628 B1=B-17:G1=G1+15:C=G1-H-15:POKEB1+G1-7,0:GOSUB6100:GOSUB6110:RETURN
1700 G2=PEEK(530)+256*PEEK(531)-PEEK(528)-256*PEEK(529):IFG2<30THENCLS:PRINT"  Mmoire fichier","   insuffisante":ENDELSERETURN
4000 SCREEN1,1,1:  GOSUB1620:GOTO30
5000 IFG$>"à"ANDG$<"°"THENP=P+32:G$=CHR$(P):RETURN
5002 IFG$>="a"ANDG$<"é"THENP=P-32:G$=CHR$(P):RETURNELSERETURN
5010 A$=AZ$:I=U-1:I1=0:IFA$=""THEN5015ELSEFORG1=1TOLEN(A$)
5011 IFINSTR("÷ïýéô",MID$(A$,G1,1))THENI1=I1+1
5012 NEXTG1
5015 I=I+1:U=I-1:IFI>B+H-1THENAZ$="":RETURNELSEIFI>P+I1-LEN(AZ$)+1THEN6000
5020 A1$=CHR$(PEEK(I))
5022 IFA1$="ÿ"THENAZ$="":I=I+1:U=I-1:RETURN
5025 A$=A$+A1$:IFINSTR("ü",A1$)THENI1=I1+2
5030 IFINSTR("÷ïýéô",A1$)THENI1=I1+1
5035 GOTO5015
6000 I2=ZZ+I1-1:I3=I2:Z1=PEEK(I-2):Z2=PEEK(I-1)
6001 IFJU$="N"THEN6075
6002 IFINSTR(A$," ")=0THEN6075
6005 AZ$="":IFZ1<>32ANDZ2=32ANDLEN(A$)=ZZTHENRETURN
6010 IFZ1=32THEN6025
6015 I3=I3+1
6016 IFI3=1THENRETURNELSEI3=I3-1:IFMID$(A$,I3,1)<>" "THEN6016
6020 IFI3>2THENI3=I3-1ELSERETURN
6025 I3=I3-1:IFMID$(A$,I3,1)=" "THENIFI3=1THENRETURNELSE6025
6030 J1=I3:J2=I2-J1-1:G1=LEN(A$):I9=0
6035 E1=1:I9=I9+1:IFI9>100THENAZ$="":RETURN
6040 IFJ2=0THEN6070
6045 AZ$=MID$(A$,E1,1)
6046 IFAZ$<>" "THENE1=E1+1:IFE1>=I2THEN6066ELSE6045
6050 A$=LEFT$(A$,E1)+" "+RIGHT$(A$,LEN(A$)-E1):G1=G1+1
6052 IFINSTR(A$,STRING$(ZZ," "))THEN6075
6055 J2=J2-1:IFJ2=<0THEN6070
6060 IFMID$(A$,E1,1)=" "THENE1=E1+1:IFE1=I2THEN6066ELSE6060
6065 GOTO6045
6066 FORJ4=E1+1TOG1:AZ$=MID$(A$,J4,1):IFI2ANDINSTR("÷ïýéô",AZ$)THENI2=I2-1
6067 NEXTJ4:G1=E1:GOTO6035
6070 IFMID$(A$,I2,1)=" "THENJ2=1:GOTO6035
6075 AZ$=RIGHT$(A$,LEN(A$)-I2):A$=LEFT$(A$,I2):I1=LEN(AZ$):I3=1
6080 IFMID$(AZ$,I3,1)=" "THENI3=I3+1:GOTO6080
6085 AZ$=RIGHT$(AZ$,I1-I3+1):RETURN
6100 G1$=RIGHT$("0000"+HEX$(G1),4):POKEB1,VAL("&H"+RIGHT$(G1$,2)):POKEB1+1,VAL("&H"+LEFT$(G1$,2)):B1=B1+2:RETURN
6110 B1=B-8:POKEB1-1,255:G1=C:GOSUB6100:G1=D:GOSUB6100:G1=G:GOSUB6100:G1=H:GOSUB6100:RETURN
6120 G1=PEEK(B1)+PEEK(B1+1)*256:B1=B1+2:RETURN
6130 B1=B-8:GOSUB6120:C=G1:GOSUB6120:D=G1:GOSUB6120:G=G1:GOSUB6120:H=G1:X=B+H-1:Y=X-G+1:RETURN
7000 SCREEN1,1,1:C=C+H:H=0:D=0:E=0:F=0:GOTO1615
8000 CLS:GOSUB50:LOCATE3,0:E=3:F=0:D=0:Y=B:X=B+405:IFX>B+H-1THENX=B+H-1
8005 GOSUB20:LOCATEE,F:PRINTCHR$(129);:RETURN
9000 CLS:BEEP9,9:PRINT"Ce programme est la Version TV du TEXTE  pour CANON X-07 ..":END
10000 FORI=1TOLEN(U$):A$=MID$(U$,I,1):IFA$="í"THENA$=","
10005 POKEB+U-1+I,ASC(A$):NEXTI:RETURN