%Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:A Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:B Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:C Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:D Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:E Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:F Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:G Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:H Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:I Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:J Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:K Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:L Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:M Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:N Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:O Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:P Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:Q Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:R Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:S Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:T Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:U Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:V Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:W Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:X Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:Y Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:Z Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:\r Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:\theta Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:3989 File Name:Convers Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Lbl \theta \ClrText \Locate 6,1,"Conversions" \Locate 6,2,"-----------" \Locate 2,7,"Version 1.0" \Locate 6,5,"Par Clemji" \Lbl L \Getkey\->A A=31\=>\Goto0 \GotoL \Lbl 0 0\->A~Z \ClrText \Locate 1,2,"1)Conversion d'unites" \Locate 1,3,"2)Conversion de temps" \Locate 1,4,"3)Conversion physique" \Locate 1,5,"4)Conversion unites\x^2" \Locate 1,6,"5)A propos" \Do \Lbl \r \Getkey\->\theta \theta=72\=>\Goto1 \theta=62\=>\Goto2 \theta=52\=>\Goto3 \theta=73\=>\Goto4 \theta=63\=>\GotoQ \Goto\r \Lbl 1 \ClrText "Nombre a convertir "?\->B \ClrGraph \ClrText \Locate 1,1,"Unite de depart :" \Locate 1,3,"1)G 2)M 3)k 4)H 5)Da" \Locate 1,4,"6)- 7)d 8)c 9)m A)\micro" \Locate 1,5,"B)\nano C)p D)f" \Do \Lbl A \Getkey\->A A=72\=>B\->C A=72\=>1\->U A=62\=>B\->C A=62\=>2\->U A=52\=>Bk\->C A=52\=>3\->U A=73\=>B*10^2\->C A=73\=>4\->U A=63\=>B*10\->C A=63\=>5\->U A=53\=>B\->C A=53\=>6\->U A=74\=>B*10^-1\->C A=74\=>7\->U A=64\=>B*10^-2\->C A=64\=>8\->U A=54\=>B*10^-3\->C A=54\=>9\->U A=76\=>B\->C A=76\=>10\->U A=66\=>B\nano\->C A=66\=>11\->U A=56\=>B\->C A=56\=>12\->U A=46\=>Bf\->C A=46\=>13\->U C\<>0\=>\GotoB \GotoA \Lbl B \ClrText \Locate 1,1,"Unite finale :" \Locate 1,3,"1)G 2)M 3)k 4)H 5)Da" \Locate 1,4,"6)- 7)d 8)c 9)m A)\micro" \Locate 1,5,"B)\nano C)p D)f" \Do \Lbl D \Getkey\->A A=72\=>C*10^-9\->D A=72\=>1\->V A=62\=>C*10^-6\->D A=62\=>2\->V A=52\=>C*10^-3\->D A=52\=>3\->V A=73\=>C*10^-2\->D A=73\=>4\->V A=63\=>C*10^-1\->D A=63\=>5\->V A=53\=>C\->D A=53\=>6\->V A=74\=>C*10^1\->D A=74\=>7\->V A=64\=>C*10^2\->D A=64\=>8\->V A=54\=>C*10^3\->D A=54\=>9\->V A=76\=>C*10^6\->D A=76\=>10\->V A=66\=>C*10^9\->D A=66\=>11\->V A=56\=>C*10^12\->D A=56\=>12\->V A=46\=>C*10^15\->D A=46\=>13\->V D\<>0\=>\GotoC \GotoD \Lbl C \ClrGraph \ClrText \Locate 1,2,"Nombre de depart :" \Locate 1,3,B U=1\=>\Locate 16,3,"G" U=2\=>\Locate 16,3,"M" U=3\=>\Locate 16,3,"k" U=4\=>\Locate 16,3,"H" U=5\=>\Locate 16,3,"Da" U=6\=>\Locate 16,3,"-" U=7\=>\Locate 16,3,"d" U=8\=>\Locate 16,3,"c" U=9\=>\Locate 16,3,"m" U=10\=>\Locate 16,3,"\micro" U=11\=>\Locate 16,3,"\nano" U=12\=>\Locate 16,3,"p" U=13\=>\Locate 16,3,"f" \Locate 1,4,"Nombre convertit :" \Locate 1,5,D V=1\=>\Locate 16,5,"G" V=2\=>\Locate 16,5,"M" V=3\=>\Locate 16,5,"k" V=4\=>\Locate 16,5,"H" V=5\=>\Locate 16,5,"Da" V=6\=>\Locate 16,5,"-" V=7\=>\Locate 16,5,"d" V=8\=>\Locate 16,5,"c" V=9\=>\Locate 16,5,"m" V=10\=>\Locate 16,5,"\micro" V=11\=>\Locate 16,5,"\nano" V=12\=>\Locate 16,5,"" V=13\=>\Locate 16,5,"f" \Locate 1,7,"Menu \-> [EXE]" \Do \LpWhile \Getkey\<>31 \ClrText \Goto0 \Lbl 4 0\->C \ClrText "Nombre a convertir "?\->B \ClrText \Locate 1,1,"Unite de depart :" \Locate 1,3,"1)kmDefm 2)hmDefm 3)damDefm 4)m" \Locate 1,4,"5)dmDefm 6)cmDefm 7)mm" \Do \Lbl E \Getkey\->A A=72\=>B*10^6\->C A=62\=>B*10^4\->C A=52\=>B*10^2\->C A=73\=>B\->C A=63\=>B*10^-2\->C A=53\=>B*10^-4\->C A=74\=>B*10^-6\->C C\<>0\=>\GotoF \GotoE \Lbl F 0\->D \ClrText \Locate 1,1,"Unite finale :" \Locate 1,3,"1)kmDefm 2)hmDefm 3)damDefm 4)m" \Locate 1,4,"5)dmDefm 6)cmDefm 7)mm" \Do \Lbl G \Getkey\->A A=72\=>C*10^6\->D A=62\=>C*10^4\->D A=52\=>C*10^2\->D A=73\=>C\->D A=63\=>C*10^-2\->D A=53\=>C*10^-4\->D A=74\=>C*10^-6\->D D\<>0\=>\GotoH \GotoG \Lbl H \ClrText \Locate 1,2,"Nombre de depart :" \Locate 1,3,B \Locate 1,4,"Nombre convertit :" \Locate 1,5,D \Locate 1,7,"Menu \-> [EXE]" \Do \LpWhile \Getkey\<>31 \ClrText \Goto0 \Lbl 2 0\->A~Z \ClrText "Nombre a convertir "?\->C \ClrText \Locate 1,1,"Unite de depart :" \Locate 1,3,"1)Heures" \Locate 1,4,"2)Minutes" \Locate 1,5,"3)Secondes" \Do \Lbl I \Getkey\->A A=72\=>\GotoJ A=62\=>\GotoJ A=52\=>\GotoJ \GotoI \Lbl J \ClrText \Locate 1,1,"Unite finale :" \Locate 1,3,"1)Heures" \Locate 1,4,"2)Minutes" \Locate 1,5,"3)Secondes" \Do \Lbl K \Getkey\->B B=72\=>\Goto5 B=62\=>\Goto5 B=52\=>\Goto5 \GotoK \Lbl 5 \ClrText \If A=72\ And B=72 \Then C\->H \IfEnd \If A=62\ And B=62 \Then C\->M \IfEnd \If A=52\ And B=52 \Then C\->S \IfEnd \If A=72\ And B=52 \Then C*3600\->S \IfEnd \If A=52\ And B=72 \Then \Fix 2 \Int (C/3600)\->H \Frac (C/3600)/100*60\->M (\Frac (\Frac (C/3600)/100*60))/100*60\->S \IfEnd \If A=72\ And B=62 \Then C*60\->M \IfEnd \If A=62\ And B=72 \Then \Fix 2 C/60\->C \Int (C/3600)\->H \Frac (C/3600)/100*60\->M \IfEnd \If A=52\ And B=62 \Then \Fix 2 C/60\->C \Int (C/60)\->H \Frac (C/60)/100*60\->M \IfEnd \If A=62\ And B=52 \Then C*60\->S \IfEnd \Locate 1,1,"Heure(s) :" \Locate 1,2,H \Locate 1,3,"Minute(s) :" \Locate 1,4,M \Locate 1,5,"Seconde(s) :" \Locate 1,6,S \Locate 1,7,"Fin \-> [EXE]" \Do \LpWhile \Getkey\<>31 \ClrText \Goto0 \Lbl 3 \ClrText "Unitee a convertir :" " " "1=Annees lumieres" "2=Unitees astro." "3=Kilometres" "4=Pression "?\->X X=1\=>\GotoT X=2\=>\GotoU X=3\=>\GotoV X=4\=>\GotoZ \Lbl T \ClrText "1 = AL en UA ?" "2 = AL en KM "?\->X X=1\=>\GotoP X=2\=>\GotoW \Lbl U \ClrText "1 = UA en AL ?" "2 = UA en KM "?\->X X=1\=>\Goto6 X=2\=>\Goto7 \Lbl V \ClrText "1 = KM en AL ?" "2 = KM en UA "?\->X X=1\=>\Goto8 X=2\=>\Goto9 \Lbl P \ClrText "Annees lumieres "?\->E "Unitees astro :" E*9.5\e^x13/1.5\e^x9\Disp\Goto0 \Lbl W \ClrText "Annees lumieres "?\->F "Kilometres :" F*9.5\e^x12\Disp\Goto0 \Lbl 6 \ClrText "Unitees astro "?\->G "Annees lumieres :" G*1.5\e^x9/9.5\e^x12\Disp\Goto0 \Lbl 7 \ClrText "Unitees astro "?\->H "Kilometres :" H*1.5\e^x9\Disp\Goto0 \Lbl 8 \ClrText "Kilometres "?\->I "Annees lumieres :" I/9.5\e^x12\Disp\Goto0 \Lbl 9 \ClrText "Kilometres :"?\->J "Unitees astro :" J/1.5\e^x9\Disp\Lbl Z \ClrText " 1=Pa\->\@F73C ?" " 2=\@F73C\->Pa "?\->X X=1\=>\GotoS X=2\=>\GotoO \ClrText \Lbl S "nbre en Pa"?\->X X/100000\Disp\Goto0 \Lbl O "nbre en \@F73C"?\->X 100000*X\Disp\Goto0 \Lbl Q \ClrText \ClrGraph \Text 1,1,"www.universcasio.fr.tc" \Text 14,1,"des jeux, des programmes," \Text 21,1,"des \Logiciels..." \Text 35,1,"programe par Clemji" \Text 49,1,"Bugs, reclamation, remerciement :" \Text 56,25,"clems2@free.fr" \Do \LpWhile \Getkey\<>31 0\->A~Z \Goto\theta %End