'--------------------------------------------------------------
'                     (c) 1997,1998 MCS Electronics
'--------------------------------------------------------------
'  file: DO_LOOP.BAS
'  demo: DO, LOOP
'--------------------------------------------------------------
Dim a As Byte

a = 1                                   'assign a var
Do                                      'begin a do..loop
  Print a                               'print var
  Inc a                                 'increase by one
Loop Until a = 10                       'do until a=10
End

'you can write an never ending loop with the following code
Do
  'your code goes here
Loop