The UIF-5K is a user interface product. It has an LCD display and 5 keys.
#include "MSB6XX" Opencom 1,115200,3,30,20 Set Uif 2,1 Cls Wait 200 Print 27,90,1 'BUZZER ON Clcdout 1,0,"UIF-5K WITH MSB"
#include "MSB6XX" Opencom 1,115200,3,30,20 Set Uif 2,1 On Recv1 Gosub KEYIN_OCCUR Cls Wait 200 Print 27,90,1 'BUZZER ON Clcdout 1,0,"UIF-5K WITH MSB" Dim I As Integer Dim RX_KEY As Integer Do Incr I Clcdout 1,2,Dec I Wait 500 Loop ‘ Event for Key input KEYIN_OCCUR: RX_KEY = Get(1,1) Clcdout 10,2,Hex RX_KEY Return