Qbasic

[mapuo]

Помогите сделать работу!
во общем задание такое: нужно нарисовать прямоугольник, чтобы он двигался, чтобы вместе с ним(рядом с прямоугольником) двигалось текущее время системы, и чтобы вся эта штука выходила по нажатию клавиши T(116)

это моя работа, прямоугольник двигается, время есть, но оно стоит на месте, а должно двигаться вместе с прямоугольником, на клавишу T выходит!

[mapuo]

помогите плиз

[mapuo]

плиз,это же не сложный номер совсем

[alexcoder]

CLS
INPUT "vvedite dlinu:", x
INPUT "vvedite shirinu:", y
INPUT "vvedite kordinaty x:", k
INPUT "vvedite kordinatu y:", n
INPUT "vvedite shagi:", b
CLS
k = 0
DO
CLS
a$ = TIME$
nn$ = MID$(a$, 1, 2)
mm$ = MID$(a$, 4, 2)
ss$ = RIGHT$(a$, 2)
REM y$ = "tecushie vrema:" + nn$ + "-chasov" + "-minyt" + ss$ + "-secund"
REM PRINT y$
k = k + 1
GOSUB KVODRAT
SLEEP 1
CLS
LOOP UNTIL (k = b + 1) OR INKEY$ = CHR$(116)
END
KVODRAT:
LOCATE n, k
y$ = "tecushie vrema:" + nn$ + "-chasov" + "-minyt" + ss$ + "-secund"
PRINT y$
FOR j = 1 TO y
FOR i = 1 TO x
LOCATE i + n, j + k: PRINT "$"
NEXT i
NEXT j
RETURN
END

[mapuo]

спасибо большое