CONST DEVICE = R5

'---------------------------------------------------
'indicateur du code correspondant à la touche de la
' télécommande IR REMOCON
'pour tous LCD 2x20 et tous les PICBASIC (sauf PB-1B)
'http://arn.gui.free.fr/picbasic
'---------------------------------------------------

10    SET PICBUS HIGH
20    LCDINIT
30    CLS
40    CSROFF
50    DIM I AS BYTE
60    LOCATE 0,0
70    PRINT "APPUYEZ SUR TLC "
80    SERIN 8,93,0,5000,140,[WAIT("RM"),I]
90    CLS
100  LOCATE 0,0
110  PRINT " CODE RECU: ",I,"  "     'HEX(I)
120  DELAY 800
130  GOTO 60

140  CLS
150  LOCATE 0,0
160  PRINT "PAS ORDRE RECU.."
170  GOTO 120