'Walking words...
'Murat AYDIN <m-aydin@usa.net>

DECLARE FUNCTION yurutgec ()
DIM SHARED sayac
a = yurutgec

END
saat:
IF INKEY$ = CHR$(27) THEN SCREEN 0, 0, 0: END
RETURN

FUNCTION yurutgec STATIC
a$ = "Hello... This is a demo for advirtesements..  Prog.: Murat AYDIN.....                 "

yavas = 1000: W$ = "": COLOR 15, 11


DO
FOR cm = 1 TO LEN(a$): E$ = MID$(a$, cm, 1)
IF INKEY$ <> "" THEN END
70 W$ = W$ + E$: IF LEN(W$) = 80 THEN W$ = RIGHT$(W$, 79)
LOCATE 25, 1: DO
x = INP(&H3DA): LOOP WHILE (x AND 8) = 1 OR (x AND 8) = 0
PRINT W$;
'90 FOR R = 1 TO yavas: NEXT: 'h¨z buradan ayarlan¨r....
NEXT:
LOOP WHILE INKEY$ = ""
END FUNCTION