Convert charset to utf8HEADmaster

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.

3 files changed, 13 insertions, 13 deletions

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 Kommunikationsstr�men *)

+    (* 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+". Empf�nger: """

+  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 ("Irrl�ufer: 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-L�schung vorgemerkt");

+      sendereport ("Call-Löschung vorgemerkt");

       loeschung vormerken

     ELSE

-      report ("Call gel�scht."""+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 f�r EUMEL - Netz - Software;                         04.12.83

-  ber�cksichtigt 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 Kommunikationsstr�men *)

+    (* 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 m�glich") 

+  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 Empf�nger/Absender darf l�schen")

+  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 gel�scht 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,"empf�ngt 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 Flu�kontrolle verdrahtet") THEN

+IF yes ("Ist der Netzkanal mit Flußkontrolle verdrahtet") THEN

    quit max := 10

 ELSE

    quit max := 3