100'PC-G850 UART TEST
110OUT &H60,2
120OUT &H6D,&H80
130OUT &H6D,&H40
140OUT &H63,0
150OUT &H6C,&H0D
160OUT &H6D,&H30
170OUT &H63,&H14
180*LOOP
190 X= INP (&H6E)
200 IF (X AND &H10)<>0 THEN GOTO *RECEIVE
210 IF (X AND &H04)<>0 THEN GOTO *SEND
220GOTO *LOOP
230*RECEIVE
240 X$= CHR$ ( INP (&H6F))
250 PRINT X$;
260GOTO *LOOP
270*SEND
280 X$= INKEY$
290 IF X$="" THEN GOTO *LOOP
300 OUT &H6F, ASC (X$)
310GOTO *LOOP