summaryrefslogtreecommitdiff
path: root/system/net/1.7.5/src/basic net
diff options
context:
space:
mode:
Diffstat (limited to 'system/net/1.7.5/src/basic net')
-rw-r--r--system/net/1.7.5/src/basic net10
1 files changed, 5 insertions, 5 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;