AppTitle "Passwort Version 1.0"

Global Arial = LoadFont("Arial",25,1,0,0)
Global Passwort$ = ""



Laden()


While Not KeyDown(1)

Cls


If KeyHit(28) Then Speichern()
SetFont Arial
GK$ = GetKey()

If     GK$     Then
If Not GK = 8  Then
If Not GK = 13 Then
Passwort$ = Passwort$ + Chr$(GK$)
EndIf
EndIf
EndIf


;Hiermit kann man die geschriebenen Buchtaben löschen
If GK = 8 Then
Passwort$ = Mid(Passwort$,1,Len(Passwort$)-1)
EndIf

;die "*" werden angezeigt:
Text 20,20,String$("*",Len(Passwort$))


Flip

;Ende der Schleife
Wend

;Ende des Programms:
End

;Function Speichern:
Function Speichern()
;Speicher$ = New Speichern
Speicher$ = WriteFile("Passwort.dat")
WriteLine(Speicher$,Passwort$)
CloseFile(Speicher$)
End Function

;Function Laden:
Function Laden()
Lade$ = ReadFile("Passwort.dat")
If Not Lade$ = 0 Then
CloseFile(Lade$)
EndIf
End Function

Type TBenutzer
     field passwort$
     field username$
end type