Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : OFFICE.ZIP
Filename : ENTSCRN.FMT

* ENTSCRN.FMT
@ 3, 5 SAY " MONTH AND YEAR:"
@ 3,30 SAY CMONTH(seedate) + ' '
* Bump cursor from last character of indeterminate
* month (June, September) over two spaces.
@ 3,COL()+ 2 SAY myear PICTURE '####'
@ 3,50 SAY " EXPENSES "
@ 7, 5 SAY "Day of expense:"
@ 7,22 GET mday PICTURE '##' RANGE 1,ndim
@ 7,43 SAY "Amount of expense:"
@ 9, 5 SAY "Expense Code:"
@ 9,22 GET mcategory PICTURE '##' RANGE 1,11
@ 7,62 GET eamount
@ 9,43 SAY "Location:"
@ 9,55 GET elocation
@ 10,23 SAY CHR(25)
* CHR(25) is a downward arrow.
@ 11, 9 SAY "+- -- -- -- --- - -- -- -- -- -- --"
@ 11,43 SAY " ---- -- -- -- -- - -- - --+"
@ 12, 9 SAY "| 1. GAS > GASOLINE & OIL"
@ 12,50 SAY "5. TEL > TELEPHONE |"
@ 13, 9 SAY "| 2. PRK > PARKING & TOLLS"
@ 13,50 SAY "6. BRK > BREAKFAST |"
@ 14, 9 SAY "| 3. AIR > AIR FARE"
@ 14,50 SAY "7. LUN > LUNCH |"
@ 15, 9 SAY "| 4. CAB > CAB & OTHER TRANS."
@ 15,50 SAY "8. DIN > DINNER |"
@ 16, 9 SAY "|"
@ 16,50 SAY "9. INN > HOTEL |"
@ 17, 9 SAY "| 10. ENT > ENTERTAIN. <-- IRS --->"
@ 17,49 SAY "11. OTH > OTHER |"
@ 18, 9 SAY "+- -- -- -- -- -- -- -- -- -- -- --"
@ 18,43 SAY " -- -- -- -- -- - - ---- --+"
* end of ENTSCRN.FMT