B.5.2
demo 2
10
REM
demo 2 (Px4)
20
:
30
:
40
REM
print all characters received
50
:
60
OPEN "i", #1,1"com0:(e)":PRINT:PRINT:PRINT:PRINT:PRINT:PRINT :PRINT
70
PRINT INPUT$(6,#1);:GOTO 70
B.5.3
demo 3
10
REM
demo 3 (PC)
20
:
30
:
40
CLOSE
50
CLS
60
OPEN "COM1:9600,N,8,1,RS,CSO,DSO,CDO" AS #l
70
A$=INPUT$(6,#1)
80
IF LEFT$(A$,2)=" Z" THEN 110
90
LOCATE 8,10:PRINT A$;
100
GOTO 70
110
LOCATE 10,10:PRINT A$;
120
GOTO 70
34
Artisan Technology Group - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisantg.com
Instruction manual BD 11/11E / 12/12E
Kipp & Zonen B.V.