Q Basic Yükleniyor Bar

CLS
SCREEN 12
LINE (240, 210)-(395, 260), 10, B
FOR X = 240 TO 390
LOCATE 15, 35: PRINT "YÜKLENİYOR";
FOR Y = 210 TO 260
PSET (X, Y), 4
NEXT Y, X
LOCATE 15, 32: PRINT "YÜKLEME TAMAMLANDI"
END