Oberon/ETH Oberon/2.3.7/HTML.Mod: Difference between revisions
Jump to navigation
Jump to search
[checked revision] | [checked revision] |
Content deleted Content added
Created the page with source from the ETH Alpha release. |
m PeterEasthope moved page Oberon/ETH Oberon/2003-01-05/HTML.Mod to Oberon/ETH Oberon/2.3.7/HTML.Mod without leaving a redirect: More appropriate nomenclature. |
||
(2 intermediate revisions by 2 users not shown) | |||
Line 111: | Line 111: | ||
				lastlib := R.lib |
				lastlib := R.lib |
||
			END; |
			END; |
||
			IF ch = " |
			IF ch = "ü" THEN S("ü") |
||
			ELSIF ch = " |
			ELSIF ch = "Ü" THEN S("Ü") |
||
			ELSIF ch = " |
			ELSIF ch = "ù" THEN S("ù") |
||
			ELSIF ch = " |
			ELSIF ch = "ä" THEN S("ä") |
||
			ELSIF ch = " |
			ELSIF ch = "Ä" THEN S("Ä") |
||
			ELSIF ch = " |
			ELSIF ch = "á" THEN S("á") |
||
			ELSIF ch = " |
			ELSIF ch = "à" THEN S("à") |
||
			ELSIF ch = " |
			ELSIF ch = "ë" THEN S("ë") |
||
			ELSIF ch = " |
			ELSIF ch = "é" THEN S("é") |
||
			ELSIF ch = " |
			ELSIF ch = "è" THEN S("è") |
||
			ELSIF ch = " |
			ELSIF ch = "ö" THEN S("ö") |
||
			ELSIF ch = " |
			ELSIF ch = "Ö" THEN S("Ö") |
||
			ELSIF ch = " |
			ELSIF ch = "ò" THEN S("ò") |
||
			ELSIF ch = " |
			ELSIF ch = "ï" THEN S("ï") |
||
			ELSIF ch = " |
			ELSIF ch = "ì" THEN S("ì") |
||
			ELSIF ch = 0DX THEN C(" "); C(sep) |
			ELSIF ch = 0DX THEN C(" "); C(sep) |
||
			ELSIF ch = tab THEN S("     ") |
			ELSIF ch = tab THEN S("     ") |