0 GOTO5:REM(C)LOGI'STICK84
1 REM0ð^°<±<z¸Âyé¹ÂyÉÉ0RYxY
xºÂy»ÂÉ0>þÃÉ=çPY0000
5 CONSOLE0,4,0,1,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 FORI=YTOX:PRINTCHR$(PEEK(I));:NEXT:RETURN
21 IFE>19THENE=0:F=F+1:IFF>2THENLOCATE0,3:PRINT"-";:GOTO23
22 RETURN
23 F=2:Y=1:Z=2:GOSUB140:LOCATE0,0:PRINTA$;B$;STRING$(20," ");:LOCATE0,F
24 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 BEEP9,9:CLS:PRINT"0.Sortie    4.Charge";
35 PRINT"1.Saisie    5.Rectif2.Imprime   6.Vrif 3.Sauve     7.New";
40 A$=INKEY$:IFA$=""THEN40
46 IFA$>"0"ANDA$<"8"THENA=VAL(A$):ONAGOTO100,340,800,810,4000,1500,7000
47 IFA$="0"THENCLS:ENDELSE40
100 CLS:BEEP9,9:LOCATE0,3:PRINT"-> Memoire :";C;:IFH=0THEN103
102 IFG=0THENE=0:F=0ELSELOCATE0,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$=""THEN104ELSEP=ASC(G$):IFP>27ANDP<32ORP=11THEN118
105 IFP=12THEN150
106 GOSUB5000:IFP=13ANDUU=1THEN220ELSEIFP=13THENGOSUB6110:GOTO30
107 LOCATEE,F:PRINTG$;CHR$(129);:E=E+1:GOSUB21
108 IFD>=HANDC>0THENC=C-1:H=D+1:G=E ELSEIFD>=HANDC<1THEN117
109 IFUU=1ANDKF=0THEN205ELSEPOKEB+D,P:D=D+1:LOCATE12,3:PRINTC;:GOTO6
117 CLS:BEEP9,9: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<19THENE=E+1:GOTO103
122 IFF<2THENF=F+1:E=0:GOTO103
123 IFD>HTHEN D=D-O:GOTO103
124 Y=1:Z=2:GOSUB140:LOCATE0,0:PRINTA$;B$;:GOSUB138:M=2:F=2:GOSUB142:GOTO103
125 IFP<>29THEN130
126 D=D-1:O=1:IFE>0THENE=E-1:GOTO103
127 IFF>0THENF=F-1:E=19:GOTO103
128 IFD<0THEND=D+O:GOTO103
129 F=0:Y=0:Z=1:GOSUB140:LOCATE0,1:PRINTA$;B$;:GOSUB147:M=0:GOSUB142:GOTO103
130 IFP<>30THEN135
131 O=20:D=D-O:IFF>0THENF=F-1:GOTO103
132 GOTO128
135 IFP<>31THEN145
136 O=20:IFD+O>HTHEN103ELSED=D+O:IFF<2THENF=F+1:GOTO103
137 GOTO123
138 Y=B+D:IFO=1THENE=0ELSEY=Y-E
139 RETURN
140 A$="":B$="":FORI=0TO19:A$=A$+CHR$(SCREEN(I,Y)):B$=B$+CHR$(SCREEN(I,Z))
141 NEXT:RETURN
142 X=Y+19:IFX>B+HTHENX=H+B-1
143 LOCATE0,M:IFM=2THENPRINTSTRING$(20," ");:LOCATE0,M
144 GOSUB20:RETURN
145 GOSUB8000:GOTO103
147 Y=B+D:IFO=1THENY=Y-19:E=19ELSEY=Y-E
148 RETURN
150 UU=0:G$=INKEY$:BEEP5,1:BEEP9,1:IFG$=CHR$(12)THEN103ELSEIFG$="I"THEN200ELSEIFG$="C"THEN250ELSEIFG$<>"D"THEN150
155 IFD=H-1THENGOSUB175: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+19-E:IFF=2THEN170
166 IFF=0THENX=X+40ELSEIFF=1THENX=X+20
170 R=E+1:S=F:IFE=19ANDF=2THEN150
171 IFE=19THENR=0:S=F+1
172 LOCATER,S:IFX>B+HTHENX=B+H-1:PRINTSTRING$(60-S*20-R," ");:LOCATER,S
174 GOSUB20:LOCATE0,3:PRINT"-";:LOCATE12,3:PRINTC;:GOTO150
175 H=H-1:G=G-1:IFG<0THENG=19
176 RETURN
200 KF=0:UU=1:IFC<=0ORD>=HTHEN150
201 R=E+1:T=F:IFE=19ANDF=2THEN103
202 IFR>19THENT=F+1:R=0
203 LOCATER,T:PRINTSTRING$(60-T*20-R," ");:GOTO103
205 W=B:OD=1396:OI=1397:B=W+D:GOSUB12:OD=1399:OI=1400:B=W+H:GOSUB12:EXEC1395
206 B=W:POKEB+D,P:D=D+1:H=H+1:C=C-1:G=G+1:IFG>19THENG=0
208 LOCATE12,3:PRINTC;:GOTO103
220 E=0:F=0:D=0:Y=B:X=Y+59:IFX>B+H-1THENX=B+H-1
221 LOCATE0,0: GOSUB20:GOTO150
250 EK=0:CLS:BEEP1,2:INPUT"Mot a Substituer ";L$:IFL$=""THENGOSUB8000:GOTO150ELSEL=LEN(L$):IFL>75ORL=1THEN250
251 INPUT"Par ";M$:IFM$=""THENGOSUB8000:GOTO150ELSEM=LEN(M$):IFM>75THEN250
252 CLS:BEEP9,9: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=2THEN274ELSEEK=EK+1:BEEP9,4:PRINTSTR$(EK);".(O)UI  /  (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 LOCATE0,3:PRINT"-> Memoire :";C;: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+20:GOTO303ELSE288
304 IFG>19THENG=G-20:GOTO304ELSE288
340 CLS:BEEP9,9:LOCATE5,0:PRINT"Impresssion":LOCATE0,1:AZ$=""
345 PRINT"1/X-710  2/CENTRONIC"
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 CLS:BEEP9,9:INPUT"Marge a Droite ";MD:INPUT"Marge a Gauche ";MG
356 INPUT"Justif.(O/N) ";JU$:MG=MG*L:MD=MD*L
359 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 CLS:BEEP9,5:PRINT"Sens :  (1 >)  (2 ^)"
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 INPUT"Nombre de Colonnes ";CL:R0=L*CL:IFCL<9ORR0<MG+MD+20THEN367
368 PRINT" Soyez patient !!!"
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<0THENBEEP100,100: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";STR$(A):Z=Z+1:GOTO420
560 A=VAL(MID$(A$,Z+1,1)):Z=Z+1:IFA=0THENA=1
561 IFCX=2THEN568ELSELPRINT"S";STR$(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
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 CLS:LOCATE5,0:BEEP9,3:PRINT"Sauvegarde":INIT£1,"CASO:":PRINT£1,B,C,G,H
805 FORU=BTOB+H-1STEP80:GOSUB15:PRINT£1,U$:NEXTU:GOTO30
810 CLS:BEEP2,4:LOCATE5,0:PRINT"Chargement":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 CLS:LOCATE5,0:BEEP9,3:PRINT"Vrification:":INIT£1,"CASI:":INPUT£1,B1,CC,G1,UU
1510 FORU=BTOB+H-1STEP80:GOSUB15:LINEINPUT£1,A$:IFU$<>A$THEN1520
1515 NEXTU:GOTO30
1520 PRINT"Sauvegarde incorrecte":BEEP100,100:FORU=0TO100:NEXTU:GOTO30
1600 CLEAR400: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 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 C=C+H:H=0:D=0:E=0:F=0:GOTO1615
8000 CLS:LOCATE0,3:PRINT"-> Memoire :";C;:LOCATE0,0:E=0:F=0:D=0:Y=B:X=B+59:IFX>B+H-1THENX=B+H-1
8005 GOSUB20:LOCATEE,F:PRINTCHR$(129);:RETURN
10000 FORI=1TOLEN(U$):A$=MID$(U$,I,1):IFA$="í"THENA$=","
10005 POKEB+U-1+I,ASC(A$):NEXTI:RETURN