Procedure.s Hex8(Wert.q)
	ProcedureReturn Left("0000000", 8-Len(Hex(Wert))) + Hex(Wert)
EndProcedure

Procedure.s Rechne(Zahl.s)
	Protected Wert.q = Val(Zahl)
	ProcedureReturn "1D " + Hex8(Wert) + " " + Str(10 - Wert % 10)
EndProcedure

If OpenWindow(0, 0, 0, 200, 70, "RFID Nummer", #PB_Window_MinimizeGadget | #PB_Window_ScreenCentered)
	TextGadget(0, 10, 12, 100, 20, "Nummer auf Karte:")
	StringGadget(1, 100, 10, 90, 20, "")
	TextGadget(2, 10, 42, 100, 20, "berechnet:")
	StringGadget(3, 100, 40, 90, 20, "", #PB_String_ReadOnly)
	
	main_quit.l = #False
	Repeat
		Select WaitWindowEvent()
			Case #PB_Event_CloseWindow
				main_quit = #True
			Case #PB_Event_Gadget
				If EventGadget() = 1
					If EventType() = #PB_EventType_LostFocus
						SetGadgetText(3, Rechne(GetGadgetText(1)))						
					EndIf
				EndIf
		EndSelect
	Until main_quit
EndIf
End