Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : CUSTDBM.ZIP
Filename : CAME1.PRG

*****************************************************************
* CAME1 - Display memory variable data entry screen for *
* Customer Accounts System *
* 9/9/86 *
*****************************************************************

DO borders WITH catitle,"Edit System Memory Variables"
@ 6, 2 SAY "PRINTER LEFT MARGIN:" GET capmargin PICTURE "999" RANGE 0,132
@ 6, 40 SAY "PRINTER PAGE LENGTH:" GET capagelen PICTURE "99" RANGE 1, 99
@ 7, 2 SAY "SETUP COMPRESSED PRINT:" GET capsetup FUNCTION "S30"
@ 8, 2 SAY "RESET PRINTER TO NORMAL:" GET capreset FUNCTION "S30"
@ 10, 2 SAY "COMPANY NAME:" GET cacompname
@ 11, 2 SAY "ADDRESS:" GET caaddr1
@ 12, 2 SAY "CITY, STATE, ZIP:" GET caaddr2
@ 13, 2 SAY "PHONE NUMBER:" GET caphone
@ 15, 2 SAY "PAYMENT GRACE PERIOD:" GET caperiod PICTURE '99'
@ 16, 2 SAY "MONTHLY INTEREST RATE ON OVERDUE BALANCES:" GET cainterest;
PICTURE '9.9999'

RETURN