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 >
Wrap
Text File
|
1990-07-28
|
5KB
|
150 lines
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'.