home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / database / ledgers.lbr / LENTRY.CZD / LENTRY.CMD
Encoding:
Text File  |  1987-05-10  |  2.0 KB  |  80 lines
  1.  
  2. NOTE * Program...: LENTRY.CMD
  3. NOTE * Version...: 2.0
  4. NOTE * Author....: Terry Hazen
  5. NOTE * Date......: 02/02/85
  6. NOTE * Notice....: Copyright (c) 1985,  n/SYSTEMS
  7. STORE ' ' TO lmenu
  8. STORE ' ' TO lok
  9. DO WHILE T
  10. @ 18,00 SAY &setoend
  11. @ 19,07 SAY ' A - Add Entries       '
  12. @ 19,30 SAY ' S - Search            '
  13. @ 19,53 SAY ' L - View Last Page    '
  14. @ 20,07 SAY ' E - Edit Entries      '
  15. @ 20,53 SAY ' N - View Next Page    '
  16. @ 21,29 SAY '<RET> to Main Menu     '
  17. CLEAR GETS
  18. STORE ' ' TO lmenu
  19. @ 23,16 SAY 'Select Choice: ' GET lmenu PICTURE '!'
  20. READ
  21. @ 23,00
  22. CLEAR GETS
  23. DO CASE
  24. CASE lmenu = 'A'
  25. @ 19,07 SAY &srvideo + ' --> ADD ENTRIES  ' + &snvideo
  26. @ 23,00
  27. DO ladd
  28. CASE lmenu = 'E'
  29. @ 20,07 SAY &srvideo + ' --> EDIT ENTRIES  ' + &snvideo
  30. @ 23,00
  31. DO ledit
  32. CASE lmenu = 'S'
  33. @ 19,30 SAY &srvideo + ' --> SEARCH  ' + &snvideo
  34. @ 23,00
  35. DO lsearch
  36. CASE lmenu = 'L'
  37. @ 19,53 SAY &srvideo + ' --> VIEW LAST PAGE ' + &snvideo
  38. @ 23,00
  39. STORE xrecord - 10 TO xrecord
  40. IF xrecord < 1
  41. STORE 1 TO xrecord
  42. ENDI
  43. GOTO xrecord
  44. @ 5,0 SAY '='
  45. DISPLAY WHILE # <= xrecord + 9 OFF FIELDS &lfields
  46. CASE lmenu = 'N'
  47. @ 20,53 SAY &srvideo + ' --> VIEW NEXT PAGE ' + &snvideo
  48. @ 23,00
  49. STORE xrecord + 10 TO xrecord
  50. GO BOTTOM
  51. IF xrecord + 9 > #
  52. SKIP -9
  53. STORE # TO xrecord
  54. ELSE
  55. GOTO xrecord
  56. ENDI
  57. @ 5,0 SAY '='
  58. DISPLAY WHILE # <= xrecord + 9 OFF FIELDS &lfields
  59. CASE lmenu = ' '
  60. @ 21,00
  61. @ 21,28 SAY &srvideo + ' --> MAIN MENU  ' + &snvideo + '  '
  62. @ 23,00
  63. RETU
  64. CASE lmenu = 'Q'
  65. @ 21,00
  66. @ 21,28 SAY &srvideo + ' --> QUIT TO dBASEII  ' + &snvideo
  67. @ 23,00
  68. SAVE TO lsystem ALL LIKE s*
  69. SAVE TO &tledger ALL LIKE m*
  70. CANCEL
  71. CASE lmenu = 'X'
  72. @ 21,00
  73. @ 21,28 SAY &srvideo + ' --> EXIT TO CP/M  ' + &snvideo
  74. @ 23,00
  75. SAVE TO lsystem ALL LIKE s*
  76. SAVE TO &tledger ALL LIKE m*
  77. QUIT
  78. ENDC
  79. ENDD
  80. RETU                        SKIP -9                                                                         STORE # TO xrecord                                                           ELSE