const.bas

来自「82 sample programs written in BASCOM-805」· BAS 代码 · 共 19 行

'----------------------------------------------------
'              (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