const.bas

82 sample programs written in BASCOM-8051 for 8051 developement

'----------------------------------------------------
'              (c) 1997-2000 MCS Electronics
'              CONST.BAS
'----------------------------------------------------
Dim A As Const 5                        'declare a as a constant
Dim B1 As Const &B1001
Dim S As Single
'Or use the new preferred syntax
Const Cbyte = &HF
Const Cint = -1000
Const Csingle = 1.1
Const Cstring = "test"

S = Csingle
Print S ; "  " ; Cstring
Waitms A                                'wait for 5 milliseconds
Print A
Print B1
End