hjbjhb, Common Lisp

Language: Layout:

;PARAMETER PLANTS (NAME (KRANKHEITEN)(EIGENSCHAFTEN)(ZIELE))
(DEFPARAMETER PLANTS 
  '((TRAGANT (INFLUENZA ADENOVIREN HERPES_SIMPLEX COXSACKIE_VIRUS INFEKTIOESE_BURSITIS_DER_HUEHNER CYTOMEGALOVIRUS PUNTA_TORO_VIREN JAPANISCHE_ENZEPHALITIS PORCINE_PARVOVIRUS HEPATITIS_B STAUPE BUNYAVIREN)(ADAPTOGEN ANTIBAKTERIELL ANTIHEPATOTOXISCH ANTIVIRAL KARDIOPROTEKTIV DIURETIKUM BLUTDRUCKSENKEND IMMUNSTAERKER )((VERBESSERN BLUTKREISLAUF IMMUNFUNKTION)(VERRINGERN VIRALEN_INFEKTIONEN)))
    (CORDYCEPS (INFLUENZA HERPES_SIMPLEX HIV HEPATITIS_B NEWCASTLE_KRANKHEIT TUBERKELBAZILLUS PLASMODIUM CLOSTRIDIEN STAPHYLOCOCCUS_AUREUS ENTEROCOCCUS_FAECALIS BACILLUS_SUBTILIS CANDIDA_ALBICANS KREBS)(ANTIVIRAL ANTIASTHMATISCH ANTIBAKTERIELL ANTIKONVULSIVUM ENTZUENDUNGSHEMMEND ANTIMIKROBIELL ANTIOXIDATIONS FIEBERSENKEND ANTITUMORMITTEL ANTITUSSIVUM BRONCHIALREGULATOR KARDIOTONISCH SCHLEIMLOESEND HEPATOPROTEKTIV HYPOGLYKAEMISCH HYPOLIPIDAEMISCH IMMUNMODULATOR INSEKTIZID MITOCHONDRIEN_ADAPTOGEN NERVENBERUHIGUNG NEUROPROTEKTIV NIERENSCHUETZEND SCHLAFREGULIEREND STEROIDBILDEND)((VERRINGERN KONVULSION ASTHMA VIRALEN_INFEKTIONEN ENTZUENDUNGEN FATIGUE HUSTEN SCHWINDELGEFUEHLE NYKTURIE) (VERBESSERN LIBIDO)))
    (BAIKAL_HELMKRAUT (INFLUENZA ADENOVIREN INFEKTIOESE_BRONCHITIS ENTEROBAKTERIOPHAGE_MS2 COXSACKIE_VIRUS EPSTEIN_BARR_VIREN HEPATITIS_A HEPATITIS_B HEPATITIS_C HERPES_SIMPLEX HIV LEUKAEMIE MASERN MOSAIKVIRUS PARAINFLUENZA POLIOVIRUS PRRS_VIREN  HRSV SARS_COV SENDAIVIRUS_INFEKTION  STOMATITIS_VESICULARIS ) (ANODYNE ANTIANAPHYLAKTISCH ANTIANGIOGENE ANTIBAKTERIELL ANTIVIRAL ANTICHOLESTEROLEMIKUM ANTIKONVULSIVUM ANTIDIARRHOISCH ANTIDYSENTERISCH ANTIMYKOTISCH ANTIHYPERTENSIV ENTZUENDUNGSHEMMEND ANTIMETASTISCH ANTIOXIDATIONS ANTISPASMODISCH ANTITUMORMITTEL ADSTRINGIEREND CHOLAGOGUM DIURETIKUM SCHLEIMLOESEND FIEBERSENKEND BLUTSTILLEND HEPATOPROTEKTIV SEDATIVUM NERVENSTAERKEND NEUROPROTEKTIV)((VERBESSERN GEHIRNFUNKTION) (VERRINGERN VIRALEN_INFEKTIONEN FIEBER DURCHFALL DYSENTERIE REIZ KRAMPFANFALL KONVULSION INSOMNIE)))
    (HOLUNDER (HERPES_SIMPLEX COXSACKIE_VIRUS ENTEROVIREN HIV INFLUENZA CHIKUNGUNYAFIEBER  EPSTEIN_BARR_VIREN HEPATITIS_B HEPATITIS_C HEPATITIS_E JAPANISCHE_ENZEPHALITIS WEST_NILE_ENZEPHALITIS STOMATITIS_VESICULARIS  POLIOVIRUS ADENOVIREN PORCINE_CIRCOVIRUS PORCINE_EPIDEMIC_DIARRHEA_VIRUS  RHINOVIRENES JUNIN_VIRUS  CYTOMEGALOVIRUS HRSV TABAKMOSAIKVIRUS  SARS_COV DENGUE VOGELPOCKEN ROTAVIRUS STAUPE  MURINE_NOROVIRUS FELINE_CALICIVIRUS EBOLAFIEBER )(ANTIVIRAL ANTIBAKTERIELL ANTIMYKOTISCH ANALGETISCH ENTZUENDUNGSHEMMEND ANTINOZIZEPTIV KREBSHEMMEND ANTIANGIOGEN ANTITERATOGEN SCHWEISSTREIBEND DIURETIKUM PROSTAGLANDIN_SYNTHESE_HEMMEND FIEBERSENKEND ANTIOXIDATIONS IMMUNSTIMULIEREND)((VERRINGERN FIEBER SCHMERZ ENTZUENDUNGEN SCHWELLUNGEN VIRALEN_INFEKTIONEN)(VERBESSERN SCHWITZEN IMMUNFUNKTION VOMITIEREN LEBERSCHUTZ)))
    (INGWER (ERKAELTUNG INFLUENZA HEPATITIS HERPES_SIMPLEX GELBFIEBER MASERN WINDPOCKEN ENTEROVIREN RHINOVIREN CYTOMEGALOVIRUS HEPATITIS_C HIV EPSTEIN_BARR_VIREN NEWCASTLE_KRANKHEIT  VACCINIAVIRUS  MOSAIKVIRUS  POLIOVIRUS)(ANTIVIRAL ANALGETIKUM ANTHELMINTHIKUM ANTIARTHRITISCH ANTIBAKTERIELL ANTIDIARRHOISCH ANTIEMETIKUM ANTIMYKOTISCH ENTZUENDUNGSHEMMEND KRAMPFLOESEND ANTITUSSIVUM KARMINATIVUM KREISLAUFSTIMULANS SCHWEISSTREIBEND ELASTASE_HEMMER BLUTDRUCKSENKEND IMMUNSTAERKER  SYNERGIST)((VERBESSERN SCHWITZEN IMMUNFUNKTION BLUTKREISLAUF)(VERRINGERN VIRALEN_INFEKTIONEN NASENSCHLEIMHAUT DURCHFALL MOMADE KRAMPFANFALL FIEBER SCHUETTELFROS ENTZUENDUNGEN HUSTEN ANGSTZUSTAENDE SCHMERZ ERKAELTUNG MIGRAENE KOPFSCHMERZEN)))          
    (HOUTTUYNIA (INFLUENZA SARS_COV DENGUE SEROTYPE_2 INFEKTIOESE_BRONCHITIS  ENTEROVIREN ENTERIC_CYTOPATHIC_HUMAN_ORPHAN  HERPES_SIMPLEX HIV CYTOMEGALOVIRUS PORCINE_EPIDEMIC_DIARRHEA_VIRUS  PSEUDORABIES_HERPES_SIMPLEX)(ANTIVIRAL ANALGETIKUM ANTHELMINTHIKUM ANTIBAKTERIELL ANTIKREBS ANTIMYKOTISCH ENTZUENDUNGSHEMMEND ANTILEUKAEMISCH ANTIMIKROBIELL ANTIOXIDATIONS ANTITUSSIVUM ADSTRINGIEREND DIURETIKUM ENTSCHLACKEND EMMENAGOGUM FEBRIFUGE BLUTSTILLEND HYPOGLYKAEMISCH IMMUNMODULATORISCH LARVAZIDUM ABFUEHRMITTEL AUGENHEILKUNDE)((VERRINGERN VIRALEN_INFEKTIONEN HARNWEGE_INFEKTIONEN NIEREN_INFEKTIONEN GENITALBEREICH_INFEKTIONEN DYSENTERIE DURCHFALL AUGES_INFEKTIONEN HAUT_INFEKTIONEN)))
    (WAID (INFLUENZA SARS_COV COXSACKIE_VIRUS ROETELN LEUKAEMIE INFEKTIOESE_BRONCHITIS HRSV ADENOVIREN MASERN MUMPS WINDPOCKEN EPSTEIN_BARR_VIREN HEPATITIS_B HERPES_SIMPLEX CYTOMEGALOVIRUS HFRS PRRS_VIREN  PSEUDOWUT  NEWCASTLE_KRANKHEIT GUERTELROSE)(ANTIVIRAL ANTIENTZUENDLICH FIEBERSENKEND ANTINOZIZEPTIV ANTIALLERGISCH TYROSINASE_HEMMER ANTIOXIDATIONS ANTIMYKOTISCH ANTIBAKTERIELL ANTIPARASITAER ANTILEUKAEMISCH ANTITUMOR UREASE_HEMMER SERIN_PROTEASE_HEMMSTOFF HEMMSTOFF_DER_BUTYRYCHOLINESTERASE LIPOXYGENASE_HEMMER ANTIENDOTOXIN DIOXIN_ANTAGONIST)((VERRINGERN VIRALEN_INFEKTIONEN)))
    (ECHTES_SUESSHOLZ (INFLUENZA SARS_COV HRSV PARAINFLUENZA JAPANISCHE_ENZEPHALITIS TICK_BORNE_ENCEPHALITIS WEST_NILE_ENZEPHALITIS GELBFIEBER DENGUE VIRAL_PNEUMONIE INFEKTIOESE_BRONCHITIS  ENTEROVIREN ROTAVIRUS ADENOVIREN COXSACKIE_VIRUS NEWCASTLE_KRANKHEIT  VACCINIAVIRUS  STOMATITIS_VESICULARIS  HIV CYTOMEGALOVIRUS HERPES_SIMPLEX HEPATITIS_A HEPATITIS_B HEPATITIS_C HEPATITIS_D HEPATITIS_E WINDPOCKEN_ZOSTER EPSTEIN_BARR_VIREN POLIOVIRUS MASERN CHANDIPURA  PSEUDORABIES  VOVINE_IMMUNODEFICIENCY  MURINE_RETROVIRUS PRRS_VIREN )(ANTIVIRAL NEBENNIERENRINDE_STIMULANS NEBENNIERE_TONIK SCHMERZSTILLEND ANTIBAKTERIELL KREBSHEMMEND ANTITUMORMITTEL ANTIHAEMOLYTISCH ANTIHYPERGLYKAEMISCH ENTZUENDUNGSHEMMEND ANTIOXIDATIONS KRAMPFLOESEND ANTISTRESSIVUM ANTITUSSIVUM GEGEN_MAGENGESCHWUERE KARDIOPROTEKTIV ABFUEHRMITTEL OESTROGENE SCHLEIMLOESEND HEMMSTOFF_DER_MAGENSEKRETION HEPATOPROTEKTIV IMMUNSTIMULIEREND ABFUEHRMITTEL SCHLEIMHAUTSCHUETZEND STRAHLENSCHUTZ MUSKELENTSPANNER STIMULANS_BAUCHSPEICHELDRUESE SYNERGIST STIMULANS_THYMUSDRUESE TYROSINASE_HEMMER XANTHIN_OXIDASE_HEMMER)((VERRINGERN SCHMERZ MUND_BAKTERIELLEN_INFEKTIONEN VIRALEN_INFEKTIONEN KRAMPFANFALL GESCHWUERBILDUNG)(VERBESSERN IMMUNFUNKTION)))
    (LOMATIUM (INFLUENZA SARS_COV VIRAL_ENCEPHALITIS PNEUMONIE EPSTEIN_BARR CYTOMEGALOVIRUS HIV SHIGELLA BAKTERIELLE_INFEKTIONEN)(SCHMERZSTILLEND ANTIBAKTERIELL ANTIMYKOTISCH ANTIMIKROBIELL ANTISEPTISCH KRAMPFLOESEND ANTIVIRAL SCHLEIMLOESEND SCHLEIMHAUT_TONIK)((VERRINGERN KRAMPFANFALL SCHMERZ VIRALEN_INFEKTIONEN BAKTERIELLEN_INFEKTIONEN)))
    (BONESET (INFLUENZA MALARIA DENGUE)(SCHMERZSTILLEND ANTIBAKTERIELL ENTZUENDUNGSHEMMEND ZYTOTOXISCH SCHWEISSTREIBEND BRECHMITTEL FIEBERSENKEND BITTER_DEN_MAGEN IMMUNSTIMULIEREND SCHLEIMHAUT_TONIK BLUTSTILLEND GLATTER_MUSKEL_ENTSPANNEND)((VERRINGERN VIRALEN_INFEKTIONEN FIEBER SCHMERZ)(VERBESSERN SCHLEIMHAUT BLUTKREISLAUF SCHWITZEN)))
    (RED_ROOT (INFLUENZA)(LYMPHSYSTEMS_STIMULANS LYMPHSYSTEM_TONIK BLUTGERINNUNGSMITTEL)((VERRINGERN ENTZUENDUNGEN)(VERBESSERN LYMPHSYSTEMS BLUTKREISLAUF)))
    (ROSENWURZ (IFLUENZA HEPATITIS_C COXSACKIE_VIRUS JAPANISCHE_ENZEPHALITIS ENTEROVIREN STAPHYLOCOCCUS_AUREUS BACILLUS_SUBTILIS TUBERKELBAZILLUS E_COLI)(ADAPTOGEN NEBENNIEREPROTEKTIV ANTI_KREBS ANTIDEPRESSIVUM GEGEN_MUEDIGKEIT ANTIOXIDATIONS ANTISTRESSIVUM KARDIOTONISCH ENDOKRINES_TONIK ERGOGEN HIPPOCAMPUS_SCHUTZMITTEL HIPPOCAMPUS_TONIK HYPOXIE_ANTAGONIST IMMUNSTAERKER MITOCHONDRIEN_STAERKEN MUSKELN_STIMULANS NERVENSYSTEMS_TONIK  NERVENPROTEKTIV SYNERGIST)((VERRINGERN STRESS DEPRESSION FATIGUE ERSCHOEPFUNG GEHIRNNEBEL)(VERBESSERN MITOCHONDRIEN MUSKELN NERVENSYSTEMS ENDOKRINES IMMUNFUNKTION)))
 ))
 
