06-17-2022, 07:04 AM
If commas are needed, use something like this:
Locate 10, 1: b$ = "": Print "Your texte here, (with comma also) : ";
Text: GoSub saiscar: If z$ <> Chr$(13) Then Print z$;: b$ = b$ + z$: GoTo Text
Print: Print: Color 0, 7: Print b$: Color 7, 0
Sleep: End
saiscar: z$ = InKey$: If z$ <> "" Then GoTo saiscar
Sais1: z$ = InKey$: If z$ = "" Then GoTo Sais1
Return
Locate 10, 1: b$ = "": Print "Your texte here, (with comma also) : ";
Text: GoSub saiscar: If z$ <> Chr$(13) Then Print z$;: b$ = b$ + z$: GoTo Text
Print: Print: Color 0, 7: Print b$: Color 7, 0
Sleep: End
saiscar: z$ = InKey$: If z$ <> "" Then GoTo saiscar
Sais1: z$ = InKey$: If z$ = "" Then GoTo Sais1
Return
Why not yes ?