while_w.bas

82 sample programs written in BASCOM-8051 for 8051 developement

'--------------------------------------------------------------
'                (c) 1997-1999 MCS Electronics
'--------------------------------------------------------------
'  file: WHILE_W.BAS
'  demo: WHILE, WEND
'--------------------------------------------------------------
Dim A As Byte

A = 1                                   'assign var
While A < 10                            'test expression
   Print A                              'print var
   Inc A                                'increase by one
Wend                                    'continue loop
End