%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:744 File Name:VATMAN Group Name: Password: Option1: Option2: Option3: Option4: %Data Record 0\->A~C \Norm \Lbl 0:\ClrText "Intlevel:" " " "Interest level" "NB: 17.5 \or -17.5"?\->A \ClrText " Info Development 2k" " \aster\aster VATMAN \aster\aster " "SELECT...F(?)" \Lbl 1 \Locate 1,5,"1:Pre Tax 4:Info" \Locate 1,6,"2:Post Tax 5:\@25 ?" \Locate 1,7,"3:Intlevel 6:End" \Do \Getkey\->B \If B=79\ Or B=69\ Or B=59\ Or B=49\ Or B=39\ Or B=29 \Then \Break \IfEnd \LpWhile 1 \Lbl 2 \ClrText B=79\=>\Goto6 B=69\=>\Goto7 B=59\=>\Goto0 B=49\=>\Goto9 B=39\=>\GotoY B=29\=>\GotoA \Lbl 6 "Pre Tax:" " " "TYPE final value"?\->D (D*100)/(100+A)\->E \Fix 2 \ClrText "Pre Tax =" "interest= -" \Locate 11,1,E \Locate 12,2,D-E \Goto1 \Lbl 7 "Post Tax:" " " "TYPE initial value"?\->D (D(A/100))+D\->E \Fix 2 \ClrText "Post Tax=" "interest= +" \Locate 11,1,E \Locate 12,2,E-D \Goto1 \Lbl Y \Norm "Calculating the \@25" "Type initial value"?\->D \ClrText "Type final value"?\->E \ClrText ((E/D)-1)\->Z "Interest(\@25)= " \Locate 5,2,Z*100 \Goto1 \Lbl 9 "VATMAN v1.10" "jasonmees@hotmail.com" \Goto1 \Lbl A \Norm "End. iD" \Stop %End
Make your own free website on Tripod.com