' A demo for UBW v0.3, "C" Firmware

' Open the serial port
print "Opening"
open "com8:19200,n,8,1,ds0,cs0,rs" for random as #com

' Throw the data into the port
[start]
print "Writing"
x = 0
for d = 0 to 255
    print #com, chr$(d);
'    print d
'    for y = 1 to 10000
'    next y
next d

' Wait for awhile
print "Waiting"
'for x = 1 to 100000
'next x
goto [start]
' Close the serial port
print "Closing"
close #com

END