100 REM IR Buddy RC-5 RX Monitor
110 REM IR Buddy on I/O pin 0
120 IRBSEND 0
130 IRBSEND 0,$72,255
140 IRBRECV 0,99999,a,b,c,d,e,f,g,h
150 PRINT "Rcv: ";
160 IF a <> 253 THEN GOTO 180
170 PRINT "Rpt" : GOTO 130
180 IF a <> 254 THEN GOTO 200
190 PRINT "End" : GOTO 130
200 IF a <> 255 THEN GOTO 220
210 PRINT "Pad" : GOTO 130
220 PRINT a/16;";";a//16;" ";
230 a = b : b = c : c = d : d = e
240 e = f : f = g : g = h : h = 255
250 GOTO 160
