#!/usr/sbin/blassic

rem send byte (input as decimal) to ttyS0

LABEL go_again
input "Type decimal value of byte to ttyS0 - 0 to end ",A
if A = 0 then goto end_it
open "/dev/ttyS0" for APPEND as #1
print #1,CHR$(A);
close #1
goto go_again
LABEL end_it
system