You are here: Home DOCUMENTATION information SBASIC Manual - Page 28

Technological Arts Inc.

Your Shopping Cart

Your Cart is currently empty.

SBASIC Manual - Page 28

Article Index
SBASIC Manual
Page 2
Page 3
Page 4
Page 5
Page 6
Page 7
Page 8
Page 9
Page 10
Page 11
Page 12
Page 13
Page 14
Page 15
Page 16
Page 17
Page 18
Page 19
Page 20
Page 21
Page 22
Page 23
Page 24
Page 25
Page 26
Page 27
Page 28
Page 29
Page 30
Page 31
Page 32
Page 33
Page 34
Page 35
Page 36
Page 37
Page 38
Page 39
Page 40
Page 41
Page 42
Page 43
Page 44
Page 45
Page 46
Page 47
Page 48
Page 49
Page 50
Page 51
Page 52
Page 53
Page 54
Page 55
Page 56
Page 57
Page 58
Page 59
Page 60
Table of Contents
Index
All Pages

     SBasic User's Manual     SBasic Version 2.7             Page 28
     Printed:  December 5, 1999
     statement and the LOOP statement.  You may include an optional
     comparison clause in either the DO statement or in the LOOP statement.

     Examples:

          do                       ' start of a do-loop
               gosub process       ' do something useful
          loop                     ' end of loop

     The above example will loop forever, since it has no comparison
     clause.  An endless loop is often used as the core of a large program.


          do while a < 500         ' loop while a is less than 500
               a = a + 1           ' increment a
          loop                     ' end of loop

     This example mimics the WHILE-WEND loop above.


          do until a > b           ' loop until a is greater than b
               a = a + c/2         ' change value of a
          loop                     ' end of loop

     The above example loops until the value in A is greater (signed) than
     the value in B.


          do                       ' start of a do-loop
               a = peekb($1000)    ' read a value from an I/O port
          loop while a = 0         ' loop while a equals 0

     The above example loops for so long as the value read from the I/O
     port equals 0.


          do                       ' start of a do-loop
               a = peekb($1000)    ' read a value from an I/O port
          loop until a = $ff       ' loop until a equals $ff

     The above example loops until the value read from the I/O port equals
     $ff.


     The DO-LOOP provides great flexibility for loop control, because you
     can control when the comparison occurs in the loop.  If you place the
     comparison in the DO statement, the test is performed before the body
     of the loop is executed.  By placing the comparsion in the LOOP
     statement, you can force the body of the loop to execute before the
     comparison is performed.