do_loop.bas

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

'--------------------------------------------------------------
'                     (c) 1997-2000 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
  Incr A                                  'increase by one
Loop Until a = 10                       'do until a=10
End

'You can write a never-ending loop with the following code
Do
  'Your code goes here
Loop