knowledge base nazwa
facets
      diagnoza;
      objaw1;
      objaw2;
      objaw3;
      objaw4;
      temp_ciała;
end;
rules
     diagnoza="grypa"if
     objaw1="katar",
     objaw2="wysoka temperatura",
     objaw3="osłabienie",
     objaw4="ból mieśni i stawów";
     objaw2 = "wysoka temperatura"if
     temp_ciała =X,X>38;
end;
control
       float X;
       neditBox(0,0,35,41, "Podaj temperaturę", X);
       menu "Diagnostyka"
       1."Analiza SE"
       2."Wyjście"
       case 1:
       vignette("GRYPA", "Zajęcia 2","Mielczarek Filip");
       run;
       goal("diagnoza = X");
       delNewFacts;
       case 2: exit;
       end;
end;
end;