ekr1.BAS

{* Заполнение экрана символами *}

REM basic

' Заполнение экрана символами



SCREEN 0{экран в символах
}CLS
RANDOMIZE TIMER
WIDTH 40
11 x$ = CHR$(INT(1 + (RND * 255)))
a = 0
{c = 9 + INT(RND * 7)
}Do
{If a > INT(800 + RND * 701) Then c = 0
}If a > 8000 Then 11
c = 0 + INT(RND * 15)
LOCATE 1 + INT(RND * 22), 1 + INT(RND * 40)
COLOR c: PRINT x${CHR$(INT(20 + (RND * 154))) {x$
}
}For t = 1 To 200: Next t
a = a + 1
Loop