ON KEY(1) GOSUB AUTO
ON KEY(2) GOSUB MESURE
ON KEY(3) GOSUB 110
ON KEY(4) GOSUB 110
ON KEY(5) GOSUB 110
ON KEY(6) GOSUB 110
ON KEY(7) GOSUB command
ON KEY(8) GOSUB sort
KEY(1) ON: KEY(2) ON: KEY(3) ON: KEY(4) ON: KEY(5) ON
KEY(5) ON: KEY(6) ON: KEY(7) ON: KEY(8) ON: KEY ON
110 GOTO 110
'-----------------------------------------------------------------------------
sort:
fin = 1
A$ = "SYSTem:local": GOSUB envoi
END
RETURN
'-----------------------------------------------------------------------------
'envoi d'un message sur la liaison RS232C
' A$ contient le code a envoyer
'
envoi:
PRINT #1, A$
RETURN
'-----------------------------------------------------------------------------
'traitement des interruptions RS232C
INTERUPTIONRS:
COM(port%) OFF: nochr = 0
char$ = INPUT$(1, #1)
LINE INPUT #1, msg$
msg$ = char$ + msg$
char$ = INPUT$(1, #1)
eom = 1
COM(port%) ON
RETURN
'-----------------------------------------------------------------------------
'traitement des SRQ
ATTENTESRQ:
WHILE srq = 0: WEND: srq = 0
RETURN
'-----------------------------------------------------------------------------
'traitement attente message
ATTENTEMSG:
WHILE eom = 0: WEND
eom = 0
RETURN
ATTENTEXON:
RETURN
'-----------------------------------------------------------------------------
TEMP:
t = TIMER
WHILE t <> 0: t2 = TIMER: IF t2 - t >= tempo THEN t = 0
WEND
RETURN
'-----------------------------------------------------------------------------
command:
CLS
COM(port%) ON
MGR10 A/B/C Indice : J (version 7.0 du logiciel)
94