___________________________________________ Author: Jason Mees Name: Vatman Model: CASIO CFX-9850G tested. Date: 4/30/2001 Description : program designed to calculate interest +/- & Gain or Loss. ___________________________________________ Sign Conversions -> store sign >= greater than or equal to <= Less than or equal to => Then sign _ display sign / divide sign ___________________________________________ 0->A~C Norm Lbl 0:ClrText "Intlevel:" " " "Interest level" "NB: 17.5 or -17.5"?->A ClrText " Info Development 2k" " ** VATMAN ** " "SELECT...F(?)" Lbl 1 Locate 1,5,"1:Pre Tax 4:Info" Locate 1,6,"2:Post Tax 5:% ?" 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=>Goto 6 B=69=>Goto 7 B=59=>Goto 0 B=49=>Goto 9 B=39=>Goto Y B=29=>Goto A· 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 Goto 1 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 Goto 1 Lbl Y Norm "Calculating the %" "Type initial value"?->D ClrText "Type final value"?->E ClrText ((E/D)-1)->Z "Interest(%)= " Locate 5,2,Z*100 Goto 1 Lbl 9 "VATMAN v1.10" "jasonmees@hotmail.com" Goto 1 Lbl A Norm "End. iD" Stop