PureBoard

mestnyi hat geschrieben: 24.11.2022 06:51

Code: Alles auswählen

If *widget = #Null
  Select Position
    Case #PB_List_First : *widget = *this\_parent( )\first\widget
    Case #PB_List_Before : *widget = *this\before\widget
    Case #PB_List_After : *widget = *this\after\widget
    Case #PB_List_Last : *widget = *this\_parent( )\last\widget
  EndSelect
EndIf


If *widget = #Null
  Select Position
    Case #PB_List_First  : *widget = *this\_parent( )\first\widget
    Case #PB_List_Before : *widget = *this\before\widget
    Case #PB_List_After  : *widget = *this\after\widget
    Case #PB_List_Last   : *widget = *this\_parent( )\last\widget
  EndSelect
EndIf

a$ = "UwBlAGgAcgAgAGkAbgB0AGUAcgBlAHMAcwBhAG4AdAAhAAoAVwBvAGwAbAB0AGUAcwB0ACAARAB1ACAAbQBpAHIAIABkAGEAbQBpAHQAIABlAHYAdABsAC4AIABpAHIAZwBlAG4AZAB3AGEAcwAgAHMAYQBnAGUAbgA/AAAA"
OpenConsole()
b$ = Space(200)
Base64Decoder(a$, @b$, 200)
PrintN(b$)
Input()