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
/
CANCK.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1979-12-31
|
3KB
|
99 lines
***** RECNCILE.CMD *****
RELEASE CmChoice
ERASE
*BORDER ROUTINE REMOVED
*BORDER ROUTINE REMOVED
SET INTENSITY ON
@ 6,12 SAY [The first step in reconciling your checkbook is to]
@ 7,12 SAY ["cancel" those items (i.e. debits and credits) from]
@ 8,12 SAY [your records that appear on the bank statement.]
@ 10,30 SAY [********]
@ 12,12 SAY [When you have your bank statement in front of you]
@ 13,12 SAY [and are ready to proceed,]
SET INTENSITY OFF
@ 17,23 SAY [HIT TO CONTINUE]
SET INTENSITY ON
@ 17,28 SAY [<RETURN>]
SET CONSOLE OFF
WAIT
SET CONSOLE ON
ERASE
@ 1, 9 SAY [**********************************************************]
@ 2, 9 SAY [* *]
@ 3, 9 SAY [**********************************************************]
SET INTENSITY OFF
@ 2,29 SAY [CANCELING CHECKS]
SET INTENSITY ON
@ 7, 9 SAY [First, we'll cancel the checks, so turn to the check list-]
@ 8, 9 SAY [ing in your statement. The checks will be presented one]
@ 9, 9 SAY [at a time, in numerical order. Type 'C,' for 'CANCEL,' if]
@ 10, 9 SAY [the check appears on your statement; type 'S,' for 'SKIP,']
@ 11, 9 SAY [if it does not. TO ABORT, TYPE 'X;' canceled items will be]
@ 12, 9 SAY [CLEARED for a fresh start.]
@ 15,20 SAY [CHECK NO:]
@ 15,39 SAY [AMOUNT:]
LOCATE FOR ENTRYCAT = 'C'
DO WHILE (.NOT. EOF)
SET INTENSITY OFF
@ 15,30 SAY NO
@ 15,47 SAY DEBIT
@ 18,24 SAY [-C- -S-]
SET INTENSITY ON
@ 18,28 SAY [CANCEL]
@ 18,43 SAY [SKIP]
@ 20,27 SAY [-X- ABORT AND EXIT]
STORE ' ' TO Decision
@ 18,35 GET Decision
READ
DO WHILE (!('&Decision')<>'S' .AND. !('&Decision')<>'C')
IF !('&Decision')='X'
GO TOP
REPLACE CAN WITH F FOR CAN
RELEASE Decision
ERASE
RETURN
ENDIF
@ 22,0
STORE 1 TO N
DO WHILE N<10
STORE N+1 TO N
ENDDO
@ 22,21 SAY [INVALID CHOICE. PLEASE TRY AGAIN.]
STORE ' ' TO Decision
@ 18,35 GET Decision
READ
RELEASE N
ENDDO
@ 22,0
IF !('&Decision') = 'C'
REPLACE CAN WITH T
CONTINUE
ELSE
CONTINUE
ENDIF
ENDDO
RELEASE Decision
ERASE
RETURN
J]
@ 5, 5 SAY CHR(27)+[$]+[J J]
@ 6, 5 SAY CHR(27)+[$]+[J J]
@ 7, 5 SAY CHR(27)+[$]+[J J]
@