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/src/net manager-M | |
| 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/src/net manager-M')
| -rw-r--r-- | system/net/1.7.5/src/net manager-M | 12 |
1 files changed, 6 insertions, 6 deletions
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
|