%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:3501 File Name:SIMPLIFI Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record 9\->F 1\EE\(-)12\->H \ClrText " SIPLIFICATEUR DE VALEUR V1.1 BY CLEM27 " \Do \ClrText \Locate 1,1,"ENTRER A PAR :":\Locate 3,2,"SA VALEUR ACTUEL":\Locate 3,3,"PAL LE CALCUL":\Locate 3,4,"PAR LIST LIGNE 1":\Locate 3,5,"PAR LIST LIGNE 2":\Locate 3,6,"PAR MEMOIRE ANS":\Locate 3,7,"MODE NOMBRE" 2\->X \Locate 1,X,"\->" \Do \If \Getkey=28\ And X>2:\Then \Locate 1,X," ":X-1\->X:\Locate 1,X,"\->":\IfEnd \If \Getkey=37\ And X<7:\Then \Locate 1,X," ":X+1\->X:\Locate 1,X,"\->":\IfEnd \LpWhile \Getkey\<>31 \If X=3:\Then \ClrText:"ENTRE LE CALCUL"?\->A:\IfEnd \If X=4:\Then \List \Ans[1]\->A:\IfEnd \If X=5:\Then \List \Ans[2]\->A:\IfEnd \If X=6:\Then \Ans\->A:\IfEnd \If X=7:\Then \ClrText:"ENTRE TON NOMBRE"?\->A:"ENTRE SON NOMBRE DE DECIMAL"?\->K:1\EE\(-)(K-1)\->H:\IfEnd \If A=0:\Then \Locate 5,4,"ERREUR : A=0":\Stop:\IfEnd \If A>0:\Then 1\->G:\Else \(-)1\->G:\IfEnd \ClrText \Locate 3,1,"SCAN RAPIDE" \Locate 3,2,"SCAN LARGE" \Locate 1,1,"\->" 1\->X \Do \If \Getkey=28:\Then \Locate 1,2," ":\Locate 1,1,"\->":1\->X:\IfEnd \If \Getkey=37:\Then \Locate 1,1," ":\Locate 1,2,"\->":2\->X:\IfEnd \LpWhile \Getkey\<>31 \If X=1:\Then 9\->F:\Else 25\->F:\IfEnd \ClrText \Locate 5,4,"CHARGEMENT..." 'FORME B\sqrtC \Locate 7,2,"ETAPE 1.0 " \For 1\->B \To F \For 1\->C \To F \If A\>=GB*\sqrtC-H\ And A\<=GB*\sqrtC+H:\Then \ClrText:\Locate 1,1,"A=":\Locate 3,1,A:\Locate 1,4,"A=":\Locate 3,4,GB:\Locate 6,4,"\sqrt":\Locate 7,4,C:\Locate 1,6,"EXE TO CONTINUE":\Locate 1,7,"EXIT TO LEAVE":\Do:\Locate 16,1,"found":\If \Getkey=47:\Then \Locate 1,7,"PRESS AC\slashON ":\Stop:\IfEnd:\Locate 16,1," ":\LpWhile \Getkey\<>31:\IfEnd \Next \Next 'FORME B*\sqrtC\ab/cD \Locate 7,2,"ETAPE 2.1" \For 1\->D \To F \Locate 15,2,D \For 1\->C \To F \For 1\->B \To F \If A\>=((GB*\sqrtC)/D)-H\ And A\<=((GB*\sqrtC)/D)+H:\Then \ClrText:\Locate 1,1,"A=":\Locate 3,1,A:\Locate 1,4,"A=-----------":\Locate 3,3,GB:\Locate 6,3,"\sqrt":\Locate 7,3,C:\Locate 5,5,D:\Locate 1,6,"EXE TO CONTINUE":\Locate 1,7,"EXIT TO LEAVE":\Do:\Locate 16,1,"found":\If \Getkey=47:\Then \Locate 1,7,"PRESS AC\slashON ":\Stop:\IfEnd:\Locate 16,1," ":\LpWhile \Getkey\<>31:\IfEnd \Next \Next \Next 'FORME B\sqrt\Pi\ab/cD \Locate 7,2,"ETAPE 3.0 " \For 1\->B \To F \For 1\->D \To F \If A\>=((GB*\Pi)/D)-H\ And A\<=((GB*\Pi)/D)+H:\Then \ClrText:\Locate 1,1,"A=":\Locate 3,1,A:\Locate 1,4,"A=-------":\Locate 3,3,GB:\Locate 6,3,"\Pi":\Locate 5,5,D:\Locate 1,6,"EXE TO CONTINUE":\Locate 1,7,"EXIT TO LEAVE":\Do:\Locate 16,1,"found":\If \Getkey=47:\Then \Locate 1,7,"PRESS AC\slashON ":\Stop:\IfEnd:\Locate 16,1," ":\LpWhile \Getkey\<>31:\IfEnd \Next \Next 'FORME \cos \sqrtB/C \Locate 7,2,"ETAPE 4.0" \Rad A\->J \If J>1:\Then \Do:J-\Pi\->J:\LpWhile J>1:\IfEnd \If J<\(-)1:\Then \Do:J+\Pi\->J:\LpWhile J<\(-)1:\IfEnd \If J\<=1\ And J\>=\(-)1:\Then \For 1\->B \To F \For 1\->C \To F \If (\cos (\sqrtB/C))-H\<=\Abs J\ And (\cos (\sqrtB/C))+H\>=\Abs J:\Then \ClrText:\Locate 1,1,"A=":\Locate 3,1,J:\Locate 1,4,"A=\cos ------":\Locate 7,3,"\sqrt":\Locate 8,3,B:\Locate 8,5,C:\Locate 1,6,"EXE TO CONTINUE":\Locate 1,7,"EXIT TO LEAVE":\Do:\Locate 16,1,"found":\If \Getkey=47:\Then \Locate 1,7,"PRESS AC\slashON ":\Stop:\IfEnd:\Locate 16,1," ":\LpWhile \Getkey\<>31:\IfEnd \Next \Next \For 0.5\->B \To 1 \Step 0.5 \If \Abs J\>=(\cos B)-H\ And \Abs J\<=(\cos B)+H:\Then \ClrText:\Locate 1,1,"A=":\Locate 3,1,J:\Locate 1,4,"A=\cos ":\Locate 7,4,B:\Locate 1,6,"EXE TO CONTINUE":\Locate 1,7,"EXIT TO LEAVE":\Do:\Locate 16,1,"found":\If \Getkey=47:\Then \Locate 1,7,"PRESS AC\slashON ":\Stop:\IfEnd:\Locate 16,1," ":\LpWhile \Getkey\<>31 \IfEnd 'FORME \sin \sqrtB/C \Locate 7,2,"ETAPE 5.0" \For 1\->B \To F \For 1\->C \To F \If (\sin (\sqrtB/C))-H\<=\Abs J\ And (\sin (\sqrtB/C))+H\>=\Abs J:\Then \ClrText:\Locate 1,1,"A=":\Locate 3,1,J:\Locate 1,4,"A=\sin ------":\Locate 7,3,G:\Locate 9,3,"\sqrt":\Locate 10,3,B:\Locate 9,5,C:\Locate 1,6,"EXE TO CONTINUE":\Locate 1,7,"EXIT TO LEAVE":\Do:\Locate 16,1,"found":\If \Getkey=47:\Then \Locate 1,7,"PRESS AC\slashON ":\Stop:\IfEnd:\Locate 16,1," ":\LpWhile \Getkey\<>31 \IfEnd \Next \Next \For 0.5\->B \To 1 \Step 0.5 \If \Abs J\>=(\sin B)-H\ And \Abs J\<=(\sin B)+H:\Then \ClrText:\Locate 1,1,"A=":\Locate 3,1,J:\Locate 1,4,"A=\sin ":\Locate 7,4,B:\Locate 1,6,"EXE TO CONTINUE":\Locate 1,7,"EXIT TO LEAVE":\Do:\Locate 16,1,"found":\If \Getkey=47:\Then \Locate 1,7,"PRESS AC\slashON ":\Stop:\IfEnd:\Locate 16,1," ":\LpWhile \Getkey\<>31 \IfEnd \IfEnd \Deg 'FORME \sqrtB+C\sqrtE+I/D \Locate 7,2,"ETAPE 6.0" \For 1\->C \To \(-)1 \Step \(-)2 \If C=1:\Then \Locate 13,2,"6":\Else \Locate 13,2,"7":\IfEnd \For 1\->D \To F \Locate 15,2,D \For 1\->B \To F \For 1\->E \To F \If ((\sqrtB+C\sqrtE)/D)-H\<=A\ And ((\sqrtB+C\sqrtE)/D+H\>=A:\Then \ClrText:\Locate 1,1,"A=":\Locate 3,1,A:\Locate 1,4,"A=-----------":\Locate 3,3,"\sqrt":\Locate 4,3,B:\Locate 7,3,"+":\Locate 8,3,C:\Locate 9,3,"\sqrt":\Locate 10,3,E:\Locate 8,5,D:\Locate 1,6,"EXE TO CONTINUE":\Locate 1,7,"EXIT TO LEAVE":\Do:\Locate 16,1,"found":\If \Getkey=47:\Then \Locate 1,7,"PRESS AC\slashON ":\Stop:\IfEnd:\Locate 16,1," ":\LpWhile \Getkey\<>31:\IfEnd \Next \Next \Next \Next \ClrText \Locate 1,1,"LE SIMPLIFICATEUR N'A":\Locate 1,2,"TROUVE DE FORME":\Locate 1,3,"SIMPLIFIE. PRESSER":\Locate 1,4,"EXE POUR EFFECTUER UN":\Locate 1,5,"SCAN PLUS LARGE SINON":\Locate 1,6,"PRESSER EXIT":\Do:\If \Getkey=47:\Then \ClrText:\Locate 5,4,"PRESS AC\slashON":0\->A:\Stop:\IfEnd:\LpWhile \Getkey\<>31 F+25\->F 1\EE\(-)10\->H \LpWhile 1 %End