home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
MBUG
/
MBUG061.ARC
/
ENTERCK.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1979-12-31
|
2KB
|
89 lines
***** ENTERCK.CMD *****
RESTORE FROM &UseBase
ERASE
STORE DATE() TO MDate
DO WHILE T
@ 16,0
SET INTENSITY ON
@ 2, 5 SAY [*****************************************************************]
@ 3, 5 SAY [* *]
@ 4, 5 SAY [*****************************************************************]
SET INTENSITY OFF
@ 3,31 SAY [ENTERING CHECKS]
SET INTENSITY ON
@ 7,26 SAY [CURRENT BALANCE:]
SET INTENSITY OFF
@ 7,43 SAY Balance
SET INTENSITY ON
APPEND BLANK
REPLACE ENTRYCAT WITH 'C'
@ 11,48 SAY [CHECK NUMBER:]
SET INTENSITY OFF
REPLACE NO WITH MNo
@ 11,62 SAY NO
SET INTENSITY ON
REPLACE DATE WITH MDate
@ 12,56 SAY [DATE:]
SET INTENSITY OFF
@ 12,62 GET DATE PICTURE '99/99/99'
STORE DATE TO MDate
SET INTENSITY ON
@ 14, 7 SAY [TO:]
SET INTENSITY OFF
@ 14,11 GET TO
SET INTENSITY ON
@ 14,54 SAY [AMOUNT:]
SET INTENSITY OFF
@ 14,62 GET Debit
READ
STORE DATE TO MDate
IF TO = [ ]
DELETE
PACK
ERASE
RELEASE MDate
SAVE TO &UseBase
RELEASE Balance
RELEASE MNO
RELEASE CkChoice
RETURN
ENDIF
STORE MNo+1 TO MNo
SET INTENSITY ON
@ 16,27 SAY [NEW BALANCE:]
STORE (Balance - DEBIT) TO Balance
@ 16,39 SAY STR(Balance,8,2)
SET INTENSITY OFF
@ 18,25 SAY [-C- -X-]
SET INTENSITY ON
@ 18,29 SAY [CONTINUE]
@ 18,46 SAY [EXIT]
STORE ' ' TO Continue
@ 18,38 GET Continue
READ
IF !('&Continue') <> 'C'
RELEASE Continue
ERASE
SAVE TO &UseBase
RELEASE Balance
RELEASE MNo
RELEASE MDate
RELEASE CkChoice
RETURN
ENDIF
RELEASE Continue
ENDDO
TENSITY ON
@ 14,25 SAY [X Exit to System]
@ 15,25 SAY [I Initialize Program]
SET INTENSITY OFF
STORE ' ' TO CkChoice
@ 17,25 SAY [CHOICE?]
SET INTENSITY ON
@ 17,33 GET CkChoice
READ
DO WHILE (CkChoice < '1' .OR. CkChoice > '6') .AND. !('&CkChoice') <> 'X' .AND. !('&CkChoice') <> 'M'.AND. !('&CkChoice') <> 'I'.AND. !('&CkChoice')<>'E'
@ 18,0
DO WHILE N<10
STORE 1 TO N
S