100'PC-G850V UART TEST 110OUT &H60,2 120OUT &H74,1 130OUT &H73,0 140OUT &H73,1 150OUT &H73,0 160OUT &H70,&HD 170OUT &H71,&H4E 180OUT &H71,&H10 190OUT &H63,0 200OUT &H71,&H5 210OUT &H63,&H14 220*LOOP 230 X= INP (&H71) 240 IF (X AND &H02)<>0 GOTO *RECEIVE 250 IF (X AND &H04)<>0 GOTO *SEND 260GOTO *LOOP 270*RECEIVE 280 X$= CHR$ ( INP (&H72)) 290 PRINT X$; 300GOTO *LOOP 310*SEND 320 X$= INKEY$ 330 IF X$="" THEN GOTO *LOOP 340 OUT &H72, ASC (X$) 350GOTO *LOOP