BCX Console Demonstration Program s07.bas 

 DIM a
 
 'this is a remark 
 
 DO
   a++
   IF a > 45 THEN
     EXIT LOOP
   END IF
   ?  a
 LOOP