home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol227 / church.lbr / EDIDIR.CMD < prev    next >
Encoding:
Text File  |  1986-02-10  |  2.0 KB  |  74 lines
  1. *
  2. * EDI/DIR 8/11/83 BY R. SHIPP (460-9353)
  3. ERASE
  4. ? '==============================================='
  5. ?
  6. ? ' EDIT DATA MENU '
  7. ? ' --------------'
  8. ?
  9. ? '(*) TYPE DATA TO BE CHANGED INTO RECORD '
  10. ?
  11. ? '(*) TYPE CTRL. (W) TO GET PROMPT AGAIN'
  12. ? '       (ENTER RECORD)'
  13. ?
  14. ? '(*) TYPE RECORD # TO CONTINUE --OR--'
  15. ? '        RETURN KEY TO EXIT BACK TO MAIN MENU'
  16. ?
  17. ? '(*) TYPE CTRL. (U) TO DELETE A RECORD'
  18. ? '         -OR- WHEH RECORD IS DELETED'
  19. ? '         CTRL. (U) WILL UNDELETE'
  20. ?
  21. ? '      ENTER:'
  22. ? '             1  TO CONTINUE'
  23. ?
  24. ? '             /  EXIT BACK TO MAIN MENU'
  25. ?
  26. ? '==============================================='
  27. WAIT TO EXIT
  28. DO CASE
  29.    CASE EXIT = '/'
  30.      USE
  31.      DO MENU
  32. ENDCASE
  33. USE B:&FILE
  34. ERASE
  35. EDIT
  36. USE
  37. DO MENU
  38. * THE END -- EDI/DIR
  39. *
  40.  
  41. R-1) TO COUNTER
  42. IF COUNTER = 0   STORE STR(PAGE,3) TO MPAGE
  43.    SET PRINT ON
  44.                           '
  45. ?
  46. ? ' Enter one of the above numbers:'
  47. ?
  48. ? '==============================================='
  49. ACCEPT ' ' TO ASK
  50. STORE 'FILE/1' TO FILE
  51. DO CASE
  52. CASE ASK = '1'
  53.    DO HOLD
  54. CASE ASK = '2'
  55.    DO HOLD
  56. CASE ASK = '3'
  57.    DO CON/NU00871-2222Bought'78 $100K VA 8%       ===='
  58. ?
  59. ? ' EDIT DATA MENU '
  60. ? ' --------------'
  61. ?
  62. ? '(*) TYPE DATA TO BE CHANGED INTO RECORD '
  63. ?
  64. ? '(*) TYPE CTRL. (W) TO GET PROMPT AGAIN'
  65. ? '       (ENTER RECORD)'
  66. ?
  67. ? '(*) TYPE RECORD # TO CONTINUE --OR--'
  68. ? '        RETURN KEY TO EXIT BACK TO MAIN MENU'
  69. ?
  70. ? '(*) TYPE CTRL. (U) TO DELETE A RECORD'
  71. ? '         -OR- WHEH RECORD IS DELETED'
  72. ? '         CTRL. (U) WILL UNDELETE'
  73. ?
  74. ? 'PRESS ANY K