Crear una barra q simule q carga el programa en Quick Basic

Bueno ya aki les dejo algo sencillo hecho en quick basic, es un codigo q display una barra q esta cagarngando, al teminar la carga pueden proceder a continuar con el codigo del programa.


Color 15, 9
LOCATE 10, 24: Print "programa cargando espere un momento"
LOCATE 12, 21: Print "╔═════════════════════════┐"
LOCATE 13, 21: Print " ▌ ▌"
LOCATE 14, 21: Print "╚═════════════════════════╝"
For r = 22 To 59
LOCATE 13, r: Print "█"
SLEEP 0.1
Next r


con este peuqe;o codigo ya tiene una idea, despues lo pueden ir mejorando, esto se puede usar en otros lenguajes.