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 / RECNCILE.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  2KB  |  80 lines
  1. ***** RECNCILE.CMD *****
  2. RELEASE CmChoice
  3. STORE F TO LATER
  4. DO WHILE TRUE
  5. @  2, 5 SAY [*********************************************************************]
  6. @  3, 5 SAY [*                                                                   *]
  7. @  4, 5 SAY [*********************************************************************]
  8. SET INTENSITY OFF
  9. @  3,27 SAY [CHECKBOOK RECONCILIATION]
  10. @  8,27 SAY [1  Cancel Checks]
  11. @  9,27 SAY [2  Cancel Deposits]
  12. @ 10,27 SAY [3  Cancel Miscellaneous]
  13. @ 11,27 SAY [4  Printed Summary]
  14. @ 12,27 SAY [5  Initialize New Month]
  15. SET INTENSITY ON
  16. @ 14,27 SAY [A  ABORT]
  17. @ 15,27 SAY [X  EXIT]
  18. IF .NOT. LATER
  19.   @ 8,25 SAY [>]
  20. ENDIF
  21. SET INTENSITY OFF
  22. @ 18,32 SAY [CHOICE?]
  23. STORE ' ' TO Choice
  24. SET INTENSITY ON
  25. @ 18,41 GET Choice
  26. READ
  27. DO WHILE (Choice < '1' .OR. Choice > '5') .AND. (Choice<>'M'.AND.Choice<>'m')
  28.   @ 20,0
  29.   STORE 1 TO N
  30.   DO WHILE N<10
  31.     STORE N+1 TO N
  32.   ENDDO
  33.   RELEASE N
  34.   DO CASE
  35.     CASE Choice = 'X' .OR. Choice = 'x'
  36. RELEASE EndBal,BegBal,CheckBal,CanCheck,CanDep,CanMscCrd,CanMscDeb,TotCanCrd 
  37. RELEASE TotCanDeb,OutCheck,OutDep,OutMscCrd,OutMscDeb,TotOutCrd,TotOutDeb,P,C
  38. RELEASE Out,Descrip,Balance,MNo,StateBal
  39.       RELEASE Later,Choice
  40.       ERASE
  41.       RETURN
  42.     CASE Choice = 'A' .OR. Choice = 'a'
  43.       RELEASE LATER
  44.       REPLACE CAN WITH F FOR CAN
  45.       RETURN 
  46.     OTHERWISE     
  47.       @ 20,22 SAY [INVALID CHOICE.  PLEASE TRY AGAIN.]
  48.       STORE ' ' TO Choice
  49.       @ 18,41 GET Choice
  50.       READ
  51.   ENDCASE
  52. ENDDO
  53. DO CASE
  54.   CASE Choice = 'M' .OR. Choice = 'm'
  55.     ERASE
  56.     DISPLAY MEMORY
  57.     WAIT
  58.     ERASE
  59.   CASE Choice = '1'
  60.     DO CANCK
  61.     @ 9,25 SAY [>]
  62.     STORE T TO LATER
  63.   CASE Choice = '2'
  64.     DO CANDEP
  65.     @ 10,25 SAY [>]
  66.     STORE T TO LATER
  67.   CASE Choice = '3'
  68.     DO CANMSC
  69.     @ 11,25 SAY [>]
  70.     STORE T TO LATER
  71.   CASE Choice = '4'
  72.     DO PRNTSUM
  73.     @ 12,25 SAY [>]
  74.     STORE T TO LATER
  75.   CASE Choice = '5'
  76.     DO INIT
  77.     RELEASE LATER
  78.     RETURN
  79. ENDCASE
  80. ENDDO