ONp N ON X`  @!!#@%`')+-/1 3@5`79;=?C@E`GIKMOQ S@U`WY[]_ac@e`gikmoq s@u`wy{}@` @ ` @ ` @ ` @ ` ǀ ɠ @ ` ׀ ٠ @` @`A   !Aa!!#A%a)+-/1!3A5a79;=?A!CAEQ}(!Aa!Aaa`  @!!#@%`')+-/1 3@5`79;=?C@E`GIKMOQ S@U`WY[]_ac@e`gikmoq s@u`wy{}@` @ ` @ ` @ ` @ ` ǀ ɠ @ ` ׀ ٠ @` @`A   !Aa!!#A%a)+-/1!3A5a79;=?A!CAEQ}(!Aa!AaaMUSIQUE SND \ `ESPACE PRG `9ESPACE LST 6BESPACE GFA .AEAUTO  \:'SPACE BAK EAAVAGE01PI1 7"}RESENTEPI1 0"}LISEZ MOI ` DESKTOP INF 1^:SPACE BAK #7@FABASICPRG *SPACE BAK `|{=SPACE1 BAK }o@DESSIN  , $                           ? ?   ?       ? ~ ~   ~ ~   ~   { 8 {8  { 8 8   8                          -  { {   { {   {                            ? ?   ? ?   ? ?   ? ?   ? ?   ?   w 8 8   8 8   8                8 8   8 8   8 8   8 8   8 8   8  0B0 <r4<Ala7/ <r4<Ala8gAD0B0 <r4<Ala7/ <r4<Ala7gAD0B0 <r4<Ala7~/ <r4<Ala7gAD0B0 <r4<Ala7B/ <r4<Ala7`gAD0B0anX/tADa6g>p aipJ-8gpRfZN3 pJ-3gpRWHH/pJ-2gpRWHHg N=4NpJ-6gpRf N=4N!`b <r4<A|a6gBm <r`<AONKaLTpa]TE3avaUE\pA ad N7NA <awElpA acN7 <avaUN4NB4pJ-\gpRWHH/pJ-]gpRWHHgN:pJ-^gpRWHH/pJ-_gpRWHHgNpJ-`gpRfN#6EpA ac@N7a~(p ~A큚awp ~Ajawp-~ApawA,0B0A40B0A<0B0 <r4<Ar/ <r4<A퀄a> <r4<A퀌a>F/ <r4<A퀌a>dVbpJ-bgpRg <r4<A퀄a>/ <r4<A퀄a> <r4<A퀌a=/ <r4<A퀌a=tA퀔a>gA\0B0 <r4<A퀌a=/ <r4<A퀌a=gZ <r4<A퀄a=\/ <r4<A퀄a=zgA\0B0 <r4<A퀄a= / <r4<A퀄a=>gA\0B0 <r4<A퀄ap aopJ-bgpRfZN4pJ-]gpRWHH/pJ-\gpRWHHg N>N:pJ-`gpRf N>N#6`b <r4<A퀔a:gBm <r4<A\a:/ADaXAla:,gJA퀔0B0AlaXxA퀜a &<:aOl <r4<Ata4/ <r4<Ata4gbAtvaVa6r>Ё/AtvaUa6~r>Ё&0<4<"aMbpaNhpaNr0<r>aNpaNRpaN\0<rgaN <r4<Ata3/ <r4<Ata4gzAtvaU~a6r?Ё/AtvaUja5r?Ё&0<4<"aLpaMpaM0<r>aNbpaMpaM0<rgaNLp aMpaM0<2<aN4 <r4<Ata3VgAtvaTa5pr@Ё/AtvaTa5\r@Ё&0<4<"aL@paMFpaMP0<r>aMpaM0paM:0<rgaMp aMpaM$0<2<aMpaMpaM 0<2<aM4-Rf44-zf. <r4<ADa2g ADaQ`AD0B0akgp aLpaL6<0<4<ranp~A큚ah>p~AjahHp~AvahA퀴0B0pJ-\gpRfa,A퀴0B0`FA퀄a$H/A퀌a$>"a=*Aa%tAa"f/ <r4<Aa"P <r4<Aa": <r4<Aa"$ <r4<Aa" <r4<Aa! <r4<Aa!⁗ <r4<Aa!́ <r4<Aa! <r4<Aa! <r4<Aa! <r4<Aa!t <r4<Aa!^ <r4<Aa!Hg`A퀴a"~aU8*L.V <r4<Aa!g> <r4<Aa@gDA6$<r(a<A6$<rPa< A6$<rxa;A6$<"<a; <r4<Aa / <r4<A4a <r4<A4a/ <r4<A4a <r4<A4a/ <r4<A4a <r4<A4a/ <r4<A4al <r4<A4a/ <r4<A4a> <r4<A4aZ/ <r4<A4a <r4<A4a,/ <r4<A4aVgpJ-fgpRWHH/pJ-ggpRgBaTg>A,a/A4a"a6AaAaa5pa50<2<a6: <r4<A,a/ <r4<A,aF <r4<A4ad <r4<A4aaT2VhaGpJ-hgpRWHH/A,a/A4a "a5QVHHgN(Pa.:aB pa2|f`pJ-cgpRftN4pJ-\gpRWHH/pJ-]gpRWHHg`0pJ-^gpRWHH/pJ-_gpRWHHg`ظpJ-`gpRf`a'AaRa4Vpa4`A,a@/A4a6"a4NupraOEpa=paNaSgEpaA/ <.PI1aB8"HA<,aMHmnA퀜a /A퀤a /ATa ( mjAHa ("maE$"a$p a>*a*frG <r4<AfA퀜a /A퀤a /Apa<|ATa ( mjAHa ("maCt-"<a# p apa9|A퀜a/A퀤a/ATa( mjAHa("ma@$"ap a98a%frG <r4<ABmBmBmBmbBmZBmzNuA큚a=Aja"H ma$m$&a.T`a(|$m$&a.D`*a+@Aa'NBE3p a(Tra6pa""pa6"ma"Npa m /?< NN\`* <a,@"<a5Nu <a@"<a4Nua 24&8:BfJBg f DfpNuJEgpNu 24&8:BgnpNu<ngfDcpNufAcpNu 24&8:BgmpNu<ngfDdpNufAdpNu 24&8:JBgfDf EfpNuJEgpNuDExar`bDEaj`ZaR11!Nua11!Nu 24&8:DE`6 24&8:DB`&a0&8:DE`DEx`a` 24&8:HnghDBHngXDE~<En g6@ABDFGcGcGb8(vHDl`G8BCHC` GHD8HD쬵k&Dуd QRB BbJjDBNu :'u@UFADwCLEAR DEFMOUSE 0 ON BREAK GOSUB restaure HIDEM fich_img$="\DESSIN\logo.pi1" @charger @musi1 PAUSE 160 fich_img$="\DESSIN\presente.pi1" @charger PAUSE 210 SHOWM @choisir @toucheon IF asso!=-1 OR pai!=-1 GOTO programme2 ENDIF IF fris!=-1 OR cop!=-1 GOTO programme1 ENDIF IF pav!=-1 GOTO programme3 ENDIF programme1: fich_img$="\DESSIN\frise.pi1" @charger OPTION BASE 0 DIM spr$(12),spr(12),u(45) x=9 y=181 FOR i=1 TO 10 GET x,y,x+29,y+18,spr$(i) x=x+30 NEXT i GET 10,15,310,123,grille$ GET 112,156,156,163,mot$ GET 30,150,80,160,masque$ GET 10,15,39,33,spr$(11) SGET ecran$ l=2 debut: SPUT ecran$ IF copie=0 l=2 ENDIF IF copie=1 l=10 ENDIF borne1: PUT 10,15,grille$ m=0 r=0 k=0 p=0 faute=0 FOR j=1 TO l spr(j)=RANDOM(10)+1 NEXT j x=10 y=15 FOR j=1 TO l PUT x,y,spr$(spr(j)) x=x+30 NEXT j ' ' test souris - ' p=l REPEAT SHOWM INC p REPEAT arret!=INKEY$=CHR$(27) IF arret!=-1 @fin ENDIF mx=MOUSEX my=MOUSEY choix!=MOUSEK AND ((2810 PAUSE 10 IF choix!=-1 @choisir IF pai!=-1 OR asso!=-1 @initialise GOTO programme2 ENDIF IF pav!=-1 @initialise GOTO programme3 ENDIF GOTO debut ENDIF IF corrige=1 corrige=0 ENDIF IF r=11 AND p<>(l+1) corrige=1 DEC p PUT x1,y1,spr$(11) DEC p GOTO suite ENDIF u(p)=r IF p<10 OR p=10 x1=((p*30)-30)+10 y1=15 PUT x1,y1,spr$(r) ENDIF IF 10

