Список проголосовавших за комментарий "qbasic qb64 бегущая строка running string c# dos <br/> <br/> ' strunqb64.bas<br/> ' running strings from ost to west and from left to right<br/> ' plus width of screen include in velocity<br/> <br/> ost$ = «Russian Export Orientirovannoe Importo Zameschenie»<br/> west$ = «Russian Export Oriented Replace of Import»<br/> ekran = 66: s$ = " ": FOR i = 1 TO ekran + 10: s$ = s$ + " ": NEXT<br/> <br/> ost$ = s$ + ost$ + s$: west$ = s$ + west$ + s$<br/> ost = LEN(ost$): west = LEN(west$)<br/> <br/> FOR i = 1 TO west — ekran<br/> LOCATE 2, 1: PRINT MID$(ost$, i, ekran)<br/> LOCATE 5, 1: PRINT MID$(west$, west — ekran + 1 — i, ekran)<br/> _DELAY (.1 — ekran / 1000)<br/> ' FOR j = 1 TO 10 ^ 7 — ekran ^ (1.5) * 1 * 10 ^ 4: NEXT<br/> NEXT"