home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1993 #2
/
Image.iso
/
clipper
/
bcklib2.zip
/
APR.PRG
< prev
next >
Wrap
Text File
|
1993-01-16
|
983b
|
30 lines
/*
The source code contained within this file is protected under the
laws of the United States of America and by International Treaty.
Unless otherwise noted, the source contained herein is:
Copyright (c)1990, 1991, 1992 BecknerVision Inc - All Rights Reserved
Written by John Wm Beckner THIS NOTICE MUST NOT BE REMOVED
BecknerVision Inc
PO Box 11945 DISTRIBUTE ONLY WITH SHAREWARE
Winston-Salem NC 27116 VERSION OF THIS PRODUCT.
Fax: 919/760-1003
*/
#include "beckner.inc"
FUNCTION Main()
LOCAL nAF := 0.00, nPmt := 0.00, nNumPmts := 3, GetList := {}
CLS
@ 5, 1 SAY "Amount Financed ......" GET nAF PICTURE "999999.99"
@ 6, 1 SAY "Payment .............." GET nPmt PICTURE "999999.99"
@ 7, 1 SAY "# payments ..........." GET nNumPmts PICTURE "99"
READ
@ 10, 1 SAY "APR is "
DevOut(sMake(mAPR(nAF, nPmt, nNumPmts)))
DevOut("%")
QUIT
ENDFUNCTION