Chauvin Arnoux C.A 25 Mode D'emploi page 86

COMMUNICATION PROGRAM
Cls
print "**** DISPLAY OF THE TACHOMETER MEASUREMENTS ****"
Open "COM1:1200,N,8,1,RS" as #1
print #1,chr$(07)
delay 2.5
print #1,chr$(63)
carac = 0 : k$ = "" : D = 0
while k$ = ""
while (carac <>10 and carac <>13)
out &H3FD,0
out &H3FC,03
here:
D%=inp(&H3FD)
if (D% and 01) =0 then here
out &H3FC,00
carac = inp(&H3F8)
j$=inkey$
if j$<>"" then print "end requested...": end
if (carac<>13 and carac<>10) then
mesure$=
mesure$+chr$(carac)
end if
wend
print mesure$
mesure$ = "" : k$ = inkey$ : carac = 0 : D = 0
delay 0.5
print #1,chr$(63)
wend
print "end requested..."
' wakes up the instrument...
' reads the measurement...
' lowers "data received" flag...
' allows emission of data on COM1:
' waits for received data...
' suppresses emission of data on COM 1:
' reads the data (byte)...
'concatenates the characters...
' reads the measurement...
83