home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug061.arc / CANCK.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  3KB  |  99 lines
  1. ***** RECNCILE.CMD *****
  2. RELEASE CmChoice
  3. ERASE
  4. *BORDER ROUTINE REMOVED
  5.  
  6.  
  7.  
  8.  
  9.  
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21. *BORDER ROUTINE REMOVED
  22. SET INTENSITY ON
  23. @  6,12 SAY [The first step in reconciling your checkbook is to]
  24. @  7,12 SAY ["cancel" those items (i.e. debits and credits) from]
  25. @  8,12 SAY [your records that appear on the bank statement.]
  26. @ 10,30 SAY [********]
  27. @ 12,12 SAY [When you have your bank statement in front of you]
  28. @ 13,12 SAY [and are ready to proceed,]
  29. SET INTENSITY OFF
  30. @ 17,23 SAY [HIT            TO CONTINUE]
  31. SET INTENSITY ON
  32. @ 17,28 SAY [<RETURN>]
  33. SET CONSOLE OFF
  34. WAIT
  35. SET CONSOLE ON
  36. ERASE
  37. @  1, 9 SAY [**********************************************************]
  38. @  2, 9 SAY [*                                                        *]
  39. @  3, 9 SAY [**********************************************************]
  40. SET INTENSITY OFF
  41. @  2,29 SAY [CANCELING CHECKS]
  42. SET INTENSITY ON
  43. @  7, 9 SAY [First, we'll cancel the checks, so turn to the check list-]
  44. @  8, 9 SAY [ing in your statement.  The checks will be presented one]
  45. @  9, 9 SAY [at a time, in numerical order.  Type 'C,' for 'CANCEL,' if]
  46. @ 10, 9 SAY [the check appears on your statement; type 'S,' for 'SKIP,']
  47. @ 11, 9 SAY [if it does not. TO ABORT, TYPE 'X;' canceled items will be]
  48. @ 12, 9 SAY [CLEARED for a fresh start.]
  49. @ 15,20 SAY [CHECK NO:]
  50. @ 15,39 SAY [AMOUNT:]
  51. LOCATE FOR ENTRYCAT = 'C'
  52. DO WHILE (.NOT. EOF)
  53.   SET INTENSITY OFF
  54.   @ 15,30 SAY NO
  55.   @ 15,47 SAY DEBIT
  56.   @ 18,24 SAY [-C-            -S-]
  57.   SET INTENSITY ON
  58.   @ 18,28 SAY [CANCEL]
  59.   @ 18,43 SAY [SKIP]
  60.   @ 20,27 SAY [-X- ABORT AND EXIT]
  61.   STORE ' ' TO Decision
  62.   @ 18,35 GET Decision
  63.   READ
  64.   DO WHILE (!('&Decision')<>'S' .AND. !('&Decision')<>'C')
  65.     IF !('&Decision')='X'
  66.       GO TOP
  67.       REPLACE CAN WITH F FOR CAN
  68.       RELEASE Decision
  69.       ERASE
  70.       RETURN
  71.     ENDIF
  72.     @ 22,0
  73.     STORE 1 TO N
  74.     DO WHILE N<10
  75.       STORE N+1 TO N
  76.     ENDDO
  77.     @ 22,21 SAY [INVALID CHOICE. PLEASE TRY AGAIN.]
  78.     STORE ' ' TO Decision
  79.     @ 18,35 GET Decision
  80.     READ
  81.     RELEASE N
  82.   ENDDO
  83.   @ 22,0
  84.   IF !('&Decision') = 'C'
  85.     REPLACE CAN WITH T
  86.     CONTINUE
  87.   ELSE
  88.     CONTINUE
  89.   ENDIF
  90. ENDDO
  91. RELEASE Decision
  92. ERASE
  93. RETURN
  94.  
  95.                                J]
  96. @  5, 5 SAY CHR(27)+[$]+[J                                                              J]
  97. @  6, 5 SAY CHR(27)+[$]+[J                                                              J]
  98. @  7, 5 SAY CHR(27)+[$]+[J                                                              J]
  99. @