[misterjuice]

READ s$
'CLS
'INPUT "Enter a string"; s$
CLS
i = 1
lft = 40 - LEN(s$) / 2'34
tp = 12
ln = LEN(s$) '20
j = 1

FOR z = 1 TO 23
LOCATE z, lft: PRINT s$
NEXT
DO

FOR i = 1 TO LEN(s$)
LOCATE tp, lft

PRINT MID$(s$, i, ln);
IF i + ln + 1 >= LEN(s$) THEN PRINT MID$(s$, 1, (i + ln) - ln - 1)

FOR k = 1 TO 1500
IF UCASE$(INKEY$) = "Q" THEN END
NEXT

NEXT i
LOOP
DATA "-==--==--==--==--==--==--==--==--==-"