Listing 1

DECLARE(DOMESTIC,String);
QUESTION(DOMESTIC,'DO YOU PREFER DOMESTIC CHEESE?
       (YES OR NO)');
LEGAL(DOMESTIC,'YES/NO');
HELP(DOMESTIC,'','Do you prefer cheese made in the
    United States?');
DECLARE(GROUP,String);
DECLARE(CHEESE,String);
DECLARE(TASTE,String);
QUESTION(TASTE,'DO YOU PREFER CHEESE THAT IS MILD
       MEDIUM OR SHARP?');
LEGAL(TASTE,'MILD/MEDIUM/SHARP');
DECLARE(FEEL,String);
QUESTION(FEEL,'SHOULD THE CHEESE BE SOFT OR NOT?');
LEGAL(FEEL,'SOFT/NOT');
HELP(FEEL, '','Should the cheese be spreadable(soft)
    or sliceable(not soft)');
RULE1: IF   DOMESTIC = 'NO' AND
          GROUP = 'SHARPSOFT'
      THEN CHEESE = 'CHEVRES';
      ACTION=OpenWindow(1,1,80,20,White,BLue,'RESULT',TRUE);
      ACTION=GotoXY(1,1);
      ACTION=ClrScr;
      ACTION=GotoXY(2,2);
      ACTION=WRITE('The best cheese for your taste is ');
      ACTION=Color(Yellow,BLue);
      ACTION=Write('CHEVRES');
      ACTION=Pause;
      ACTION=CloseWindow.
RULE2: IF   DOMESTIC = 'NO' AND
          GROUP = 'MEDFIRM'
      THEN CHEESE = 'FONTINA';
      ACTION=OpenWindow(1,1,80,20,White,Blue,'RESULT',TRUE);
      ACTION=GotoXY(1,1);
      ACTION=ClrScr;
      ACTION=GotoXY(2,2);
      ACTION=WRITE('The best cheese for your taste is ');
      ACTION=Color(Yellow,Blue);
      ACTION=Write('FONTINA');
      ACTION=Pause;
      ACTION=CloseWindow.
RULE3: IF   DOMESTIC = 'NO' AND
          GROUP = 'MILDFIRM'
      THEN CHEESE = 'GOUDA';
      ACTION=OpenWindow(1,1,80,20,White,BIue,'RESULT',TRUE);
      ACTION=GotoXY(1,1);
      ACTION=ClrScr;
      ACTION=GotoXY(2,2);
      ACTION=WRITE('The best cheese for your taste is ');
      ACTION=Color(Yellow,Blue);
      ACTION=Write('GOUDA');
      ACTION=Pause;
      ACTION=CloseWindow.
RULE4: IF   DOMESTIC = 'NO' AND
          GROUP = 'SHARPFIRM'
      THEN CHEESE = 'LIMBERGER';
      ACTION=OpenWindow(1,1,80,20,White,Blue,'RESULT',TRUE);
      ACTION=GotoXY(1,1);
      ACTION=ClrScr;
      ACTION=GotoXY(2,2);
      ACTION=WRITE('The best cheese for your taste is ');
      ACTION=Color(Yellow,Blue);
      ACTION=Write('LIMBERGER');
      ACTION=Pause;
      ACTION=CloseWindow.
RULE5: IF   DOMESTIC = 'NO' AND
          GROUP = 'MEDSOFT'
      THEN CHEESE = 'CAMEMBERT';
      ACTION=OpenWindow(1,1,80,20,White,Blue,'RESULT',TRUE);
      ACTION=GotoXY(1,1);
      ACTION=ClrScr;
      ACTION=GotoXY(2,2);
      ACTION=WRITE('The best cheese for your taste is ');
      ACTION=Color(Yellow,Blue);
      ACTION=Write('CAMEMBERT');
      ACTION=Pause;
      ACTION=CloseWindow.
RULE6: IF   DOMESTIC = 'NO' AND
          GROUP = 'MILDSOFT'
      THEN CHEESE = 'TELEME';
      ACTION=OpenWindow(1,1,80,20,White,Blue,'RESULT', TRUE);
      ACTION=GotoXY(1,1);
      ACTION=ClrScr;
      ACTION=GotoXY(2,2);
      ACTION=WRITE('The best cheese for your taste is ');
      ACTION=Color(Yellow,Blue);
      ACTION=Write('TELEME');
      ACTION=Pause;
      ACTION=CloseWindow.
RULE7: IF   DOMESTIC = 'YES' AND
          GROUP = 'MILDIRM'
      THEN CHEESE = 'MONTEREY';
      ACTION=OpenWindow(1,1,80,20,White, Blue,'RESULT', TRUE);
      ACTION=GotoXY(1,1);
      ACTION=ClrScr;
      ACTION=GotoXY(2,2);
      ACTION=WRITE('The best cheese for your taste is ');
      ACTION=Color(Yellow,Blue);
      ACTION=Write('MONTEREY');
      ACTION=Pause;
      ACTION=CloseWindow.
RULE8: IF   DOMESTIC = 'YES' AND
          GROUP = 'MILDSOFT'
      THEN CHEESE = 'CREAM';
      ACTION=OpenWindow(1,1,80,20,White,Blue,'RESULT',TRUE);
      ACTION=GotoXY(1,1);
      ACTION=ClrScr;
      ACTION=GotoXY(2,2);
      ACTION=WRITE('The best cheese for your taste is ');
      ACTION=Color(Yellow,Blue);
      ACTION=Write('CREAM');
      ACTION=Pause;
      ACTION=CloseWindow.
RULE9: IF   DOMESTIC = 'YES' AND
          GROUP = 'MEDFIRM'
      THEN CHEESE = 'VERMONT';
      ACTlON=OpenWindow(1,1,80,20,White,Blue,'RESULT',TRUE);
      ACTION=GotoXY(1,1);
      ACTION=ClrScr;
      ACTION=GotoXY(2,2);
      ACTION=WRITE('The best cheese for your taste is ');
      ACTION=Color(Yellow,Blue);
      ACTION=Write('VERMONT');
      ACTION=Pause;
      ACTION=CloseWindow.
RULE10: IF   DOMESTIC = 'YES' AND
           GROUP = 'MEDSOFT'
       THEN CHEESE = 'CREAM'.
RULE11: IF   DOMESTIC = 'YES' AND
           GROUP = 'SHARPFIRM'
       THEN CHEESE = 'NEW YORK SHARP'.
RULE12: IF   TASTE = 'MILD' AND
           FEEL = 'NOT'
       THEN GROUP = 'MILDFIRM'.
RULE13: IF   TASTE = 'MILD' AND
           FEEL = 'SOFT'
       THEN GROUP = 'MILDSOFT'.
RULE14: IF   TASTE = 'MEDIUM' AND
           FEEL = 'NOT'
       THEN GROUP = 'MEDFIRM'.
RULE15: IF   TASTE = 'MEDIUM' AND
           FEEL = 'SOFT'
       THEN GROUP = 'MEDSOFT'.
RULE16: IF   TASTE = 'SHARP' AND
           FEEL = 'NOT'
       THEN GROUP = 'SHARPFIRM'.
RULE17: IF   TASTE = 'SHARP' AND
           FEEL = 'SOFT'
       THEN GROUP = 'SHARPSOFT'.