u(i) INC faute @correction ENDIF IF m=l m=0 ENDIF NEXT i IF faute=0 s=250 WHILE s>0 SOUND 1,15,#s,1 s=s-10 WEND SOUND 1,0 ELSE PUT 112,156,masque$ COLOR 0 BOX 60,155,224,167 DRAW 101,155 TO 101,167 DRAW 142,155 TO 142,167 DRAW 183,155 TO 183,167 IF faute<11 DRAW 61+(4*faute),155 TO 61+(4*faute),167 DEFFILL 2,1 FILL 62,157 ENDIF IF faute>10 AND faute<21 DRAW 62+(4*faute),155 TO 62+(4*faute),167 DEFFILL 2,1 FILL 62,157 DEFFILL 4,1 FILL 103,157 ENDIF IF faute>20 AND faute<31 DRAW 63+(4*faute),155 TO 63+(4*faute),167 DEFFILL 2,1 FILL 62,157 DEFFILL 4,1 FILL 103,157 DEFFILL 12,1 FILL 144,157 ENDIF IF faute>30 DRAW 64+(4*faute),155 TO 64+(4*faute),167 DEFFILL 2,1 FILL 62,157 DEFFILL 4,1 FILL 103,157 DEFFILL 12,1 FILL 144,157 DEFFILL 3,1 FILL 185,157 ENDIF ENDIF IF copie=0 IF faute=0 IF l<9 l=l+1 ELSE l=2 ENDIF ENDIF ENDIF REPEAT UNTIL MOUSEK DEFFILL 11,1 PBOX 60,155,224,167 PUT 112,156,mot$ PAUSE 6 GOTO borne1 ' ' programme2: DEFFN vt13$(f%)=CHR$(27)+"b"+CHR$(f%) DEFFN vt14$(f%)=CHR$(27)+"c"+CHR$(f%) commence: @initialise2 OPTION BASE 0 DIM spr$(24),spr(28),no(28),x(24),y(24),u(2),v(2),a(2),nu(26),mot$(24) ON BREAK GOSUB restaure RESTORE FOR i=1 TO 24 READ mot$(i) NEXT i DATA CORDE,BALLON,PALETTE,PINCEAU,YEUX,LUNETTES,BONNET,ECHARPE,SERRURE,CLEF DATA AMPOULE,LAMPE,ARBRE,NID,BOUCHE,VERRE,BOUCLES,BRACELET,POMME DATA CERISES,PRISE FEMELLE,PRISE MALE,TAMBOUR,PIANO fich_img$="\DESSIN\paires01.pi1" @charger GET 13,5,57,41,masque$ GET 16,174,200,189,bande$ GET 63,5,107,41,noir$ PUT 63,5,masque$ @screen(1) @screen(2) s=RANDOM(2)+1 IF s=1 fich_img$="\DESSIN\paires02.pi1" ELSE fich_img$="\DESSIN\paires03.pi1" RESTORE pdatas FOR i=1 TO 24 READ mot$(i) NEXT i pdatas: DATA CARTE,DOMINO,PELOTE DE LAINE,AIGUILLES A TRICOTER,SUCETTE,BONBON,SAPIN DATA CADEAU,POISSON,AQUARIUM,CAROTTE,POIREAUX,SOLEIL,LUNE,BOUQUET DATA VASE,TELEVISION,RADIO,FIL,AIGUILLE A COUDRE,MARTEAU DATA SCIE,CAHIER,STYLO ENDIF @chargersprite FOR j=5 TO 131 STEP 42 FOR i=13 TO 263 STEP 50 INC k GET i,j,i+44,j+36,spr$(k) NEXT i NEXT j GET 15,173,50,193,canard$ k=0 CLS @screen(0) PRINT @vt13$(0) PRINT @vt14$(9) borne3: FOR i=1 TO 24 no(i)=i NEXT i IF memo=1 FOR j=1 TO 12 tirage: b=RANDOM(24)+1 IF no(b)=0 OR no(b)0 AND mx>13 AND mx<307 AND my>5 AND my<167 IF choix!=-1 r=0 choix!=0 @choisir IF fris!=-1 CLEAR copie=0 GOTO programme1 ENDIF IF cop!=-1 CLEAR copie=1 GOTO programme1 ENDIF IF pav!=-1 GOTO programme3 ENDIF IF pai!=-1 CLEAR memo=1 ENDIF IF asso!=-1 CLEAR memo=2 ENDIF GOTO commence ENDIF cp=POINT(mx,my) IF cp=0 OR cp=1 OR cp=2 OR cp=3 OR cp=4 OR cp=5 OR cp=7 OR cp=8 OR cp=9 OR cp=11 OR cp=12 OR cp=13 OR cp=14 OR cp=15 GOTO reprendre ENDIF ON memo GOSUB paires,association UNTIL reussite=12 IF coup<=48 PUT 40,173,canard$ PUT 80,173,canard$ PUT 120,173,canard$ PUT 160,173,canard$ ENDIF IF 48217 palette1!=(y<28 AND y>15) OR (y<54 AND y>41) OR (y<79 AND y>66) OR (y<104 AND y>91) OR (y<129 AND y>116) OR (y<154 AND y>141) OR (y<179 AND y>166) IF (palette!=-1 AND palette1!=-1) AND MOUSEK coulpoint=POINT(x,y) DEFFILL coulpoint,1 FILL 260,135 ENDIF grille!=x<196 AND x>18 AND y<169 AND y>21 AND MOUSEK VSYNC IF grille!=-1 AND POINT(x,y)<>8 @remplir ENDIF SHOWM EXIT IF INKEY$=CHR$(24) LOOP IF choi!=-1 @choisir IF (asso!=-1 OR pai!=-1) GOTO programme2 ENDIF IF (fris!=-1 OR cop!=-1) GOTO programme1 ENDIF IF pav!=-1 GOTO programme3 ENDIF ENDIF ' > PROCEDURE remplir DEFFILL coulpoint,1 FILL x,y RETURN ' > PROCEDURE chargement ' PRINT AT(1,1);"INSEREZ DISQUETTE DE CHARGEMENT" PAUSE 5 REPEAT UNTIL MOUSEK FILESELECT "\*.PI1",".PI1",a$ @extend(a$,"PI1",*n_file$) IF n_file$<>""! OR n_file$<>"\DESSIN\PRESENTE.PI1" OR n_file$<>"\DESSIN\PAIRES01.PI1" OR n_file$<>"paires02.pi1" OR file$<>"menu.pi1" OR file$<>"pavage.pi1" OR file$<>"frise.pi1" OR file$<>"paires03.pi1" fich_img$=n_file$ @charger ENDIF PUT 0,0,bande$ RETURN ' > PROCEDURE sauvegarde ' PRINT AT(1,1);"INSEREZ DISQUETTE DE SAUVEGARDE" PAUSE 5 REPEAT UNTIL MOUSEK FILESELECT "\*.PI1",".PI1",a$ @extend(a$,"PI1",*n_file$) IF n_file$<>"" fich_img$=n_file$ @sauver ENDIF PUT 0,0,bande$ RETURN ' > PROCEDURE sauver ' HIDEM LOCAL i% OPEN "o";#1,fich_img$ OUT #1,0 OUT #1,XBIOS(4) FOR i%=0 TO 15 OUT #1,(XBIOS(7,i%,-1) AND &HFF00)/256 OUT #1,XBIOS(7,i%,-1) AND &HFF NEXT i% BPUT #1,XBIOS(2),32000 CLOSE #1 SHOWM RETURN ' > PROCEDURE paires ' FOR i=1 TO 24 IF spr(i)=r IF compteur=1 u(1)=x(r) v(1)=y(r) a(1)=i PUT u(1),v(1),spr$(a(1)) PUT 16,174,bande$ PRINT AT(5,23);mot$(a(1)) @soncarte ENDIF IF compteur=2 u(2)=x(r) v(2)=y(r) a(2)=i PUT u(2),v(2),spr$(a(2)) PUT 16,174,bande$ PRINT AT(5,23);mot$(a(2)) @soncarte PAUSE 50 PUT 16,174,bande$ ENDIF ENDIF NEXT i IF compteur=2 AND ((a(1)=a(2)-12) OR (a(1)=a(2)+12)) INC reussite PUT u(1),v(1),noir$ PUT u(2),v(2),noir$ @songagne compteur=0 ELSE IF compteur=2 PUT u(1),v(1),masque$ PUT u(2),v(2),masque$ compteur=0 ENDIF ENDIF r=0+ RETURN ' > PROCEDURE association ' FOR i=1 TO 24 IF spr(i)=r IF compteur=1 u(1)=x(r) v(1)=y(r) a(1)=i PUT u(1),v(1),spr$(a(1)) PUT 16,174,bande$ PRINT AT(5,23);mot$(a(1)) @soncarte ENDIF IF compteur=2 u(2)=x(r) v(2)=y(r) a(2)=i PUT u(2),v(2),spr$(a(2)) PUT 16,174,bande$ PRINT AT(5,23);mot$(a(2)) @soncarte PAUSE 50 PUT 16,174,bande{+[+?? @[+?? @[+?? @[+?? @[+?? @[+[+ @?Z+ @?Z+ @?Z+ @?Z+ @?Z+[qp    @@[    @@[    @@[    @@[    @@[ @?q  @@@[+ @@@[+ @@@[+ @@@[+ @@@[+[I?!I!C` ???!C` ???!C` ???!C` ???!C` ???!C` ???!C` ???!C` ???!C`; ???!C`ď;ppp ???v!C`:pp ???"u#!C``=|pp ???z?!C`pp ???!C`(Spp ???PQ!p`pp ?]??"3!q`pp >?><!!q` pp >?>>!q`sp p >?>?A!pqn`p1p >?">;c!pq}`axYpp >?> 8E!p;`@Dp`p >w?>Gw86!CW` (p(p >?P>@P8Q!Cn`1 >?">"8c !C`# >?>8G !C*`AUs >U?>EU8!C`@/ >?>8_!Cn`? >?">"8!C` >?>??!C` ???!C` ???!C` ???!C` ???!C` ???!I!I?!9[I?!I!C` ???!C` ???!C` ???!C` ???!C`| ???!*`0 ???!C` ???!C` ???8!C`  ???s ???!C`w;0 ???g???!C`x.8p ???<<F^FfFjFjFjFjFFFFFFHHXYILCOPIEMRKPFAUTEJMXMYCORRIGEX1Y1SMEMOBCOMPTEURCOUPCPREUSSITE COULPOINTEFFETCXCYTFICH_IMGGRILLEMOTMASQUEECRANBANDENOIRCANARDAN_FILEFILETAMPON1TAMPONPREXDNSONSON1FIFLAGPBASELBASEPSNLASSOPAIFRISCOPPAVARRETCHOIXCHOISAUVCHARGPALETTEPALETTE1GRILLESPRUNOXYVANUSPRMOTL_ADR PROGRAMME2 PROGRAMME1 PROGRAMME3DEBUTBORNE1SUITECOMMENCEPDATASBORNE3TIRAGE REPRENDRERESTAURECHOISIRCHARGERFIN INITIALISE CORRECTION INITIALISE2SCREEN CHARGERSPRITEPAIRES ASSOCIATION SAUVEGARDE CHARGEMENTREMPLIREXTENDSAUVERSONCARTESONGAGNEMUSIQUEMUSIMUSI1 TOUCHEOFFTOUCHEONVT13VT14;;;8 yyg0}}}???x???0`{{{x <@ ~~O@' 0???}}}_x??0`  JJ@y0׽ؽ`p??0` D_w_w{0/ؽ߽p0`  w~n@0G?`0` >>?9?qw}{0wp?@0???`?/// ??go>0?@??0`; ??7701w~}>0?'ؾ??0` ?? ```w}0?8??0`ϯί7 ?? X}`db{00`' ?? ```y0~0` ??7701~p?80???~0`? ??@ 0?~0` ?????0??9?0`11?1??? ??0???0`  ??0?@0` ??0?@???0` ?0?@0` 0?@0` 00` 00` 0??=0` 00` ???00` 00` 00`? 00`_?  00`? ?00 ?@0`? <@1'0L?0`??? 8oo`G0`Ā0`? 8p 0??@0`? 8oo` @#0ss0`? <pK0 /0`? ??@ 00~70`? ? H#0~OC@0`??? K0gg~g0`???  $0@|0`??? RH%0d??|߀0`??? ?TI0|0`? T 0??~~}?0`? > @%0WW~~} 0`? |''A0x?C0`? ' $0UUUU?}}zg0`? 0~__||{0`? #0WWOp0`OO? 0t0`? ~~0jπ0`?  xp~~0w0`_?  ?????00`? OO00` @@00` G00` 800` 0??0` 0oo0` 0@0` 0Zdd 0` ??0  7B?0` 0dd K^0` ??0I wmy?0` 04c{0` ?dg0F@|X܀#0` D 0zg @ G `0` y~? ``0spi e J0` ?<Cs@0sIQ-v@ BU~U~U0` ????0`Jmx|x0` Cs@0H@ ՈJ}~_}_WWG?G80`  0 ׁ!(~~?04`pp ?~~0WPWl/,yn yІ   ?00`00 ?~~0_PP8t w~8wLj8[B[B0a||0hw|PwP  ?0`00 ~~0<xnxn44???0`pp Gw@~~??0+(W 1 1_0`  ?0uzuckzkz0` 0~]|M|]Af2f20` ???0߀  # 0` ?x?x?00` 00` =?0!0` ?0!0` ?0A0` gw`00`  00` 00` 0?0` 00` 0??0` 0s0` 00` 00` 0??0` 0 0`  ?0@8?0` `??~0Aq0` `0|0/~? 0` {B{y?0`~}~0s@1 0` L??~}~0aw逈~~~!//!!5!>Ѐ!??7!??!h!3?!9B!@ !! :'u@UFADw?0` 00` 00`?? 00`v  00`$$x  00`CCm}}  00`I#I#̽@ 9800`$$ZB  a` 0 0`m  0~~~ 0` IIm$ >< 0~~~0`$$ <Fp0~~~0` m ?sp0~~~π0`l `{q0~~~πggg`0` 1b}xn@~~~ggg`0`m @ cc|780~~~0` ? 9q~go@~~~0` @ qA@~~~0`''X 9gx0~~~0`KKm Chw0~~~0`l ?a~GD@~~~0`%% ן$s|@~~~ggg`0` HHm ÿ@@gx0~~~ggg`0` m  a~0~~~0` $ $ s|0~~~0`IIm !wy0~~~ 0`$$f {{00`I#I# ~=00`CCm ?00`$$x '@00`v {@00`??=  00` 00` 0?Y;?0` 0(0` 0D0` 00` ooo`)0z0` w??_ T0 / 0` ??|C||0 p/0` >>?`8S88Ǭ0s#@60` www??@W:00@9~0`G'@ cOOrrrTPP ~0#@c?0`w   |||?  P0 `;DG0`kX  c 0<8@ 0`UU l@?@?@0 A 0`U (0 p_@M0`*U  |},??00O???~D~ D;g0`?꿪 # |8'??@0??0 `a|||0)0`_j*pRp c83<:??08 cG}~|~0m0`UPUP ppp; |<>??0x0  }~D| w)0`Wj*r +<??0$>?8}~ | qe0`UPUYp ?`|0~@l||pm0`U_pp ?@|0 600P~ >>}~D|Dp??0`?? `כ?|0 {f||0`  ~o 0B0` 00` 0 0` 00` _00` 0??0` 00` 0???0`3 0 0`` 0` 0`  0@p???0`  0px0`0  0;?-?@0`߷ ` 0:?@0`a   ߟ 08>??0|}a~3? O/O   |||@@@ @@@0q?0Oo` C o`  {x{@@@0 ~x0``~__ _@ g`g@0` 80d| 9 F00?0  `@00||fͳ p,p ?? ```@0@_`0?`@~tvH ?? ```@0@\|wX?000`=--P ??+ b`b(((@0TH8?0`ooo2 ??= e`eDDDTTT@00l{8?0`ooo +G j`j@0 80`OKK@ '? e`eGGGTTT@0(80`ܾԆԦ#A? wp+ j`j@0 Gp0`njǬC )e`eDGDTTT@01`0`{{ ; 8 j`j@0?0`{{  ; 8)e`eDFDTTT@0?0`g  ; 8 ߉ j`j@0p??0` @~ e`eDGDTTT@0py`??@0`? {߃ x b`b(((@0??@0`???@ !  ```@0CC????0?0` c  ```0 n~0`   0b~00`  0>{????0` 00` c00` 0?=?0` 00` 00` ? w00` <}}}00` zzx00` qwv0?~~0` ?cgcx{{q0?~~0` ?~|}}o`??90????<0` ?ǃǃ8~~~ß@0??~0`   ~~~!!`0b0` ??~n 00` 7c0{{0`??? ???߿30{{?==0`??? q?0}}0``@ 6`wp0~~0`pp 00??0` g>cc0<0` y!!0??0` 80??0` 99 ~r0?0` ss?>0?p0`?? ss>0~0` ~?>0~x~??0` Ø|||6660yyy0` ?00` 00`  00` ~~~77700` sss00` 00` |||00` 00` 0?!!!!?!33!?!!?>!//!!5!>Ѐ!??7!??!h !3?!9B!@ !!! :u@UFADw|q ??~r~r 0y ??y ??rr]]`ssC p ``````?@@@@@@@@@@@@@@`@@@@@@@@@@@@@@`||@@@@@@@@@@@@@@`} }@@@@@@@@@@@@@@`| |@@@@@@@@@@@@@@` @@@@@@@@@@@@@@`@@@@@@@@@@@@@@`@@@@@@@@@@@@@@`@@@@@@@@@@@@@@`@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@}|@@@@@@@@@@@@@@C`C@@@@@@@@@@@@@@`C@@@@@@@@@@@@@@`C@@@@@@@@@@@@@@`C@@@@@@@@@@@@@@`C@@@@@@@@@@@@@@`C@@@@@@@@@@@@@@`C@@@@@@@@@@@@@@`C@@@@@@@@@@@@@@` C@@@@@@@@@@@@@@`_ _C`C@@@@@@@@@@@@@@`@@@@@@@@@@@@@@`@@@@@@@@@@@@@@`@@@@@@@@@@@@@@`@@@@@@@@@@@@@@`@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@`@A/@@@@@@@@@@@@@@ A@@@@@@@@@@@@@@ A@@@@@@@@@@@@@@O@@@@@@@@@@@@@@0@\@@@@@@@@@@@@@@`@@@@@@@@@@@@@@`@@@@@@@@@@@@@@`@@@@@@@@@@@@@@`@@@@@@@@@@@@@@``?@@@@@@@@@@@@@@`@@@@@@@@@@@@@@`||@@@@@@@@@@@@@@`} }@@@@@@@@@@@@@@`| |@@@@@@@@@@@@@@` @@@@@@@@@@@@@@`@@@@@@@@@@@@@@`@@@@@@@@@@@@@@`@@@@@@@@@@@@@@``@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@}|@@@@@@@@@@@@@@C`C@@@@@@@@@@@@@@`C@@@@@@@@@@@@@@`C@@@@@@@@@@@@@@`C@@@@@@@@@@@@@@`C@@@@@@@@@@@@@@`C@@@@@@@@@@@@@@`C@@@@@@@@@@@@@@`C@@@@@@@@@@@@@@` C@@@@@@@@@@@@@@`_ _C`C@@@@@@@@@@@@@@`@@@@@@@@@@@@@@`@@@@@@@@@@@@@@`@@@@@@@@@@@@@@`@@@@@@@@@@@@@@`@@@@@@@@@@@@@@?@@@@@@@@@@@@@@?@@@@@@@@@@@@@@=@?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@8@@@@@@@@@@@@@@??@@@@@@@@@@@@@@?@@@@@@@@@@@@@@ @@@@@@@@@@@@@@` @_@@@@@@@@@@@@@@` 8@@@@@@@@@@@@@@`??@@@@@@@@@@@@@@`QA@@@@@@@@@@@@@@` OO```@@@@@@@@@@@@@@`@@@@@@@@@@@@@@`66@@@@@@@@@@@@@@`@@@@@@@@@@@@@@`@@@@@@@@@@@@@@`@@@@@@@@@@@@@@`|||@@@@@@@@@@@@@@`T@@@@@@@@@@@@@@`??@@@@@@@@@@@@@@``@@@@@@@@@@@@@@????@@@@@@@@@@@@@@ ??@@@@@@@@@@@@@@ @@@@@@@@@@@@@@C@@@@@@@@@@@@@@C@@@@@@@@@@@@@@C@@@@@@@@@@@@@@C @@@@@@@@@@@@@@C ??@@@@@@@@@@@@@@C?C`@@@@@@@@@@@@@@C`GGG@@@@@@@@@@@@@@C`***@@@@@@@@@@@@@@C`UUUUUU@@@@@@@@@@@@@@C`|||***??@@@@@@@@@@@@@@C`UUUUUUUUTUTUT@@@@@@@@@@@@@@C` @@@@@@@@@@@@@@C`UUUAU@UA@@@@@@@@@@@@@@C`***@@@@@@@@@@@@@@C`UUUU@@@C`***??@@@@@@@@@@@@@@C` @@@@@@@@@@@@@@C` @@@@@@@@@@@@@@C`@@@@@@@@@@@@@@C`@@@@@@@@@@@@@@C`@@@@@@@@@@@@@@%C@@@@@@@@@@@@@@C@@@@@@@@@@@@@@C@@@@@@@@@@@@@@CC@@@@@@@@@@@@@@C@@@@@@@@@@@@@@C@@@@@@@@@@@@@@C @@@@@@@@@@@@@@C' @?@@@@@@@@@@@@@@@C`G@@?@@@@@@@@@@@@@@@C`|ǀ8  @@@@@@@@@@@@@@C`~?p  @@@@@@@@@@@@@@C`?p@@@@@@@@@@@@@@C`C`C`qC`;0`;` `Y` [`??` ??`;`;>><<88???q@5B <1;1??G`0?Ob<<8;??`x"@8;???pxx@2s  c@@~?p@xƀps c8;_^|π0GCOFpNL 0<G@O`GFpNL 07' p@@f?N1L?  ?x?@`&! L` @@??x@p'@|A $B?_???@xB'`H @ HH?? @xB`>>H@ HH?? @@~~??  88??"  "00????????# ????? ???? ???? ???? ???? ???? ???? ???? ???$, ? ???$,# ???? zr88??00zvrf1>1>xx? ??{Vs^d"lfۿ$@ӿ,@wg)*!:R"!bD;? ??  d"lf wg; 3b$d@?88? ?? {sd"lf wg;3B(9hxxxx? ?? ;3̛dl& . wg;3NB9 ? ?? ;(3(:r2vDXLXvfyqC"8bss? ??7?8xLJ8pǏycycxgxgpp B<93># c<<# ????wvnwNg;"3b#,c<"b? ????onWG1;$3d\ `? ????_^wg1;(3h\<<? ????;:oonvf+NԱ#ط'HgX?$????wv_ _ 3"bs+ckFF??$??????  9<1<33<<?$?????$?????$?????$????#$????pp?$??? ?$????$????$????$????$????$????$????$???#$?????$??.8?$??/X0@?$?? ~|8|`?$?? 1Y`?$??1`?$??1`?$??9@?$??5Z?$??0f8x#$?????$?????>>?$????$????$????$????$????$??????$????$???#$?????????? ????+??+??????88||>?????????????????88???||??????8p|? ????p????p???????????????@?????p???|ppp???88??????????? ????????????>>?@?@ @ @ @? @?? }@?? NA@? yQ@? A@? } @? @??? @??? 9qE8݀ @?? EQD@D`@ ? E_D@<݀ @? EQD@݀ @??? 8n<@8݀ @  @ @ @ @@@?  >-   0@  @ @ AA  @@ AA  @ @ AAY @@ @@   @ @ AA  @@ AA  @ @ AA  @ @ AA  @@ AA  @ @ AAx  @@ @@_Y n%?E8A0  @ @ AA  @@ AAE } AAlB!(~*0P}I " }s   @ @ AA$   @@ AA CAA%p;??'09;/_@QB'9;  @@h`   %$nFf1fXO@  # 6#   @ @ AA?B  @@-S`AA$$O@ o5# 1T 8"@ݿ ??}AA. @b??i= .D|_<}D    @ @ AA W  g@ ?ODAA§~J`_OWP * i@A}&sp*=?D Jl^ \i@NqWߺ E~  (= H 1 (P) Ox [b/Bc[b^(V v *3A_?Wz D  @ @ AAs) A]DI8][oAAgtaE 0\-(a`@#dܛ_} 9g @(??b`6Hzإ}@W(2j"JEA  @ @ AA!D c?\~OP #|u܊# 2P.@o?!@_ B@MxH >DK\! `_@g}w#&@%"Y}  zxv\L$݀!%?  M?e)uAJ_$!K4  wOKS,   @ @  B` ܿ#@?@nIAA"p$.IWB? K)HTo7J;w@_!n @%}ڂ?gx_%!Z't؋  |Z mI  @ @ DPv {k_AA????X   } ~@G"pi  -0^l" gW $Kl" 40O7E07~!r܀#  :%?r5%@п/""R?t;`  G@ \4&L`  @ @?P(?TP?7AA ??@? lB% Jt"``??@5 P. :_b}M Y{"><eR%  @q@@ĴtgwB@/ AA *p Uh-dw?b<!D=9YoV?)N4\j@l(8$??Nz },7??$R KgewB@gO Hy2L s@w)o;3w/ ?fD)^ B,M%b  @ @ AAx HM , AA dDb` C02;'o4n@ wEA@2@_ W?H$ 9@2$ bc_4Qwm  @ @ AAu{ v7@ @ AA$  H_$7;@  O_@B9??  } !  ?A0@@ >u~or:??iaw#y@M,@  @ @ AA!!@@1  @ @ AAD8??{u A`+hpnچA  @ @ AA  NO  @ @ AAEԻz_0H2B?+ Ng|pI  @ @ AA  @@ A  @ @ AA  @ @ AA  @@ AA  @ @ AA @@@@ =}}E  @ @ AA99FF;;YY  @ @ AA<}  @ @ AA  @@ AA  @ @ AA @@ @@   @ @  AA  @ @ AA  @@ AA  @ @ AA @@ @@ #  @ @ AA  @@ AA  @ @ AA%??ccN88Nqqqq889988xxNqqqq889988xx-  @ @ AAqqppxx9988  @ @ AA%qqpp88998888N88??88N??88??88-  qq<<998 8 99 &qq88998888Nqq88998888Nqqqq88998888-  @ @ AA}}}}||  @ @ AA%}}||||  @ @ AA  @@ AA  @ @ AA @@ @@ V  @ @ AA  @@ AA  @ @ AA  @ @ AA  @@ AA  @ @ AA @@ @@   @ @ AA  @@ AA  @ @ AA  @ @ AA  @@ AA  @ @ AAD y1=15 FOR t=1 TO 5 PUT x1,y1,spr$(u(i)) PAUSE 15 PUT x1,y1,spr$(spr(m)) PAUSE 10 NEXT t ENDIF IF 10߰ # F0 FF!! FFF$F H9F$ XߠݠF.0##  F0F!! F$F$ YHߠF80###ߠ  F0F!! F$F YߠF0F0F!-! F$F$ Z$F80###ߠ  F0F!! F$F Z|F0F0F!K! F$F$ [ߠF80###  F0F!! F$F [XߠF0F0F!i! F$F|F0F SdߠFL߀G(F(F [  F FF$F [F0F$F |[F \r F0FF\`F!!M!F#0ߠF \F!F 8` Fp!!F F|!F$F$ ^L ߠ ݨFF# !G# !Ft!F>!Ft!Fg!F$F$ _( ߠ FF# !G# !Ft!F>!Ft!Fg!Ft !F!F$F ` FF# !G߀# !Ft!F>!Ft!Fg!Ft !F!Ft!F!F$F$F `F ` F `lߐF0߀F 8`F0F$F$F$FF ` F !!2!!F0FFF# FL# FL# F|FLGF2 H9F |f F g߀FL G F |F0V F f   FF F$FH 9 F H9F |fb F LFFLG FL9 FL9 F |fFL GF L9 FL9 F PRINT mot$(i) |g6FmLGF H9F |gF$FL GF&0 # T݀ FH 9 FH9 F |g F T G߃H*FT G߃H2FF H9F H9 F h^F h@ F &test souris - F F<SB F h݀F-F$FFFF |FHF 0 :FF 0 ;FFF<#<## ߂ #߰ ߾ Fp*݀F$ k& ߤF$ i F0F$F$ j0 F0F$F$ jl ߝF0F$F$ j F0F$F$ j ߀F0F$F$ k  ߙF0F$F$F$ l ߦF$ k F0F$F$ k F0F$F$ k ߝF0F$F$ l: F0F$F$ lv ߀F0F$F$ l ߙF0F$F$F$ nJ F$ m F0F$F$ mT F0F$F$ m ߝF0F$F$ m F0F$F$ n ߀F0F$F$ nD ߙF0F$F$F$ o ߧF$ n F0F$F$ n F0F$F$ o" ߝF0F$F$ o^ F0F$F$ o ߀F0F$F$ o ߙF0F$F$FH i<  ݙ ݠ ݧF qf݀F0F<FFF p݀F F(!!FP!!Fx!!F$F$ s ߐF(!!FP!!F$F$ s ߨF(!!F$F `FFFF  |F"\DESSIN\PRESENTE.PI1" OR n_file$<>"\DESSIN\PAIRES01.PI1" OR n_file$<>"paires02.pi1" OR file$<>"menu.pi1" OR file$<>"pavage.pi1" OR file$<>"frise.pi1" OR file$<>"paires03.pi1" 4 FFFF$F!!FF  F 4LY! "INSEREZ DISQUETTE DE SAUVEGARDEF `FF z<# #ߔ F><#ߑ #߬ F><#ߑ #ߓ F><#ߨߏ #ߨߺ F><#ߋ #ߨߺ FT P<#݀߀߀߀߀ F ݀F0F$F H݀F0F$F n݀F0F$F ݀F0F$FF F  F$i"M!F4 O F T!л F &Tл ݈!V !}F V!л ݀ F 0MFF F  $ .ߠݠF.0##  F0FLGF!! F `F!! F ` F |F$F$ ߠF80###ߠ  F0FLGF!! F `F!! F ` F |F$F ߠFLGF!-! F `F!-! F ` F |2F$F$ ^F80###ߠ  F0FLGF!! F `F!! F ` F |F$F FLGF!K! F `F!K! F ` F |F$F$ ߠF80###  F0FLGF!! F `F!! F ` F |nF$F BߠFLGF!i! F `F!i! F ` F |F$FF F  F F F,!!!!!!!!! !!! FF F  F F F F F F F F F F,!!!!!!!!!! ! !F F  !! F!!F* < \= ! \. F\B IFF? !! \F F4= ! F D!. FE DENupN֓DjdDA@ cAр[SBoJjDBNurptNuH@g0J`Ѐ[rGoJjDBNu0ftNu@[rB oH@JjDBNu 24afpNu 24afpNu>jDGGe GbFGNuG GbFGNu~Nu $HkBk Bj*DBNupNuDBBkBjDBDNuf gp` 246jDCCe0 C/jC C@j C jr0H@{0>H@Nur{0Nu{0NutNu 246j(:<DCaf AfBfNu`a 00Nur$o, b4< J@k @[H@NuH@RBNu4<Ѐ[NuDg8k2 b4< J@k @[H@DBNuH@RBDBNu4<Ѐ[DBNu4H@Ѓdh`^HCH@:">H@`H2g&HCH@:<HC>H@Ѓd(`HCH@:H@r` gDBgkDE`HDBDEaBDBNugDBa8DBNutNua 11!Nux`xa`a` 24&8:HoHoEBJAgJDfr:g,|HC҅H@:ۆ<HC>H@Ѓd`vHCH@:H@`fgDBgkDE` DBDEaDBNugDBaDBNutNuHoHoEBz:g|HC҅H@:ۆ҄ۆ<HC>H@ЃdHA@B@H@хk HAҁHAрSB BbNuJBj^tNuk(g.JBjDBAр[SBDBjNutNuAр[SBkNuJlNu0gH@rJBkB JkЀ[`DBЀ[`J.;gP:pr4<Nup`$xa2`Ba411!Nux`4 24&8:`& 24&8:`a&8:` &8:@ABJEoHnfNup`tNugDEDBHngDBEBkQ*HEJDg?<>0rHGGdHGGdSWDуdi?<>0rHGGdHGGdSWDуdi ?<>0rHGGdHGGdSWDуd&2 H@kփAр[SBkփejRAd RdQRBJjDBNutNu?<,>CEdGH@0r`xJCgz?<0rÐdSWЃdi?<0rÐdSWЃdid?<0ÐdSWЃd&2 H@kփAр[SBkփejRAd RdQRBJjDBNutNu?<0riR?0i?`?<`>apE*>gP,`LJg&B.C`a8aD*96fap-I,=|p4aHz*96g ENp9*` _a &nO:NM>IBRK@$<Nu[1][Error +111][Return]E> g g>Jf`Ar Hjr-D@Hd0H@H 0H@0CNuAF"H [1][fSEfNu`HQ?< NA\Nu"_K@M>IBRO:HQ <-H*,`N,Jnd d3 d# d# # d# # # # d ALH dAL H LH d AL`H L|0H>L|H>d~# # # # A`@ALH L|H>L|H>L|PH>L| H>L|H>L|H>L|H>L|`H>L|0H>L|H>QL|Nu$H$&"BA -KaXA"f B &nNuH>dd2d"d""d""""d LHC dLHLH C@d LHL|H| L|H|PCd~""""C`:LHL|H| L|H|PL|H|L|H|L|H|L|H|L|H|@L|H|pL|H|L|H|CQL|Nua`Np?a a?<LNA``NuNu`aza`aa~aHA-Hhp alpMah=@F?<NNTT@A0r p0Q`pdr ta0.F=@=@ACp,2QAp 2Qa a`\`Xpea>pCR2Ad0A2r22aX"<Q0<NBLNurt=@:=A@=B NuHz(` NQHz ?<&NN\Nu9gNuWNu|^|  R^,T:&0D4(*<B$ ,>2::(   F..26"8@"PQ1!P1P!0PP`0  q#aaa Ta O: n*NNuNuNupc?a0QNurdAd6Ag,B(dB(dH Ac<atgBAp`FNuNu?<OA`d?<IA`Z0<H IaHLt Ig Og Ug Ag Rg*afNup`ap`0afHRa>Er$Wgr STD:gr COM:g r LPT:f2FA$_0=@D~CA0< BhapB2"pNu$_AF Ge><QBAFpNuahgzp=` a\gzp _aG` VNuag`af`ae `ac` acpNuadpNu/ a$I> _a4Ae4v` VfANuHP0(R@kBa $I _aIUd4Id4Id$Id `$$$$Q @JfNuNup `>afSAfNuag`af`ae `ac` acpNuadpNua2SAkfJANu?HP0(T@kHa$ $I _a IUd4Id4Id$Id `$$$$Q @Jf4Nu0XNup `aUAfQNuag`af`ae `ac` acpNuadpNuaSAkXf SAkXfJANuz`z `z8.^n\Dn\@Hp tr=ED`rn\n^n\n^A0000000000prt`@n\n^648HH`prt`n\n^n\n^8HH`prt`"_A `4RB`"_A42L\A` L0GF11Q-p`prHQ`Bp'rta n2rt6(SC0(S@apaB\papava0paRG=GYfx-IC=C=C$tBft=B=B(tFJ=BBBB*Do>Eo:@l6Al2DDk =DVBnDEk =EnBn@cVo Acno,_NuAH`/=@a _a ]Ak024E$ Bb5B5A6CC5CK5C:8AB0000DkxEkt00A<:d>:bSFSGFn\GnXDDk0BhDEk1EBh Fchh Gchh0hb"0hbpmrt-|]H-|]L`Nu-HNU?<NNT-@XDbDEbEBb=ET=DV-|PBLBp n20(L=CJ?=B^C=C\=Cj@drAdnED??RGRF=GF=FHtGJ=BltBft=B`=BnGOpЇЇ b na 222-IfHVMF,_Nup `T np` 24DBaDB11!Nu 24DBa DBNu 24x6o<Ce(FC BdЄeNu B/dHDDdRdQRBNu&<:<`Pg BbUC BcjNu BcHDDdSkg RBAрjNuNu0ftNuB H@"jNu Lx6oFCe0FC BdЄe!Nu B/dHDDdNAXOJkpNu0< aF`0< CF2p`p a0`p CFp`aCF"p`Hza `Hz"J`B.@=|DNua.@FpAR@C` B.@=|DNuB.@a=GDgNup`a`aCF"E p`"P02R@H`2Q Nur ?HQa _/ ?a0 _4gSB@c:Ad,J@gB@BmS@,. RB6Vg(R F"GQpNufJ@fRB`fS@kVft0HNuaaJjtNuaHPa pJk NuCg.BJ@g  g &g, $g %gNVNutNuRpt`2Rpt`Rptr ae OgX Xgn HgSRB ae Fb$0k  c_  c b退`tSHkaִNuRB0 b b瀀`RB0 fрd`$ a Nua`a`a`]A=ADNua`a`a`H0aTL` @H0aBL`?<%NNTNu"@AE(ؚؚؚؚؚ:HDEH*ڄe(Ab~x|<چe4SGfRRD D exE<`*gQRD D epNuDHEJEf D kT@Nu/ a`S@f _`8p@`T2(gbc  P"H`Nu/0Hal2  _ PSAvjx E(Wf* ae zb Q @NuBnp`pBnp`p=| p|=Fn@=@b=n`raHj=Ah~`:a JfBH@ RfF.f Kg" Mg sg tg Pg Hf~`xSGjtRGFcn>`jAF gp gj g grffnnpenbfJ.fj6pRGFc$SG` J.fjpRGFcRF` Ff`> `?~ap a0p a*0Nu|``CpE`bf`FgRGJGgSGSFFgCpE`Yf`Nua@Jf gH@ fa(@ fza0 b @ Ee0NuagNu4.rf?HyaNM\Nu=|D`LjaFzEfpadppa`AFEg0PaEfaFRE`ܾEfp a@a8?nnnp a2RF`<annoS@f nhfSnl=Ah=FnNup` papq4.rf?HyaNM\Nu=|DHa2LNu|A0"P2(@e2<EF`QHP=|DJ@g$abAF$HpR@ 0 f _a`QNuHPp?ap a| _2<|0`C&pHQ/Hy@NA NuC pa:NuHQ/Hy?NA Nu&g4 FgagJAga2< R@AdSf0Nu0ap Ce`&g4 FgaJBjagPAe CbRa R@Sf0Nu FgRaRg JBjadAeaJAg RP0 pNu` Fg6agJAga @ea$RP Nup NHѨB?<?/?<BNAO JkLLNu&8aJBjaJAg Df*ڃkd0Nu DfրBH??/?<BNAO LJk!@NuHBHh Hx??<?NAO LJo ѨLNuk:fp`^k: g ѨNuBHPHQ/??<?NAO _JoѨfNuBHPHQS/??<@NAXLfѨNuJkp%`԰B9`$H EaA AerQBL@͉H Ia&"H _/ aa _/ ?a|AF-H AerQB2"_A&-H A e ` \gQBa9gaZe -|p[`pZaژajAF"H0.g "Hg \f`A&fS !.gR EF _a`QNuHz?<&NN\ @Nu x NuA@Bh`A@a n@!|}Nu _S@Gd@GHpp/0NuGNpp#:fp%Nup`p`#6NuHz` Hz`Hz&$A?<&NN\NuNu4Nu$Nu(a؀.dfa츀jNu?a0` ?a2@@a` a Nu4.`Af n2LR@RANu4.`g S@SAHNutbpbr??papYa0a0`D@v`v??NMXJNuJ@k??<NM"UAf J@fH@NuaLj0fpNu\@`a8`]@><CF Ipa<0HNua`]@><CF Ipa Nu?|`?a0R@f|0a HJFkHPad _Nupo`HSHP&I>g\SG??<NMXJk Q _t&_Nu&_`ѠaJANuag `af`apNuapNuC`C``C` C`CJhfJfRRRRRRRHP? @CFH~8:E#P&<2 `b$bYEf`"RAf rЁЀ`&Ѐe "ЀeЁdp`JAkfgRer?DDЁaAaӪ8$HX :CFE` YEjT"_$P"2trDDd0d d d` QjNu`TaDa DNu na^ K"ng42 $`gk2&Hg Af deђ$`ebѐXf&nNu AgebѐA``-Kx$ n&$n""Hg8" &Ak cѐ S`g"" k#&Acё2+SAI3 Q&f-I"&nNu-Kx$&ր n&$n""HgR" k&Ac b S` S`g4" k#&AcbrkX`ޑ2+SAI3 Q&f-I"&nNuaP n2L6(n\n^HHHNua0 n20(n\HNua n20(n^HNua n20(HNuaH:ffNuarNua J[HHNu:nfa@ z^0NuJg6$:Pf,H?<"NNT&@p/&|>ra :,ga &Lr`r??Q@|<]/<NNTO*@NNTOJ@g.BQHV?< NA\O*o4P |u ,UGaNqNq |8 CJgёrSAkfC`C`T+[+[ +SLҀ* Ҁ*LHC&NNO$&YdL (HGBm*mLN$|:. aaBe`a>e `ta2dI"a:SBkHAA Q`tra$4 BH84 aDNuЀgNua\рNuaVр`BBЀgՂQNuaevra`(I^aev`raSBkvB` I8a6I$a2 Qm\Nu| QDNu !!! 21 Y *Sentry 2.2 by Eagle` k:*o( -Э_]" Ҁ.A// ?c:JOB ~I (1RIJ m Biz0B3!k,'F#5S# *H!8pkLcn% 89f\/njm׬? \BgNA*KPJdg1"}v`qNs0y~s/QJg __i8$6Ճك|#dF='{>ك|g''{0O`>ك|#dF=XO`>ك|#dF='{>ك|#d֓='{0O`>ك|#dF'{0O`>ك|#dF=XO`>ك|='{0O`>ك|#d֓='{0O` z#dF={0`'Nރ 5yFp={0`'Nރ k={0 `Mރ#8yFp={0`' J#8yFp=X`'Nڃ @             iR9YvB*<̮(ڹ EC@rذ\  @"y8g:0Ҡ<`35@AH fI0``3 !5 ()f0``ah `3=ك|#dF='{0O`z#dFՇl>ك|#d='{0O`=ك|#dF='{0O`z#dF=XO`>ك|#dF='{>ك|#dF='{0O`=ك|#dF'{0O`>ك|#dF=XO`>ك |='{0O`+Vރ# XyV={0`Vރ#XyF {0`+ VރUyF`={0`+Vރ k`={0`Uڃ#XiF& \`S`S`S`S`S`S`S`S`S`S`S`S`S`S`S`S`S`S`S`S`S`S`S`S`SiR`S`'eQB*<3(ڹ EC]a#\  @"y80Ҡt̨@``AH3I f0!P` !(`3) f0Ƀ!P`ah `dF='{0O`>ك|='{pV~y#dF='{0O`>كdF='{0O`>ك|='{0O`=ك|#dF='{0O`z#dF='{0O`>كdF='{>ك|#dF='{0O`=ك|#dF '{0O`>كA|#xF ={0y`I9L ` ݃a#xwF ={0o)`9L g` ݃oF=Oi{p;L `/^ B _ŵIf+/'0),8q4iN-xBBcBEdS*<( 95@#tp_'N| 8p?ďE.+p \o"E.Kp\"/ȏE .kp\ "?9#x vsvsv/F^͛;w6w5kZ5o\35w]s5{^5̀̀hRZvB*< ˮ(ڹ EC t-\  @"y8|0ҙ f0!P9@A`H3 @ yf0! P!(`3 @Y` f0a  dd/F_''';,.͓8,|1Obll8p>ً|yyŸl><ً|yy+^͓|#ddd6b><<ٙd><<<ف '{1O6O6OvZ/F^ ͓͓UOv ͓ ͓ 9A3 77!E@A9AI H0 A3 Y7Y7A3 I7I7DA 9 !)(0A '`#H4xihD2a̽<{{+ݿ\mH^ N+8踊KD(Wȃ+ԽhQ&ܸ; <޶6nm=CzzFWn=̭޹|[t# Sw;99@9anـnny ns`ÛYÀ (( Y 0)!9Lc aooh`Sia}s6~H 6{ @* A঩ÕzSJ) ! y`aI7Q`````\5OS>5OS>5OS>5OS>5OS>5OSo>5OSO>5OS/>5OS>5OS>5OS>5OS>5OS >5O So >5O 桙@8A099aswwx݁y 0!9askkX"ȵaYa޼ r!0) 0s , AEi`\IH # @3NxqՀW qZ+`RIQB*<(ڹ EC@r\  @"ygc80:.;666666666666vallllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll ll ll ll ll ll ll0 9 B @1P9A8Has90؇9 ـBP9qxa y a!s(09a `QaasXh Y0H9L6189 f0 qxy``3 @QX YR f0Rp0BBw6Ĉ ):)Z 9$9Vj<%arp\Ɂ f (008@`3HPX f0`hp`x31A nڮ3آA&>wYKRȕ0|g n@a^@)Q 8` j]6p 2 ­ ((0nn0088[V@@HHnPPXX``[Vh&ppxxp+܈3h OВ6X(4 j B"y8+΄$I8(_ aaaA@r0@f:,u/ 8fg GX"JX:#f<EN>FïOGRBtRCVR8`3012 |@4%&6BK8CLDJBBJC­CJDgSDLKDC0QȔp f0̄Q`? araPub5"ny@g  ƞ> ;frC  ,>Hpa! lK6 |;3G1uw8 7 N{>_ =XWݽi!M3A@Coo;' !Z.8> 'y<96'88o?Q[7 W< ?*8:y!Of? h|k﷞F?[? o *pB`"Z [Sa{ o^#lC 3?gD? v&vAo06moi[_ q{/o߰?#?c°W/ yy!o獇x`kw ?߫aݽڷ?A>̓n?[awjߺ?h#!| O?G#z?~Ww5s?Ci=n/' '#\X_?_փ_ p r K=c8c?||/OO?ۛ=Co/|in/oa<=}yyG#/`վ GƏ O w p~o_}k o}Hx_ L %-o?.Sa^ֆ0{C~*4{$\pWGBY?z$#\F08ۡ˻$ Y? 7vzQx$\cx.l}O<w }J{|Of(gWo/C<8< w p /{,080(7;^Oaxpw8x}`zgՉx _}pa4q`{̴|0½w?"r``Km@8 ?-Q Flb@Kٺ ;  y@pG|0o(p7Cfrr{|@|=~r+@[|?N@30 .1uF気+0`,yϰs 3=lw-S`@c蟐O`4 t9>n6s#w?^@o>ݟ7\C?Bܽ:|?Y'A 6 |M3AXiAo޷y_6?W= gܫ3C}'̧3a?!?`~?W |/IO@{:JA9o``>~`gSowZ\@ l^=)}y(o[etm3?;w(o?P/@O#O*%[Jo߰?S.n_ __￉|r9ُӋ@Oo 6<Â˾786x?nn ???INC?獇xkw=~O fg1לH#8{??N^ݽ65\@~u`:V ~v  v_n%λ]^ q _W`p`_?moo}I_?c  ^??V7F;q) _ǿ?'_Ͽ@ W?`p o{ۿ&O 'h8?z~gb3/4? ܽ{s7{mrw̄l_G?7oo{>?xus2m|xew~4۫]> ?໇t?u? 'ۣ_w .!o&_x}?o_C<v߼?=až4 0_?CϞ`Kߍ`q_?o;Oo.7moo({&p/ߞ|Y~pݑCk4!mc߾%?a?W/ƿy.K }?{yh8o=)T'9o߿'pC#=<쿀]o-8|`Yޗvyo/o=m)12~iּ?{z&O+qտ Ϸ$ Ɵ w~0{+C֗`S Naz{r_  ??~/^?̠ OCv9?x4SXv$\cz~ =ۻW$\Ac+{6?Y? PA?w<87]tcxzA?D =n?KIpݽ/??(8{ (7 ^ p S }9,1%l* #?%ax0@># ^a uiW'-x {``0 zwA0~NOPϻU :Q  $8VŞ@ 8 lA,Hrdm|a d +@[ ^~E|pd`@|`rv~r !;3G=@ad ;x#1ti8#9(w0 E0'/K;GW=!G@zw^'ǼRq?_~?#noG4o;_Gŧ { /!]??v!?=Byy|0>i7p=?F{k?`{?b=?v^|k̟s3Oh|COw'{s4'. ;~ux  Nqo{؃?___mw;_Oུ7?f. rq__R~+ 6__~> A ߿p)Gc? m}ۣqW/KC.wvggy>W~{|+Y_4[g[߃_'?mo^Oyo_?V!`u_?ڎ5-`~k\@<}Yo_Ki(o7aO?CyhK?@# <M. v/mG\}0 8p`(7p޾=0sv  qw_mo ]5uO3!e΁B?=ރ1 xm!X`pQz?wC_~/}eG?BS/C~gA`Y'ALz_ *ph \W,3;@?ǰ}?I?WW/΀p!GN:?Ǐ(`4~, SCc=/?߷㩁7Oww2_‰.7|\)յ=o^g_?wzע?/[x#OA}OOO!~=`߀? g?\#[`|W 0 O SwGwF>Sa?5 .}yu_}?CؤF #ҝ\?ms F4\c!P{ 70Ǽx9~{86acHW $0(7N`!^;u3(7!C<`lֻN 1^{?,00_Ba3 `8 9m/ |x -Y`y0 a ?'Ek@ Br盶G199 Gt~΀>7Op7{|}ݧ vy?!:F("@0 69G粒 c`p&=# #@`{[ gM͟}tf&2>M40  '@|?s`&:=!0=v)0gП??o@O/p#-ćj@v0|~ov}{Gf[l pa Y" tfA0nh& |}~`!v"m~O??j?pGx{[<_?͝C;!g0~ G|?oxKyn?&\Z ෾?pDo2?sy?& gpCO0ao XO?&\JRsy \oO3SiMS?? ^oϿZmpp%^gn硸{x ansowO!_ۛ{o<'O&f9sC aGXOa W紷>Dc|76h=ᰄ 04 +^#GOO?/ ? -6oL_8 -O_E/oﭟ 's_I|L8/w7Sj5E~^#@'y:}~+{Os?`⼾g[!_.__'GGo{:o[#7_.޸&)0<<>?g3'~kv'Wd>`j۟F.81p XDy;`{w|CѢk/Bнoooh}ahw; `sC<0>crCojs /9p'{cqo xco?d 5{_{'/oXy_p?_w7)ޞc?/8m"W Cv/ W'g[% ?OϷ#̜z+q)03?%.`{t/_eo%oRp cG 3q.1#7pZxC3,nopl?( u{'T(!"R|!C@xt?~p0쿂 A+ 6.~ ,C_CH4G;>6*pV=Z@ :??!>0.=A|x~ {yi^XD9 Gڝ}ür73+߸0|3|ll!y־?·#@ ^#@s a9r6Z ?_^?|!p|} O^@^@XTc@!z`v8+3+ w54v{xfw,?c~x|a ǟ8޽XG` 0`| $0;DH[O  o7'&o 3uc9Р ֋`L7P@O\Wo6N__B N[`3/2G|ۿ x؁_@>vh!O @~i ~M _R7.`;G o"o| Q9 {`v3?WszX&anplôF~~  {tw@hW/s57~2pٳFX8?84{밨 N#筅`{o;.'#_RNg;(>0<1ga {}?ɉ9y mw)y+ U>o_Q  C~~0J xۣ{aWS!?g&|ygK^E mwLrUsA%|+7[w+ @AP > Ʒ }3#!_J09lϗ(Cr @?e {ր $ ϑ #8 bt!tF  `:1< 0 s $1ad_`@Qv ! >GfQ́@?s@9?s@9?gsƙ8A@kHeTPPEоUEUROM PEΩSSIGE CBBRU9QCx$vNGEXT*IaMFU>J,WR[\{W'BOUnET?{Zb!_BIPL YYܧDԍwSNAJ%)FKȵESDȇXAMES= GGK+O LEARM!!KIFNCjA|DNGLISHaY_AHAVEDUCATIbSN THbkRRECT COMPUTER :) WELL IM OFF NOWkBYE . d 0Ng Po_pooUso~poo6f``",5``K,``4 B```,4` ҾPlVP3T1_@@9OS@@A<5AAOSsAA3CAPP3<4PPCPP<4cRp>,114D1113L41`s f028H7k0Xhx`32A1(+@p,`+ -@p@.@/ p01`+2 @p@34@p 56`@p7@8p9 p:;`p<@N= > @@?@`p+8A@ N88dp/'~^|x.cc_G}\=@+8< ;`Wq: 9p8@N 76`5 N 43@N 2 W1`N0 /N.@N -,`+ N*p)@(N '`N& % p$@N #"`! N @N  W`  W  @ W@8 `Wq @+8ēǂ/^< x ߻xtm}|y>E"Ocɻ@9+W @rC `+ @Wq +и X `\`@@ (N`+ 8` Wq@@p+ p`+8 @N  @@p`+ @@p @p !"`@p#@p$%| &@'`p(@|)*@p +,`@p-@p./ 0p1`|2@p34 p56`p7@N 89 :N`;`` ?@`p'A0\@ ' N<%x=aďo7ţxlk}4,Ny|O]Q@'Uc9P+WO`@rN CM+L@WqK+J`I X\H`@G@ (NF`E`+8D C WqB@@A@`p+? p>+ =@@p<'\;` : N 9N8@  7 W 6` 5 4W  3@W@821` 0 W/ .@  - W ,` + *)@N  ('`W & W%N$@  # W "` ! W  @W@8` W@8  W@@8 '0\`  N @@p'x28Xp?/^{nm> g7;YiL>ywY@4'p 4 HN` `r 8@ Nq Wq +`H\@ W  q'0\` N`@p `@p'\@ W  `@p@p p!"`p#@N$% p&'`(p@)p*+sR C"2D\  3sP(A}cT~o!*ۀ.=@ Ѐ/&$[ / |;@ĸ'g 0 -&8iұ@$A[XXx8g簢xW8k.>A@~,Џ /wAh; .X"`;[ zw;`=_\`` ;U{J~ygava q˽DA0^1A |=?X u?o';3ŰH87 N0H@X~6 4?H{ CI@0 AfmH7HՍ_A~A@;([4:V@L;( 0'}ǎP D =Ow+8,${۳?g@A 8H 4a8@j  oj`p'1(8Ӓ "A;{dye/&":.P\` JՀP^ƲåShlgXqK ķnPuK l % h3.aX@ (Wpζ  ^=xXHK@hU6ܬ @!VOd[_0L?x(B2m;P8C @@6m zCnm.`[^/i o=[w}A T/yk_`&[k C?`(oC.B~7ň\;#p< ð<%C5 Kx{hۜ@7+xdc+]@3\@< pHM p@"}X`"b7V .[ 4ts𵐅JaK p >SЂgpLh v287pc J9ͤ' t^@ S=[HSD (*p𐀄ӟ̆vLp2HlDޤxH {K40 .h@>"( mpM@9Xhn'G1: 0{@o? Lys&[(p$ Amo >Wpp [ڻX )@c`;@w1q0Tڀ8KwNRa[O` h')p.шɻ}NGo1P@ {؁pLftJ[|dO<{nw2pbnQy;8! iQh& p k`Hvh/ xf#} 3SЁ{Zv! V<{M{_^( ջ󁋲R @3<;ٝ-hpmsk6=~Fy8$[ύ?#)I n߸; sp5F}Bȹ (t/Z*W߉ӕ Ds[I ,4"~@`E\ hsgO];E7X_(& .] vG!ḥa a o0hXts `8$ >\@NiGq¿??T?Du00?C@d0 qa~\Tzl.üYA?u86@@pQ%ؓ^@,rDj | Ua|"SWEH@C.-RВC0\9_"PDGDH iD\Vn0_/ $ĤA9GSvO?h]9elLJ 5 OQ#)Wa@F(s@%k+= U̇΀̜B̝0fUD3"fUDgVEwr)eWEe> !Kʼ@ֺk0yO m+u-Η<96i~@$ 62@`Y:2fƂ{=eA p h\,x@ 00TY .zYNUTpV7(TTVR9ז@u71p Bt4C8tSC4 Mq1b=O͚o07hP`/9|a #@(4(>@`Wmx'P`\"]E((`=g'/sj  +!  AODb@}7eT=7`0.&0`͐@*ED^ z+ * ?`* n|#=dWy"u/0Y\#{jEz`,8-Q` {\}e֚)(<RN uTv$@ 4mHʳ}=ꈻ@@Ug0(Q==)1`b9ivˊ}a@A*U`U2BV@zP(Au_2GG{ T"Uh!wayEzPQ  u逨'@]Q?j  ?q*|uD *D,@QET0Mǧ lgT^nP+=Aֲ5@8lXEuDJ 5 űM~?  _>yxi(RW ]e /0PUTnQ {1 QHh[}@@.{uUEY+Y7P8Xsi9,.Pأ{**o +~kج@!D9:fa=&T K[ ٣_O /0qP$ d+TH1  1c֐)@؃PM'oÂxA+~Db@@ t}ǀ9A) (`-20(lͳKL1 ̀`ݱ ( U Sqgi+2~ ب4 uQ7 o>@.^>$Q;2 p°F@#qxP f0D  0A*؉kA`?%0 'ĕ$;  ד Ji7 T ;6D|Qp$1}R:,E"* Z{L j.9 q* 0R K PT/@& 9<sE=rp`@v_&  I$"Osa_&6H`/s RHCÀa_(M &BA‣$ĜkGqW߫\]N`tOh|d`3g0SNDHITL FunbKMMJediRIPPCONVGrazey / PHFYEAR# !#01C50TIMEHDNS8 3@rpNEY]y/a tG]!`3 f0 `3 f0!`#ط` !356V/@F'n9FWI  ` 3 f0`3! f#%X f 4F߰X;Ü ((fUaί t 0E&X(Dg&I&YK(` fSTf2 lHf uR va?gJBV`>MBgHa,a KfR-H['  A C n ) zJ`\ $zG(zK0ytvxz|%E`HPA٩Ut]EWѵt!i * _NuHL? 1J@ =|BnQs"z ̰*eeD}-&+ܶv rD&!|2+C#0|/؝VEĚkLtSB uU6$ȍ`à.BÏ`Ki~&׃i3VOZYT6dTߘCWW16q4[*V雦/`SPX:SOGYbǠ,z$3F!><:]eSe6`Fd`6&C660+zfVVrBKC6`z26[:HG?`s[JDBh:k=|BnQ*zJ :j1[U`*f`BT~&eD]VH<`=zEM# 6`D>&!|+|E#P/xVI؝ĚLxSD kug-R eH 8,<N.;hNx*m,2`@b3 $˦`ȍvۛB.$``d:*z~PLDtjqO_3`puQ:_wFF( {gVL]@#R_2o<P ir~>G>6S<NFc|RGadOG`,rpە4(D4d*?>]6<:8 FgJGk0}e:z&BVQ`Fd`:(DE:6P-4^VVǭE:`CF~:]:HG?`n.nNg J~s@9? u Κ?~> 2B! bI" 7ȋ"BT'( qB'( qB% %+ ;  bp@18@  xȀT}pπ x+ԗ^ D*Kz %*/49>oCHMRW\afk pou z o oo o$o).38=BGLQ Vo[!`e"jo#ty$~o%&'()o*+o,-./0o1#б:2  4# ~(-627-`?@ ~TH?|.NT7bl.%Xçn57_a/G08yN.t03@@eTHKTVY"'feaT %7F$We a'8%t  x3THKJ0@0-+.q.]s&'<~z1o{ zA .)&"b !G$'+03s?:7450H<@2H|m}EO{S+L_gV=l =22 f c d.@\Ck1Qrp`"N-n% n% n% n% AL0000000000prt`N-n% n% HLBP=BTBnVp rt=|`N-n% n% HLBPBT=BXBnZHLp rt=|`N-n% n% HLp rt=|`\N-n% n% HLH0Lp rt=|`2r`r `r?N-n% n% n% n% HLp tr=_`N-v8<`N-n% n% HLHLBPBT=BXBnZp rt=|`N-x:<`N-n% n% H0LHLp rt=|`|By GfR?.?.RyaF?aL?Ry -Ff yg T4:`Nq?/t`N-`Ndtn% n% =BLHLpgrt`pa&pja p a !g" %Fg&N--@Lrtp a -Fg Fgap&a=n"V%D=n#P%F=n#R%HNuN-Bg?N"/N-?@N" @N=&, > _N=&4$FAN0||[000][vx`*<[g"<]g<|g QSx` xQSrQ][vx`*<[g"<]g<|g QSx` xQStQ]BAN0aHNlxaHLpirtap0."NNuNd|???<NN\NuN-~GGGABBC`pNp`p`p ?N-.fTNuba??.% /Ra??.% / Fg/N-oN-o.CN _<0aCL _<0a 4r0`zڇ|gk0F2TQNu F2TQNu 24NHF2TQNuv<e6Cr@AA\ p p8 hf X eRNupNpNN-|=@#pN`&N`ALI0`0QtpoaHNfN-L% HIHIHIHIE$4 RCL%bEPB@@HƜCAAHǞდ 2 ІQ2 @`ЈQЂ2 @`ЈQмZ 2 ЇQ2 @`ЈQЃ2 @`ЈQмZRIcprt`fN-rtFSggRRfNu$n\eN9d-JaBb% Jg(CNup\B.{Np!`-np]`aJ.|f .Zzg .[zgB.z(n Ff(nNup`pv e6C֮ C/g?a nc*2 ng|f` `JfY-H`Jf a`flJfN9X(_B.zNu&n .nN9 .bpZNvC2;0N-K FfNuX:4444x444444T64444tN6C nd B& &6Nu6C n` BB[& &6 Nu6C n| B[& &6Nu6C n B[& &6Nu6C nh B[& &6Nu6C n\ BB& &6 NupZNg _3Nq-K*@XN.z-KAiXf J.|gN fXNu&n0#f #o-K(@Nu|gG`T-KNuk c | gT0f #ox-K(@NuPp0 cgR@|"D!`aHp N- _ NuaRNutrg4A v\B 0 gRNuaRNuvrg6A v\fC 00<f @ Nu?No2|eg QAeg|gЀЈNuЀЈNuЈNuЀЀ 0Nu$n\eN9d"-JBb% 0@ n 0g @ (Ff Ffb(HNupN FgL @0Hp\a(_Nuj-< g,|@4; N <2gS  f#Nu:4444bBFF44FF64444^>N0Jk"n\@HqHPN" _??/  fSab&npЮbN9pЮe( && _& &6 -KNupN0Jk^"nd@HqHPN- _/  fSa&npЮbN9pЮe( & _& &6-KNup*Np-Np.Np/Np+Np,N0Jk"nh@HqHPN"0VH`<0Jk"n@HqHPN,X`0Jk"n|@HqHPN, _?  fSa@&npЮbN9pЮe( 6 _& &6-KNu0JjD"n`@HqHPN" _/  fSa&npЮbN9pЮe( $_e6Bk K0*N$RHd2Hd2Hd"He`""""Q`"Z&p0P7@g R@|#\ _& &6 -KNuS  g$j|@2;,N(U  fj#NuS ( fR#Nu|@pL $0dX<x<lH ,`T80"n`r`:0"nhr`.0"nr `"0"n|r`0"ndr` 0"n\rtg gpDN4B@Hq/1 Ra&npЮbN9pЮe"_ _& &6-KNu0"nr tg f4RR`0"nlr`0"npr`0"ntr`0"nxr`0"nr `pg0@ d n` n 0g @HP$n\eN9d\-JBbB _"H Xf^ eRR #g* #g gHU*HN"HaL*_Nu #g -fbHQa""_R yR`].n%OH (IEi\ \eN9d"n-J5<%Hd2Hd"Hd `""""Q eRR #g* #g g n0 "`k`!MN #g -fHQab"_R`pENN"e0$@0*N$RHd2Hd2Hd`""Q `N"HaL$nUJ&"Kd?"Kd/"Kd `/"/"/"/"Q-JL0/H=G%N_Nup-@$-@$-@$-@$=|$p-@#phaL#H$JKBCH%A'0 1PP1P1PA$L?$<@>AFGH 0000X0000X0000G$~A#0g0  piaN QNu MWfRN-Jf ?S@k8L$fBfC`2Sk|t A$ $ %`|TNuN-S@k*|> A$1EH`fHa-_% TNuBn#`N- -Fg.?NdJWgL$DEFbGcTNuH%a0S@k|> A$P޼'ގ"G0(<JgRJ)@g1@C#2fP2HP"$"%pda W0.#1@A#00 pia=|#@#pia _C#""pe`.=|#=X#HPpia _C#2""piaݺ=| #piaݮ=|#phaݢL#H% P%P%BH%.SBSC@AHLH%6p=@L0<rt`ݢN-S@k| A$=p#fNupa(pa$pa paL%6ra`,N-S@k6| A$=P#gBPpfapga=| #pha=@#f8Bn#a0Q%BLB% `ZXNurt`rtH`N-S@k|?a 8L6BPA' E$G#66&:|NexMQBB*g piJn#fNuHS&I.|V%8.%F:.%HL%24.%>RBĴ@cBn%>aL%24.%@RBŴAcJSA=A%@`@pJ.%frJ%Bk8<Eg,2.%D<pg <qfL=A%D=ALpjrta `8a`2< d.<V%Bg"< gt< gZ<gn<fPSn%>jBn%>`D=@L0.%>n% =@L0.%@R@S@n% =@NprtaۢRn%>0%>n%2eBn%>aQ>j4&_NuBn%>`a*\`Rn%@<%@SFEn%4eSn%@`NuN-S@kN| A$C#0g8?a(=_#p =@#phaL#6FgaLp `p`p=@#pk`ڸNup-@%>"<$&HLA-H-HBnLpmrt`Hz ?<&NN\Nu nMNJDjDxJEjEz0oxDhk@ol2ohEhkAo\H 8N-@-@ p-@*-@-@ H0H00(L=B=B&=CC=C=C$tBft=B=B(NuN-S@ A$00HNuN-A$ʰPgh ghgh$g0<NupNupNupNupNuNJHz ?<&NN\NuL%6 nMN(8N-D-D x-D*-D| J@jpJAjrRBhe4(RChe6(@otAop=@=@NN-`pH@*A#0.0CL000H?-|#paӰL#H$PH,v3LHd"aVHd"aNHd"aFHd"a>Hd` y g"`,2:WAARA0:xAi\ hfRAS@f3"g$$n\eN9d-JBb% (ANuN-@k0;HNuX@gAi\ Nu <Nu N-z`N-zAC|HdXC|2H0`(N-HpA`Ap` A`Ap4.Nz g=BNu( (?<NNT. n0(LJvA HA HNuNdAHN"/p -FgN-|d _&X PdXNu6:8NJ?<NNTHV nMN-@ @6H H00(L=C=B&<RF<>RG=G[fx-KC=C=C$tBft=B=B(tFJ=BBBB*Do>Eo:@l6Al2DDk =DVBnDEk =EnBn@cVo Acno,_Nu=@La _N=&]Ak024Ex$|b5B5A6||5CK5C:8ALB0000DkxEkt00AL<:D>:BSFSGFn\GnXDDk0BhDEk1EBh Fchh Gchh0hb"0hbpmrt-|֬-|`RNuN-CBHN"&@NJ?<NNT-@`LDbFEbGBj=E\=D^-|XBTBx n0(L=CR?=BfC=Cd=Cr@dnAdjED??RGRF=GN=FPtGJ=BttBft=Bh=Bv|OpЇЇb KN222-InHVMN,_Nup NT KpNN" @ <}N&IaN8TN" @&XaI`NJ?<NNT @"K <}Nu @HPNJ _"X0|Jg2zf.HPEJH LppJ$_44&b'JJ|NHD'BNNupNup e0@ nt pT"X PfXLNupNp e0@ nt p"X PfXHVMN$N 4 4 4 4 4$ 4 4$ 4 4 4 4 4$ 4 4 4$ 4 4 4L?H?,_NuN-HV,@,_Nu   FgVSN-|gS@ H{ -Fg`N- W@ -FgL Mg8N- W -FgN- W HAA20i0d R@`RN- W?< NN\ -FgN*Nu0^ M / haw FgSN-FA  -FgfN-A ff f -Fg"N-? -FgN-AAHP \0\ `0` d0d` prg0@ @A4;A\ PN !gNuZZZZBBXBBNu"X0gBPR|"D#Nu"h P`BfNuAaAaAaAa nPBBgKp0(H|e|g$|b|d``b2;N&J0XRvvvlll666X&`pHP?`h0|f"_0#Hѩ`|g Hy]`"_!I`60|g |g|f"_0#Hѩ`Jg|bg:|dg4J@gHy]`X0|f"_0#Hѩ`|g Hy]`2"_!I0E#J`0|g |g|f"_0#Hѩ`ް|,gB|.g<|0g6`L0|g |g|f"_0#Hѩ`ް|&g |(g|*f|@1@"W2(igHy]`0|g |g|f"_0#Hѩ`ް|2g |4g|6g`0|g |g|f"_0#Hѩ`ް|8g |:g||pg@Q@k$g*Q@kNgHy^`6Hy]`.Hy]`&Hy]`Hy]]`Hy]`Hy^%`Hy^F _O~Nu _f"_#HT/?<`Hy]L`V _f"_#HT`Hy^\`8Hy^v`.p fHP?2(A"nJf#p` _ fX`Hy^`r( (eA(A"nJg Hy^`"0ёJWg\`R W gJ W"gB W$g:g Hy_`Hy^`(t(gB( e"n`"nBJ fR# `f<(t(gB( e"nv"`"nv$BJ f# HP?`Hy^`Hy^`2|"g|$g Hy_`\`|"OYgtJf`"O Y gbXeHy_` nPp2(|g|gT|gIJ|g`~O n"n`VeNuvC e6C"n&10xȃDNuag"CgHPbI~|L|gF|g@|g@|(g2|,g2|Le ||e"|c&e _gfBHy_G`RR`SS`Sj`adg@D|1D~"CL|g:|g4|g.|g(|g"|(g|,g(|Le ||e&|c$`JgBHy_`hHy_`^R`Sj`p`Zi       i \bh `.q  -1aa\aaGbHzHxNӴyK;pyK:-n%J#=@#=|##pa’NъG:-K$xpN S f0+| kLg<Gg<<Hg <Kg<Mg<Pg<Rgj` gH@JfH@<Gg<Hg<Kgr<Mg<Pg<Rg0<agl<bg <sg<tg<wg<;k< e<e<<bx|?a.0an0@0{N  $F  j  & fa$ nXPg0.S@k=@`taz"9~ n"nTS0 j|`-IT#~a `< fra`0.gBnaBn nX hg0.R@nb*=@a 0.ANJWfnԑnjBn`taa D`C0gS@2njvSn`LCAN0J0g\R@2nְzeLRn`"ANpR@Jf=@ABPzvk0`a`a`46<8<:<(<<|eDFU><LCf1DEf1FGfN\`^J.f& nXT Pg Pg Pg P(g Pg`x|f P`|fx P,`aV nT2."n, .9~UAp6<4gjC`Q4jC`-HTU* #~`ANb < g< f< eb<gJfB`.jCLEKg"fBnLPRn0.ԐnְzeRn`aAN@`rA2;N@D @ $`\v $ ,6@@@@X @@@X`Vza<0< b @|e0gzAN< g`$Cd0S@kZ|2nd=@`k@Ѐk~0J0f|d B0R@r@f2nְze0z=@`2J0gaRApAfCAN`ANCLEKg"f BnLPNu0 0 fa`S@k 0 gR@C`CELeBnLPNu0.g8CfPSnSnjBn`CJgfP`.fANJgSnp `J.Ng aQt`QtJ.NgaAJf0Bna TBnN0.aBn`l>.g.aXJg.f=|B.NBnBnRn0.Ұnba` Snaa nX-HXBn=n`B..g a"-nX`A0g ?BPa =_`ANBh  gSJgJfS fB`RHP a5$_B g6k*PJkaBg nX.k6>(|g,|Wg|W|fa\p0AXN8` n 9ЀC-I-IN8TP n 9pCN00 YfF eTV"ҀR|b| ?.N=@N0AXN6>HS@"HBYQ0` AXN6CNHS@0QBn>Jk&?aN>AN0.GdR` ZN\`"HypM`Hyp8QCNpR@gJf=@Ԑnְze0.Ԑ|aBnABXP-_XJjNuBnap?a0HQa J"_0R@ncNuHp&HagaN`aLNuQJj PNuC 4F.kC $A pQa`:"nA}Rb na2aa>f nJhga:f n"na aa` <}N8Ta n\-HT`aajba `Qa>.O|\fY"nP`4 j Aµc4 kgRFGd b n$I=F-JT #~`a<$nT n 9~0.Bn"nP2<gS@g4 j Aµb`µb n$I-JT #~`"nP$nT n$2<p`0jA0kg bg$IU&#~NuaaJ`2a?9K:ByK:aN\3K:`,adaQ`aTa`aJpa`a>pa`a`N`a.a<`>RE&4gk JRjRE4j|`vSEUrt¶GbK00oSgYATAQ g Bg#-IX4)FgXGb J0 ScUA?aSpB B gRB23g*k(|(cr(B0ENbt b`-IXaVfNup|?HyNM\Nu0.a0.AN`"nT I$n( 9~:<"|gZ|gT|(gN|gH<"EƵb nPE pt8<g0(аDbH2oUk UBf=BNuTBf`Ept8<g0(аDbH2oUk UBf=BNuTBf`"nT4. 9~$n2g\jJt|2kg&2jtvR|`-ITU #~A>|bK00oSgYBTB=BNu-nXvHaeL|Hd.U@k\eRAg||;H@B@/a `RAf ` FaVa -nXv-nX.n nd-HNuTAfa*aJaa`R@fn`` 0yP`jarEbHnHnB`aEWrHnHnQpz?a d2p z`aEVBB JpJrzta^apENgt‚ЀҀЁ`&"nP n$2<Sk0gjASk 0kg`-ITU #~`B~B/.XBXa-_XNutJ.~ft JRBJfEc4=B z 9 f|HL a: oaaJf n(g`0./:Nu/ oa L 2.AJ@g< g< g<gn<gH<gZJ.~g |0e2|9b,J.gEdRnJ.~j|g|f:Rn`RSAk=AJ.~kSf`J.~k`BnBQJ.~jO NuH@<Kg<Mg@<Rg`SAkJ.~j |g|g=A`J.~fF.`EPgb`EdJgJ.~j (:fRnRn`HPaA`=pNzS@f _NuInline | Load | Save | Dump |Clear |xxx |a n h,C GfX FfR AfL -fF :f: &f4pg<9e_A|退A`# |  I uAbpzGaaޢaxJfH n(g(fLHU@4.if H|be ;`xLSDCxpX?aR0<ae< nXX eTV"T<agB<Lg"<Sg <DgL<Cf`BQaN`ߎp `p HaLa`&H@alLHVNeC!,_a&`H@p aTL|AN"H0ab:vg  0UGj |f a<`a?&t$6@|ALERTADD` hALINE ARECT APOLY ACHAR ACLIP ADDRIN( ADDROUT( ABSOLUTE[AFTER ATEXTARRAYFILLBMOVE BYTE{ BOX> BGETtBPUTtBOUNDARY BITBLTBSAVE(0BLOAD*;COLOR CASEp CONTz CONTRL( CARD{ CHAR{ *CLOSE]CLEARCIRCLEFCHDIRn CHDRIVEp CLRtCLSviCLIPCHAIN CALL0CURVEL DATADO qDEFLINE*?DEFMOUSE.DEFLIST2 DEFMARK4PDEFNUM6 DEFTEXT83DEFFILL:DEFFNrNDEFAULT TDECP DIV zDPOKE DIMNDOUBLE{ DIR~ zDELETE DRAWDELAY DEFINT DEFBYT DEFWRD DEFBIT DEFSTR DEFSNG DEFDBL DEFFLT DUMP zDATE$=0 ELSE ENDIF ENDFUNC ENDSELECT YENDWHILE lENDDO ENDREPEAT ]ENDFOR> ENDPROC ENDSUB EXIT IFV EXIT IFn ELLIPSENERRORV EDIT ERASE wEXEC 2EVERY FOR& FUNCTION>FLOAT{ FILLX FIELDGFILES d FILESELECT dFULLWGOSUBzGOTOtGEMSYSGINTIN( GINTOUT( GCONTRL( GETnGRAPHMODE, HARDCOPY HIDEM\ HLINE HTAB IF RINC@ INTIN( INTOUT( INT{ INFOW(INFOW #(INSERT INPUT INLINEB KEYPAD KEYTESTKEYGETKEYLOOKKEYPRESS KEYDEF,KILL LOOP LET LINE6 LPOKE LONG{ LOCALjLPRINT^LSET` 6LOCATE LIST LLIST LOAD MATPMONITOR`fMUL zMENUMID$(bMKDIR MOUSE MODE< NEXT> NAME NEWd OPEN-ONOB_NEXT( OB_HEAD( OB_TAIL( OB_TYPE( OB_FLAGS( OB_STATE( OB_SPEC( OB_X( OB_Y( OB_W( OB_H( OUTfOUT%JOUT&HOTHERWISE TOPTION4 PRINT&tPLOT PSET POKE PTSIN( PTSOUT( PROCEDURE 6PUTPBOX@ PRBOXD PCIRCLEJPELLIPSERPAUSE POLYLINEPOLYFILLPOLYMARKPSAVE QUITjfQSORT KREMREPEAT RESTOREvRETURN RETURN" RELSEEK=RESERVElRANDOMIZEfRBOXB RMDIR RSET 6RENAME RCALL.RESUME)READGRECORDDRUN RECALL&RC_COPY:SELECT DSWAPSUBp [SPOKE SDPOKE SLPOKE SETCOLORSEEK=SETTIME SGET SPUT SHOWM STOP SYSTEMfSSORT KSTICK SOUNDSINGLE{ SETMOUSE SAVE SETDRAW STORE$|SPRITE2TEXT*TRONpTROFF$ TOPW$TITLEW&TOUCHTIME$=. UNTIL ]VDISYSVOID VSYNC VTAB V~H=, VSETCOLORF WHILE ]WEND lWAVEWINDTAB(8 WRITE@KWORD{D _DATA=N { ~ FORM INPUT2 LINE INPUT4 ELSE IF END DO WHILEb DO UNTILd LOOP WHILEf LOOP UNTILh ON ERROR ON ERROR GOSUBON BREAK ON BREAK CONT ON BREAK GOSUB ON MENU GOSUB ON MENU MESSAGE GOSUB ON MENU KEY GOSUB ON MENU BUTTONON MENU ON MENU IBOX ON MENU OBOXMENU OFFMENU KILLMENUOPENW OPENW # CLOSEW CLOSEW # CLEARW CLEARW #" > PROCEDUREl > FUNCTION RELSEEK #=SEEK #=TOPW #$TITLEW #&TOUCH #DEFAULT TSELECTX MAT ADDPMAT SUBTMAT CPYXMAT XCPYZMAT DET\MAT NEG^MAT ABS`MAT NORMbMAT READdMAT PRINTfMAT TRANShMAT CLRjMAT SETlMAT ONEnMAT BASEpMAT QDETrMAT INPUTtMAT RANGvMAT MULxMAT INV#M'W F(#) *+--/,!;"==->< <> <= =<=>>=<=>:|@(.(,+,@<<=<>==E=<=>>>=*н0123)=9}=C]=D)3ANDAND(ABS((ATN(,ASC(CAT(YASIN(AACOS(RASlARRPTR(мADD(ADDRIN(ADDRINADDROUT(ADDROUT APPL_INIT()Ї APPL_READ(Ј APPL_WRITE(Љ APPL_FIND(Њ APPL_TPLAY(Ћ APPL_TRECORD(Ќ APPL_EXIT()ЍBIN$(sBASEPAGEBIOS(UBREAKBUTTONBASEBYTE(BTST(,BSET(-BCLR(.BCHG(/BYTE{tCOS(*COSQ(}CHR$(BCVI(KCVL(LCVS(iCVF(jCVD(kCONTRL(CONTRLCONTC:uCRSLIN8CRSCOL9CARD(CARD{sCHAR{aCINT(gCFLOAT(nCOMBIN(DIV DIV(DOWNTOIDPEEK(@DIM?(QDATE$~DIR$(DFREE(SDOUBLE{]DEG(gDRAW(EOF(#NEOF(NEQVEQV(ERRORERR$($ERRXEVEN(eEXEC(_EXIST(TEXP(/ EVNT_KEYBD()v EVNT_BUTTON(w EVNT_MOUSE(x EVNT_MESAG(y EVNT_TIMER(z EVNT_MULTI({ EVNT_DCLICK(ЎFRAC('FRE(GFALSEFATALYFIX(FNFLOAT{\FORM_DO(Н FORM_DIAL(О FORM_ALERT(П FORM_ERROR(Р FORM_CENTER(С FORM_KEYBD( FORM_BUTTON( FSEL_INPUT(ЮFSFIRST(FSNEXT()FSETDTA(FGETDTA()FACT(GOSUBLGOTOKGB=GCONTRL(GCONTRLGEMDOS(WGINTIN(GINTINGINTOUT(GINTOUTGRAF_RUBBERBOX(Т GRAF_DRAGBOX(У GRAF_MOVEBOX(Ф GRAF_GROWBOX(ХGRAF_SHRINKBOX(Ц GRAF_WATCHBOX(Ч GRAF_SLIDEBOX(Ш GRAF_HANDLE(Щ GRAF_MOUSE(Ъ GRAF_MKSTATE(ЫGDOS?hHEX$(HIMEMIFZIMPIMP( INKEY$SINPUT$(^INP(#MINP(JINP&(#INP&(INP%(#INP%(INP?(]INPUT`INSTR(DINT(%IBOXINTIN( INTIN!INTOUT("INTOUT#INT{rINPAUX$4INPMID$6KEYKILLLEFT$(:LEN(BLOC(#PLOC(PLOF(#OLOF(OLOG(0LOG10(1LPEEK(AL:LPOS([LONG{qL~AMAX(wMID$(>MIN(uMKD$(fMKF$(eMKI$(bMKL$(cMKS$(dMOD MOD(MENU_BAR(Џ MENU_ICHECK(А MENU_IENABLE(Б MENU_TNORMAL(В MENU_TEXT(Г MENU_REGISTER(ДMOUSEK<MOUSEX:MOUSEY;MENU(\MENUMESSAGEMUL(MALLOC(иMFREE(йMSHRINK(кNEXTNOTOBOXOCT$(ODD(fOFFSETmOFFOROR(OUT?(^OBJC_ADD(Е OBJC_DELETE(Ж OBJC_DRAW(З OBJC_FIND(И OBJC_OFFSET(Й OBJC_ORDER(К OBJC_EDIT(Л OBJC_CHANGE(МOB_ADR(пOB_NEXT(OB_HEAD(OB_TAIL(OB_TYPE(OB_FLAGS(OB_STATE(OB_SPEC(OB_X(OB_Y(OB_W(OB_H(PEEK(?PIOPOINT(HPOS(ZPTSIN($PTSIN%PTSOUT(&PTSOUT'PTST(+PRED(aRANDOM(VRAND(RRIGHT$(<RND(TRNDUROL( ROR( ROL&(2ROR&(3ROL|(6ROR|(7 RSRC_LOAD(| RSRC_FREE()} RSRC_GADDR(~ RSRC_SADDR( RSRC_OBFIX(ЀRAD(hROUND(pRINSTR( RC_INTERSECT(SGN(dSIN()SINQ({SPACE$(SPC(SQR(NSTEPHSTR$(STRING$(SHL( SHR( SHL&(0SHR&(1SHL|(4SHR|(5SWAP( SHEL_READ(Ё SHEL_WRITE(ЂSHEL_GET(ЃSHEL_PUT(Є SHEL_FIND(Ѕ SHEL_ENVRN(І SCRP_READ(Ь SCRP_WRITE(ЭSUCC(`SUB(STICK(STRIG(STOPSINGLE{yTAB(TAN(+THENJTIME$8TIMER>TOGTRUETRUNC(&TYPE(оTRACE$oTRIM$(UPPER$(USINGVAL(5VAL?(IVARPTR(лVARIAT(VAR2VDIBASE(V:V~HV_OPNWK(iV_CLSWK()jV_OPNVWK(k V_CLSVWK()lV_UPDWK()mVST_LOAD_FONTS(nVST_UNLOAD_FONTS(oV_CLRWK()VQT_NAME( VQT_EXTENT(W:WINDTAB()WINDTAB*WORD( WIND_CREATE(Я WIND_OPEN(а WIND_CLOSE(б WIND_DELETE(вWIND_GET(гWIND_SET(д WIND_FIND(е WIND_UPDATE(ж WIND_CALC(зW_HAND(#bW_INDEX(#cWORK_OUT(WITHrWORD{XBIOS(VXORXOR(\[[P]Q_DATA^ {p}XEOF(#NLOF(#OLOC(#P AT(zSUCC(PRED(p `p`pa̼|b2Id;|g~Nu;If~Nu3 UTDwp   ""!  <"!{ Y2 IIIDw. FCPoINKNfp <zb <ae< < fANNuR  gNuCP2 za NuQ(#(#( CPBaa#(aaZ f$E10<afEy0<~af E(0<xagbkfHPaa :g, @A o"R"@$HpR@ " gR< f _ CNR@||b2Nu.z z0NuCNut<Ef< (Nf4 (Df, ( g ( fV2E NuEt@`&E t`E66|Ak|bC620E(HpkFGe>Vg ( g ( g$K L`S+2+2+0+ETNu2E0NuB(HxHQHPB%R~p b.<f@aJg`lP$_ f .eCNuTng,TjTn g`S`Z`0HRHQHPE`0HRHQHPENJgP$_ g&<g g geRR` W"o`PNuaP@Vf|cXXe#( Nu<Ff !f nBPg<#(`G|@`8G|`0%RgN-H%Ra0||Akؼ|dGF<3`G(HrkKeVg&M L`|*HNu MNu-<-*H (Ae6 (Zb.<c(<_g<.g<0e<9c <Ae<Zb|Nu~"Nupb`pf=@PB  g Ug( Wf@ Hf If Lf Ef  gSNuTnPR Nf Tf If L`~Nu ( g  fRG + f~NuRptRB0 b ЀJjR`tptRB0 b瀀 eR`NR<Xg<Ogʰ<HgURptRB Fb"0k  c_  c退eRSJBk|NB& dhS)``a^ &g $g %g "$ &(**,.246688l :4<DHJ F.0jjjprts!s_ ! g [ c |c ! o! o! gd ! o! t ! F  ! !!n !! ! c ! ! ! DE DF    ' /  e 7 #  m  !!  Euvwx< : :;!< <=!>!>?! ^^_ E P     ` a ss FaX    t  E   !!F~!F<14~ P E W _Nu n&PVNua !g ,g ;g  g 'g"~Nua"N@%-<Ae<ZbvRCg<_g<.g<Ae<Zc` <0e<9ct<{gr<%gV<$gT<&gB<|g@<!g2<#g> Cf8.%-; `.t`t` t `t`t<(fXNuSNutNua"N 9b 0d6`~`~agSJf~Nu~`*~`&~`"~`~`~`~`~`~` ~ `~ `~ afX<~NuagSJg<g`0agSJft`avgSSft`AP0|g|g|g|g |6g|fNuP(<d<g<g<Ff"HNu<d6<dd dRVR` Hda`\`a`Z`<gF<gbF<f g ` fP`a< `a< `p`rEN|@@G(s*s~tRGdFtg@gI `6SC2040Vf|bWa0`G_G`HJyK:gp(@AL [2][C_߰|eC`|fC`|fC_f| ?|t`SB[kEE(f`,# $ % ! #($(%(!(& \ : &(\( $ ][Ok|Error]pALNzS@fLJfSATA|NA8@p0N6B0&HLJfSSAQA`pN6NzL`(HKݳbSNu(IK$eRNug g ` fP`aR `xaS `l< gNuB9Gbt<"g<+g <-f F9Gba`<&g^r<%gr<$gf<0< b.rt@p<0e"<9b<ԂiЂi ԂiԂiԀhp?NuJ9GbgD`rr<XgRr<Og0r<Hf<Fbΰ<0eȰ<9c<Ae_<e`<0e<9b<e`<0e<1be|`r< gr<"f <"fbeX(`HPaaҲ<g<<,g<)g<Tg <!g< fvSA& dR)B"~XNu~ _NuHPaza<fr`p`p`pHxNuAP0|xg|zg ||g| g |@e |cNu|g|gz|&g|>gBNurp&;.9Hx@gC`BRC` Xrp>;@gF"HNuBR`r;6(gC EfBR`>B (EfRC`,Nu  p`Q` <e<Fgt<e<d2<d(d" ehR`" d `T` ``<g4b<gp0?HqpANH<G(23gGvr`<Ae <Zb.%*Q0H2IE|2f |g|g|g|g |g|6g|db|be|hcT|gN|gH|gB| g<|g6|g0|Xg*|g$|g| g|ng|pg |>e|VbX| gȼ|lg|&ef|xg |zg||f`|>eV|VeX|@e|cf|e,|b&2|j|I|d|=%,Gp3`p<Fgt<7g<d<dG2I3g @G (23g@Gr`<Ae <Zb.%*QGp)2I3g ` gR og* R"@dp` Q!  g`  B"_TNu< f`<g:<g <g0b<`Z"pgS@<"WfQ"`R 24aj`r<e2|@@E$rtIdId`QSBR%-J.%*gSBk<Ae <Zb QH.%+ft.%-HPA0 _gPg; g;g.%,g(B.%,`#$%!#($(%(!(&|&(|($ 0 0D8@&<k g Uk.g.UgR 24NHa(`R 24NHaN`R 24NHat`lA (0<BXQA (Cpk$r11g|A$ &1C`A(C`pkr1A1$ &1C`A (0<2f1hQA(0<2f1hQA(Bh~Bhxp BXQNuSk(g=@AĄCdE^GIjK<MFQNPRFISU[WKXZy\S]_^`Rb cyd݉Pf9:gnhdj7kYl mznoqm>r us ttuavw&IUGj -FfNuSGkpg< g<gt<Pf<Ug <DfQ\`P\`<Cf <Ofa>NH=@LprtN:`<TffaH8`<Lf<TfaDBL88/N.`԰<Rf <Tfa`ܰ<Ff<DfaHafHLL8a&/a>L8a.&.Dg L0HaL8 a H <ПaL8a&.Pg L0TaL8,aH,aHPJ.\fprtN:`<Bf<KfaDB`L<Mg<DfZ<Ag<RfҰ<MV<AVaHLaJgL8 ajH aJgL8,aTH,Jg`b<Sf<Xg<YfaJBfpHP``aJBftHD`/N:.Nu/N.NuL,an% ?L an% 2NuJBkRBNHdRNuSB`tNu -Fg 7f RN"~NuN`&I>SGk< g<,g<;gSRG K /N;x.JkȞHNuN-rd A LNu.\f <r4<NutNuN"H N"H,N"H8NuA#YH a,aBLPNuH aaLPNu pANpNpg0@|YA;AAl p"p Y Qf//  gRp mfN-갼cp N=@HS@M<rfdRt<eBRB|AA\ p p "X Pf` <bPAN| g kQ`2Q`"Q FgN-갯d/@p -Fg0g0@ nt p$X Pf d/@ $@zlxd fzoxc&_"Sp~| eEKDDRDtDD Dl|fLp/HzH .rMfCT`"{p8, g| {pNu\([[8ZZ\N\["ZZ\[H[ZtZL4 fd$R$&k(*ڄNdNjRofNuHYȿe(*NdN$&Rgp$(؁*Ne*(NdN(*Ro2(NdS(So&*NdD*RRNf$f$SB`S(l//"a R"mxNupЂmlNu,..3xhNu,.*sh'xh'xNu,.*sh'xh'x*rh%xh%xNu,.܆އ>3xshNu,.܆އ:sh7xh7xNu,.܆އ:sh7xh7x܆އ*rh%xh%xNu3X3HNu,.*rh%xh%x3HXHXNu,.܆އ܄ޅ܆އ(sh*sx<3h>3x?Fc>HHnHSGk Vf>FNuTNuHANpr,.܆އ܄ޅ܆އ(sh*sx<3h>3x?Fc>HHnHSGk00Vf >FLNuTLNu,.܆އ܄ޅ܆އ*sh'xh'x:sh7xh7xNu,.*sh'xh'x*sh'xh'xNu,.*rh%xh%x܆އ*sh'xh'x*sh'xh'xNu,.*rh%xh%x܄ޅ܄ޅ*sh'xh'x:sh7xh7xNuv" [0gt@C!(Q꒼jNuH <3Ho">3XoDFf,3XHf<3XsHL0Nug">3Xl Ff,3HXf<3HsXL0Nu>3X||F`Case sans SelectSelect sans EndselectInternal ErrorWhile sans WendRepeat sans UntilDo sans LoopFor sans NextWend sans WhileUntil sans RepeatLoop sans DoNext sans ForIf sans EndifEndif sans IfElse sans IfElse sans EndifExit sans boucleProcedure sans ReturnProcedure dans une boucleProcedure dj dfinieFunction sans EndfuncFunction dans une boucleFunction dj dfinieReturn sans ProcedureMarque dj dfinieLocal seulement dans ProcedureLocal dans une boucleFunction dj dfinieGoto vers/ partir de For-Next ou Procedure ou FunctionResume dans une boucle For-NextResume sans ProcedureResume --> FunctionEndfunc sans FunctionNouvelle variable ?Nouvelle Procedure ?Nouvelle marque ?Nouvelle Function ? Nouveaux noms[2][Clear Inline ?][Ok|Error]Division par zroDpassement de capacitLe nombre n'est pas un Integer|-2147483648 .. 2147483647Le nombre n'est pas un octet|0 .. 255Le nombre n'est pas un mot|-32768 .. 32767Racine carre d'un nombre|ngatif impossibleLogarithme d'un nombre|infrieur zro impossibleErreur inconnue Mmoire pleine Fonction ou instruction|impossible Chaine trop longue|max 32767 caractres Le programme n'est pas|en GFA BASIC 3.5 Programme trop grand|mmoire pleine Le fichier programme|n'est pas en GFA BASICChamp dimensionn deux foisChamp non dimensionnIndex de champ trop grandIndex de dim trop grandMauvais nombre d'indicesProcdure introuvableMarque introuvablePour OPEN utiliser|"I"nput "O"utput "R"andom|"A"ppend "U"pdateFichier dj ouvertMauvais numro de fichierFichier non ouvertMauvaise saisie|Ce n'est pas un nombreFin de fichier atteinte|EOFTrop de points pour|Polyline/fill/mark|max 128Le champ ne peut avoir|qu'une dimensionNombre de points|plus grand que le champMerge, ce n'est pas|un fichier ASCIIMerge, ligne trop longue ==> Syntaxe incorrecte|arrt du programme!Marque non dfinie"Trop peu de donnes#Donne non numrique$Erreur de syntaxe dans la|donne, utiliser les ""|par paires%Disquette pleine&Instruction impossible|en mode direct'Erreur de programmation|GOSUB impossible(CLEAR n'est pas possible dans|une boucle FOR NEXT|ou une procdure)CONT impossible*Trop peu de paramtres+Expression trop complexe,Fonction indfinie-Trop de paramtres.Paramtre inexact|ce doit tre un nombre/Paramtre inexact|ce doit tre une chaine0Open "R"|Enregistrement trop long1Trop de fichiers "R"2Pas de fichier "R"4Champ plus grand|que l'enregistrement6Mauvaise longueur|d'enregistrement GET/PUT7Mauvais numro|de phrase GET/PUTErreur dans Menu?Erreur dans Reserve@Erreur dans pointeurAChamp <256BVAR-champ ?CErreur ASIN/ACOSDVAR unpairedEENDFUNC sans RETURNGIndex trop grandPLes oprations matricelles ne sont|autorises qu'en 1 ou 2 dimensionsQLes matrices ne sont|pas du mme ordreRProduit de vecteurs non dfiniSProduit de matrices non dfiniTProduit scalaire non dfiniUTransposition des matrices|uniquement en 2 dimensionsVMatrice non carreWTransposition non dfiniXErreur sur|FACT/COMBIN/VARIATZErreur dans Local[Erreur dans For\Resume (next) impossible|fatal, For ou Local]Stack ErreurdGFA-BASIC Version 3.50 F| Copyright 1986-1989|GFA Systemtechnik GmbHf2 bombes - erreur bus|peut-tre mauvais Peek ou Pokeg3 bombes - erreur d'adresse|adresse de mot impaire|avec Dpoke, Dpeek, Lpoke|ou Lpeek?h4 bombes - excution d'une|instruction 68000|ne convenant pasi5 bombes - division par zro|en langage machine 68000|j6 bombes - exception CHK|interruption 68000|par instruction CHKk7 bombes - exception TRAPV|interruption 68000|par instruction TRAPVl8 bombes - interruption 68000|par excution d'une|instruction privilgiem9 bombes - exception trace|interruption trace avec 68000Erreur gnraleDrive not Ready|dsynchronisationInstruction inconnueErreur CRC - test de somme|du disque incorrectBad Request|instruction ne convenant pasSeek Error|piste introuvableUnknown Media|mauvais bootsecteurSecteur introuvablePas de papierErreur d'critureErreur de lectureErreur gnrale 12Disquette protgeVous avez chang de disquetteAppareil inconnuMauvais secteur (Verify)Insrer une autre disquetteNumro de fonction incorrectFichier introuvableNom de chemin introuvable|dans directoryTrop de fichiers ouvertsAccs impossibleHandle incorrectMmoire pleineAdresse de bloc mmoire|incorrecteNumro de lecteur incorrectIl n'y a pas d'autres donnesErreur GEMDOS|seek incorrectErreur interne de GEMDOSCe n'est pas|un fichier binaireErreur de bloc mmoire[1][Quitter l'interprteur ?][Oui|Non][1][Fin du programme][Return][2][Arrt du programme?][Arrt|Cont][2][Listing imprimante ?][Oui|Non][2][NEW - Effacer programme ?][Oui|Non] Erreur de syntaxe Ligne trop longuep e@R@ nl p"X0|g|f "$Nu"NupPNNYHz`HzjaS@f. 9pSkL WN"22`&(,:`2.:` WN*چAX 00ReR._gJ.^geXNuH@ .g @pdN;xJjp#Np"N  gS ,g nNK`RH=H`H@NJDANpdN;xJk  g`NYaH@Br0 FgNdHr0LS@f,. 9pSk 24aZSkp,a``&(,:`4.:`(*چAX 24a$ReaV` p,a\eReNuH@Jr0gH%Lr0NENZ`N"HNZLNuH@Cp` H@Cp`,pWNpUNpVNaU@f FfHAfp<`62RA>`$(؁AH(؀EH& $& $RAނBeR@܂BeNuH`@alU@fLAfBfv|`*p~`(؃*ڀ%HX%HXR@ނAeRC܁BeNuN"Nd0@2AfγfJ@kAe2@ <r4<`H0/8/GDc.H:/F؅:/Fօ!H8!H8RGoeRFoeO"Nu0/2/FAcr0/2/FAcd~`N2/6/GCcH0/8/GDc:H:/F؅6oH:/Gօ!H8!H8RG0oeRF0oeO"NupQNpRNOa/I?@0?A*?B$Ra/I?@2?A,?B&Ran/I ?@4?A.?B(Bo6Bo:Bo>BoB0/*2/$LLp0SFSESDgJEfJFf|@fzo,fro.fj?o,80:@gSo80/$HPP/I?o.<<:gSo

