home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / listings / v_08_09 / 8n09126a < prev    next >
Text File  |  1990-07-28  |  5KB  |  150 lines
  1. DECLARE(DOMESTIC,String);
  2. QUESTION(DOMESTIC,'DO YOU PREFER DOMESTIC CHEESE?
  3.          (YES OR NO)');
  4. LEGAL(DOMESTIC,'YES/NO');
  5. HELP(DOMESTIC,'','Do you prefer cheese made in the
  6.      United States?');
  7. DECLARE(GROUP,String);
  8. DECLARE(CHEESE,String);
  9. DECLARE(TASTE,String);
  10. QUESTION(TASTE,'DO YOU PREFER CHEESE THAT IS MILD
  11.          MEDIUM OR SHARP?');
  12. LEGAL(TASTE,'MILD/MEDIUM/SHARP');
  13. DECLARE(FEEL,String);
  14. QUESTION(FEEL,'SHOULD THE CHEESE BE SOFT OR NOT?');
  15. LEGAL(FEEL,'SOFT/NOT');
  16. HELP(FEEL,'','Should the cheese be spreadable(soft)
  17.      or sliceable(not soft)');
  18. RULE1: IF   DOMESTIC = 'NO' AND 
  19.             GROUP = 'SHARPSOFT'
  20.        THEN CHEESE = 'CHEVRES';
  21.        ACTION=OpenWindow(1,1,80,20,White,Blue,'RESULT',TRUE);
  22.        ACTION=GotoXY(1,1);
  23.        ACTION=ClrScr;
  24.        ACTION=GotoXY(2,2);
  25.        ACTION=WRITE('The best cheese for your taste is ');
  26.        ACTION=Color(Yellow,Blue);
  27.        ACTION=Write('CHEVRES');
  28.        ACTION=Pause;
  29.        ACTION=CloseWindow.
  30. RULE2: IF   DOMESTIC = 'NO' AND 
  31.             GROUP = 'MEDFIRM'
  32.        THEN CHEESE = 'FONTINA';
  33.        ACTION=OpenWindow(1,1,80,20,White,Blue,'RESULT',TRUE);
  34.        ACTION=GotoXY(1,1);
  35.        ACTION=ClrScr;
  36.        ACTION=GotoXY(2,2);
  37.        ACTION=WRITE('The best cheese for your taste is ');
  38.        ACTION=Color(Yellow,Blue);
  39.        ACTION=Write('FONTINA');
  40.        ACTION=Pause;
  41.        ACTION=CloseWindow.
  42. RULE3: IF   DOMESTIC = 'NO' AND 
  43.             GROUP = 'MILDFIRM'
  44.        THEN CHEESE = 'GOUDA';
  45.        ACTION=OpenWindow(1,1,80,20,White,Blue,'RESULT',TRUE);
  46.        ACTION=GotoXY(1,1);
  47.        ACTION=ClrScr;
  48.        ACTION=GotoXY(2,2);
  49.        ACTION=WRITE('The best cheese for your taste is ');
  50.        ACTION=Color(Yellow,Blue);
  51.        ACTION=Write('GOUDA');
  52.        ACTION=Pause;
  53.        ACTION=CloseWindow.
  54. RULE4: IF   DOMESTIC = 'NO' AND 
  55.             GROUP = 'SHARPFIRM'
  56.        THEN CHEESE = 'LIMBERGER';
  57.        ACTION=OpenWindow(1,1,80,20,White,Blue,'RESULT',TRUE);
  58.        ACTION=GotoXY(1,1);
  59.        ACTION=ClrScr;
  60.        ACTION=GotoXY(2,2);
  61.        ACTION=WRITE('The best cheese for your taste is ');
  62.        ACTION=Color(Yellow,Blue);
  63.        ACTION=Write('LIMBERGER');
  64.        ACTION=Pause;
  65.        ACTION=CloseWindow.
  66. RULE5: IF   DOMESTIC = 'NO' AND 
  67.             GROUP = 'MEDSOFT'
  68.        THEN CHEESE = 'CAMEMBERT';
  69.        ACTION=OpenWindow(1,1,80,20,White,Blue,'RESULT',TRUE);
  70.        ACTION=GotoXY(1,1);
  71.        ACTION=ClrScr;
  72.        ACTION=GotoXY(2,2);
  73.        ACTION=WRITE('The best cheese for your taste is ');
  74.        ACTION=Color(Yellow,Blue);
  75.        ACTION=Write('CAMEMBERT');
  76.        ACTION=Pause;
  77.        ACTION=CloseWindow.
  78. RULE6: IF   DOMESTIC = 'NO' AND 
  79.             GROUP = 'MILDSOFT'
  80.        THEN CHEESE = 'TELEME';
  81.        ACTION=OpenWindow(1,1,80,20,White,Blue,'RESULT',TRUE);
  82.        ACTION=GotoXY(1,1);
  83.        ACTION=ClrScr;
  84.        ACTION=GotoXY(2,2);
  85.        ACTION=WRITE('The best cheese for your taste is ');
  86.        ACTION=Color(Yellow,Blue);
  87.        ACTION=Write('TELEME');
  88.        ACTION=Pause;
  89.        ACTION=CloseWindow.
  90. RULE7: IF   DOMESTIC = 'YES' AND 
  91.             GROUP = 'MILDFIRM'
  92.        THEN CHEESE = 'MONTEREY';
  93.        ACTION=OpenWindow(1,1,80,20,White,Blue,'RESULT',TRUE);
  94.        ACTION=GotoXY(1,1);
  95.        ACTION=ClrScr;
  96.        ACTION=GotoXY(2,2);
  97.        ACTION=WRITE('The best cheese for your taste is ');
  98.        ACTION=Color(Yellow,Blue);
  99.        ACTION=Write('MONTEREY');
  100.        ACTION=Pause;
  101.        ACTION=CloseWindow.
  102. RULE8: IF   DOMESTIC = 'YES' AND 
  103.             GROUP = 'MILDSOFT'
  104.        THEN CHEESE = 'CREAM';
  105.        ACTION=OpenWindow(1,1,80,20,White,Blue,'RESULT',TRUE);
  106.        ACTION=GotoXY(1,1);
  107.        ACTION=ClrScr;
  108.        ACTION=GotoXY(2,2);
  109.        ACTION=WRITE('The best cheese for your taste is ');
  110.        ACTION=Color(Yellow,Blue);
  111.        ACTION=Write('CREAM');
  112.        ACTION=Pause;
  113.        ACTION=CloseWindow.
  114. RULE9: IF   DOMESTIC = 'YES' AND 
  115.             GROUP = 'MEDFIRM'
  116.        THEN CHEESE = 'VERMONT';
  117.        ACTION=OpenWindow(1,1,80,20,White,Blue,'RESULT',TRUE);
  118.        ACTION=GotoXY(1,1);
  119.        ACTION=ClrScr;
  120.        ACTION=GotoXY(2,2);
  121.        ACTION=WRITE('The best cheese for your taste is ');
  122.        ACTION=Color(Yellow,Blue);
  123.        ACTION=Write('VERMONT');
  124.        ACTION=Pause;
  125.        ACTION=CloseWindow.
  126. RULE10: IF   DOMESTIC = 'YES' AND 
  127.              GROUP = 'MEDSOFT'
  128.         THEN CHEESE = 'CREAM'.
  129. RULE11: IF   DOMESTIC = 'YES' AND 
  130.              GROUP = 'SHARPFIRM'
  131.         THEN CHEESE = 'NEW YORK SHARP'.
  132. RULE12: IF   TASTE = 'MILD' AND 
  133.              FEEL = 'NOT'
  134.         THEN GROUP = 'MILDFIRM'.
  135. RULE13: IF   TASTE = 'MILD' AND 
  136.              FEEL = 'SOFT'
  137.         THEN GROUP = 'MILDSOFT'.
  138. RULE14: IF   TASTE = 'MEDIUM' AND 
  139.              FEEL = 'NOT'
  140.         THEN GROUP = 'MEDFIRM'.
  141. RULE15: IF   TASTE = 'MEDIUM' AND 
  142.              FEEL = 'SOFT'
  143.         THEN GROUP = 'MEDSOFT'.
  144. RULE16: IF   TASTE = 'SHARP' AND 
  145.              FEEL = 'NOT'
  146.         THEN GROUP = 'SHARPFIRM'.
  147. RULE17: IF   TASTE = 'SHARP' AND 
  148.              FEEL = 'SOFT'
  149.         THEN GROUP = 'SHARPSOFT'.
  150.