0 GOTO3:REM(C) LOGI'STICK 84
1 REM!Y?>¾£ÃºT§b
£
¾Âu
þÝ£>¾Ê¡>ÿ¾Ê¡Ã+z2Ãé2Äù2Åè2Æ>2¸ÉÝõ?ùÃ1
ÝÝ?Y?vÝK?ö?>ÿxºÒÚÃÎy»ÐÃÎk?‰?!X?£
wxºÚéy»ÚéÉÝÝp??!?+
wxºÂy»ÂÉYþÊ£Ã!b

þÊ>þʼ
w£é2Ã(x2y2É>2MÉÝY?
þÊçÃ!b

þÊ·þÊÀÃÿÿÿ
2 REM ÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝ
3 GOTO10:REMÊGþÊGþÿÊGÃ4ÝOISEAUÝÝ+ù2Åè2Æã¨þã¨þÿÃ
4 CLS:BEEP4,2:RETURN
5 U$=U$+CHR$(PEEK(TU)):RETURN
6 GOSUB4:LOCATE0,1:PRINT"****** Fiche. ******":RETURN
7 OD=1505:OI=1506:GOSUB19:OD=1508:OI=1509:M=P-1:GOSUB19:OD=1511:OI=1512:M=EL:GOSUB19:EXEC1504:RETURN
8 OD=1481:OI=1482:M=P:GOSUB19:OD=1484:OI=1485:M=S+1:GOSUB19:EXEC1480:RETURN
9 GOSUB599:GOSUB598:RETURN
10 CLEAR0:CONSOLE0,4,0,1,1:CONSOLEà1,1,0:CLEAR700:ONERRORGOTO11:O$="ABCDEFGHIJKLMNOPQR":GOTO1000
11 GOSUB4:LOCATE4,1: PRINT"Erreur no"ERR:GOSUB22:IFERL=1030THENRESUME1030ELSERESUME30
12 GOSUB22:GOTO30
13 FF=PEEK(1476)+256*PEEK(1475)-1:RETURN
14 EXEC1897:FORNG=0TOLEN(I$)-1:POKE2658+NG,ASC(MID$(I$,NG+1,1)):NEXTNG:RETURN
15 IT=LEN(I$):IFP+IT>STHEN240ELSEFORNG=1TOIT:POKEP+NG,ASC(MID$(I$,NG,1)):NEXTNG:P=P+NG:RETURN
16 M=DF:OD=1395:OI=1396:GOSUB19:GOSUB14:M=S:OD=1467:OI=1468:GOSUB19:EXEC1394:G=PEEK(1464):IFG=1THEN70
18 X=PEEK(1476)+256*PEEK(1475):Y=PEEK(1478)+256*PEEK(1477):L=Y-X+1:EXEC1666:RETURN
19 M$=HEX$(M):POKEOD,VAL("&H"+RIGHT$(M$,2)):POKEOI,VAL("&H"+LEFT$(M$,LEN(M$)-2)):RETURN
20 IFN=0THEN30ELSERETURN
22 G$=INKEY$:IFG$=CHR$(13)THENRETURNELSEIFG$=CHR$(11)THEN30ELSE22
23 U$="":FORNG=UTOU+249:IFNG>SORNG>YTHENRETURNELSETU=NG:GOSUB5:NEXTNG:RETURN
24 FORI=1TOLEN(U$):POKEP+U-1+I,ASC(MID$(U$,I,1)):NEXTI:RETURN
25 GOSUB4:PRINT"Recherche : (O)(N) ?":RETURN
26 LPRINT°2,0§STRING$(40,45):RETURN
29 IFRU=1ANDI$=""THEN950ELSEIFI$<>""THENRETURN
30 POKES+1,255:POKES+2,0:EXEC1666:GOSUB60:GOSUB4:PRINT"->"O$".Fichiers  :"N:LOCATE0,2:PRINT".RAM libre :"S-P+1:LOCATE0,3:PRINT".Oprez sur: "LEFT$(L$,6);:EXEC1897:GOSUB1110:XY=0:RT=0:KO=0:RU=0:U$="":V$="":AV$="":AP$="":K$="":X$=""
50 G$=INKEY$:FORZ=1TO17:IFMID$(O$,Z,1)=G$THENGOSUB4:ONZGOTO100,150,200,250,300,350,400,450,500,1200,630,660,700,750,800,850,900ELSENEXTZ:IFG$="R"THENGOSUB948:GOTO30ELSE50
60 IFL$<>""THENI$=L$:GOSUB16:RETURNELSEIFP=DFTHENRETURNELSEFORU=DF-7TODF-7+PEEK(DF-1):L$=L$+CHR$(PEEK(U)):NEXTU:RETURN
65 H=LEN(L$):IFH>6THENH=6
66 POKEDF-1,H-1:FORU=1TOH:POKEDF-8+U,ASC(MID$(L$,U,1)):NEXTU:RETURN
68 IFP<=STHENRETURN
69 P=S+1:GOTO240
70 GOSUB4:PRINT"Fichier Inexistant !":GOSUB22:IFHJ=1THENHJ=0:L$="":GOTO30ELSE30
71 AN=0:OD=2473:OI=2474:M=U:GOSUB19:OD=2476:OI=2477:M=Y+1:GOSUB19:EXEC2472:U$="":A=X:B=Y:GOSUB18:FORT=XTOY:TU=T:GOSUB5:NEXTT:X=A:Y=B
72 X$=U$:M=VAL(U$):IFM<>0THENAN=1:RETURNELSEFORA=1TOL:IFMID$(X$,A,1)<>"0"THENRETURNELSENEXTA:AN=1:RETURN
73 GOSUB25
74 RT=0:F$=INKEY$:IFF$=CHR$(11)THEN30ELSEIFF$="O"THENRT=1:RETURNELSEIFF$="N"THENZZ=KX:WW=KY:GOTO665ELSE74
75 GOSUB4:PRINT"Nouveau Nom :";:GOSUB950:B=LEN(I$):RETURN
77 NEXTU:IFRT=1THEN673ELSE30
78 NEXTU:GOTO30
80 FORGF=X+1TOY:A=PEEK(GF):IFA=2ORA=1ORA=255THENA=GF-X-1:RETURNELSENEXTGF:A=Y-X:RETURN
82 OD=2418:OI=2419:M=Y:GOSUB19:OD=2457:OI=2458:GOSUB19:RETURN
84 IFP<>Y+1THENEXEC1530
85 POKEY+1,4:POKEY+2,64:P=P+2:GOTO30
87 IFP<>Y+1THENEXEC1530
88 GOSUB593:GOTO30
90 EXEC2472:U$="":GOSUB18:FORU=XTOY:TU=U:GOSUB5:NEXTU:RETURN
92 IFA>BTHENRETURNELSEIFJ=1THENM=X(4):RETURNELSEIFJ=2THENM=X(3)+A-1:RETURNELSEIFJ=3THENM=X(2)+1:RETURN
97 GOSUB4:PRINTK$" : Mauvais ...":GOTO12
98 OD=2570:OI=2571:M=X+1:GOSUB19:EXEC2569:LD=PEEK(1464):RETURN
100 PRINT"Cration du Fichier:";:GOSUB950:POKEP,1:GOSUB15:J=0:L$=I$:GOSUB65:N=N+1
110 GOSUB4:J=J+1:RU=RU+1:IFJ>254THEN30ELSEPRINT"Rub"J":";:GOSUB950:POKEP,2:GOSUB15:GOTO110
150 GOSUB20:PRINT"Sauvegarde de :";:GOSUB950:GOSUB16:INIT£1,"CASO:":PRINT£1,I$,L:FORU=XTOYSTEP250:GOSUB23:PRINT£1,U$:NEXTU:GOTO30
200 PRINT"Chargement de :";:GOSUB950
210 INIT£1,"CASI:": INPUT£1,K$,L:IFK$<>I$THEN97
215 IFP+L>S+1THEN240ELSEFORU=0TOL-1STEP250:LINEINPUT£1,U$:GOSUB24:NEXTU:P=P+L:L$=K$:GOSUB65:N=N+1:GOTO30
240 GOSUB4:PRINT"RAM Fichier SATUREE!":GOTO12
250 GOSUB20:XY=1:GOSUB400:OD=1736:OI=1737:M=DF:GOSUB19
255 EXEC1735:GOSUB390:GOSUB18:IFD$="X"THENLPRINT°1,0§"Titre : ";U$:LPRINT"Nb d'Octets :";L:LPRINTELSEGOSUB4:PRINT"Titre : ";U$:PRINT"Nb d'Octets :";L:GOSUB22
256 IFPEEK(1613)=1THEN255ELSE30
300 PRINT"RAM Restante :"FRE(0):GOTO12
350 GOSUB945
355 GOSUB6:GOSUB22:GOSUB4:POKE1613,2:IFP<>Y+1THENL=1:GOSUB380
362 GOSUB68:Y=Y+1:POKEY,3:P=P+1:OD=1557:OI=1558:M=X:GOSUB19
365 IFPEEK(1613)=1THEN355ELSEEXEC1556:GOSUB390
370 GOSUB4:PRINTU$" :";:RU=1:GOSUB950:L=LEN(I$)+1:IFP<>Y+1THENGOSUB380
372 GOSUB68:POKEY+1,4:FORU=1TOL-1:F=Y+1+U:IFF>STHEN69ELSEPOKEF,ASC(MID$(I$,U,1)):NEXTU:Y=Y+L:P=P+L:GOTO365
380 OD=1531:OI=1532:M=Y+1:GOSUB19:OD=1534:OI=1535:M=P:GOSUB19:OD=1537:OI=1538:M=P+L:GOSUB19:IFM>S+1THEN240ELSEIFXY=1THENRETURNELSEEXEC1530:RETURN
390 U$="":FORO=2658TO2658+PEEK(1555)-2:TU=O:GOSUB5:NEXTO:RETURN
400 PRINT"Lecture : (E)cran             (X)-710"
410 D$=INKEY$:IFD$=CHR$(11)THEN30ELSEIFD$<>"E"ANDD$<>"X"THEN410ELSE GOSUB945:GOSUB4:IFXY=1THENRETURN
425 PRINT"Fichier ";I$:IFD$="X"THENLPRINT°2,3§I$ELSEGOSUB22
426 GOSUB441
427 OD=1616:OI=1617:GOSUB19:IFXY=1THENRETURN
428 IFPEEK(1613)=3THEN30
429 IFPEEK(1613)=1THENGOSUB441:GOTO428ELSEEXEC1556:GOSUB390:V$=U$:EXEC1615:IFPEEK(1613)=5THEN440ELSEGOSUB390
430 IFD$="X"THENLPRINT°1,0§V$;" : ";U$ELSEGOSUB4:PRINTV$;" : ";U$;:GOSUB22
435 IFXY=1THENRETURNELSE428
440 GOSUB4:PRINT"Fiches non stockees!":GOTO12
441 GOSUB6:IFD$="X"THENLPRINT:LPRINTELSEGOSUB22
442 POKE1613,2:OD=1557:OI=1558:M=X:GOSUB19:RETURN
450 XY=1:GOSUB400:XY=0
451 PRINT"Nb de Paramtres :";:GOSUB950:OB=INT(VAL(I$)):IFOB<=0OROB>3THENGOSUB4:GOTO451
452 M=0:FORU=1TOOB:GOSUB4:M=M+1:PRINT"Paramtre"U":";:GOSUB950:P$(U)=I$:PRINT:PRINT"Borne A :";:GOSUB950:Z$(M)=I$:PRINT:PRINT"Borne B :";:GOSUB950:M=M+1:Z$(M)=I$:NEXTU:KX=X:KY=Y:GOTO461
454 PP=0:DD=0:POKE1464,2:FORU=XTOY:IFPEEK(U)<>2THEN77ELSECC=CC+1:Z=U+1:FORU=ZTOY:IFPEEK(U)<>ASC(MID$(P$(KV),U-Z+1,1))THENX=U:GOTO454
455 PP=PP+1:IFPP<>LEN(P$(KV))THENNEXTU
456 RETURN
461 KV=1:CC=0:KK=1:GOSUB454:IFXY=1THENXX=WW+1:GOTO465
464 Z=U+1:FORU=ZTOY:IFPEEK(U)<>3THEN77ELSEXX=U+1
465 FORU=XXTOY:IFPEEK(U)<>4THEN77ELSEDD=DD+1:IFDD=CCTHEN467
466 GOTO77
467 GOSUB71:IFAN=1THEN468ELSEIFX$<Z$(KK)ORX$>Z$(KK+1)THENDD=0:GOTO464ELSE470
468 IFM<VAL(Z$(KK))ORM>VAL(Z$(KK+1))THENDD=0:GOTO464
470 YY=L+U:FORU=YYTOY:IFPEEK(U)=3THENR=2ELSENEXTU:R=5
472 KV=KV+1:KK=KK+2:ZZ=XX:WW=U-1:IFKV<=OBTHENCC=0:X=KX:GOSUB454ELSE490
475 FORU=ZZTOWW:IFPEEK(U)<>4THEN77ELSEDD=DD+1:IFDD<>CCTHEN77
477 GOSUB71:IFAN=1THEN478ELSEIFX$>=Z$(KK)ANDX$<=Z$(KK+1)THEN485ELSE480
478 IFM>=VAL(Z$(KK))ANDM<=VAL(Z$(KK+1))THEN485
480 X=KX:Y=KY:XY=1:GOTO461
485 KV=KV+1:KK=KK+2:IFKV<=OBTHENCC=0:X=KX:GOSUB454:GOTO475
490 IFKO=1THENRETURNELSE XY=1:X=KX:Y=KY:GOSUB426:GOSUB496
491 IFPEEK(1613)=1THENGOSUB4:IFR=5THEN30ELSE480
492 EXEC1556:GOSUB390:V$=U$:GOSUB90:GOSUB430:GOTO491
496 OD=2473:OI=2474:M=ZZ:GOSUB19:OD=2476:OI=2477:M=WW+1:GOSUB19:RETURN
500 GOSUB945:PRINT"Correction :";:GOSUB950:GOSUB4:IFI$="CR"THEN520ELSEIFI$="CT"THEN510ELSEIFI$="CF"THEN530ELSEIFI$="SR"THEN570ELSEIFI$="SI"THEN560ELSEIFI$="SF"THEN553ELSEIFI$="I1"ORI$="ID"THEN590ELSE500
510 GOSUB80:GOSUB75:IFP+B-A>S+1THEN240ELSEL$=I$:GOSUB65
511 IFA=BTHEN519ELSEIFA<BTHEN515
512 M=X+A:EL=X+B:GOSUB7:P=P-A+B:GOSUB8:GOTO519
515 IFP+B-A>S+1THEN240ELSEOD=1531:OI=1532:M=X+A+1:GOSUB19:OD=1534:OI=1535:M=P:GOSUB19:OD=1537:OI=1538:M=P+B-A:GOSUB19:EXEC1530:P=P+B-A
519 FORI=1TOB:POKEX+I,ASC(MID$(I$,I,1)):NEXTI:IFKO=1THENRETURNELSE30
520 PRINT"Ancien Nom de Rub :";:GOSUB950:A=LEN(I$)
521 GOSUB14:OD=1916:OI=1917:M=X:GOSUB19:OD=1961:OI=1962:M=Y:GOSUB19:EXEC1915:GOSUB580:IFXY=1THENRETURN
522 GOSUB18:GOSUB75:Y=X+A+1:GOTO535
530 PRINT"Rub de Repre :";:GOSUB950:XY=1:GOSUB521:GOSUB4:PRINTI$" :";:GOSUB950:GOSUB14:XY=0:OD=1978:OI=1979:M=X:GOSUB19:OD=1988:OI=1989:M=Y:GOSUB19:EXEC1977:XY=0:GOSUB580
531 IFNN=1THENRETURNELSEGOSUB4:PRINT"Contenu  Modifier :";:GOSUB950:GOSUB18:GOSUB14:OD=2050:OI=2051:M=X:GOSUB19:EXEC2049:GOSUB580
534 PRINT:PRINT"Par :";:GOSUB950:GOSUB18:A=L-1:B=LEN(I$):X=X-1
535 IFP<>YTHEN511ELSEIFP=YANDA<BTHENP=X+B+1:GOTO519ELSE511
553 N=N-1
554 IFY<>P-1THENM=Y:EL=X-1:GOSUB7
558 P=P-L:GOSUB8:IFXY=1THENRETURNELSEL$="":IFN=0THENP=DF:GOTO30ELSEGOSUB948:GOTO30
560 NN=1:GOSUB530:NN=0:GOSUB18:OD=1843:OI=1844:M=X:GOSUB19:OD=1511:OI=1512:M=X-1:GOSUB19:OD=1508:OI=1509:M=P-1:GOSUB19:EXEC1842:L=PEEK(1505)+256*PEEK(1506)-X+1:P=P-L:GOSUB8:GOTO30
570 GOSUB98:IFLD<2THEN30ELSEPRINT"Rub  Dtruire :";:GOSUB950:XY=1:GOSUB521:OD=2118:OI=2119:M=X:GOSUB19:OD=2143:OI=2144:M=Y:GOSUB19:GOSUB18:DX=X:EXEC2107
571 GOSUB18:GOSUB580:GOSUB554:IFG=3THEN574ELSEOD=1876:OI=1875:M=PEEK(OD)+256*PEEK(OI)-L:GOSUB19:EXEC2242:GOTO571
574 OD=2258:OI=2259:M=DX:GOSUB19:EXEC2257:GOSUB18:X=DX:L=Y-X+1:GOSUB554:GOTO30
580 G=PEEK(1464):IFG=1THENGOSUB4:PRINT" Pas de Donnes":GOTO12ELSEIFG=6THEN574ELSERETURN
590 K$=I$:PRINT"Rub  insrer :";:GOSUB950:L=LEN(I$)+1:IFK$="ID"THEN595
592 XY=1:GOSUB380:XY=0:OD=2290:OI=2291:M=X:GOSUB19:OD=2300:OI=2301:M=Y:GOSUB19:EXEC2289
593 P=P+L:Y=Y+L:MX=PEEK(1531)+256*PEEK(1532):POKEMX,2:FORU=1TOL-1:POKEMX+U,ASC(MID$(I$,U,1)):NEXTU:OD=1880:OI=1879:M=MX:GOSUB19:IFXY=1THENRETURN
594 OD=2346:OI=2347:M=Y:GOSUB19:L=2:XY=1:GOSUB380:POKE1464,2:EXEC2330:GOSUB9:GOTO594
595 OD=2376:OI=2377:M=X:GOSUB19:XY=1:GOSUB380:OD=2386:OI=2387:M=Y:GOSUB19:EXEC2375:IFPEEK(1464)=6THEN87ELSEGOSUB593:GOSUB82:L=2:GOSUB380:POKE1464,2:EXEC2402:GOSUB9
596 GOSUB82:OD=1880:OI=1879:M=PEEK(OD)+256*PEEK(OI)+3:GOSUB19:GOSUB380:POKE1464,2:EXEC2441:GOSUB9:GOTO596
598 P=P+2:Y=Y+2:MX=PEEK(1531)+256*PEEK(1532):POKEMX,4:POKEMX+1,64:RETURN
599 G=PEEK(1464):IFG=1THEN30ELSEIFG=8THEN84ELSERETURN
630 GOSUB945:D$="X":XY=1:GOSUB426:EXEC1615:IFPEEK(1613)=5THEN440ELSEXY=0:GOSUB4: PRINT"Edition :";:GOSUB950:Y$=I$:IFY$<>"L"ANDY$<>"E"THENGOSUB4:GOTO630ELSEGOSUB25:GOSUB98
631 R$=INKEY$:IFR$=CHR$(11)THEN30ELSEIFR$<>"O"ANDR$<>"N"THEN631ELSEXY=1:IFY$="E"THEN635ELSELPRINT°2,3§"Fichier "L$:GOSUB26:LPRINT°2,3§"FORMAT des FICHES :":LPRINTSTRING$(19,45):GOSUB426:UX=0
633 UX=UX+1:EXEC1556:GOSUB390:LPRINT°1,0§U$:LPRINTSTRING$(80,62):IFUX<LDTHEN633ELSELPRINT:GOSUB26:LPRINT°2,3§"LISTING des FICHES :":LPRINTSTRING$(20,45)
635 IFR$="O"THEN645ELSEGOSUB426:UX=0
636 IFKO=1THEN647ELSEUX=UX+1:EXEC1615:GOSUB390
637 IFY$="L"THENLPRINT°1,0§"* "U$:GOTO639ELSEUO=LEN(U$):LK=2:IFUO>40THENLK=1
638 LPRINT°LK,0§TAB(((80/LK)-UO)/2)U$:IFLK=1THENLPRINT:LPRINT
639 LPRINT:IFUX<LDTHEN636ELSEIFPEEK(1613)=3ANDKO=0THENGOSUB26:GOTO30ELSEGOSUB26
640 UX=0:IFKO=1ANDR=2THENGOSUB480:GOTO646ELSEIFKO=1ANDR=5THEN30ELSE636
645 KX=X:KY=Y:XY=0:KO=1:GOSUB451:UX=0
646 WW=WW+1:GOSUB496
647 UX=UX+1:GOSUB90:GOTO637
660 GOSUB945:PRINT"Oprations sur Rub :";:GOSUB950:XY=1:GOSUB521:XY=0:Q$=I$:GOSUB4:PRINT"Opration: ^+-/*M ?":JJ=0:KX=X:KY=Y:HG=0
662 W$=INKEY$:IFW$<>"+"ANDW$<>"-"ANDW$<>"/"ANDW$<>"*"ANDW$<>"^"ANDW$<>"M"THEN662
664 GOSUB13:OD=2535:OI=2536:M=X:GOSUB19:OD=2538:OI=2539:M=FF:GOSUB19:EXEC2534:II=PEEK(1464):KO=1:GOSUB73:GOSUB451
665 HG=HG+1:TT=0:FORU=ZZTOWW:IFPEEK(U)<>4THEN78ELSETT=TT+1:IFTT<>IITHEN78
666 YY=U:FORU=YY+1TOWW:GT=PEEK(U):IFGT<>4ANDGT<>3THENNEXTU:LL=WWELSELL=U-1
667 U$="":FORU=YY+1TOLL:TU=U:GOSUB5:NEXTU:MM=VAL(U$):IFHG=1THENJJ=MMELSEIFW$="+"ORW$="M"THENJJ=JJ+MMELSEIFW$="-"THENJJ=JJ-MMELSEIFW$="*"THENJJ=JJ*MMELSEIFW$="/"ANDMM<>0THENJJ=JJ/MMELSEIFW$="^"THENJJ=JJ^MM
668 IFRT=0THEN671ELSEIFR=2THENGOSUB480:GOTO665ELSE673
671 FORU=LL+1TOWW:IFPEEK(U)=3THENZZ=U:GOTO665ELSENEXTU
673 IFW$="M"THENJJ=JJ/HG
674 GOSUB4:PRINT"Rsultat :"JJ:GOTO12
700 PRINT"Init. Totale: (O)(N)"
710 G$=INKEY$:IFG$="N"ORG$=CHR$(11)THEN30ELSEIFG$="O"THENPOKE1487,9:P=DF-14:GOSUB8:POKE1487,255:EXEC&HC4D1ELSE710
750 SLEEP:GOTO30
800 GOSUB4:END
850 GOSUB1030:GOTO30
900 PRINT"Vrif. de :";:GOSUB950:GOSUB16:INIT£1,"CASI:":INPUT£1,K$,L:IFK$<>I$THEN97ELSEPRINT:FORU=XTOYSTEP250:GOSUB23:LINEINPUT£1,A$:IFU$<>A$THENPRINT"Vrif. INCORRECTE!":GOTO12ELSENEXTU:PRINT"Vrif. CORRECTE !!":GOTO12
945 GOSUB20:IFL$<>""THENI$=L$:GOSUB16:RETURNELSEGOSUB4:PRINT"Travail sur :";:GOSUB950:L$=I$:HJ=1:GOSUB16:GOSUB65:RETURN
948 L$="":GOTO945
950 I$="":D=0:V=0:W=0:SD=0
951 G$=INKEY$:IFG$=""THEN951ELSEIFG$=CHR$(13)THEN29ELSEIFG$=CHR$(29)THEN980ELSEIFG$=CHR$(28)ORG$=CHR$(30)ORG$=CHR$(31)THEN951ELSEIFG$=CHR$(11)ANDRU=1THEN951ELSEIFG$=CHR$(11)THEN30ELSEIFG$=CHR$(12)THEND=0:I$="":SD=1:G$=""
952 D=D+1:IFD=1THENCLS:V=0:W=0
953 IFSD=1THENSD=0:GOTO960ELSEIFLEN(I$)=78THENBEEP5,9:GOTO951ELSEIFQ=1THEN965ELSEIFV<=18THENLOCATEV,W:PRINTG$">";ELSEIFV=19THENLOCATEV,W:PRINTG$;:IFW+1>3THEN954ELSEW=W+1:V=-1
954 V=V+1:IFV>19THENV=0:W=W+1:IFW>3THENW=3
960 IFV=19ANDW=3THENQ=1ELSE LOCATEV,W:PRINT">";
961 I$=I$+G$:IFLEN(I$)>=73THENBEEP900,9
962 GOTO951
965 LOCATEV,2:PRINTG$">";:V=0:W=3:GOTO961
970 IFV=0ANDW=0THEN950
974 GOSUB975:LOCATEV,W:PRINT"> ";:I$=MID$(I$,1,LEN(I$)-1):GOTO951
975 V=V-1:IFV<0THENV=19:W=W-1:IFW<0THENLOCATE0,0:PRINT">";:GOTO950
976 RETURN
980 IFD=0THEN951ELSE970
1000 DF=29+PEEK(528)+256*PEEK(529):GOSUB1050:S=PEEK(530)+256*PEEK(531)-2:P=DF:B1=DF-29
1010 DATA70,73,88,45,48,55,70,0,0,0,0,0,0,0:RESTORE1010:FORI=0TO13:READG1:IFI=7THENI=I+2:NEXTI
1021 POKEB1+I,G1:NEXTI
1022 IFPEEK(DF-14)=255THENGOSUB1130:GOTO30
1025 POKEDF-14,255:N=0:GOSUB1030:GOTO30
1030 GOSUB4:PRINT".Mm Occupe:"P-DF:PRINT".Mm Libre  :"S-P+1:G1=S-DF+1:GOSUB1050:PRINT".Mm Totale :"G2-14:INPUT".Modif. Mm :";G1:IFG1<P-DF ORG1>G2-30THEN1030
1041 S=G1+DF-1:B1=DF-22:G1=G1+15:POKEB1+G1-7,0:GOSUB1100:GOSUB1110:GOSUB8:RETURN
1050 G2=PEEK(530)+256*PEEK(531)-PEEK(528)-256*PEEK(529):IFG2<30THENGOSUB4:PRINT" AUGMENTEZ le FSET":ENDELSERETURN
1100 G1$=RIGHT$("0000"+HEX$(G1),4):POKEB1,VAL("&H"+RIGHT$(G1$,2)):POKEB1+1,VAL("&H"+LEFT$(G1$,2)):B1=B1+2:RETURN
1110 B1=DF-13:POKEB1-1,255:G1=P:GOSUB1100:G1=S:GOSUB1100:G1=N:GOSUB1100:RETURN
1120 G1=PEEK(B1)+256*PEEK(B1+1):B1=B1+2:RETURN
1130 B1=P-13:GOSUB1120:P=G1:GOSUB1120:S=G1:GOSUB1120:N=G1:RETURN
1200 GOSUB945:KX=X:KY=Y:MX=X:GOSUB4:PRINT"Tri :";:GOSUB950:IFI$<>"D"ANDI$<>"C"THEN1200ELSET$=I$:PRINT:PRINT"Sur Rub :";:GOSUB950:XY=1:GOSUB521:XY=0:GOSUB13:OD=2535:OI=2536:M=KX:GOSUB19:OD=2538:OI=2539:M=FF:GOSUB19:EXEC2534:LD=PEEK(1464)
1205 FORU=MXTOKY:IFPEEK(U)<>3THEN78ELSEX(1)=U+1:FORU=X(1)TOKY:IFPEEK(U)<>3THEN78ELSEX(2)=U-1:X(3)=U+1
1206 FORU=X(3)TOKY:IFPEEK(U)<>3ANDU<>KYTHEN78ELSEX(4)=U-1:IFU=KYTHENX(4)=KY
1210 EE=0:FORU=X(1)TOX(2):IFPEEK(U)<>4THEN78ELSEEE=EE+1:IFEE<>LDTHENNEXTU
1211 FORJ=U+1TOX(2):IFPEEK(J)<>4THENNEXTJ
1212 U$="":FORG=U+1TOJ-1:TU=G:GOSUB5:NEXTG:EE=0:FORU=X(3)TOX(4):IFPEEK(U)<>4THEN78ELSEEE=EE+1:IFEE<>LDTHENNEXTU
1213 FORJ=U+1TOX(4):IFPEEK(J)<>4THENNEXTJ
1214 V$="":FORG=U+1TOJ-1:V$=V$+CHR$(PEEK(G)):NEXTG:AN=0:L=LEN(U$):GOSUB72:IFAN=1THEN1270ELSEIFT$="C"ANDV$>=U$ORT$="D"ANDV$<=U$THEN1220
1215 AV$="":FORI=X(1)TOX(2):AV$=AV$+CHR$(PEEK(I)):NEXTI:AP$="":FORI=X(3)TOX(4):AP$=AP$+CHR$(PEEK(I)):NEXTI:A=LEN(AV$):B=LEN(AP$):IFA=BTHEN1219
1216 J=1:OD=1505:OI=1506:M=X(2):GOSUB92:GOSUB19:J=2:OD=1508:OI=1509:M=P-1:GOSUB19:OD=1511:OI=1512:M=X(1)+B-1:GOSUB92:GOSUB19:EXEC1504:UU=ABS(B-A):P=P-UU:GOSUB8:IFA>BTHENX(2)=X(2)-UU:X(3)=X(3)-UU:X(4)=X(4)-UUELSEX(4)=X(4)-UU
1217 J=3:IFP+UU>S+1THEN240ELSEOD=1531:OI=1532:M=X(4)+1:GOSUB92:IFM<PTHENGOSUB19:OD=1534:OI=1535:M=P:GOSUB19:OD=1537:OI=1538:M=P+UU:GOSUB19:EXEC1530
1218 P=P+UU:IFA>BTHENX(4)=X(4)+UUELSEX(2)=X(2)+UU:X(3)=X(3)+UU:X(4)=X(4)+UU
1219 FORI=1TOB:POKEX(1)+I-1,ASC(MID$(AP$,I,1)):NEXTI:FORJ=1TOA:POKEX(3)+J-1,ASC(MID$(AV$,J,1)):NEXTJ
1220 X(3)=X(4)+2:IFX(4)+1>=KYTHENMX=X(2)+1ELSE1206
1225 IFMX>=KYTHEN30ELSE1205
1270 EZ=VAL(V$):IFT$="C"ANDEZ>=MORT$="D"ANDEZ<=MTHEN1220ELSE1215