10 WINDOW CLEAR:PRINT "SERTEST - SEND 'U' (HEX 55) TO SERIALCORE"
   20 PRINT "BAUDRATE 38400=0, 19200=1, 9600=2, 4800=3, ";
   30 PRINT "2400=4, 1200=5, 600=6, 300=7"
   40 INPUT "WHICH [0..7] ?";BD
   50 LABBUS 2,BD
   60 DO
   70 LABOUT "U";
   80 FOR N=0 TO 10:NEXT
   90 LOOP