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