Terminal control/Restricted width positional input/With wrapping: Difference between revisions
Terminal control/Restricted width positional input/With wrapping (view source)
Revision as of 22:15, 17 May 2022
, 2 years agoTerminal control/Restricted width positional input/With wrapping in FreeBASIC
m (→{{header|Phix}}: syntax coloured, marked p2js incompatible) |
(Terminal control/Restricted width positional input/With wrapping in FreeBASIC) |
||
Line 41:
;; call the routine
(field-input-with-wrapping 2 4 8)</lang>
=={{header|FreeBASIC}}==
<lang freebasic>Function getInput(fila As Integer, columna As Integer, ancho As Integer) As String
Locate fila, columna, 0
Dim As String KBD, cadena = ""
Dim As Integer ini
Do
Do: KBD = Inkey: Loop Until KBD <> ""
If KBD = Chr(8) Then 'backspace
cadena = Left(cadena, Len(cadena) - 1)
Print !"\b ";
Else
cadena &= KBD
End If
ini = Iif(Len(cadena) > ancho, Len(cadena) - ancho + 1, 1)
Locate fila, columna : Print Mid(cadena, ini, ancho);
Loop Until KBD = Chr(13)
Return cadena
End Function
Dim As String s = getInput(3, 5, 8)
Locate 23,1 : Print "You entered: "; s
Sleep</lang>
=={{header|Go}}==
|