16 lines
205 B
Text
16 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
|