' 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