home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / database / ledgers.lbr / LSTFILES.CZD / LSTFILES.CMD
Encoding:
Text File  |  1987-05-10  |  2.5 KB  |  88 lines
  1.  
  2. NOTE * Program...: LSTFILES.CMD
  3. NOTE * Version...: 2.0
  4. NOTE * Author....: Terry Hazen
  5. NOTE * Date......: 12/06/85
  6. NOTE * Notice....: Copyright (c) 1985,  n/SYSTEMS
  7. STORE '2.0' TO ver
  8. SET TALK OFF
  9. SET COLON OFF
  10. ERASE
  11. STORE '+-------------------------------------------------------------------------+' TO line
  12. @ 02,00 SAY line
  13. @ 03,00 SAY '|'
  14. @ 03,74 SAY '|'
  15. @ 04,00 SAY '|    '
  16. @ $,$+1 SAY 'LSTFILES.CMD Version '+ ver+ '            Copyright (c) 1985, n/SYSTEMS'
  17. @ $,$+1 SAY '    |'
  18. @ 05,00 SAY '|'
  19. @ 05,74 SAY '|'
  20. @ 06,00 SAY line
  21. @ 08,16 SAY 'A - Write Account Number database LACCOUNT.DBF to ACCOUNTS.TXT'
  22. @ 10,16 SAY 'B - Write Payee Account database LPAYEES.DBF to PAYEES.TXT'
  23. @ 12,16 SAY 'C - Write Category database LCAT.DBF to CATEGORY.TXT'
  24. @ 14,16 SAY 'Q - QUIT to dBASEII'
  25. @ 15,16 SAY 'X - EXIT to CP/M'
  26. DO WHILE T
  27. STORE ' ' TO fmenu
  28. @ 17,00 SAY 'Select Choice...' GET fmenu PICTURE '!'
  29. READ
  30. DO CASE
  31. CASE fmenu = 'B'
  32. @ 20,00 SAY 'Listing LPAYEES.DBF to disk file PAYEES.TXT...'
  33. USE lpayees
  34. SET CONSOLE OFF
  35. SET ALTERNATE TO payees.txt
  36. SET ALTERNATE ON
  37. ? 'L I S T I N G   OF   L P A Y E E S . D B F . . .'
  38. ?
  39. ? 'Rec #  Payee Account Name       Payee Account Memo      Account '
  40. ? '================================================================'
  41. LIST
  42. ? '================================================================'
  43. ?
  44. SET ALTERNATE OFF
  45. SET CONSOLE ON
  46. USE
  47. @ 20,00
  48. CASE fmenu = 'C'
  49. @ 20,00 SAY 'Listing LCAT.DBF to disk file CATEGORY.TXT...'
  50. USE lcat
  51. SET CONSOLE OFF
  52. SET ALTERNATE TO category.txt
  53. SET ALTERNATE ON
  54. ? 'L I S T I N G   OF   L C A T . D B F . . .'
  55. ?
  56. ? 'Rec #  Category Letter/Name'
  57. ? '================================================='
  58. LIST
  59. ? '================================================='
  60. ?
  61. SET ALTERNATE OFF
  62. SET CONSOLE ON
  63. USE
  64. @ 20,00
  65. CASE fmenu = 'A'
  66. @ 20,00 SAY 'Listing LACCOUNT.DBF to disk file ACCOUNTS.TXT...'
  67. USE laccount
  68. SET CONSOLE OFF
  69. SET ALTERNATE TO accounts.txt
  70. SET ALTERNATE ON
  71. ? 'L I S T I N G   OF   L A C C O U N T . D B F . . .'
  72. ?
  73. ? 'Rec #  Account Name                No. Categories'
  74. ? '================================================='
  75. LIST
  76. ? '================================================='
  77. ?
  78. SET ALTERNATE OFF
  79. SET CONSOLE ON
  80. USE
  81. @ 20,00
  82. CASE fmenu = 'Q'
  83. CANCEL
  84. CASE fmenu = 'X'
  85. QUIT
  86. ENDC
  87. ENDD
  88. RETU            LIST                                                                            ? '================================================='                           ?