BCX Console Demonstration Program s23.bas

 DIM a
 DIM b$
 
 WHILE a + 10 < 100 + 1
   a++
   ?  a
 WEND
 
 WHILE LEN(b$) < 80
   b$ = b$ & "a"
   ?  b$
 WEND
 
 WHILE LEN(b$) > 1
   b$ = MID$(b$, 1, LEN(b$) - 1)
   ?  b$
 WEND
 
 b$ = "hello"
 
 WHILE b$ = "hello"
   ?  b$
   b$ = "goodbye"
 WEND