;Variables
Global PW$
Global CPrinttext$
Text_an = False
Text_Zeit = MilliSecs()
;Functions

;Password retrieval
Write ""
Repeat
 Cls
 Color 255,0,0
   If MilliSecs()-500>Text_Zeit
      Text_an=1-Text_an
      Text_Zeit = MilliSecs()
   EndIf
   If Text_an Then Text 0,0,"Password needed!",0,0
Flip
PW = Input()
If PW >< "1" Then
 Color 255,0,0
 Print "Error:Access denied!"
Else
 Color 255,255,255
 Print "Password confirmed."
 Delay(2000)
 Color 0,255,0
 Print "Password correctly."
 Print "Access allowed."
EndIf
WaitKey
Until PW = "1"
End