STAK  %  %_BRX """"""""̪3̪3 @"""""D"DĀ hC0&0 "U""U"U"UU"Uwwww݀UUUUH0 D9D"AA"A>"t"%2d$LA*@ @ "t"G"q]APP=@ m@on Openstack global derchar -- dernier caractre envoy au port srie put "@" into derchar show menubar set userLevel to 5 set lockRecent to False set PowerKeys to True set TextArrows to False go card reglage calculeparam go first card end Openstack on CloseStack -- Compactage si plus de 10 K Libres if FreeSize of this stack > 10000 then domenu "Compacter la pile" end if end CloseStack on envoitchar SendSPort 1, false,numtochar(cd field "char__mettre") -- recoituncar end envoitchar on envoitunchar caractre SendSPort 1, false,caractre recoituncar end envoitunchar on recoitcar repeat while SportHasChar(1) is true get RecvSPort(1) put chartonum(it) into cd field "char_reu" end repeat end recoitcar on recoituncar repeat while SportHasChar(1) is true get RecvSPort(1) end repeat end recoituncar on OuvertureDuPortSerie global paramcommunication OpenSport 1 -- ouverture du port srie Modem -- La configuration permet de dfinir la vitesse (en bauds), -- le nombre de bits de stop (1,1.5 ou 2) et de donnes (5 8), -- et la parit (paire, impaire, nulle). -- La valeur passer en paramtre se calcule en additionnant -- les constantes suivantes -- 300 Bds =380 1 bit de stop=16384 -- 600 Bds =189 1.5 bit de stop=-32768 -- 1200 Bds =94 2 bits de stop=-16384 -- 1800 Bds =62 -- 2400 Bds =46 parit nulle =0 -- 3600 Bds =30 parit impaire =4096 -- 4800 Bds =22 parit paire =12288 -- 7200 Bds =14 5 bits donnes=0 -- 9600 Bds =10 6 bits donnes=2048 -- 19200 Bds =4 7 bits donnes=1024 -- 57600 Bds =0 8 bits donnes=3072 ResetSport 1,paramcommunication end OuvertureDuPortSerie nication end OuvertureDuPortSerie nnes=3072 ResetSport 1,paramcommunication end OuvertureDuPortSerie e + 3072 + 8192 + 16364 = 28028 ResetSport 1,paramcommunication -- correspond : 4800 bauds, 8 b, even, Port modem, 1 stop bit. end OuvertureDuPortSerie even, Port modem, 1 stop bit. end OuvertureDuPortSerie -- correspond : 4800 bauds, 8 b, even, Port modem, 1 stop bMASTw+V] _ EĽLIST MEPAGEE JW_ ] BD0w + JBGHy@BKGD@FComposeur BMAPVVTԀx<x<x<@! B@! B@ ! C`4F#@h4F#@h&F#@h0#@"^x/E"^x/E"x/E x+ E"_~/E"_~/E;"_~.A%0Cw!;pCw!;pCw!;pC{/pe 2^{/pe 2^}/pe 2_`؄lB6F!#`lB6F!#`lB6F!&aR@2 RR@2 B@@ 8.1 \b Aq.1 \b Aq.1 \b G3@@ @@ @@ ???"@ D"@ D"@ D"` 0R"` 0R"` 0R".30R"` 0R"` 0R2` 08p8p8"p"2B@H ! $B@H ! $B@H ! $ 2  d A2@  d A2@  d A2@ r 4@h 4@h 4@h2 0&`L 0&`L 0&`L"@H  $@H  $@H  $rp8px<p82hy4,@hy 4<@hY4,@h2/_ /_ /_ /2vn 7`݀vn 7`݀vn 7`݀- X--X-8px'"D' .\'p' 8p 8p8 '0@'`'''H'' '@'4i0 CARD@E >rN3ASE reglageon mouseUp go card reglage end mouseUpL4A envoitcaron mouseUp envoitchar end mouseUpJ5A recoitcaron mouseUp recoitcar end mouseUp06R char__mettre*7R char_reuV8g}@ ouvre porton mouseUp OuvertureDuPortSerie end mouseUp9A envoit car questionon mouseUp ask "quel code ASCII ?" with 255 put it into code envoitunchar code end mouseUpR:CNU test moteuron mouseUp go card moteur end mouseUpP<CU܀ fraisageon mouseUp go card fraisage end mouseUp 14 192W"Macintosh HD:APPLICATIONS:Development C:Demos:test machine folder:PILOTAGE FRAISEUSE"sommaireon OpenCard -- end OpenCard on ComposeNum NN, LeMode, InterneExterne put 2 into ModeTlphonique put 4 into ModeVidotexte put 8 into ModeInterne put 16 into ModeExterne if LeMode = ModeTlphonique then send MouseUp to card btn "Tlphonique" if LeMode = ModeVidotexte then send MouseUp to card btn "Videotexte" if InterneExterne = ModeInterne then set the hilite of btn "Avec Prfixe" to false if InterneExterne = ModeExterne then set the hilite of btn "Avec Prfixe" to true put "" into LeNumro if the hilite of btn "Tlphonique" is true then put "2" into LeNumro if the hilite of btn "Videotexte" is true then put "18" into LeNumro if the hilite of btn "Avec Prfixe" is true then put card field "LePrfixe" after LeNumro put NN after LeNumro StatusDialog -15903,"Composition du " & LeNumro,50 OuvertureDuPortSerie -- EnvoyerBreakAuMatra if the hilite of button "Envoi du Profil" is true then EnvoyerLeProfilVideotext StatusDialog -15903,"Demande du profil Vidotext",50 OnAfficheLesMessagesDuMatra end if SendSport 1,false, LeNumro & return StatusDialog -15903,"Composition du " & LeNumro,50 OnAfficheLesMessagesDuMatra end ComposeNum into LeNumro if the hilite of btn "Tlphonique" is true then put "2" into LeNumro if the hilite of btn "Videotexte" is true then put "18" into LeNumro if the hilite of btn "Avec Prfixe" is true then put card field "LePrfixe" after LeNumro put NN after LeNumro StatusDialog -15903,"Composition du " & LeNumro,50 OuvertureDuPortSerie -- EnvoyerBreakAuMatra if the hilite of button "Envoi du Profil" is true then EnvoyerLeProfilVideotext StatusDialog -15903,"Demande du profil Vidotext",50 OnAfficheLesMessagesDuMatra end if SendSport 1,false, LeNumro & return StatusDialog -15903,"Composition du " & LeNumro,50 OnAfficheLesMessagesDuMatra end ComposeNum esDuMatra end ComposeNum CARD ]_@E *NAT retouron mouseUp go card sommaire end mouseUpBas BAUDSon mouseDown global vvitesse put the mouseloc into myPlace put item 1 of myPlace into horiz put item 2 of myPlace + 16 into vert get PopUpMenu("4800,9600,19200", 0, vert, horiz) put it into indicetarget put 4800* 2^(indicetarget-1) into cd field "BAUDS" calculeparam end mouseDownN} PARITEon mouseDown global vparit put"sans,paire,impaire" into Liste put the mouseloc into myPlace put item 1 of myPlace into horiz put item 2 of myPlace + 16 into vert get PopUpMenu(liste, 0, vert, horiz) put it into Choix put item Choix of Liste into card field "PARITE" calculeparam end mouseDownF stopbiton mouseDown global vbitstop put"1,1.5,2" into Liste put the mouseloc into myPlace put item 1 of myPlace into horiz put item 2 of myPlace + 16 into vert get PopUpMenu(liste, 0, vert, horiz) put it into Choix put item Choix of Liste into card field "stopbit" calculeparam end mouseDownD nbbitson mouseDown global vnbbits put"5,6,7,8" into Liste put the mouseloc into myPlace put item 1 of myPlace into horiz put item 2 of myPlace + 16 into vert get PopUpMenu(liste, 0, vert, horiz) put it into Choix put item Choix of Liste into card field "nbbits" calculeparam end mouseDown* E paramtre4800sans1947818reglageon calculeparam global vvitesse global vbitstop global vnbbits global vparit global paramcommunication if cd field "BAUDS" = 4800 then put 22 into vvitesse else if cd field "BAUDS" = 9600 then put 10 into vvitesse else put 4 into vvitesse end if if cd field "PARITE" = "sans" then put 0 into vparit else if cd field "PARITE" = "paire" then put 12288 into vparit else put 4096 into vparit end if if cd field "stopbit" = "1" then put 16384 into vbitstop else if cd field "stopbit" = "1.5" then put -32768 into vbitstop else put -16384 into vbitstop end if if cd field "nbbits" = 5 then put 0 into vnbbits else if cd field "nbbits" = 6 then put 2048 into vnbbits else if cd field "nbbits" = 7 then put 1024 into vnbbits else put 3072 into vnbbits end if put vvitesse + vbitstop + vnbbits + vparit into paramcommunication put paramcommunication into cd field "paramtre" end calculeparam @BMAP_V5/81P@@!@4  ((@(@4   (!@+LjA }>$HH!A @  @!@@Bpl48{ R>8|q{ @ @s!H2$sH +"@Fat0` " 0SS0,cǀǀ?< y(w&8pÀw"$@w"@wBgB$h$@h pÀ+hËÀh$L@h#@h$HX$Hh$H@hc" !" w8q||D>< L|SD \|2/L|4@r<|rx>!!@CARDwE<NBU retouron mouseUp go card sommaire end mouseUpf| un pas avanton mouseUp global indice put"128,129,131,130" into Liste put true into ii repeat while the mouseclick is false put (indice +1) mod 4 into indice envoitunchar item indice + 1 of Liste end repeat end mouseUp   un pas arrire on mouseUp global indice put"128,129,131,130" into Liste put true into ii repeat while the mouseclick= false put (indice -1) into indice if indice <0 then put 3 into indice envoitunchar item indice + 1 of Liste end repeat end mouseUp  un tour rapide on mouseUp repeat while the mouseclick= false SendSPort 1, false,"@" wait 1 ticks SendSPort 1, false,"A" wait 1 ticks SendSPort 1, false,"C" wait 1 ticks SendSPort 1, false,"B" wait 1 ticks end repeat end mouseUp  un te on mouseUp put 60 into i put true into ii repeat while the mouseclick= false put i+1 into i put i && numtochar (i) into message wait 30 ticks end repeat end mouseUp moteur@CARD +E FREEFree Object E x\NBU retouron mouseUp go card sommaire end mouseUph+~ X+on mouseUp repeat while the mouseclick= false SendSPort 1, false,"A" -- 64+1 wait 1 ticks SendSPort 1, false,"C" -- 64+3 wait 1 ticks SendSPort 1, false,"B" -- 64+2 wait 1 ticks SendSPort 1, false,"@" -- 64 wait 1 ticks end repeat end mouseUp E[D Y+ on mouseUp repeat while the mouseclick= false SendSPort 1, false,"D" -- 64+4 wait 1 ticks SendSPort 1, false,"L" -- 64+12 wait 1 ticks SendSPort 1, false,"H" -- 64+8 wait 1 ticks SendSPort 1, false,"@" --64 wait 1 ticks end repeat end mouseUp  ea{ X -on mouseUp repeat while the mouseclick= false SendSPort 1, false,"B" -- 64+2 wait 1 ticks SendSPort 1, false,"C" -- 64+3 wait 1 ticks SendSPort 1, false,"A" -- 64+1 wait 1 ticks SendSPort 1, false,"@" -- 64 wait 1 ticks end repeat end mouseUp D Y- on mouseUp repeat while the mouseclick= false SendSPort 1, false,"H" -- 64+8 wait 1 ticks SendSPort 1, false,"L" -- 64+12 wait 1 ticks SendSPort 1, false,"D" -- 64+4 wait 1 ticks SendSPort 1, false,"@" --64 wait 1 ticks end repeat end mouseUp  Z܀ PEN DOWN on mouseUp global derchar repeat forever if the mouseclick= true then exit mouseup put "" into derchar -- SendSPort 1, false,"" put chartonum(derchar) into message wait 1 ticks if the mouseclick= true then exit mouseup put "" into derchar -- SendSPort 1, false,"" put chartonum(derchar) into message wait 1 ticks if the mouseclick= true then exit mouseup put "" into derchar -- SendSPort 1, false,"" put chartonum(derchar) into message wait 1 ticks if the mouseclick= true then exit mouseup put "" into derchar -- SendSPort 1, false,"" put chartonum(derchar) into message wait 1 ticks end repeat end mouseup  \ހ PEN UP 400 pas-- global indice -- put"128,129,131,130" into Liste -- put"128,129,131,130" into Liste -- put true into ii -- repeat while the mouseclick is false -- put (indice +1) mod 4 into indice -- envoitunchar item indice + 1 of Liste -- end repeat on mouseUp global derchar repeat forever if the mouseclick= true then exit mouseup put "" into derchar -- SendSPort 1, false,"" put chartonum(derchar) into message wait 1 ticks if the mouseclick= true then exit mouseup put "" into derchar -- SendSPort 1, false,"" put chartonum(derchar) into message wait 1 ticks if the mouseclick= true then exit mouseup put "" into derchar -- SendSPort 1, false,"" put chartonum(derchar) into message wait 1 ticks if the mouseclick= true then exit mouseup put "" into derchar -- SendSPort 1, false,"" put chartonum(derchar) into message wait 1 ticks end repeat end mouseup  ~4 teston mouseUp -- recherche du chemin d'accs put word 2 of the long name of this stack into path put the short name of this stack into pathcourt put the length of pathcourt into lgcourt put the length of path into lg show card field "chemin" put path into card field "chemin" select char 2 to lg-lgcourt-1 of card field "chemin" put the selectedtext into path open file path&"C_entree" ask xdep with "0" put it into xdep ask ydep with "0" put it into ydep ask zdep with "5" put it into zdep ask pasdep with "128" put it into pasdep write xdep&&ydep&&zdep&&pasdep to file path&"C_entree" close file path&"C_entree" open testmachine.prg end mouseUp( !- chemin( EY[ X+/Y+ on mouseUp repeat while the mouseclick= false SendSPort 1, false,"E" -- 64+4+1 wait 1 ticks SendSPort 1, false,"0" -- 64+12+3 wait 1 ticks SendSPort 1, false,"J" -- 64+8+2 wait 1 ticks SendSPort 1, false,"@" --64 wait 1 ticks end repeat end mouseUp (Z X+/Y- on mouseUp repeat while the mouseclick= false SendSPort 1, false,"I" -- 64+9 wait 1 ticks SendSPort 1, false,"O" -- 64+12+3 wait 1 ticks SendSPort 1, false,"F" -- 64+4+2 wait 1 ticks SendSPort 1, false,"@" --64 wait 1 ticks end repeat end mouseUp 6Ew[ X-/Y+ on mouseUp repeat while the mouseclick= false SendSPort 1, false,"F" -- 64+4+2 wait 1 ticks SendSPort 1, false,"0" -- 64+12+3 wait 1 ticks SendSPort 1, false,"I" -- 64+8+1 wait 1 ticks SendSPort 1, false,"@" --64 wait 1 ticks end repeat end mouseUp $x X-/Y- on mouseUp repeat while the mouseclick= false SendSPort 1, false,"J" -- 64+8+2 wait 1 ticks SendSPort 1, false,"O" -- 64+12+3 wait 1 ticks SendSPort 1, false,"E" -- 64+4+1 wait 1 ticks SendSPort 1, false,"@" --64 wait 1 ticks end repeat end mouseUp W"Macintosh HD:APPLICATIONS:Development C:Demos:test machine folder:PILOTAGE FRAISEUSE"fraisageBMAPV2;4=4@@ @$BR r@`d$@R 2v\\p8q`!bA G=><>| C>C!B4 3 cd2V  |33sB7r>|>b珟2 ' '8b"0 D"" bÇ,<¹ 88.$H2D D"D0"4 R@@<A|>0B"<`3$ @ bÇ"< 8hb8 #b"0 @"" d Y(qp8FB?(|D|"D`|px#`#b>2| 6* `6à8Ë\Yaŀ "DL&"a2fH"&@s|RR!"c|B$c"rv>|<B "  STBL its @FTBL ChicagoGeneva<@PRNT (2((VK gNLN^ _TONNVH&n >.B.JG_ mњ Ph"^g`JB0S@??<$0. м$&r$Ё/B/-њN" l` mњ(S n |LN^ _ NNVHBn /.Hnp/N&",<$ mњ P=h"~`8 mњ(FHlHnp/N&"BgHnHnN':g=G `p$܀RGin PRST KKNF]] z,, 8 $  }}(dPPL3@ w u 4 into ModeVidotexte pCARDE TNBU retouron mouseUp go card sommaire end mouseUp~h+~ X+on mouseUp repeat while the mouseclick= false SendSPort 1, false,"AA" -- 64+1 SendSPort 1, false,"AA" -- 64+1 SendSPort 1, false,"CC" -- 64+3 SendSPort 1, false,"CC" -- 64+3 SendSPort 1, false,"BB" -- 64+2 SendSPort 1, false,"BB" -- 64+2 SendSPort 1, false,"@@" -- 64 SendSPort 1, false,"@@" -- 64 -- wait 100 ticks end repeat end mouseUp dE[D Y+ on mouseUp repeat while the mouseclick= false SendSPort 1, false,"D" -- 64+4 SendSPort 1, false,"D" -- 64+4 SendSPort 1, false,"L" -- 64+12 SendSPort 1, false,"L" -- 64+12 SendSPort 1, false,"H" -- 64+8 SendSPort 1, false,"H" -- 64+8 SendSPort 1, false,"@" --64 SendSPort 1, false,"@" --64 end repeat end mouseUp nea{ X -on mouseUp repeat while the mouseclick= false SendSPort 1, false,"BB" -- 64+2 SendSPort 1, false,"BB" -- 64+2 SendSPort 1, false,"CC" -- 64+3 SendSPort 1, false,"CC" -- 64+3 SendSPort 1, false,"AA" -- 64+1 SendSPort 1, false,"AA" -- 64+1 SendSPort 1, false,"@@" -- 64 SendSPort 1, false,"@@" -- 64 end repeat end mouseUp bD Y- on mouseUp repeat while the mouseclick= false SendSPort 1, false,"H" -- 64+8 SendSPort 1, false,"H" -- 64+8 SendSPort 1, false,"L" -- 64+12 SendSPort 1, false,"L" -- 64+12 SendSPort 1, false,"D" -- 64+4 SendSPort 1, false,"D" -- 64+4 SendSPort 1, false,"@" --64 SendSPort 1, false,"@" --64 end repeat end mouseUp  Zܠ PEN DOWN a revoir-- gestion de derchar revoir ainsi que valeurs des ordres(>128) on mouseUp global derchar repeat forever if the mouseclick = true then exit mouseup put "" into derchar SendSPort 1, false,"" put chartonum(derchar) into message wait 10 ticks if the mouseclick = true then exit mouseup put "" into derchar SendSPort 1, false,"" put chartonum(derchar) into message wait 10 ticks if the mouseclick = true then exit mouseup put "" into derchar SendSPort 1, false,"" put chartonum(derchar) into message wait 10 ticks if the mouseclick = true then exit mouseup put "" into derchar SendSPort 1, false,"" put chartonum(derchar) into message wait 10 ticks end repeat end mouseup  \% PEN UP 40 pas on mouseUp global derchar repeat for 10 times if the mouseclick= true then exit mouseup put "" into derchar SendSPort 1, false,"" wait 1 ticks if the mouseclick= true then exit mouseup put "" into derchar SendSPort 1, false,"" wait 1 ticks if the mouseclick= true then exit mouseup put "" into derchar SendSPort 1, false,"" wait 1 ticks if the mouseclick= true then exit mouseup put "" into derchar SendSPort 1, false,"" wait 1 ticks end repeat end mouseup  ~3 FRAISAGEon mouseUp global derchar -- recherche du chemin d'accs put word 2 of the long name of this stack into path put the short name of this stack into pathcourt put the length of pathcourt into lgcourt put the length of path into lg show card field "chemin" put path into card field "chemin" select char 2 to lg-lgcourt-1 of card field "chemin" put the selectedtext into path -- fabrication du fichier entre pour le C open file path&"C_entree" ask xdep with "0" put it into xdep ask ydep with "0" put it into ydep ask zdep with "40" put it into zdep -- gestion de der char revoir put chartonum(derchar) into pasdep put 64 into pasdep write xdep&&ydep&&zdep&&pasdep to file path&"C_entree" close file path&"C_entree" -- interprtation du postscript partir des coordonnes initiales open path&"pilotage fraiseuse.prg" wait 100 ticks -- accord pour dmarrage du fraisage answer "dmarrage du fraisage" with "non" or "OK" if it is "OK" then put path&"FICHIER commandes moteur" into fichier open file fichier repeat forever read from file fichier until "" -- dtection de la fin de fichier if it is empty then put "FIN" into message wait 5 ticks domenu "Message","Accs" exit repeat end if -- dtection des lignes de commentaires if char 1 of it = "" then put it into message else -- emettre les caractres put it into ordre put the length of ordre into ll put char 1 to ll-1 of ordre into oordre SendSPort 1, false, oordre end if end repeat close file fichier end if end mouseUp( !- chemint EY[ X+/Y+ on mouseUp repeat while the mouseclick= false SendSPort 1, false,"E" -- 64+4+1 SendSPort 1, false,"E" -- 64+4+1 SendSPort 1, false,"O" -- 64+12+3 SendSPort 1, false,"O" -- 64+12+3 SendSPort 1, false,"J" -- 64+8+2 SendSPort 1, false,"J" -- 64+8+2 SendSPort 1, false,"@" --64 SendSPort 1, false,"@" --64 end repeat end mouseUp tZ X+/Y- on mouseUp repeat while the mouseclick= false SendSPort 1, false,"I" -- 64+8+1 SendSPort 1, false,"I" -- 64+8+1 SendSPort 1, false,"O" -- 64+12+3 SendSPort 1, false,"O" -- 64+12+3 SendSPort 1, false,"F" -- 64+4+2 SendSPort 1, false,"F" -- 64+4+2 SendSPort 1, false,"@" --64 SendSPort 1, false,"@" --64 end repeat end mouseUp Ew[ X-/Y+ on mouseUp repeat while the mouseclick= false SendSPort 1, false,"F" -- 64+4+2 SendSPort 1, false,"F" -- 64+4+2 SendSPort 1, false,"O" -- 64+12+3 SendSPort 1, false,"O" -- 64+12+3 SendSPort 1, false,"I" -- 64+8+1 SendSPort 1, false,"I" -- 64+8+1 SendSPort 1, false,"@" --64 SendSPort 1, false,"@" --64 end repeat end mouseUp nx X-/Y- on mouseUp repeat while the mouseclick= false SendSPort 1, false,"J" -- 64+8+2 SendSPort 1, false,"J" -- 64+8+2 SendSPort 1, false,"O" -- 64+12+3 SendSPort 1, false,"O" -- 64+12+3 SendSPort 1, false,"E" -- 64+4+1 SendSPort 1, false,"E" -- 64+4+1 SendSPort 1, false,"@" --64 SendSPort 1, false,"@" --64 end repeat end mouseUp O"Macintosh HD:PERSO:MODELISME:FRAISEUSE folder 98 v25-8:PILOTAGE FRAISEUSE"fraisage"fraisageFREEFree Object tDdashAPinvokeAPhelpTJw3y5NyL0<NyMJwBMAPJwon mouseUp global dercha|JwfEditionAJwHHOc4tJw ?  )  7y"tDdashAPinvokeAPhelpTJw3y5NyL0<NyMJwBMAPJwon mouseUp global dercha|JwffEditionAJwDObOutilsJw &8$pbOb[ObO1Obe JwlpsRetour<BaseHiqueR-1Premire carte1Carte prcdente2Carte suivante3rte suanteDernire carte4Jw85,42,555,397LJw0Ob Ob"Ob[ObObObOb1Obe$JwOc8Oc0Oc,Oc@@@suanteDernire carte4Jw85,42,555,JwBMAPV2;4=tJw??CC??CC?@@@PJw@(Z@(@&(JwOa<Oa8SDzJw Jw"*"*2B FREEFree Object 0 164 172 168 160 164 172 168 160 164 172 168 160 164 172 169 161 165 173 169 161 165 173 169 161 165 173 169 161 165 173 169 161 167 175 171 163 167 175 171 163 167 175 171 163 167 175 171 163 167 174 170 162 166 174 170 162 166 174 170 162 166 174 170 162 166 174 170 160 164 172 168 160 164 172 168 160 164 172 168 160 164 172 168 160 164 173 169 161 165 173 169 161 165 173 169 161 165 173 169 161 165 173 171 163 167 175 171 163 167 175 171 163 167 175 171 163 167 175 171 163 166 174 170 162 166 174 170 162 166 174 170 162 166 174 170 162 166 174 168 160 164 172 168 160 164 172 168 160 164 172 168 160 164 172 168 161 165 173 169 161 165 173 169 161 165 173 169 161 165 173 169 161 165 175 171 163 167 175 171 163 167 175 171 163 167 175 171 163 167 175 171 162 166 174 170 162 166 174 170 162 166 174 170 162 166 174 170 162 164 172 168 160 164 172 168 160 164 172 168 160 164 172 168 160 164 172 169 161 165 173 169 161 165 173 169 161 165 173 169 161 165 173 169 161 167 175 171 163 167 175 171 163 167 175 171 163 167 175 171 163 167 174 170 162 166 174 170 162 166 174 170 162 166 174 170 162 166 174 170 160 164 172 168 160 164 172 168 160 164 172 168 160 164 172 168 160 164 173 169 161 165 173 169 161 165 173 169 161 165 173 169 161 165 173 171 163 167 175 171 163 167 175 171 163 167 175 171 163 167 175 171 163 166 174 170 162 166 174 170 162 166 174 170 162 166 174 170 162 166 174 168 160 164 172 168 160 164 172 168 160 164 172 168 160 164 172 168 161 165 173 169 161 165 173 169 161 165 173 169 161 165 173 169 161 165 175 171 163 167 175 171 163 167 175 171 163 167 175 171 163 167 175 171 162 166 174 170 162 166 174 170 162 166 174 170 162 166 174 170 162 164 172 168 160 164 172 168 160 164 172 168 160 164 172 168 160 164 172 169 161 165 173 169 161 165 173 169 161 165 173 169 161 165 173 169 161 167 175 171 163 167 175 171 163 167 175 171 163 167 175 171 163 167 174 170 162 166 174 170 162 166 174 170 162 166 174 170 162 166 174 170 160 164 172 168 160 164 172 168 160 164 172 168 160 164 172 168 160 165 173 169 161 165 173 169 161 165 173 169 161 165 173 169 161 165 173 171 163 167 175 171 163 167 175 171 163 167 175 171 163 167 175 171 163 166 174 170 162 166 174 170 162 166 174 170 162 166 174 170 162 166 172 168 160 164 172 168 160 164 172 168 160 164 172 168 160 164 172 168 161 165 173 169 161 165 173 169 161 165 173 169 161 165 173 169 161 165 175 171 163 167 175 171 163 167 175 171 163 167 175 171 163 167 175 170 162 166 174 170 162 166 174 170 162 166 174 170 162 166 174 170 162 164 172 168 160 164 172 168 160 164 172 168 160 164 172 168 160 164 172 169 161 165 173 169 161 165 173 169 161 165 173 169 161 165 173 169 163 167 175 171 163 167 175 171 163 167 175 171 163 167 175 171 163 167 174 170 16B %gnalogie AlainC%pile-GnalogieG%O%AutoCat %[%Couleurs pour diaporamash%<%=dico A. GLEYZES SPEC SPOTt%=Symbole%iInfos sur glossaire de formules%uDmarrage supplmentaire TAILNu r det slut