RosettaCodeData/Task/Interactive-programming/FreeBASIC/interactive-programming.fre...

9 lines
168 B
Plaintext

' FB 1.05.0 Win64
Dim As String s1, s2, sep
Input "First string "; s1
Input "Second string "; s2
Input "Separator "; sep
Print : Print s1 + sep + sep + s2
Sleep