DIM x AS INTEGER CLS x = 1 DO UNTIL x > 10 PRINT "SchoolFreeware" x = x + 1 LOOP