home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug061.arc / CANDEP.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  2KB  |  81 lines
  1. ***** CANDEP.CMD *****
  2. ERASE
  3. * BORDER ROUTINE REMOVED
  4.  
  5.  
  6.  
  7.  
  8.  
  9.  
  10.  
  11. * BORGER ROUTINE REMOVED
  12.  
  13. @  8, 8 SAY [The next step is to cancel deposits.  Turn now to the portion]
  14. @  9, 8 SAY [of your statement listing deposits, and]
  15. SET INTENSITY OFF
  16. @ 12,24 SAY [HIT            TO CONTINUE]
  17. SET INTENSITY ON
  18. @ 12,29 SAY [<RETURN>]
  19. SET CONSOLE OFF
  20. WAIT
  21. SET CONSOLE ON
  22. ERASE
  23. @  1, 9 SAY [**********************************************************]
  24. @  2, 9 SAY [*                                                        *]
  25. @  3, 9 SAY [**********************************************************]
  26. SET INTENSITY OFF
  27. @  2,28 SAY [CANCELING DEPOSITS]
  28. SET INTENSITY ON
  29. @  7, 9 SAY [As with the checks, the deposits will be presented one at]
  30. @  8, 9 SAY [a time, this time in date order.  Match the dates of the]
  31. @  9, 9 SAY [deposits with statement dates.  Type 'C,' for 'CANCEL,' if]
  32. @ 10, 9 SAY [the deposit appears on your statement; type 'S,' for 'SKIP,']
  33. @ 11, 9 SAY [if it does not. TO ABORT, TYPE 'X;' canceled items will be]
  34. @ 12, 9 SAY [CLEARED for a fresh start.]
  35. @ 15,22 SAY [DATE:]
  36. @ 15,39 SAY [AMOUNT:]
  37. LOCATE FOR ENTRYCAT = 'D'
  38. DO WHILE (.NOT. EOF)
  39.   SET INTENSITY OFF
  40.   @ 15,28 SAY DATE
  41.   @ 15,47 SAY CREDIT
  42.   @ 18,24 SAY [-C-            -S-]
  43.   SET INTENSITY ON
  44.   @ 18,28 SAY [CANCEL]
  45.   @ 18,43 SAY [SKIP]
  46.   @ 20,27 SAY [-X- ABORT AND EXIT]
  47.   STORE ' ' TO Decision
  48.   @ 18,35 GET Decision
  49.   READ
  50.   DO WHILE (!('&Decision')<>'S' .AND. !('&Decision')<>'C')
  51.     IF !('&Decision')='X'
  52.       GO TOP
  53.       REPLACE CAN WITH F FOR CAN
  54.       RELEASE Decision
  55.       ERASE
  56.       RETURN
  57.     ENDIF
  58.     @ 22,0
  59.     STORE 1 TO N
  60.     DO WHILE N<10
  61.       STORE N+1 TO N
  62.     ENDDO
  63.     @ 22,21 SAY [INVALID CHOICE. PLEASE TRY AGAIN.]
  64.     STORE ' ' TO Decision
  65.     @ 18,35 GET Decision
  66.     READ
  67.     RELEASE N
  68.   ENDDO
  69.   @ 22,0
  70.   IF !('&Decision') = 'C'
  71.     REPLACE CAN WITH T
  72.     CONTINUE
  73.   ELSE
  74.     CONTINUE
  75.   ENDIF
  76. ENDDO
  77. RELEASE Decision
  78. ERASE
  79. RETURN
  80.  the portion]
  81. @  9, 8 SAY [of your statement