CLS
INPUT "Enter in some text: "; a$
a = 2
b = 2
y = 2
x = 2

DO
CLS
IF y = 24 THEN y = y - 1
IF x = 78 THEN x = x - 1
IF y = 2 THEN y = y + 1
IF x = 2 THEN x = x + 1
LOCATE y, x
PRINT a$
SLEEP 1
LOOP UNTIL INKEY$ = "q"