home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / dbshop.zip / SHOP.CMD < prev    next >
OS/2 REXX Batch file  |  1988-07-25  |  5KB  |  165 lines

  1. **%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%**
  2. **                                                                     **
  3. **              DBSHO╨ ver« 1.0 - A grocery shopping tool              **
  4. **                copyright (c) 1985  by Larry Marshall                **
  5. **                                                                     **
  6. **    This program may be used for noncommercial purposes only.  No    **
  7. **  commercial use of DBSHOP may be made without the author's          **
  8. **  expressed written permission.                                      **
  9. **                                                                     **
  10. **%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%**
  11.  
  12. DO WHILE T
  13. SET TALK OFF
  14. ERASE
  15. ?
  16. ?
  17. ?
  18. ? '  ******************************************************************* '
  19. ? '  *                                                                 * '
  20. ? '  *                  ******* SHOPPING LIST ********                 * '
  21. ? '  *                                                                 * '
  22. ? '  *                                                                 * '
  23. ? '  *               1) ADD A NEW ITEM TO THE DATABASE                 * '
  24. ? '  *                                                                 * '
  25. ? '  *               2) MARK AN EXISTING ITEM FOR PURCHASE             * '
  26. ? '  *                                                                 * '
  27. ? '  *               3) PRINT A SHOPPING LIST                          * '
  28. ? '  *                                                                 * '
  29. ? '  *               4) RESET NEED TO NONE                             * '
  30. ? '  *                                                                 * '
  31. ? '  *               5) QUIT                                           * '
  32. ? '  *                                                                 * '
  33. ? '  *                                                                 * '
  34. ? '  *               PLEASE MAKE YOUR SELECTION                        * '
  35. ? '  *                                                                 * '
  36. ? '  ******************************************************************* '
  37. SET CONSOLE OFF
  38. WAIT TO SELECTION
  39. SET CONSOLE ON
  40. DO CASE
  41.  
  42. CASE SELECTION = '1'
  43.  
  44.       SET CONSOLE OFF
  45.       STORE 'G' TO CONTINUE
  46.       SET CONSOLE ON
  47.  
  48.       DO WHILE CONTINUE <> 'S' .AND. CONTINUE <> 's'
  49.       SET CONSOLE OFF
  50.       USE ITEM INDEX LOCAL,LIST
  51.       APPEND BLANK
  52.       SET CONSOLE ON
  53.  
  54.       ERASE
  55.  
  56.       @ 10,5 SAY "ITEM" GET ITEM
  57.       @ 12,5 SAY "FOOD GROUP" GET FOODGROUP
  58.       @ 14,5 SAY "LOCATION" GET LOCATION
  59.       @ 16,5 SAY "NEED " GET NEED
  60.       READ
  61.       ERASE
  62.       ?
  63.       ?
  64.       ?
  65.       ? '     TYPE S TO STOP THE PROCEDURE'
  66.       ? '     <RETURN> TO ADD ANOTHER RECORD'
  67.       SET CONSOLE OFF
  68.       WAIT TO CONTINUE
  69.       SET CONSOLE ON
  70.       ENDDO
  71.  
  72. CASE SELECTION = '2'
  73.  
  74.     ERASE
  75.     STORE 'G' TO BEGIN
  76.  
  77.     DO WHILE BEGIN <> 'S' .AND. BEGIN <> 's'
  78.     USE ITEM
  79.     ERASE
  80.     ?
  81.     ?
  82.     ?
  83.     ?
  84.     ACCEPT " ENTER THE ITEM NEEDED  " TO CHOICE
  85.     STORE !(CHOICE) TO CHOICE 
  86.     ?
  87.     ?
  88.     ?
  89.     ERASE
  90.     LOCATE FOR !(ITEM)='&CHOICE'
  91.     IF .NOT EOF
  92.       STORE ITEM TO MITEM
  93.       ? '                       ',MITEM
  94.       ?
  95.       INPUT "          IS THIS THE ITEM? (Y OR N) " TO SAVE
  96.  
  97.       IF SAVE
  98.          REPLACE ALL NEED WITH 'Y' FOR ITEM='&CHOICE'
  99.       ENDIF
  100.  
  101.       @ 14,15 SAY "ADD ANOTHER ITEM TO LIST?  PRESS RETURN"
  102.       @ 16,25 SAY "TYPE 'S' TO QUIT "
  103.       SET CONSOLE OFF
  104.       WAIT TO BEGIN
  105.       SET CONSOLE ON
  106.       ELSE
  107.  
  108.       @ 10,5 SAY "ITEM IS NOT IN THE FILE, PLEASE ADD TO DATABASE"
  109.       @ 12,5 SAY "PRESS 'S' RETURN TO MENU, <RETURN> TO CONTINUE"
  110.       SET CONSOLE OFF
  111.       WAIT TO BEGIN
  112.       SET CONSOLE ON
  113.     ENDIF
  114.  
  115.     ENDDO
  116.  
  117.  
  118.  
  119. CASE SELECTION = '3'
  120.  
  121.     USE ITEM INDEX LOCAL
  122.     SET TALK OFF
  123.     ERASE
  124.     SET PRINT ON
  125.     ? '         **************************************************************'
  126.     ? '                    PEGGY & LARRY`S HANDY-DANDY SHOPPING LIST  '
  127.     ? '         **************************************************************'
  128.     ?
  129.     ? '               *** ITEM ***                *** FOOD GROUP ***'
  130.     ?
  131.     ?
  132.     DO WHILE .NOT. EOF
  133.     IF NEED = 'Y'
  134.  
  135.     ? '            ___',ITEM,FOODGROUP
  136.  
  137.     ENDIF
  138.  
  139.     SKIP
  140.     ENDDO
  141.     SET PRINT OFF
  142.  
  143. CASE SELECTION = '4'
  144.  
  145.     INPUT 'ARE YOU SURE YOU WANT TO RESET YOUR NEEDS TO NONE? (Y OR N)' TO GO
  146.     USE ITEM
  147.     IF GO = 'Y' .OR. 'y'
  148.       SET CONSOLE OFF
  149.       REPLACE ALL NEED WITH 'N' FOR NEED='Y'
  150.       SET CONSOLE ON
  151.     ELSE
  152.       ? 'ABORT RESET FUNCTION '
  153.     ENDIF
  154.  
  155. CASE SELECTION = '5'
  156.    
  157.    ERASE
  158.    SET CONSOLE OFF
  159.    QUIT
  160.    SET CONSOLE ON
  161.  
  162. ENDCASE
  163. ENDDO
  164. RETURN
  165.