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,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('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 = 'MILDFIRM'
       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';
       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('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'.
