EUCHNER CIS3(A) - Handbuch (Seite 25)

EUCHNER Identsystem CIS3/CIS3A
071652-01-8/99 Technische Änderungen vorbehalten Seite 25 / 30
Wiederholzaehler = 0
Protokolstart:
PRINT #1, STX$; 'STX ausgeben
A$ = INPUT$(1, #1) 'DLE einlesen
IF Wiederholzaehler = AnVersu! THEN
PRINT "Kein Verbindungsaufbau": INPUT " ", Q
Telegrammsenden = -1
GOTO ENDE2
END IF
IF A$ <> DLE$ THEN
Wiederholzaehler = Wiederholzaehler + 1
GOTO Protokolstart
END IF
telegraus$ = ""
FOR i = 1 TO LEN(Telegramm$)
C$ = MID$(Telegramm$, i, 1)
IF C$ = DLE$ THEN telegraus$ = telegraus$ + C$ 'DLE Verdopplung nach 3964R
telegraus$ = telegraus$ + C$
NEXT i
' Kommandotelegramm senden
PRINT #1, telegraus$ + END$ + BCCErmittlung$(telegraus$ + END$);
A$ = INPUT$(1, #1) 'DLE von Bussystem einlesen
IF Wiederholzaehler = AnVersu! THEN PRINT "negative Quittierung": INPUT " ", Q: Telegrammsenden = -1:
GOTO ENDE2
IF A$ <> DLE$ THEN Wiederholzaehler = Wiederholzaehler + 1: GOTO Protokolstart
PRINT "Anforderung gesendet"
Telesenden = 0:
ENDE2:
END FUNCTION