BCX Console Demonstration Program s29.bas 

 DIM a
 DIM b
 
 WHILE a < 20
 
   a = a + 1
 
   IF a = 10 THEN
     b = b + 21
   END IF
 
   ? "This is line no. ", a
 
 WEND
 
 ? "The value of b = ", b