Форум РадиоКот

Код: Выделить всё

  UCSRC = (1<<URSEL)|(1<<USBS)|(3<<UCSZ0); /* Set frame format: 8data, 2stop bit */

Код: Выделить всё

$regfile = "m8def.dat"                                      ' we use the M8
$baud = 9600

$hwstack = 32
$swstack = 8
$framesize = 24

Dim A As Byte , B1 As Byte , C As Integer , S As String * 4
A = 1
Print "print variable a " ; A
Print                                                       'new line
Print "Text to print."                                      'constant to print


B1 = 10
Print Hex(b1)                                               'print in hexa notation
C = &HA000                                                  'assign value to c%
Print Hex(c)                                                'print in hex notation
Print C                                                     'print in decimal notation

C = -32000
Print C
Print Hex(c)
Rem Note That Integers Range From -32767 To 32768

Print "You can also use multiple" _
; "lines using _"
Print "use it for long lines"
'From version 1.11.6.4 :
A = &B1010_0111
Print Bin(a)
S = "1001"
A = Binval(s)
Print A                                                    
End