17 lines
205 B
Text
17 lines
205 B
Text
|
' FB 1.05.0 Win64
|
||
|
|
|
||
|
|
Dim i As Integer
|
||
|
|
Randomize
|
||
|
|
Do
|
||
|
|
i = Int(Rnd * 20)
|
||
|
|
Print Using "##"; i;
|
||
|
|
Print " ";
|
||
|
|
If i = 10 Then Exit Do
|
||
|
|
i = Int(Rnd * 20)
|
||
|
|
Print Using "##"; i;
|
||
|
|
Print" ";
|
||
|
|
Loop
|
||
|
|
|
||
|
|
Print
|
||
|
|
Sleep
|