home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CP/M
/
CPM_CDROM.iso
/
mbug
/
mbug105.arc
/
DBBUDGET.LQR
/
BUDGET.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1979-12-31
|
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