Qbasic (Loading)

CLS
LOCATE 14,36: PRINT "LOADING"
FOR I = 31 TO 51
COLOR 4
LOCATE 7, I + 1 : PRINT (CHR$92,9))
COLOR 7
LOCATE 8,40: PRINT X*5; "%"
X = X +1
FOR J = 1 TO 500000 : NEXT
END