DIM byte AS INTEGER
       
        byte = &H55
        CLS
        PRINT "Stablishing communication..."
        OPEN "COM1:9600,N,8,1,RS" FOR OUTPUT AS #1
        CLS
        PRINT "Communication stablished."
        PRINT "Sent: " + HEX$(byte)
        OUT &H3F8, byte
        CLOSE #1
        END