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
/
CANDEP.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1979-12-31
|
2KB
|
81 lines
***** CANDEP.CMD *****
ERASE
* BORDER ROUTINE REMOVED
* BORGER ROUTINE REMOVED
@ 8, 8 SAY [The next step is to cancel deposits. Turn now to the portion]
@ 9, 8 SAY [of your statement listing deposits, and]
SET INTENSITY OFF
@ 12,24 SAY [HIT TO CONTINUE]
SET INTENSITY ON
@ 12,29 SAY [<RETURN>]
SET CONSOLE OFF
WAIT
SET CONSOLE ON
ERASE
@ 1, 9 SAY [**********************************************************]
@ 2, 9 SAY [* *]
@ 3, 9 SAY [**********************************************************]
SET INTENSITY OFF
@ 2,28 SAY [CANCELING DEPOSITS]
SET INTENSITY ON
@ 7, 9 SAY [As with the checks, the deposits will be presented one at]
@ 8, 9 SAY [a time, this time in date order. Match the dates of the]
@ 9, 9 SAY [deposits with statement dates. Type 'C,' for 'CANCEL,' if]
@ 10, 9 SAY [the deposit 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,22 SAY [DATE:]
@ 15,39 SAY [AMOUNT:]
LOCATE FOR ENTRYCAT = 'D'
DO WHILE (.NOT. EOF)
SET INTENSITY OFF
@ 15,28 SAY DATE
@ 15,47 SAY CREDIT
@ 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
the portion]
@ 9, 8 SAY [of your statement