Graphics 800,600,16,2

a=LoadFont (Arial,14)
SetFont(a)

folder$= "C:\"


scrolled%=0
zeilen%=0


Dim Textarray$(999)
For i=0 To 999
Next

.s
scrolled=1


myDir=ReadDir(folder$)




While Not KeyHit (1)


file$=NextFile$(myDir)

If file$="" Then Exit

If FileType(folder$+"\"+file$) = 2
If Not file$ = ".."
If Not file$ = "."
x=x+1
Textarray(x)=file$
EndIf
EndIf
EndIf


;If FileType(folder$+"\"+file$) = 1 Then
;Print "File:" + file$
;EndIf
Wend



While Not KeyHit(28)
Cls
zeilen=0   ;Die gemalten Zeilen wieder auf 0 setzen.
   

Select MouseZSpeed ()
Case -1
scrolled=scrolled-1
Case 0
Case 1
scrolled=scrolled+1
End Select


If scrolled<1 Then scrolled = 1

   maxscroll=scrolled*53   ;Bis zum Bildschirmrand
   While maxscroll>999
      maxscroll=maxscroll-1   ;Darauf achten, dass man nicht aus dem Array gelangt!
   Wend
   For i=scrolled To maxscroll
      zeilen=zeilen+1      ;Gemalter Zeilenwert.
      Text 0,zeilen*12,Textarray(i)   ;Malen
   Next
   Text 400,0,scrolled






Flip
Wend

While Not KeyHit(1)

Cls
nexxt$=Input ("")
Flip

folder$=folder$+"\"+nexxt$
;If folder$= 0 Then End
Goto s
Wend







WaitKey


CloseDir myDir
End

pw$=pw$+Chr(GetKey())

Graphics 800,600,16,2

nexxt$

While Not KeyHit(1)


Text 0,0, nexxt$

If GetKey <> 0
nexxt$=nexxt$+Chr(GetKey())
EndIf



Flip


Wend

SetBuffer BackBuffer()

Graphics 800,600,32,2

nexxt$=""

While Not KeyHit(1)
   Text 0,0, nexxt$
   gkey=GetKey()
   If gkey <> 0
   nexxt$=nexxt$+Chr(gkey)
   EndIf
   Flip
   Cls
Wend

   If KeyHit(18)
      lenghtnexxt=Len(nexxt$)-1
            nexxt$= Left(nexxt$,lenghtnexxt)
   EndIf

If KeyHit(14) Then
   txt$=Left(txt$,Len(txt$)-1)
EndIf