%Header Record Format:MCS1 Type Number:1 File Name:TRADENFR Option Name: Communication SW:0 Capacity:1782 Data Type:PG %Data Record Password: BaseN:0 \Lbl 2 \ClrText "\(-)-TRADUCTION-\(-)" " [1]:EN\->FR" " [2]:FR\->EN" "" "\(-)-BANQUE DE DONNEES-\(-) [3]:CREER SA BDD" " [4]:GERER SA BDD" \Do \Getkey\->B \LpWhile B\<>72\ And B\<>62\ And B\<>52\ And B\<>73\ And B\<>47 \ClrText \If B=47 \Then "-PERSONAL TRANSLATOR-v 1.0" "" "p\Ra\Cor TOTOYO" "" "TOTOYO(A)LAPOSTE.NET" \Stop \IfEnd 1\->W \If B=73 \Then "NB MAX DE MOTS :" "DISPONIBLES ?" \Mat Z[1,1\->V \Locate 18,1,V-1 \For 2\->U \To V \If 0=\Mat Z[U,1 \Then \Dsz U \Break \IfEnd \Next \Locate 13,2,V-U \If UW "RAJOUT DE MOTS(1\->OUI)"?\->B B=1\=>52.1\->B \Else \Do:\LpWhile \Getkey=0 \IfEnd \IfEnd \If \Int B=52 \Then \If B=52 \Then "L'ANCIENNE SERA ENTIEREMENT EFFACEE !" "CONFIRMER (1\->OUI)"?\->B B\<>1\=>\Goto2 \Do "COMBIEN DE MOTS" "(1 A 254)"?\->V \LpWhile V<1\ Or V>254 \Isz V {V,4\->\Dim \Mat Z V\->\Mat Z[1,1 2\->W \IfEnd \ClrText "MOT EN" \For W\->W \To V 4\->\Dim \List 1 \For 0\->L \To 2 \Step 2 \If L=0 \Then \Locate 8,1,"ANGLAIS : " \Else \Locate 8,1,"FRANCAIS :" \IfEnd \Locate 1,6,"[DEL]:EFFACER [\r]:'" 44\->B 3\->Z \Do \If B=44 \Then \Locate 4,3,"\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)" \If A>4 \Then \Locate 1,5," " \Locate 1,7," " \IfEnd 4\->A 1\->D 0\->\List 1[1+L 0\->\List 1[2+L \IfEnd \Do \Getkey\->B \LpWhile B=0 B=31\ And A>4\=>\Break B=47\=>L=2\ And A>4\ Or L=0\ And A=4\=>18\->A \If A<18 \Then \Prog "TRADLETT" \If B\>=71\ And B\<=76\ Or B\>=61\ And B\<=67\ Or B\>=52\ And B\<=56\ Or B\>=41\ And B\<=46\ And B\<>44\ Or B\>=32\ And B\<=36\ Or B=25\ Or B=26 \Then B\10^x(26D-18-2A)+\List 1[D+L\->\List 1[D+L \Isz A A=11\=>2\->D \IfEnd \If A=5 \Then \Locate 1,5,"[EXE]:CONTINUER" \If L=2 \Then \Locate 1,7,"[ESC]:TERMINER" \IfEnd \IfEnd \IfEnd \LpWhile A<18 B=47\=>\Break \Next \For 1\->D \To 4 \List 1[D\->\Mat Z[W,D \Next B=47\=>\Break \Next \IfEnd \If B=72\ Or B=62 \Then 1\->W:3\->X \If B=72 \Then 3\->W:1\->X \IfEnd "MOT A TRADUIRE :" \Locate 4,3,"\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)" \Locate 1,6,"[EXE]:CHERCHER [\r]:'" \Locate 1,7,"[DEL]:EFFACER" 44\->B 3\->Z \Do \If B=44 \Then \Locate 4,3,"\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)" 4\->A 1\->D 2\->\Dim \List 1 \IfEnd \Do \Getkey\->B \LpWhile B=0 B=31\=>\Break \Prog "TRADLETT" \If B\>=71\ And B\<=76\ Or B\>=61\ And B\<=67\ Or B\>=52\ And B\<=56\ Or B\>=41\ And B\<=46\ And B\<>44\ Or B\>=32\ And B\<=36\ Or B=25\ Or B=26 \Then B\10^x(26D-18-2A)+\List 1[D\->\List 1[D \Isz A A=11\=>2\->D \IfEnd \LpWhile A<18 \List 1[1\->C \Mat Z[1,1\->Y \For 2\->E \To Y C=\Mat Z[E,X\=>\Mat Z[E,X+1]=\List 1[2\=>\Goto1 \Next \Locate 1,4,"RIEN TROUVE..." \Do:\LpWhile \Getkey=0 \Goto2 \Lbl 1 0\->D 4\->Z \Mat Z[E,W\->G \For 1\->A \To 15 \If A=8 \Then \Isz D \Mat Z[E,W+1\->G \IfEnd 26D-2A+2\->F \Int (G\10^x\(-)F\->B B=0\=>\Break G-B\10^xF\->G \Prog "TRADLETT" \Next \Do:\LpWhile \Getkey=0 \Goto2 \IfEnd \Goto2\@00\@00 %End %Header Record Format:MCS1 Type Number:1 File Name:TRADLETT Option Name: Communication SW:0 Capacity:513 Data Type:PG %Data Record Password: BaseN:0 \Int .1B\->C \If C=7 \Then B=76\=>\Locate A,Z,"A" B=75\=>\Locate A,Z,"G" B=74\=>\Locate A,Z,"M" B=73\=>\Locate A,Z,"P" B=72\=>\Locate A,Z,"U" B=71\=>\Locate A,Z,"Z" \IfEnd \If C=6 \Then B=67\=>\Locate A,Z,"'" B=66\=>\Locate A,Z,"B" B=65\=>\Locate A,Z,"H" B=64\=>\Locate A,Z,"N" B=63\=>\Locate A,Z,"Q" B=62\=>\Locate A,Z,"V" B=61\=>\Locate A,Z," " \IfEnd \If C=5 \Then B=56\=>\Locate A,Z,"C" B=55\=>\Locate A,Z,"I" B=54\=>\Locate A,Z,"O" B=53\=>\Locate A,Z,"R" B=52\=>\Locate A,Z,"W" \IfEnd \If C=4 \Then B=46\=>\Locate A,Z,"D" B=45\=>\Locate A,Z,"J" B=43\=>\Locate A,Z,"S" B=42\=>\Locate A,Z,"X" B=41\=>\Locate A,Z,"-" \IfEnd \If C=3 \Then B=36\=>\Locate A,Z,"E" B=35\=>\Locate A,Z,"K" B=33\=>\Locate A,Z,"T" B=32\=>\Locate A,Z,"Y" \IfEnd B=26\=>\Locate A,Z,"F" B=25\=>\Locate A,Z,"L"\@00\@00 %End %Header Record Format:MCS1 Type Number:6 File Name:MAT_Z Option Name: Communication SW:0 Capacity:1853 Data Type:MT %Data Record File Name: Rows:51 Columns:4 Value : 0 0 5.1\EE1 Value : 0 1 0 Value : 0 2 0 Value : 0 3 0 Value : 1 0 5.265552536\EE1 Value : 1 1 0 Value : 1 2 3.376643361637\EE1 Value : 1 3 3.6\EE13 Value : 2 0 5.526\EE1 Value : 2 1 0 Value : 2 2 4.355\EE1 Value : 2 3 0 Value : 3 0 3.3653664\EE1 Value : 3 1 0 Value : 3 2 7.625545343\EE1 Value : 3 3 0 Value : 4 0 3.6254336\EE1 Value : 4 1 0 Value : 4 2 4.355645464\EE1 Value : 4 3 0 Value : 5 0 4.5727473\EE1 Value : 5 1 0 Value : 5 2 4.3767233\EE1 Value : 5 3 0 Value : 6 0 4.3335473\EE1 Value : 6 1 0 Value : 6 2 7.653533633\EE1 Value : 6 3 0 Value : 7 0 7.355563372533\EE1 Value : 7 1 0 Value : 7 2 5.574767536\EE1 Value : 7 3 0 Value : 8 0 6.653367635\EE1 Value : 8 1 0 Value : 8 2 5.67643433653\EE1 Value : 8 3 0 Value : 9 0 5.25564465452\EE1 Value : 9 1 0 Value : 9 2 2.636643633533\EE1 Value : 9 3 0 Value : 10 0 3.66446\EE1 Value : 10 1 0 Value : 10 2 2.65564\EE1 Value : 10 3 0 Value : 11 0 5.676255672257\EE1 Value : 11 1 3.35453\EE13 Value : 11 2 5.676255672257\EE1 Value : 11 3 3.353555636\EE13 Value : 12 0 5.33656365562\EE1 Value : 12 1 0 Value : 12 2 5.336563662545\EE1 Value : 12 3 5.3\EE13 Value : 13 0 4.3366446\EE1 Value : 13 1 0 Value : 13 2 3.664625432365\EE1 Value : 13 3 0 Value : 14 0 2.55456763336\EE1 Value : 14 1 0 Value : 14 2 7.354435533555\EE1 Value : 14 3 6.4643653\EE13 Value : 15 0 2.65453\EE1 Value : 15 1 0 Value : 15 2 7.3547253\EE1 Value : 15 3 0 Value : 16 0 3.354\EE1 Value : 16 1 0 Value : 16 2 4.572436372677\EE1 Value : 16 3 0 Value : 17 0 4.3333673\EE1 Value : 17 1 0 Value : 17 2 7.37643\EE1 Value : 17 3 0 Value : 18 0 6.4364233\EE1 Value : 18 1 0 Value : 18 2 4.372556276643\EE1 Value : 18 3 0 Value : 19 0 4.654\EE1 Value : 19 1 0 Value : 19 2 2.676555336\EE1 Value : 19 3 0 Value : 20 0 5.33633725364\EE1 Value : 20 1 0 Value : 20 2 5.33633725364\EE1 Value : 20 3 0 Value : 21 0 7.66446\EE1 Value : 21 1 0 Value : 21 2 3.633\EE1 Value : 21 3 0 Value : 22 0 5.453\EE1 Value : 22 1 0 Value : 22 2 5.472\EE1 Value : 22 3 0 Value : 23 0 6.45433\EE1 Value : 23 1 0 Value : 23 2 6.454646173764\EE1 Value : 23 3 0 Value : 24 0 5.625367653\EE1 Value : 24 1 0 Value : 24 2 5.625765553\EE1 Value : 24 3 0 Value : 25 0 6.676563575535\EE1 Value : 25 1 7.26446\EE13 Value : 25 2 7.653535536533\EE1 Value : 25 3 4.173257664\EE13 Value : 26 0 4.65433\EE1 Value : 26 1 0 Value : 26 2 7.354556433\EE1 Value : 26 3 0 Value : 27 0 4.6537652\EE1 Value : 27 1 0 Value : 27 2 3.35376563653\EE1 Value : 27 3 0 Value : 28 0 2.5556436\EE1 Value : 28 1 0 Value : 28 2 2.555756436\EE1 Value : 28 3 0 Value : 29 0 7.554613354\EE1 Value : 29 1 0 Value : 29 2 7.625253653617\EE1 Value : 29 3 0 Value : 30 0 3.53632\EE1 Value : 30 1 0 Value : 30 2 5.62536\EE1 Value : 30 3 0 Value : 31 0 4.36372765336\EE1 Value : 31 1 0 Value : 31 2 5.676535336\EE1 Value : 31 3 0 Value : 32 0 4.354256236\EE1 Value : 32 1 0 Value : 32 2 5.336435472465\EE1 Value : 32 3 3.6\EE13 Value : 33 0 0 Value : 33 1 0 Value : 33 2 0 Value : 33 3 0 Value : 34 0 0 Value : 34 1 0 Value : 34 2 0 Value : 34 3 0 Value : 35 0 0 Value : 35 1 0 Value : 35 2 0 Value : 35 3 0 Value : 36 0 0 Value : 36 1 0 Value : 36 2 0 Value : 36 3 0 Value : 37 0 0 Value : 37 1 0 Value : 37 2 0 Value : 37 3 0 Value : 38 0 0 Value : 38 1 0 Value : 38 2 0 Value : 38 3 0 Value : 39 0 0 Value : 39 1 0 Value : 39 2 0 Value : 39 3 0 Value : 40 0 0 Value : 40 1 0 Value : 40 2 0 Value : 40 3 0 Value : 41 0 0 Value : 41 1 0 Value : 41 2 0 Value : 41 3 0 Value : 42 0 0 Value : 42 1 0 Value : 42 2 0 Value : 42 3 0 Value : 43 0 0 Value : 43 1 0 Value : 43 2 0 Value : 43 3 0 Value : 44 0 0 Value : 44 1 0 Value : 44 2 0 Value : 44 3 0 Value : 45 0 0 Value : 45 1 0 Value : 45 2 0 Value : 45 3 0 Value : 46 0 0 Value : 46 1 0 Value : 46 2 0 Value : 46 3 0 Value : 47 0 0 Value : 47 1 0 Value : 47 2 0 Value : 47 3 0 Value : 48 0 0 Value : 48 1 0 Value : 48 2 0 Value : 48 3 0 Value : 49 0 0 Value : 49 1 0 Value : 49 2 0 Value : 49 3 0 Value : 50 0 0 Value : 50 1 0 Value : 50 2 0 Value : 50 3 0 %End