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 "-==--==--==--==--==--==--==--==--==-"
__________________
STROKIN' IT SINCE 09/03/06
2008 G8 GT Ignition Orange - New Era OTR intake, PM-FL Axle Back, SuperChips Cortex Tune
|