From c316cd982303f30f29075f31bcd910f9be38bb25 Mon Sep 17 00:00:00 2001 From: Lars-Dominik Braun Date: Sat, 2 Mar 2019 17:15:47 +0100 Subject: Convert charset to utf8 MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Files imported in commit 98cab31fc3659e33aef260efca55bf9f1753164c were exported from EUMEL to DOS and used codepage 437/850(?). Convert files to UTF-8 where possible. Some files were left as-is. I’m not sure whether converting these would be correct. --- system/net/1.7.5/src/basic net | 10 +++++----- system/net/1.7.5/src/net inserter | 4 ++-- system/net/1.7.5/src/net manager-M | 12 ++++++------ 3 files changed, 13 insertions(+), 13 deletions(-) (limited to 'system/net') diff --git a/system/net/1.7.5/src/basic net b/system/net/1.7.5/src/basic net index 41c8402..88b41e5 100644 --- a/system/net/1.7.5/src/basic net +++ b/system/net/1.7.5/src/basic net @@ -48,7 +48,7 @@ LET neue ack laenge = 10, ack laenge = 8, - (* Typen von Kommunikationsstrmen *) + (* Typen von Kommunikationsströmen *) send wait = 0, zustellung = 1, @@ -328,7 +328,7 @@ PROC sendereport (TEXT CONST txt): END PROC sendereport; PROC empfangsreport (TEXT CONST txt): - report (text (strom)+":"+txt+". Empfnger: """ + report (text (strom)+":"+txt+". Empfänger: """ +nam (vx.ziel)+""". Quelle "+text (vx.rechnernummernDIV256)); END PROC empfangsreport ; @@ -420,7 +420,7 @@ END PROC sendung starten; PROC sendung starten (TASK CONST quelle, ziel, INT CONST ziel station,code): IF ziel station = own THEN - report ("Irrlufer: Sendung an eigene Station. Absender:"""+ + report ("Irrläufer: Sendung an eigene Station. Absender:"""+ nam (quelle)+"""."); vx.strom := 0; forget (vdr) @@ -465,10 +465,10 @@ PROC alten call loeschen (TASK CONST quelle): strom := alter call (tasknr (quelle)); IF in ausfuehrungsphase THEN - sendereport ("Call-Lschung vorgemerkt"); + sendereport ("Call-Löschung vorgemerkt"); loeschung vormerken ELSE - report ("Call gelscht."""+nam(quelle)+""". Strom "+text(strom)); + report ("Call gelöscht."""+nam(quelle)+""". Strom "+text(strom)); loesche verbindung (strom) FI; strom := lstrom; diff --git a/system/net/1.7.5/src/net inserter b/system/net/1.7.5/src/net inserter index 8cccedd..d8c0856 100644 --- a/system/net/1.7.5/src/net inserter +++ b/system/net/1.7.5/src/net inserter @@ -1,6 +1,6 @@ -{ Inserter fr EUMEL - Netz - Software; 04.12.83 - bercksichtigt EUMEL - Versionen 1.7.3 und 1.7.5, sowie Multi / Single } +{ Inserter für EUMEL - Netz - Software; 04.12.83 + berücksichtigt EUMEL - Versionen 1.7.3 und 1.7.5, sowie Multi / Single } INT VAR version :: id (0), cy :: 4; diff --git a/system/net/1.7.5/src/net manager-M b/system/net/1.7.5/src/net manager-M index 0383211..bf64a68 100644 --- a/system/net/1.7.5/src/net manager-M +++ b/system/net/1.7.5/src/net manager-M @@ -14,7 +14,7 @@ LET erase code = 14, report code = 99, - (* Typen von Kommunikationsstrmen *) + (* Typen von Kommunikationsströmen *) send wait = 0, zustellung = 1, @@ -140,7 +140,7 @@ netz info und steuerung: IF scode = list code THEN list status ELIF scode = erase code THEN strom beenden ELIF scode = freigabe code AND stask = father THEN freigabelevel - ELSE forget (dr); ablehnen ("nicht mglich") + ELSE forget (dr); ablehnen ("nicht möglich") FI. freigabelevel: @@ -165,7 +165,7 @@ strom beenden: stask = father OR stask = vx.quelle OR stask = vx.ziel THEN loeschen - ELSE ablehnen ("Nur Empfnger/Absender darf lschen") + ELSE ablehnen ("Nur Empfänger/Absender darf löschen") FI FI. @@ -227,7 +227,7 @@ sendeeintrag: vx.rechnernummern DIV 256 = station(myself) . sendeinfo: IF v.typ = call im wait THEN put (f,"erwartet Antwort von") ELIF v.typ = call in zustellung THEN put (f,"Ziel busy. Zielstation:") - ELIF v.typ = call im abbruch THEN put (f,"wird gelscht bei Antwort von") + ELIF v.typ = call im abbruch THEN put (f,"wird gelöscht bei Antwort von") ELSE put (f,"sendet an") FI; put (f,vx.rechnernummernMOD256); @@ -237,7 +237,7 @@ empfangsinfo: IF v.typ = zustellung THEN put (f,"Sendung noch nicht zustellbar") ELSE - put (f,"empfngt von"); + put (f,"empfängt von"); put (f,vx.rechnernummernDIV256); FI; put (f,". Empfaenger ist """+nam (vx.ziel)+"""."). @@ -290,7 +290,7 @@ PROC net io: END PROC net io; put ("Netzkanalnummer:"); get (c);line; -IF yes ("Ist der Netzkanal mit Flukontrolle verdrahtet") THEN +IF yes ("Ist der Netzkanal mit Flußkontrolle verdrahtet") THEN quit max := 10 ELSE quit max := 3 -- cgit v1.2.3