decr.bas

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

'--------------------------------------------------------------
'                     (c) 1997-2001 MCS Electronics
'--------------------------------------------------------------
'  file: DECR.BAS
'  Demo: DECR
'--------------------------------------------------------------
Dim A As Byte

A = 5                                   'assign value to a
Decr A                                  'decrease (by one)
Print A                                 'print it
End