swap.bas

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

'--------------------------------------------------------------
'                (c) 1997-2000 MCS Electronics
'--------------------------------------------------------------
'  file: SWAP.BAS
'  demo: SWAP
'--------------------------------------------------------------
Dim A As Byte , B1 As Byte
Dim Bbit1 As Bit , Bbit2 As Bit

A = 5 : B1 = 10                         'assign some vars
Print A ; "   " ; B1                    'print them

Swap A , B1                             'swap them
Print A ; "   " ; B1                    'print is again

Set Bbit1
Swap Bbit1 , Bbit2
Print Bbit1 ; Bbit2
End