home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / a / dataflo1.lbr / LISTFILE.CZD / LISTFILE.CMD
Encoding:
Text File  |  1993-10-26  |  2.0 KB  |  68 lines
  1. *LISTFILE.PRG
  2. DO WHILE T
  3. STORE ' ' TO DEC
  4. ERASE
  5. @ 1,0 SAY '*****************************************************************'
  6. @ 2,0 SAY ' THIS PROGRAM  WILL LIST THE LAST 15 ENTRIES IN THE NOMINATED '
  7. @ 3,0 SAY '                       DATAFILE                              '
  8. @ 4,0 SAY ' PRESS                     TO VIEW THIS FILE'
  9. @ 5,0 SAY '    1                      CASH SALE   '
  10. @ 6,0 SAY '    2                      COLLECTED SALE'
  11. @ 7,0 SAY '    3                      STANDARD ORDER'
  12. @ 8,0 SAY '    4                      RETURN FOR CREDIT'
  13. @ 9,0 SAY '    5                      LEDGER'
  14. @ 10,0 SAY '    6                      PRICELIST'
  15. @ 11,0 SAY '    7                      NAMELIST'
  16. @ 12,0 SAY '    R                      RETURN TO FILE MAINTENANCE MENU'
  17. @ 13,0 SAY '****************************************************************'
  18. @ 14,0 SAY '    TO VIEW EARLIER RECORDS PRESS CTRL R'
  19. @ 15,0 SAY '    TO VIEW LATER RECORDS PRESS CTRL C'
  20. @ 16,0 SAY '    TO VIEW FIELDS TO THE RIGHT PRESS CTRL B'
  21. @ 17,0 SAY '    TO VIEW FIELDS TO THE LEFT PRESS CTRL Z'
  22. @ 18,0 SAY '    WHEN FINISHED VIEWING, PRESS CTRL W'
  23. ?
  24. WAIT TO DEC
  25. STORE !(DEC) TO DEC
  26. DO CASE
  27. CASE DEC='R'
  28. RETURN
  29. CASE DEC='1'
  30. STORE 'DATATEMP' TO DATABASE
  31. CASE DEC='2'
  32. STORE 'HOLDATA' TO DATABASE
  33. CASE DEC='3'
  34. STORE 'DATAFILE' TO DATABASE
  35. CASE DEC='4'
  36. STORE 'RFC' TO DATABASE
  37. CASE DEC='5'
  38. STORE 'LEDGER' TO DATABASE
  39. CASE DEC='7'
  40. STORE 'NAMELIST' TO DATABASE
  41. CASE DEC='6'
  42. STORE 'PRICELIS' TO DATABASE
  43. ENDCASE
  44. USE &DATABASE
  45. COUNT TO TESTNUM
  46. IF TESTNUM<1
  47. LOOP
  48. ENDIF
  49. GO BOTTOM
  50. STORE # TO MARK
  51. STORE 15 TO TEST
  52. IF MARK <15
  53. STORE 1 TO TEST
  54. ENDIF
  55. IF MARK-TEST=0
  56. STORE 0 TO TEST
  57. ENDIF
  58. GOTO MARK-TEST
  59. BROWSE
  60. ENDDO
  61. RETURN
  62. 
  63. @ 3,0 SAY '                       DATAFILE                              '
  64. @ 4,0 SAY ' PRESS                     TO VIEW THIS FILE'
  65. @ 5,0 SAY '    1                      CASH SALE   '
  66. @ 6,0 SAY '    2                      COLLECTED SALE'
  67. @ 7,0 SAY '    3                      STANDARD ORDER'
  68. @ 8,0 SAY