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 = "…" THEN S("ü")
			IF ch = "ü" THEN S("ü")
			ELSIF ch = "‚" THEN S("Ü")
			ELSIF ch = "Ü" THEN S("Ü")
			ELSIF ch = "" THEN S("ù")
			ELSIF ch = "ù" THEN S("ù")
			ELSIF ch = "ƒ" THEN S("ä")
			ELSIF ch = "ä" THEN S("ä")
			ELSIF ch = "€" THEN S("Ä")
			ELSIF ch = "Ä" THEN S("Ä")
			ELSIF ch = "”" THEN S("á")
			ELSIF ch = "á" THEN S("á")
			ELSIF ch = "‹" THEN S("à")
			ELSIF ch = "à" THEN S("à")
			ELSIF ch = "‘" THEN S("ë")
			ELSIF ch = "ë" THEN S("ë")
			ELSIF ch = "" THEN S("é")
			ELSIF ch = "é" THEN S("é")
			ELSIF ch = "Œ" THEN S("è")
			ELSIF ch = "è" THEN S("è")
			ELSIF ch = "„" THEN S("ö")
			ELSIF ch = "ö" THEN S("ö")
			ELSIF ch = "" THEN S("Ö")
			ELSIF ch = "Ö" THEN S("Ö")
			ELSIF ch = "Ž" THEN S("ò")
			ELSIF ch = "ò" THEN S("ò")
			ELSIF ch = "’" THEN S("ï")
			ELSIF ch = "ï" THEN S("ï")
			ELSIF ch = "" THEN S("ì")
			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("     ")