EUCHNER CIS3(A) - Manual (Page 14)

EUCHNER Identsystem CIS3
071652-01-8/99 Subject to technical modifications page 14 / 23
7. Example of a PC-Program in Q-BASIC under MS-DOS
' ******* Demoprogramm für EUCHNER S/L System *******************************'
DECLARE FUNCTION Lesebefehl$ (Start!, Anzahl%, Kopfnr%)
DECLARE FUNCTION Schreibbefehl! (Start!, Anzahl%, Kopfnr%, Daten$)
DECLARE FUNCTION Telegrammsenden! (Telegramm$, AnVersu!)
DECLARE FUNCTION Antworttelegramm$ (AnVersu!)
DECLARE FUNCTION BCCErmittlung$ (Telegramm$)
DECLARE FUNCTION Datenauswerten$ (A$)
DECLARE SUB Fehleranzeigen (A$)
REM ***** Einstellung fuer COM1 *****
REM OPEN "COM1:9600,N,8,1,CD,CS,DS,OP0,RS,TB0,RB0" FOR RANDOM AS #1
REM OUT &H3FB, &H1B '8 Datenbit 1 Stopbit Even Parity für COM1
REM ***** Einstellung fuer COM2 *****
OPEN "COM2:9600,N,8,1,CD,CS,DS,OP0,RS,TB0,RB0" FOR RANDOM AS #1
OUT &H2FB, &H1B '8 Datenbit 1 Stopbit Even Parity für COM2
REM ***** Verbindungsabbau **********
END$ = CHR$(&H10) + CHR$(&H3)
DO
CLS
PRINT "Datenträger lesen :1"
PRINT "Datenträger schreiben :2"
PRINT "Daten ausdrucken :3"
PRINT "Beenden :4"
PRINT " "
PRINT " "
INPUT "Auswahl :?", A
SELECT CASE A
REM ********* Datentraeger lesen *************
CASE 1
INPUT "Datenträger Startadresse :", A!
INPUT "Anzahl der Daten 0 bis 16 :", B%
INPUT "Kopfadresse :", C%
INPUT "Schleife J/N :", D$
SCHLEIFE:
Returnwert$ = Lesebefehl(A!, B%, C%)
IF Returnwert$ = "0" THEN
PRINT "Keine gültigen Daten eingelesen"
ELSE
PRINT Returnwert$
END IF
FOR i = 0 TO 10
NEXT i
IF D$ = "J" THEN GOTO SCHLEIFE
INPUT H