5 REM UART AT $80 10 LET UART=128 15 REM INITIALIZE THE UART TO 300 BPS 20 OUT UART+3,128 30 OUT UART,128 40 OUT UART+1,1 50 OUT UART+3,3 52 LET B=INP(UART) 55 REM MAIN LOOP TO SEND CHARACTERS FROM UART 57 REM READ READY TO SEND CONTROL BIT 60 A=INP(UART+5) 70 B=A AND 32 80 IF B=0 THEN GOTO 60 90 REM SEND THE CHARACTER ASCII '0' 100 OUT UART,48 105 REM REPEAT FOREVER 110 GOTO 60