home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug024.arc / FOOD.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  3KB  |  114 lines
  1.  
  2. * Program..: ADDITIVES.CMD
  3. * Author...: Andrew Barfoot (MBUG AUST INC)
  4. * Date.....: 28/09/96
  5. * Notice...: Copyright 1996, All Rights Reserved
  6. * Notice...: Non-Profit Distrubition Alowed
  7. * Notes....: Version 1.0
  8. * Reserved.: select, selectnum
  9. *
  10. SET TALK OFF
  11. SET BELL OFF
  12. SET COLO OFF
  13. SET INTE ON
  14.  
  15. DO WHILE T
  16.  
  17. ERASE
  18. @  1, 0 SAY "========================================"
  19. @  1,40 SAY "========================================"
  20. @  2, 0 SAY "||"
  21. @  2,09 SAY "APPROVED  ADDITIVE  NUMBERS  FOR  AUSTRALIA  FOOD  PRODUCTS"
  22. @  2,78 SAY "||"
  23. @  3, 0 SAY "========================================"
  24. @  3,40 SAY "========================================"
  25. @  4, 0 SAY "||"
  26. @  4,78 SAY "||"
  27. @  5, 0 SAY "||"
  28. @  5,78 SAY "||"
  29. @  6, 0 SAY "||"
  30. @  6,78 SAY "||"
  31. @  7, 0 SAY "||"
  32. @  7,78 SAY "||"
  33. @  8, 0 SAY "||"
  34. @  8,78 SAY "||"
  35. @  9, 0 SAY "||"
  36. @  9,78 SAY "||"
  37. @ 10, 0 SAY "||"
  38. @ 10,78 SAY "||"
  39. @ 11, 0 SAY "||"
  40. @ 11,78 SAY "||"
  41. @ 12, 0 SAY "========================================"
  42. @ 12,40 SAY "========================================"
  43. @  5,29 SAY " 0. exit"
  44. @  6,29 SAY " 1. List all numbers"
  45. @  7,29 SAY " 2. Find Number"
  46. @  8,29 SAY " 3. Read Documentation"
  47. @  9,29 SAY " 4. Return to CP/M"
  48. STORE  5 TO selectnum
  49. DO WHILE selectnum < 0 .OR. selectnum >  4
  50.    STORE " " TO select
  51.    @ 12,33 SAY " select : : "
  52.    @ 12,42 GET select PICTURE "#"
  53.    READ
  54.    STORE VAL(select) TO selectnum
  55. USE FOOD INDEX FOOD
  56. ENDDO
  57. DO CASE
  58.    CASE selectnum= 0
  59.       SET COLON ON
  60.       SET BELL ON
  61.       SET TALK ON
  62.       SET INTE OFF
  63.       CLEAR
  64.       RETURN
  65.    CASE selectnum= 1
  66.    * Do List all numbers
  67.  STORE 1 TO FLAG
  68.   DO WHILE .NOT. EOF .AND. FLAG=1
  69.   ERASE
  70.   DISPLAY NEXT 10 off
  71.   IF .NOT. EOF
  72. ?
  73. ? ' Type < CR > to see next 10 Numbers, '
  74. ?
  75. ACCEPT  ' Type $$ to return to main menu ' to nomore
  76. ENDIF
  77. IF nomore = '$$'
  78. STORE 0 TO FLAG
  79. ENDIF
  80. ENDDO
  81. IF FLAG = 1
  82. ?
  83. ?'  *** THERE ARE NO MORE ADDITIVE NUMBERS! ***'
  84. ?
  85. ACCEPT '  Press RETURN to return to main menu 'to dummy
  86. ?
  87. ENDIF
  88. ENDDO
  89.    CASE selectnum= 2
  90.    *  DO Find Number
  91.  erase
  92.  STORE ' ' TO WHICH
  93.  DO WHILE WHICH <> '$$'
  94.  ACCEPT 'Type Additive Number or $$ to return to menu ' TO which
  95. ERASE
  96.  DISPLAY FOR number = which off
  97. ENDDO
  98.    CASE selectnum= 3
  99.    *  DO read documentation
  100.          DO FOOD.ADT
  101.    CASE selectnum= 4
  102.    *  DO Quit to System
  103.       SET COLON ON
  104.       SET BELL ON
  105.       SET TALK ON
  106.       CLEAR
  107.          USE
  108.            ERASE
  109.         QUIT
  110. ENDCASE
  111.  
  112. ENDDO T
  113. * EOF: ADDITIVES.CMD
  114.