$HSB2. 6/. 0/,Hրև"C0 QRo.Q?B"RB?B J/TnUBkgSBg&BoJBo2B44/ H/B8?o2@8/2Hد4CHLHJAgJ/Tk$P$HA>/2?GB?GD?GF?GH`4&8:<jDF>jDGFn mefAc "$?oBF?oDHRoB>/Bo e0/2o"eJ/Tn@ 24 o82o JdDB` &8:N:SI6 nOP _ 00TNupVNp2/ \JZgR@8SAnNd` 24`CLLaHLaL8DBNN4HA:HDN:CLL aL@aHL(aLaL8NHLaL8aL8NH LL aL0aHLL(arL8alL8NHLLaJL@aDL8NL8 `" nЈeN9epNNu&(* <r4<N&L0a"o>:gC"22OPNu JC`a"oE>:gC EHLa%@H LLaDB#@H LLa|DB$HLLah"HOPNu JC ``NL8N0"22Nua$HA "o>:gC(L L8@a HL8L(aL8DBaLL8@aHL8LaL8DEatLL8(aHL LaL8DBaF>:gPLL8@azHL0L(afL8DEaLL8@aLHL0La8L8DBaLL8(aHLLa L8DEa>:gPLL88aHL0L aL8DBa~LL88aHL0LaL8DEaPLL8 aHLLaxL8DBa"OPNuOa/I?B U@fAfRa/IU@fBfo f"o6:CC0a.$HSB2Cg 8/ H0 QQ?B"RB?B 0H/@8 Wa."H0H War0/HL` S@jUBkgSBgRBoJBo2rx:/ oL4BJp jB64/2HւL 8<jDF>jDGFnmefHAHCAbHA` HC "?DJRDEe.4HAH6/28/J:E1PD1@ ؄/D<0/2HAp?@@oJg* LL8NDBH!8/@H#HHHRo@80/@o eL8a8/2Hد<%HHHBo@8/@o2gjHAHد< 2HLHH BoD8/DoJg,H 1HLHL8 N0&L0NH!RoD80/Do eRo@0/@o e~Bo@0/2o@g.>/@Hޯ< 2xLxL8/N(%HHHRo@0/@o eRo2._gJ.^g^0/2o ev oL"o:g 0R@HJGgPt:E:0P8D80@H؅"H"HRBFeRCFeOPNupXNpWNAsOk Save Load Deflist Editor* B&* 6"$,< 2  ~,=MR1 r9V 1 90Gtb, @&Fܺh FV n  xH 0~<< &&  6P,|D0@  J $> J<&6$:  &D|  Fp"6<( ^$686 "莀0,D  d xL4NT:F|   8"   66 &jJ ,4^ F@0 B  | <&(P>> *0"" .& X80:$6*:,B@   "(8 ( 0 vrHV(B$T$ $@$F02n&4L<B>j66`*X.20( (,n "ڶX R^FDL&>* :*< ~ 0~ >J2 V0 XfT(4n&2f:hJ  H&  FvHB @*8nJƪ$HRj*0>*8$JbFth. :zLnL6N r`^L* j,t^`~<,n8 R ,4 Lt&  v26@ 4H*h0,,:8 &  :R806B($ T X$ ENDIF ENDIF NEXT i IF compteur=2 AND ((ODD(a(1))=-1 AND a(2)=a(1)+1) OR (ODD(a(1))=0 AND a(2)=a(1)-1)) INC reussite PUT u(1),v(1),noir$ PUT u(2),v(2),noir$ @songagne compteur=0 ELSE IF compteur=2 PUT u(1),v(1),masque$ PUT u(2),v(2),masque$ compteur=0 ENDIF ENDIF r=0 RETURN ' > PROCEDURE screen(flag%) ' IF flag%=1 DIM l_adr%(8064) pbase%=XBIOS(2) lbase%=INT(VARPTR(l_adr%(0))/256+1)*256 ENDIF IF (flag%=2) AND DIM?(l_adr%()) SWAP lbase%,pbase% VOID XBIOS(5,L:pbase%,L:lbase%,-1) ENDIF IF (flag%=0) AND DIM?(l_adr%()) VOID XBIOS(5,L:MAX(pbase%,lbase%),L:MAX(pbase%,lbase%),-1) ERASE l_adr%() ENDIF RETURN ' > PROCEDURE restaure ' SETCOLOR 0,14,14,14 SETCOLOR 15,0,0,0 ' Reserve Xbios(2)-Himem-16384+Fre(0) EDIT RETURN ' > PROCEDURE chargersprite ' LOCAL tampon1$ OPEN "i";#1,fich_img$ tampon1$=SPACE$(LOF(#1)) BLOAD fich_img$,VARPTR(tampon1$) BMOVE VARPTR(tampon1$)+34,XBIOS(3),32000 VOID XBIOS(6,L:VARPTR(tampon1$)+2) CLOSE #1 RETURN ' > PROCEDURE fin END ' RETURN ' > PROCEDURE soncarte ' effet=80 WHILE effet>0 SOUND 1,15,#effet,1 effet=effet-10 WEND SOUND 1,0 RETURN ' > PROCEDURE songagne ' effet=250 WHILE effet>0 SOUND 1,15,#effet,1 effet=effet-10 WEND SOUND 1,0 RETURN ' > PROCEDURE choisir ' fich_img$="\DESSIN\menu.pi1" @charger SHOWM REPEAT cx=MOUSEX cy=MOUSEY pav!=(99 PROCEDURE charger ' LOCAL tampon$ OPEN "i";#1,fich_img$ tampon$=SPACE$(LOF(#1)) BLOAD fich_img$,VARPTR(tampon$) BMOVE VARPTR(tampon$)+34,XBIOS(2),32000 VOID XBIOS(6,L:VARPTR(tampon$)+2) CLOSE #1 RETURN ' > PROCEDURE correction ' ' IF i<10 OR i=10 x1=((i*30)-30)+10 y1=15 FOR t=1 TO 5 PUT x1,y1,spr$(u(i)) PAUSE 15 PUT x1,y1,spr$(spr(m)) PAUSE 10 NEXT t ENDIF IF 10 PROCEDURE initialise ' ERASE spr$() ERASE spr() ERASE u() CLR x,y,i,grille$,mot$,masque$,ecran$,x1,y1,j,r,m,faute RETURN ' > PROCEDURE initialise2 ' ERASE spr$() ERASE spr() ERASE no() ERASE u() ERASE v() ERASE x() ERASE y() ERASE a() ERASE nu() ERASE mot$() CLR bande$,masque$,noir$,coup,k,r,compteur,choix!,cx,cy,mx,my,reussite ' RETURN ' > PROCEDURE extend(pr$,ex$,ps%) LOCAL nl%,dn$,i% IF RIGHT$(pr$)<>"\" AND RIGHT$(pr$,5)<>"\."+ex$ AND pr$>"" FOR i%=LEN(pr$) DOWNTO 1 INC nl% EXIT IF MID$(pr$,i%,1)="\" NEXT i% dn$=RIGHT$(pr$,nl%) IF INSTR(dn$,".")=0 *ps%=pr$+"."+ex$ dn$=dn$+"."+ex$ ENDIF IF RIGHT$(dn$,4)<>"."+ex$ IF LEFT$(dn$,2)<>"\." *ps%=LEFT$(pr$,LEN(pr$)-nl%)+LEFT$(dn$,INSTR(dn$,"."))+ex$ ELSE *ps%="" ENDIF ELSE *ps%=LEFT$(pr$,LEN(pr$)-nl%)+dn$ ENDIF ELSE *ps%="" ENDIF RETURN ' > PROCEDURE musi1 ' LOCAL son$ @toucheoff OPEN "i",#1,"musique.snd" son$=INPUT$(LOF(#1),#1) CL[OSE #1 VOID XBIOS(32,L:VARPTR(son$)) RETURN ' > PROCEDURE toucheoff ' SPOKE &H484,PEEK(&H484) AND NOT 1 RETURN ' > PROCEDURE toucheon ' SPOKE &H484,PEEK(&H484) OR 1 RETURN F F F F F F F F F F,!!!!!!!!!! ! !F F  !! F!!F* < \= ! \. F\B IFF? !! \F F4= ! F D!. FE .F4.F$F =! .F ;! \.F(E; !B  ;!D!. F 8F EF$F 8FFE; !B  F$F 8F EF$FF FO FAF$i!M! musique.sndF 4_O !M F 0MFIV !л FF F !? ߀F)F F !? F)F FOR i=1 TO 24 no(i)=i NEXT i ENDIF FOR j=1 TO 24 b=j+(25-j)*RND(1) spr(j)=no(b) no(b)=no(j) NEXT j FOR j=5 TO 131 STEP 42 FOR i=13 TO 263 STEP 50 INC k x(k)=i y(k)=j NEXT i NEXT j ' ' test souris - ' REPEAT arret!=INKEY$=CHR$(27) IF arret!=-1 @fin ENDIF INC compteur INC coup REPEAT reprendre: SHOWM mx=MOUSEX my=MOUSEY choix!=(MOUSEK AND ((2470 AND mx>13 AND mx<307 AND my>5 AND my<167 IF choix!=-1 r=0 choix!=0 @choisir IF fris!=-1 CLEAR copie=0 GOTO programme1 ENDIF IF cop!=-1 CLEAR copie=1 GOTO programme1 ENDIF IF pav!=-1 GOTO programme3 ENDIF IF pai!=-1 CLEAR memo=1 ENDIF IF asso!=-1 CLEAR memo=2 ENDIF GOTO commence ENDIF cp=POINT(mx,my) IF cp=0 OR cp=1 OR cp=2 OR cp=3 OR cp=4 OR cp=5 OR cp=7 OR cp=8 OR cp=9 OR cp=11 OR cp=12 OR cp=13 OR cp=14 OR cp=15 GOTO reprendre ENDIF ON memo GOSUB paires,association UNTIL reussite=12 IF coup<=48 PUT 40,173,canard$ PUT 80,173,canard$ PUT 120,173,canard$ PUT 160,173,canard$ ENDIF IF 48217 palette1!=(y<28 ANdD y>15) OR (y<54 AND y>41) OR (y<79 AND y>66) OR (y<104 AND y>91) OR (y<129 AND y>116) OR (y<154 AND y>141) OR (y<179 AND y>166) IF (palette!=-1 AND palette1!=-1) AND MOUSEK coulpoint=POINT(x,y) DEFFILL coulpoint,1 FILL 260,135 ENDIF grille!=x<196 AND x>18 AND y<169 AND y>21 AND MOUSEK VSYNC IF grille!=-1 AND POINT(x,y)<>8 @remplir ENDIF SHOWM EXIT IF INKEY$=CHR$(24) LOOP IF choi!=-1 @choisir IF (asso!=-1 OR pai!=-1) GOTO programme2 ENDIF IF (fris!=-1 OR cop!=-1) GOTO programme1 ENDIF IF pav!=-1 GOTO programme3 ENDIF ENDIF ' > PROCEDURE remplir DEFFILL coulpoint,1 FILL x,y RETURN ' > PROCEDURE chargement ' PRINT AT(1,1);"INSEREZ DISQUETTE DE CHARGEMENT" PAUSE 5 REPEAT UNTIL MOUSEK FILESELECT "\*.PI1",".PI1",a$ @extend(a$,"PI1",*n_file$) IF n_file$<>""! OR n_file$<>"\DESSIN\PRESENTE.PI1" OR n_file$<>"\DESSIN\PAIRES01.PI1" OR n_file$<>"paires02.pi1" OR file$<>"menu.pi1" OR file$<>"pavage.pi1" OR file$<>"frise.pi1" OR file$<>"paires03.pi1" fich_img$=n_file$ @charger ENDIF PUT 0,0,bande$ RETURN ' > PROCEDURE sauvegarde ' PRINT AT(1,1);"INSEREZ DISQUETTE DE SAUVEGARDE" PAUSE 5 REPEAT UNTIL MOUSEK FILESELECT "\*.PI1",".PI1",a$ @extend(a$,"PI1",*n_file$) IF n_file$<>"" AND n_file$<>"presente.pi1" AND n_file$<>"paires01.pi1" AND n_file$<>"paires02.pi1" AND file$<>"menu.pi1" AND file$<>"pavage.pi1" AND file$<>"frise.pi1" fich_img$=n_file$ @sauver ENDIF PUT 0,0,bande$ RETURN ' > PROCEDURE sauver ' HIDEM LOCAL i% OPEN "o";#1,fich_img$ OUT #1,0 OUT #1,XBIOS(4) FOR i%=0 TO 15 OUT #1,(XBIOS(7,i%,-1) AND &HFF00)/256 OUT #1,XBIOS(7,i%,-1) AND &HFF NEXT i% BPUT #1,XBIOS(2),32000 CLOSE #1 SHOWM RETURN ' > PROCEDURE paires ' FOR i=1 TO 24 IF spr(i)=r IF compteur=1 u(1)=x(r) v(1)=y(r) a(1)=i PUT u(1),v(1),spr$(a(1)) PUT 16,174,bande$ PRINT AT(5,23);mot$(a(1)) @soncarte ENDIF IF compteur=2 u(2)=x(r) v(2)=y(r) a(2)=i PUT u(2),v(2),spr$(a(2)) PUT 16,174,bande$ PRINT AT(5,23);mot$(a(2)) @soncarte PAUSE 50 PUT 16,174,bande$ ENDIF ENDIF NEXT i IF compteur=2 AND ((a(1)=a(2)-12) OR (a(1)=a(2)+12)) INC reussite PUT u(1),v(1),noir$ PUT u(2),v(2),noir$ @songagne compteur=0 ELSE IF compteur=2 PUT u(1),v(1),masque$ PUT u(2),v(2),masque$ compteur=0 ENDIF ENDIF r=0 RETURN ' > PROCEDURE association ' FOR i=1 TO 24 IF spr(i)=r IF compteur=1 u(1)=x(r) v(1)=y(r) a(1)=i PUT u(1),v(1),spr$(a(1)) PUT 16,174,bande$ PRINT AT(5,23);mot$(a(1)) @soncarte ENDIF IF compteur=2 u(2)=x(r) v(2)=y(r) a(2)=i PUT u(2),v(2),spr$(a(2)) PUT 16,174,bande$ PRINT AT(5,23);mot$(a(2)) @soncarte PAUSE 50 PUT 16,174,bande$ ENDIF ENDIF NEXT i IF compteur=2 AND ((ODD(a(1))=-1 AND a(2)=a(1)+1) OR (ODD(a(1))=0 AND a(2)=a(1)-1)) INC reussite PUT u(1),v(1),noir$ PUT u(2),v(2),noir$ @songagne compteur=0 ELSE IF compteur=2 PUT u(1),v(1),masque$ PUT u(2),v(2),masque$ compteur=0 ENDIF ENDIF r=0 RETURN ' > PROCEDURE screen(flag%) ' IF flag%=1 DIM l_adr%(8064) pbase%=XBIOS(2) lbase%=INT(VARPTR(l_adr%(0))/256+1)*256 ENDIF IF (flag%=2) AND DIM?(l_adr%()) SWAP lbase%,pbase% VOID XBIOS(5,L:pbase%,L:lbase%,-1) ENDIF IF (flag%=0) AND DIM?(l_adr%()) VOID XBIOS(5,L:MAX(pbase%,lbase%),L:MAX(pbase%,lbase%),-1) ERASE l_adr%() ENDIF RETURN ' > PROCEDURE restaure ' SETCOLOR 0,14,14,14 SETCOLOR 15,0,0,0 ' Reserve Xbios(2)-Himem-16384+Fre(0) EDIT RETURN ' > PROCEDURE chargersprite ' LOCAL tampon1$ OPEN "i";#1,fich_img$ tampon1$=SPACE$(LOF(#1)) BLOAD fich_img$,VARPTR(tampon1$) BMOVE VARPTR(tampon1$)+34,XBIOS(3),32000 VOID XBIOS(6,L:VARPTR(tampon1$)+2) CLOSE #1 RETURN ' > PROCEDURE fin END ' RETURN ' > PROCEDURE soncarte ' effet=80 WHILE effet>0 SOUND 1,15,#effet,1 effet=effet-10 WEND SOUND 1,0 RETURN ' > PROCEDURE songagne ' effet=250 WHILE effet>0 SOUND 1,15,#effet,1 effet=effet-10 WEND SOUND 1,0 RETURN ' > PROCEDURE choisir ' fich_img$="\DESSIN\menu.pi1" @charger SHOWM REPEAT cx=MOUSEX cy=MOUSEY pav!=(99 PROCEDURE charger ' LOCAL tampon$ OPEN "i";#1,fich_img$ tampon$=SPACE$(LOF(#1)) BLOAD fich_img$,VARPTR(tampon$) BMOVE VARPTR(tampon$)+34,XBIOS(2),32000 VOID XBIOS(6,L:VARPTR(tampon$)+2) CLOSE #1 RETURN ' PROCEDURE correction ' ' IF i<10 OR i=10 x1=((i*30)-30)+10 y1=15 FOR t=1 TO 5 PUT x1,y1,spr$(u(i)) PAUSE 15 PUT x1,y1,spr$(spr(m)) PAUSE 10 NEXT t ENDIF IF 10 PROCEDURE initialise ' ERASE spr$() ERASE spr() ERASE u() CLR x,y,i,grille$,mot$,masque$,ecran$,x1,y1,j,r,m,faute RETURN ' > PROCEDURE initialise2 ' ERASE spr$() ERASE spr() ERASE no() ERASE u() ERASE v() ERASE x() ERASE y() ERASE a() ERASE nu() ERASE mot$() CLR bande$,masque$,noir$,coup,k,r,compteur,choix!,cx,cy,mx,my,reussite ' RETURN ' > PROCEDURE extend(pr$,ex$,ps%) LOCAL nl%,dn$,i% IF RIGHT$(pr$)<>"\" AND RIGHT$(pr$,5)<>"\ *ps%=pr$+"."+ex$ dn$=dn$+"."+ex$ ENDIF IF RIGHT$(dn$,4)<>"."+ex$ IF LEFT$(dn$,2)<>"\." *ps%=LEFT$(pr$,LEN(pr$)-nl%)+LEFT$(dn$,INSTR(dn$,"."))+ex$ ELSE *ps%="" ENDIF ELSE *ps%=LEFT$(pr$,LEN(pr$)-nl%)+dn$ ENDIF ELSE *ps%="" ENDIF RETURN  PUT 280,75,spr$(spr(m)) PAUSE 10 NEXT t ENDIF IF 30 PROCEDURE initialise ' ERASE spr$() ERASE spr() ERASE u() CLR x,y,i,grille$,mot$,masque$,ecran$,x1,y1,j,r,m,faute RETURN ' > PROCEDURE initialise2 ' ERASE spr$() ERASE spr() ERASE no() ERASE u() ERASE v() ERASE x() ERASE y() ERASE a() ERASE nu() ERASE mot$() CLR bande$,masque$,noir$,coup,k,r,compteur,choix!,cx,cy,mx,my,reussite ' RETURN ' > PROCEDURE extend(pr$,ex$,ps%) LOCAL nl%,dn$,i% IF RIGHT$(pr$)<>"\" AND RIGHT$(pr$,5)<>"\."+ex$ AND pr$>"" FOR i%=LEN(pr$) DOWNTO 1 INC nl% EXIT IF MID$(pr$,i%,1)="\" NEXT i% Zdn$=RIGHT$(pr$,nl%) IF INSTR(dn$,".")=0 *ps%=pr$+"."+ex$ dn$=dn$+"."+ex$ ENDIF IF RIGHT$(dn$,4)<>"."+ex$ IF LEFT$(dn$,2)<>"\." *ps%=LEFT$(pr$,LEN(pr$)-nl%)+LEFT$(dn$,INSTR(dn$,"."))+ex$ ELSE *ps%="" ENDIF ELSE *ps%=LEFT$(pr$,LEN(pr$)-nl%)+dn$ ENDIF ELSE *ps%="" ENDIF RETURN r=4 ENDIF IF 1280 PAUSE 10 IF choix!=-1 @choisir IF pai!=-1 OR asso!=-1 @initialise GOTO programme2 ENDIF IF pav!=-1 @initialise GOTO programme3 ENDIF GOTO debut ENDIF IF corrige=1 corrige=0 ENDIF IF r=11."+ex$ AND pr$>"" FOR i%=LEN(pr$) DOWNTO 1 INC nl% EXIT IF MID$(pr$,i%,1)="\" NEXT i% dn$=RIGHT$(pr$,nl%) IF INSTR(dn$,".")=0 *ps%=pr$+"."+ex$ dn$=dn$+"."+ex$ ENDIF IF RIGHT$(dn$,4)<>"."+ex$ IF LEFT$(dn$,2)<>"\." *ps%=LEFT$(pr$,LEN(pr$)-nl%)+LEFT$(dn$,INSTR(dn$,"."))+ex$ ELSE *ps%="" ENDIF ELSE *ps%=LEFT$(pr$,LEN(pr$)-nl%)+dn$ ENDIF ELSE *ps%="" ENDIF RETURN 80,75,spr$(r) ENDIF IF 30

u(i) INC faute @correction ENDIF IF m=l m=0 ENDIF NEXT i IF faute=0 s=250 WHILE s>0 SOUND 1,15,#s,1 s=s-10 WEND SOUND 1,0 ELSE PUT 112,156,masque$ COLOR 0 BOX 60,155,224,167 DRAW 101,155 TO 101,167 DRAW 142,155 TO 142,167GFA-BASIC3n.BJPPPPRRRR\+-CDFDDDDDEEEEE.EvEvEvEvE~G*G*XYILCOPIEMRKPFAUTEJMXMYCORRIGEX1Y1SMEMOBCOMPTEURCOUPCPREUSSITE COULPOINTEFFETCXCYTFICH_IMGGRILLEMOTMASQUEECRANBANDENOIRCANARDAN_FILEFILETAMPON1TAMPONPREXDNFIFLAGPBASELBASEPSNLASSOPAIFRISCOPPAVARRETCHOIXCHOISAUVCHARGPALETTEPALETTE1GRILLESPRUNOXYVANUSPRMOTL_ADR PROGRAMME2 PROGRAMME1 PROGRAMME3DEBUTBORNE1SUITECOMMENCEPDATASBORNE3TIRAGE REPRENDRERESTAURECHOISIRCHARGERFIN INITIALISE CORRECTION INITIALISE2SCREEN CHARGERSPRITEPAIRES ASSOCIATION SAUVEGARDE CHARGEMENTREMPLIREXTENDSAUVERSONCARTESONGAGNEVT13VT14!F$F$ ] ߠ ݨFF# !G# !Ft!F>!Ft!Fg!F$F$ ^ ߠ FF# !G# !Ft!F>!Ft!Fg!Ft !F!F$F _ FF# !G߀# !Ft!F>!Ft!Fg!Ft !F!Ft!F!F$F$F `(F `" F `ߐF0߀F 8`F0F$F$F$FF `4 F0F$F$ jz ߀F0F$F$ j ߙF0F$F$F$ lN ߦF$ k F0F$F$ kX F0F$F$ k ߝF0F$F$ k F0F$F$ l  ߀F0F$F$ lH ߙF0F$F$F$ m F$ l F0F$F$ l F0F$F$ m& ߝF0F$F$ mb F0F$F$ m ߀F0F$F$ m ߙF0F$F$F$ or ߧF$ n@ F0F$F$ n| F0F$F$ n ߝF0F$F$ n F0F$F$ o0 ߀F0F$F$ ol ߙF0F$F$FH h<  ݙ ݠ ݧF p݀F0F<FFF p݀F#߀߀ FF#$F xd݀FF$F$F  Ft!F !FF  F 4LY! "INSEREZ DISQUETTE DE CHARGEMENTF `FF x"\DESSIN\PRESENTE.PI1" OR n_file$<>"\DESSIN\PAIRES01.PI1" OR n_file$<>"paires02.pi1" OR file$<>"menu.pi1" OR file$<>"pavage.pi1" OR file$<>"frise.pi1" OR file$<>"paires03.pi1" 4 FFFF$F!!FF  F 4LY! "INSEREZ DISQUETTE DE SAUVEGARDEF `FF z<# q #ߔ F><#ߑ #߬ F><#ߑ #ߓ F><#ߨߏ #ߨߺ F><#ߋ #ߨߺ FT <#݀߀߀߀߀ F R݀F0F$F ݀F0F$F ݀F0F$F ݀F0F$FF F  F$i"M!F4 O F T!л F &Tл ݈!V !}F V!л ݀ F 0MFF F  $ hߠݠF.0##  F0FLGF!! F `F!! F ` F |F$F$ <ߠF80###ߠ  F0FLGF!! F `F!! F ` F |F$F ߠFLGF!-! F `F!-! F ` F |lF$F$ F80###ߠ  F0FLGF!! F `F!! F ` F |LF$F  FLGF!K! F `F!K! F ` F |F$F$ ߠF80###  F0FLGF!! F `F!! F ` F |F$F |ߠFLGF!i! F `F!i! F ` F |$F$FF F  F F F,!!!!!!!!! !!! FF F  F F F F F F F F F F,!!!!!!!!!! ! !F F  !! F!!F* < \= ! \. F\B IFF? !! \F F4= ! F VD!. FE .F4.F$F =! .F ;! \.F(E; !B  ;!D!. F 8F EF$F 8FFE; !B  F$F 8F EF$FF