incr.bas

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

'--------------------------------------------------------------
'                  (c) 1997-2000 MCS Electronics
'--------------------------------------------------------------
'  file: INC.BAS
'  demo: INCR
'--------------------------------------------------------------
Dim A As Byte

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