FoxPro Tutorial & Source Code
* Author: Deen Dayal Suthar
* Date : 17/09/2003
* Place : Natraj Infosys
* Source: Interest.prg
* Desc. : Interest Calculation
set talk off
clear
close data
set status off
set clock to 1,28
store 0 to rate,ammount,time,int,tot
@2,8 to 4,60 double
@3,25 say "Interest Calculation"
@5,8 to 20,60 double
@7,10 say "Enter Principal Ammount" get ammount
@9,10 say "Enter Time " get time
@11,10 say"Enter Rate of Interest " get rate pict "999.99%"
read
int=ammount*time*rate/100
@13,10 say "Simple Interest: " +alltrim(str(int,10,2))+" Rs."
tot=ammount+int
@15,10 say "Total Ammount with Interest: "+alltrim(str(tot,10,2)) +" Rs."
set clock off
Also download:
|
|
