EUCHNER CIS3(A) - Handbuch (Seite 22)

EUCHNER Identsystem CIS3/CIS3A
071652-01-8/99 Technische Änderungen vorbehalten Seite 22 / 30
CASE 2
REM ********* Datentraeger schreiben *************
INPUT "Datenträger Startadresse :", A!
INPUT "Daten max. 16 Bytes :", D$
INPUT "Kopfadresse :", C%
B% = 16
REM B% = LEN(D$)
Returnwert = Schreibbefehl(A!, B%, C%, D$)
REM ** Datentraegerinhalt nach lesen ausdrucken **
CASE 3
IF Returnwert$ = "0" THEN
PRINT "Keine gültigen Daten eingelesen"
ELSE
OPEN "LPT1:" FOR OUTPUT AS #2
PRINT #2, Returnwert$
INPUT H
CLOSE #2
END IF
CASE 4
REM ******* Programmende ************************
END
CASE ELSE
INPUT "Fehlerhafte Eingabe", H
END SELECT
LOOP UNTIL 0
CLOSE #1
END
'*
'******************** 3964R Antworttelegramm einlesen **********************
'*
FUNCTION Antworttelegramm$ (AnVersu)
END$ = CHR$(&H10) + CHR$(&H3)
STX$ = CHR$(2)
DLE$ = CHR$(&H10)
NAK$ = CHR$(&H15)
Wiederholzaehler = 0
Startantworttelegr:
A$ = INPUT$(1, #1) 'STX von Bussystem einlesen
PRINT #1, DLE$; 'DLE senden
Wiederholzaehler = Wiederholzaehler + 1
A$ = INPUT$(1, #1) 'Telegrammlänge einlesen
B = ASC(A$) - 1
BCCWE = ASC(A$)
IF A$ = DLE$ THEN 'DLE Vedopplung nach 3964R
D$ = INPUT$(1, #1)
BCCWE = BCCWE XOR ASC(D$)
END IF
FOR i = 1 TO B 'Telegramm einlesen
C$ = INPUT$(1, #1)