;DEKLARATION DER EINGANGSVARIABLEN
(DEFVAR PLANTNAME)
(DEFVAR INFTNAME)
(DEFVAR ZIELNAME)
(DEFVAR EIGENSCHAFTENNAME)
(DEFVAR COMMAND)
(DEFVAR INPUT)

;FUNCTION PLANTSEARCH (RETURNS LISTEN VON KRANKHEITEN UND EIGENSCHAFTEN, ODER LISTE ALLER VERFUEGBAREN PFLANZEN ODER FEHLERMELDUNG)
(DEFUN PLANTSEARCH(PLANTS)
  (FORMAT T "~%TIP: WENN SIE MEHRERE WOERTER SCHREIBEN, VERWENDEN SIE _ BSP: BAIKAL_HELMKRAUT")
  (FORMAT T "~%TIP: SUCHEN SIE NACH *, UM EINE VOLLSTAENDIGE LISTE DER VERFUEGBAREN PFLANZEN ZU ERHALTEN")
  (FORMAT T "~%NAMEN DER PFLANZE EINGEBEN: ")
  (SETQ PLANTNAME (READ))
  (COND ((EQUAL PLANTNAME '* ) (FORMAT T "~%DIE SIND DIE VERFUEGBAREN PFLANZEN ZUM SUCHEN SIND DIE VERFÜGBAREN PFLANZEN, NACH DENEN SIE SUCHEN:~%~{~a~^, ~}" (SORT (MAPCAR #'CAR PLANTS) #'STRING<= )))
     ((ASSOC PLANTNAME PLANTS) (FORMAT T "~%~a HILFT BEI FOLGENDEN INFEKTIONEN::~%~{~a~^, ~}~%~%~a HAT DIE FOLGENDEN EIGENSCHAFTEN:~%~{~a~^, ~}~%" PLANTNAME (SORT (SECOND (ASSOC PLANTNAME PLANTS)) #'STRING<= ) PLANTNAME (SORT (THIRD (ASSOC PLANTNAME PLANTS)) #'STRING<= ))) 
     (T (FORMAT T "~%KEINE PFLANZE MIT DIESEM NAMEN ~%")))
)

;FUNCTION INFSEARCH (RETURNS LISTEN VON PFLANZEN, DIE DIE KRANKHEITEN BEHANDELN KOENNEN, ODER EINE LISTE ALLER VERFUEGBAREN KRANKHEITEN ODER EINE FEHLERMELDUNG).
(DEFUN INFSEARCH(PLANTS) 
  (FORMAT T "~%TIPP: WENN SIE MEHRERE WOERTER SCHREIBEN, VERWENDEN SIE '_' BSP: HERPES_SIMPLEX")
  (FORMAT T "~%TIPP: SUCHEN SIE NACH *, UM EINE VOLLSTAENDIGE LISTE ALLER VERFUEGBAREN INFEKTIONEN ZU ERHALTEN")
  (FORMAT T "~%NAME DIE INFEKTION EINGEBEN: ")
  (SETQ INFTNAME (READ))
  (COND ((EQUAL INFTNAME '*) (PRINTALL 'INFEKTIONEN PLANTS))
      (T (PRINTINFEKTION INFTNAME PLANTS))
))

;FUNCTION EIGENSCHAFTENSEARCH (RETURNS LISTEN VON PFLANZEN, DIE DIE THERAPIEZIELE ERHALTEN KOENNEN, ODER EINE LISTE ALLER VERFUEGBAREN THERAPIEZIELE ODER EINE FEHLERMELDUNG).
(DEFUN EIGENSCHAFTENSEARCH(PLANTS)
  (FORMAT T "~%TIPP: WENN SIE MEHRERE WOERTER SCHREIBEN, VERWENDEN SIE '_' BSP: STAERKEND_DAS_IMMUNSYSTEM")
  (FORMAT T "~%TIPP: SUCHEN SIE NACH *, UM EINE VOLLSTAENDIGE LISTE ALLER VERFUEGBAREN EIGENSCHAFTEN ZU ERHALTEN")
  (FORMAT T "~%NAME DIE EIGENSCHAFT EINGEBEN: ")
  (SETQ EIGENSCHAFTENNAME (READ))
  (COND((EQUAL EIGENSCHAFTENNAME '*) (PRINTALL 'EIGENSCHAFTEN PLANTS))
      (T (PRINTEIGENSCHAFTEN EIGENSCHAFTENNAME PLANTS))     
))

;FUNCTION ZIELSEARCH (RETURNS LISTEN VON PFLANZEN, DIE DIE THERAPIEZIELE ERHALTEN KOENNEN, ODER EINE LISTE ALLER VERFUEGBAREN THERAPIEZIELE ODER EINE FEHLERMELDUNG).
(DEFUN ZIELSEARCH(PLANTS)
  (FORMAT T "~%TIPP: WENN SIE MEHRERE WOERTER SCHREIBEN, VERWENDEN SIE '_' BSP: VERRINGERN VIRALEN_INFEKTIONEN")
  (FORMAT T "~%TIPP: SUCHEN SIE NACH *, UM EINE VOLLSTAENDIGE LISTE ALLER VERFUEGBAREN EIGENSCHAFTEN ZU ERHALTEN")
  (FORMAT T "~%NAME DER ZIEL EINGEBEN: ")
  (SETQ ZIELNAME (READ))
  (COND((EQUAL ZIELNAME '*) (PRINTALL 'ZIELE PLANTS))
      (T (PRINTZIEL ZIELNAME PLANTS))     
))

;FUNCTION PRINTZIEL (SUCHE NACH DEM GENANNTEN ZIEL IN ALLEN PFLANZEN UND RUECKGABE DER LISTE ALLER PFLANZEN MIT DIESEM ZIEL).
(DEFUN PRINTZIEL (NAME LIS &OPTIONAL RESULT)
  (COND((AND (NULL LIS) (NOT (NULL RESULT)))(FORMAT T "~%~%ZIEL KANN IN FOLGENDEN PFLANZEN GEFUNDEN WERDEN: ~%~{~a~^, ~}~%" (SORT RESULT #'string<= )) )
      ((NULL LIS) (FORMAT T "~%~%KEIN ZIEL MIT DIESEM NAMEN GEFUNDEN~%"))

((FIND NAME (FOURTH (CAR LIS))) (PRINTZIEL NAME (CDR LIS) (NCONC RESULT (LIST (CAAR LIS)))))
      (T (PRINTZIEL NAME (CDR LIS) RESULT)))       
)

;FUNCTION PRINTEIGENSCHAFTEN (SUCHE NACH DEM GENANNTEN EIGENSCHAFT IN ALLEN PFLANZEN UND RUECKGABE DER LISTE ALLER PFLANZEN MIT DIESEM EIGENSCHAFT).
(DEFUN PRINTEIGENSCHAFTEN (NAME LIS &OPTIONAL RESULT) 
  (COND((AND (NULL LIS) (NOT (NULL RESULT)))(FORMAT T "~%~%EIGENSCHAFT KANN IN FOLGENDEN PFLANZEN GEFUNDEN WERDEN: ~%~{~a~^, ~}~%" (SORT RESULT #'string<= )) )
      ((NULL LIS) (FORMAT T "~%~%KEIN EIGENSCHAFTEN MIT DIESEM NAMEN GEFUNDEN~%"))
      ((FIND NAME (THIRD (CAR LIS))) (PRINTEIGENSCHAFTEN NAME (CDR LIS) (NCONC RESULT (LIST (CAAR LIS)))))
      (T (PRINTEIGENSCHAFTEN NAME (CDR LIS) RESULT)))       
)

;FUNKTION PRINTINFEKTION (SUCHE NACH DER GENANNTEN KRANKHEIT IN ALLEN PFLANZEN UND RUECKGABE DER LISTE ALLER PFLANZEN, DIE DIESE KRANKHEIT BEHANDELN).
(DEFUN PRINTINFEKTION(NAME LIS &OPTIONAL RESULT) 
  (COND((AND (NULL LIS) (NOT (NULL RESULT)))(FORMAT T "~%~%INFEKTION KANN BEHANDELT WERDEN MIT: ~%~{~a~^, ~}~%" (SORT RESULT #'string<= )) )
	((NULL LIS) (FORMAT T "~%~%KEINE INFEKTION MIT DIESEM NAMEN~%"))
	((FIND NAME (SECOND (CAR LIS))) (PRINTINFEKTION NAME (CDR LIS) (NCONC RESULT (LIST (CAAR LIS)))))
    (T (PRINTINFEKTION NAME (CDR LIS) RESULT)))       
)

(DEFUN PRINT(NAME TYPE LIS &OPTIONAL RESULT)
     (COND((AND (NULL LIS) (NOT (NULL RESULT)))  RESULT)
          ((NULL LIS)  'EMPTY )
          ((FIND NAME (ASSOC TYPE (CAR LIS))) (PRINTINFEKTION NAME (CDR LIS) (NCONC RESULT (LIST (CAAR LIS)))))
))

;FUNKTION PRINTALL (SUCHE NACH ALLEN VERFUEGBAREN KRANKHEITEN, EIGENSCHAFTEN ODER ZIELE).
(DEFUN PRINTALL(TYPE LIS &OPTIONAL RESULT) 
    (COND((NULL LIS) (FORMAT T "~%~%ALLE VERFUEGBAREN ~a:~%~{~a~^, ~}~%" TYPE (SORT(REMOVE-DUPLICATES RESULT) #'string<= )))
		((EQL TYPE 'INFEKTIONEN)     (PRINTALL TYPE (CDR LIS)  (NCONC (SECOND (CAR LIS)) RESULT)))
        ((EQL TYPE 'EIGENSCHAFTEN)    (PRINTALL TYPE (CDR LIS)  (NCONC (THIRD (CAR LIS)) RESULT))) 
        ((EQL TYPE 'ZIELE)    (PRINTALL TYPE (CDR LIS)  (NCONC (FOURTH (CAR LIS)) RESULT)))    
        (T 'E )
))

;FUNKTION START (FRAGT DEN BENUTZER, WAS GESUCHT WERDEN SOLL UND RUFT DIE ENTSPRECHENDE FUNKTION AUF).
(DEFUN START()
  (FORMAT T "WILLKOMMEN BEI DER LISP-BASIERTEN SUCHMASCHINE VON 'PFLANZLICHE VIRENKILLER'")
  (FORMAT T "~%BEFEHLE:")   
  (FORMAT T "~%1. SUCHE UEBER EINE PFLANZE")
  (FORMAT T "~%2. SUCHE NACH EINEM EIGENSCHAFTEN")
  (FORMAT T "~%3. SUCHE UEBER EINE INFEKTION")
  (FORMAT T "~%4. SUCHE UEBER EINE THERAPIEZIELE")
  (FORMAT T "~%5. LINK ZUM BUCH")
  (FORMAT T "~%6. LINK ZUM QUELLEN")
  (FORMAT T "~%WAS MOECHTEN SIE SUCHEN: ")
  (SETQ INPUT (READ))   
  (COND ((EQL INPUT '1)  (PLANTSEARCH PLANTS))
      ((EQL INPUT '2)  (EIGENSCHAFTENSEARCH PLANTS) )
      ((EQL INPUT '3)  (INFSEARCH PLANTS))
	  ((EQL INPUT '4)  (ZIELSEARCH PLANTS))
      ((EQL INPUT '5)  (FORMAT T "~%DAS BUCH IST UNTER FOLGENDEM LINK ERREICHBAR~%https://drive.google.com/file/d/1mt6OVunbI6ekFmtH1AFps8UKo6whAt5e/view?usp=sharing~%")) 
	  ((EQL INPUT '6)  (FORMAT T "~%DIE QUELLEN SIND UNTER FOLGENDEM LINK ZU FINDEN~%https://drive.google.com/file/d/17CjaGVfXCbwBGRYtJun72QhaRCG0j6Cs/view?usp=sharing~%"))	  
      (T (FORMAT T "DAS IST KEIN GUELTIGER BEFEHL, BITTE VERSUCHEN SIE NOCHMAL~%") (START))  
))

(WRITE (START))

[ - ] Show input
Absolute running time: 0.15 sec, cpu time: 0.02 sec, memory peak: 9 Mb, absolute service time: 0,25 sec