11 lines
173 B
Text
11 lines
173 B
Text
' FB 1.05.0 Win64
|
|
|
|
Dim s As String
|
|
Dim i AS Integer
|
|
Input "Please enter a string : "; s
|
|
Do
|
|
Input "Please enter 75000 : "; i
|
|
Loop Until i = 75000
|
|
Print
|
|
Print s, i
|
|
Sleep
|