'©2006 by ytwinky, MD
'Screen 20
Declare Sub TextBox(byVal a As Integer, byVal b As Integer, byVal b As Integer, byVal d As Integer, byVal e As String="", byVal f As Integer=1)
Var i=0
Width 100, 40
TextBox(1, 1, 72, 28, "Datei laden", 2)
TextBox(2, 3, 3, 25, "Lw")
TextBox(7, 3, 30, 25, "Verzeichnisse")
TextBox(41, 3, 30, 25, "Dateien")
Locate 4, 39
Print !"\024"
Locate 28, 39
Print !"\025"
Locate 4, 73
Print !"\024"
Locate 28, 73
Print !"\025"
Locate 6, 3
Print "012"
Locate 8, 8
Print "012345678901234567890123456789"
Locate 8, 42
Print "012345678901234567890123456789"
GetKey
End

Sub TextBox(byVal links As Integer, _
            byVal oben As Integer, _
            byVal breit As Integer, _
            byVal hoch As Integer, _
            byVal Titel As String="", _
            byVal Art As Integer=1)
  Static As Integer aChar(1 To 2, 1 To 6) => {{218, 191, 196, 192, 217, 179}, {201, 187, 205, 200, 188, 186}}
  Static As Integer linksoben=1, rechtsoben=2, linksrechts=3, linksunten=4, rechtsunten=5, obenunten=6
  Dim i As Integer, s As String=String(breit, Chr(aChar(Art, linksrechts)))
  If Art<1 Or Art>2 Then Art=1
  Locate oben, links
  If s<>"" Then
    i=(breit-Len(Titel))\2
    s=String(i, Chr(aChar(Art, linksrechts))) &Titel &String(breit-Len(Titel)-i, aChar(Art, linksrechts))
  End If
  Print Chr(aChar(Art, linksoben)) &s &Chr(aChar(Art, rechtsoben))
  For i=1 To hoch
    Locate , links
    Print Chr(aChar(Art, obenunten)) &String(breit, 32) &Chr(aChar(Art, obenunten))
  Next
  Locate , links
  Print Chr(aChar(Art, linksunten)) &String(breit, aChar(Art, linksrechts)) &Chr(aChar(Art, rechtsunten))
End Sub