win(header(pc,fprule_model_factory,'Erosion rules',nil),141,31,377,637,conts(`/* These 18 rules describe cases of recorded coastal erosion ~M~J   in circumstances of various altitude, rainfall, soil type and ~M~J   grazing intensity. 'Erosion=false' indicates a case where erosion ~M~J   was not recorded, 'Erosion=true' indicates the opposite. ~M~J   THC 28.11.99  */~M~J~M~JIF Altitude = low & Rain = low & Soil = sand & Grazing = low THEN Erosion = false.~M~JIF Altitude = high & Rain = low & Soil = sand & Grazing = low THEN Erosion = false.~M~JIF Altitude = low & Rain = med & Soil = sand & Grazing = low THEN Erosion = true.~M~JIF Altitude = high & Rain = med & Soil = sand & Grazing = low THEN Erosion = true.~M~JIF Altitude = low & Rain = high & Soil = sand & Grazing = low THEN Erosion = true.~M~JIF Altitude = high & Rain = high & Soil = sand & Grazing = low THEN Erosion = true.~M~JIF Altitude = low & Rain = high & Soil = sand & Grazing = high THEN Erosion = true.~M~JIF Altitude = high & Rain = high & Soil = sand & Grazing = high THEN Erosion = true.~M~JIF Altitude = low & Rain = low & Soil = sand & Grazing = high THEN Erosion = true.~M~JIF Altitude = high & Rain = low & Soil = sand & Grazing = high THEN Erosion = true.~M~JIF Altitude = low & Rain = low & Soil = clay & Grazing = low THEN Erosion = false.~M~JIF Altitude = high & Rain = low & Soil = clay & Grazing = low THEN Erosion = false.~M~JIF Altitude = low & Rain = low & Soil = clay & Grazing = high THEN Erosion = false.~M~JIF Altitude = high & Rain = low & Soil = clay & Grazing = high THEN Erosion = false.~M~JIF Altitude = low & Rain = med & Soil = clay & Grazing = low THEN Erosion = false.~M~JIF Altitude = low & Rain = med & Soil = clay & Grazing = high THEN Erosion = false.~M~JIF Altitude = low & Rain = high & Soil = clay & Grazing = low THEN Erosion = false.~M~JIF Altitude = low & Rain = high & Soil = clay & Grazing = high THEN Erosion = true.~M~J`,'Courier',0,13)).
