QBASIC Program for counting using do while function

Program for counting number using “do while” in QBASIC

CLS

PRINT "Counting using Do while from 1 to 10"

x = 1

DO WHILE x <= 10

    PRINT x

    x = x + 1

LOOP

END