diff options
| author | Lars-Dominik Braun <lars@6xq.net> | 2019-03-02 17:15:47 +0100 |
|---|---|---|
| committer | Lars-Dominik Braun <lars@6xq.net> | 2019-03-02 17:15:47 +0100 |
| commit | c316cd982303f30f29075f31bcd910f9be38bb25 (patch) | |
| tree | 12ba04bd0f2a94bd48583ee5f2ab269b6ba5c8b3 /system/net/1.7.5 | |
| parent | 50acf53648b6562853cb26aa4e7062a5ced66908 (diff) | |
| download | eumel-src-master.tar.gz eumel-src-master.tar.bz2 eumel-src-master.zip | |
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.
Diffstat (limited to 'system/net/1.7.5')
| -rw-r--r-- | system/net/1.7.5/src/basic net | 10 | ||||
| -rw-r--r-- | system/net/1.7.5/src/net inserter | 4 | ||||
| -rw-r--r-- | system/net/1.7.5/src/net manager-M | 12 |
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 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
|