Список проголосовавших за комментарий "' struniq.bas<br/> ' running strings from ost to west and from left to right<br/> ' multi-string plus width of screen include in velocity<br/> <br/> DIM q$(5): ekran = 55: s$ = " "<br/> FOR i = 1 TO ekran + 10: s$ = s$ + " ": NEXT<br/> <br/> q$(1) = «RRR U U SSS SSS I A N N III QQ „<br/> q$(2) = “R R U U S S I AAA NN N I Q Q „<br/> q$(3) = “RR U U SSS SSS I A A N NN I Q Q „<br/> q$(4) = “R R U U S S I AAA N N I Q QQ „<br/> q$(5) = “R R UUU SSS SSS I A A N N III QQ Q»<br/> <br/> FOR i = 1 TO 5: q$(i) = s$ + q$(i) + s$: NEXT: q = LEN(q$(1))<br/> <br/> FOR n = 1 TO 5: FOR i = 1 TO q — ekran: FOR j = 1 TO 5<br/> LOCATE j + 5, 5: COLOR j + i / 15: PRINT MID$(q$(j), i, ekran)<br/> LOCATE j + 15, 5: COLOR j + i / 22: PRINT MID$(q$(j), q — ekran + 1 — i, ekran)<br/> NEXT: _DELAY (.1 — ekran / 3000): NEXT: NEXT<br/> <br/> <a class="imgpreview" href="/uploads/images/05/70/34/2019/09/18/e1f864.png"><img src="/uploads/images/05/70/34/2019/09/18/8a8840.png"/></a><br/> <br/> "