Shareware Overload/ShartewareOverload.cdr/database/dbbudget.zip/BUDGET.CMD

OS/2 REXX Batch file | 1987-02-14 | 2KB | 58 lines

* BUDGET.CMD
ERASE
@  1,28 SAY "HOUSEHOLD BUDGET"
@  3, 0 SAY "Control Options:    Item no. to Edit              T to Total"
@  4,20 SAY "<return> to Edit next item    P to Print"
@  5, 0 SAY "Enter Option"
@  5,13 GET option
@  6, 0 SAY "------------------------------------+------------------------------------"
@  7, 0 SAY item1
@  7,25 SAY amount1
@  7,36 SAY "|"
@  7,40 SAY item4
@  7,65 SAY amount4
@  8, 0 SAY item2
@  8,25 SAY amount2
@  8,36 SAY "|"
@  8,40 SAY item5
@  8,65 SAY amount5
@  9, 0 SAY item3
@  9,25 SAY amount3
@  9,36 SAY "|"
@  9,40 SAY item6
@  9,65 SAY amount6
@ 10,36 SAY "|"
@ 11,36 SAY "|"
@ 12,36 SAY "|"
@ 13,36 SAY "|"
@ 14,36 SAY "|"
@ 15,36 SAY "|"
@ 16,36 SAY "|"
@ 17,36 SAY "|"
@ 18,36 SAY "|"
@ 19,36 SAY "|"
@ 20, 0 SAY "+-----------------------------------+------------------------------------|"
@ 21, 0 SAY "| Total"
@ 21, 8 SAY total
@ 21,36 SAY "| Date"
@ 21,43 SAY DATE
@ 21,48 SAY "()                       |"
@ 22, 0 SAY "+-----------------------------------+-----------------------------
READ
RETURN*

ptions:    Item no. to Edit              T to Total"
@  4,20 SAY "<return> to Edit next item    P to Print"
@  5, 0 SAY "Enter Option"
@  5,13 GET option
@  6, 0 SAY "------------------------------------+------------------------------------"
@  7, 0 SAY item1
@  7,25 SAY amount1
@  7,36 SAY "|"
@  7,40 SAY item4
@  7,65 SAY amount4
@  8, 0 SAY item2
@  8,25 SAY amount2
@  8,36 SAY "|"
@  8,40 SAY item5
@  8,65 SAY amouamou