' struniq.bas
' running strings from ost to west and from left to right
' multi-string plus width of screen include in velocity

DIM q$(5): ekran = 55: s$ = " "
FOR i = 1 TO ekran + 10: s$ = s$ + " ": NEXT

q$(1) = "RRR  U U  SSS  SSS  I   A   N  N    III  QQ  "
q$(2) = "R R  U U  S    S    I  AAA  NN N     I  Q  Q "
q$(3) = "RR   U U  SSS  SSS  I  A A  N NN     I  Q  Q "
q$(4) = "R R  U U    S    S  I  AAA  N  N     I  Q QQ "
q$(5) = "R R  UUU  SSS  SSS  I  A A  N  N    III  QQ Q"

FOR i = 1 TO 5: q$(i) = s$ + q$(i) + s$: NEXT: q = LEN(q$(1))

FOR n = 1 TO 5
    FOR i = 1 TO q - ekran
        FOR j = 1 TO 5
            LOCATE j + 5, 5: PRINT MID$(q$(j), i, ekran)
            LOCATE j + 15, 5: PRINT MID$(q$(j), q - ekran + 1 - i, ekran)
        NEXT
        _DELAY (.1 - ekran / 3000)
    NEXT
NEXT