home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / a / dataflo1.lbr / ORDERS.FRM < prev    next >
Encoding:
Text File  |  1993-10-26  |  512 b   |  29 lines
  1.  
  2.  
  3.  
  4.  
  5.  TO RESET NUMBERING FOR INVOICES AND RECEIPTS ETC.'
  6. @ 10,0 SAY '         R = RETURN TO MAIN MENU'
  7. @ 15,0 SAY '******************************************************************'
  8. SET CONSOLE OFF
  9. SET TALK  ON
  10. WAIT TO DEC
  11. STORE !(DEC) TO DEC
  12. SET CONSOLE ON
  13. DO CASE
  14. CASE DEC='4'
  15. DO RESETCON
  16. CASE DEC='1'
  17. DO ADD
  18. CASE DEC='2'
  19. DO EDIT1
  20. CASE DEC='3'
  21. DO REDO
  22. CASE DEC='R'
  23. RETURN
  24. ENDCASE
  25. ENDDO
  26. RETURN
  27. FOR GENERAL LEDGER ENTRIES AND REPORTS'
  28. @ 16,0 SAY ' Q TO QUIT DBASE SESSION'
  29. @ 20,0 SA