XProfan

 {$cleq}
 $H C:ProfanIncludeWindows.ph

Proc unixtime

    Declare Buffer#, BufferPtr&, zeit&
    ist Struct TimeBuffer = FTimeLo&, FTimeHi&, DivLo&, DivHi&, BiasLo&, BiasHi&, ErgebnisLo&, ErgebnisHi&
    Dim Buffer#,32
    BufferPtr& = Addr(Buffer#)
    ~GetSystemTimeAsFileTime( Buffer# )
    Long Buffer#,8 = $00989680, 0, $D53E8000, $019DB1DE

    AsmStart _tounix(BufferPtr&)

        mov esi,para1
        mov eax,[esi]
        mov edx,[esi+4]
        sub eax,[esi+16]
        sbb edx,[esi+20]
        mov [esi],eax
        mov [esi+4],edx
        xor edi,edi
        or  edx,edx
        jns @tu1
        inc edi
        neg eax
        adc edx,0
        neg edx
        mov [esi],eax
        mov [esi+4],edx
        @tu1:
        mov ebx,[esi+8]
        mov esi,[esi+12]
        or  esi,esi
        jns @tu2
        inc edi
        neg ebx
        adc esi,0
        neg esi
        @tu2:
        jnz @tu3
        or  ebx,ebx
        jz  @tu8
        mov ecx,eax
        mov eax,edx
        xor edx,edx
        div ebx
        xchg eax,ecx
        div ebx
        jmp @tu6
        @tu3:
        bsr ecx,esi
        inc cl
        push ebx
        shrd ebx,esi,cl
        shrd eax,edx,cl
        shr edx,cl
        div ebx
        mov ebx,eax
        mul esi
        mov ecx,eax
        pop eax
        push esi
        mov esi,para1
        mul ebx
        add edx,ecx
        jc @tu4
        cmp edx,[esi+4]
        ja  @tu4
        jb  @tu5
        cmp eax,[esi]
        jbe @tu5
        @tu4:
        dec ebx
        @tu5:
        pop esi
        xor ecx,ecx
        mov eax,ebx
        @tu6:
        dec edi
        jnz @tu7
        neg eax
        adc ecx,0
        neg ecx
        @tu7:
        mov esi,para1
        mov [esi+24],eax
        mov [esi+28],ecx
        jmp @exit
        @tu8:
        xor eax,eax
        dec eax
        mov ecx,7fffffffh
        jmp @tu6
        @exit:

    AsmEnd (zeit&)

    Dispose Buffer#
    Return zeit&

EndProc

Cls
Print
Print unixtime()
Print Date$(5)
Print

While 1

    WaitInput

    If %Key = 2

        Break

    EndIf

    Print unixtime()
    Print Date$(5)
    Print

EndWhile

End

 $H Windows.ph
Asm "_tounix", 1// BufferPtr&
mov esi,par1
mov eax,[esi]
mov edx,[esi+4]
sub eax,[esi+16]
sbb edx,[esi+20]
mov [esi],eax
mov [esi+4],edx
xor edi,edi
or  edx,edx
jns tu1
inc edi
neg eax
adc edx,0
neg edx
mov [esi],eax
mov [esi+4],edx
tu1:
mov ebx,[esi+8]
mov esi,[esi+12]
or  esi,esi
jns tu2
inc edi
neg ebx
adc esi,0
neg esi
tu2:
jnz tu3
or  ebx,ebx
jz  tu8
mov ecx,eax
mov eax,edx
xor edx,edx
div ebx
xchg eax,ecx
div ebx
jmp tu6
tu3:
//        bsr ecx,esi
dh "0fbdce"
inc cl
push ebx
//        shrd ebx,esi,cl
dh "0fadf3"
//        shrd eax,edx,cl
dh "0fadd0"
//        shr edx,cl
dh "d3ea"
div ebx
mov ebx,eax
mul esi
mov ecx,eax
pop eax
push esi
mov esi,par1
mul ebx
add edx,ecx
jc tu4
cmp edx,[esi+4]
sí  tu4
jb  tu5
cmp eax,[esi]
jbe tu5
tu4:
dec ebx
tu5:
pop esi
xor ecx,ecx
mov eax,ebx
tu6:
dec edi
jnz tu7
neg eax
adc ecx,0
neg ecx
tu7:
mov esi,par1
mov [esi+24],eax
mov [esi+28],ecx
jmp exit
tu8:
xor eax,eax
dec eax
mov ecx, $7fffffff
jmp tu6
exit:
EndAsm

Proc unixtime

    Declarar Buffer#, BufferPtr&, zeit&
    Struct TimeBuffer = FTimeLo&, FTimeHi&, DivLo&, DivHi&, BiasLo&, BiasHi&, ErgebnisLo&, ErgebnisHi&
    Dim Buffer#,32
    BufferPtr& = Addr(Buffer#)
    ~GetSystemTimeAsFileTime( Buffer# )
    Largo Buffer#,8 = $00989680, 0, $D53E8000, $019DB1DE
    zeit& = _tounix(BufferPtr&)
    Disponer Buffer#
    Volver zeit&

ENDPROC

Cls
Imprimir
Imprimir unixtime()
Imprimir Date$(5)
Imprimir

Mientras que 1

    WaitInput

    If %Key = 2

        Romper

    EndIf

    Imprimir unixtime()
    Imprimir Date$(5)
    Imprimir

EndWhile

End

Título de la ventana "UNIXTIME para XProfan-11"
Ventana de Estilo 24:CLS $FF0000
var UxTime$="5589E58B75088B068B56042B46101b5614890689560431FF09D2790EFFC7F7D883d200F7DA89068956048B5E088B760C0"+\
"9F67909FFC7F7DB83d200F7DE751509DB745D89C189D031D2F7F387C8F7F3E9330000000fbdceFEC1530fadf30fadd0d3eaF7F389C3F7"+\
"E689C158568B7508F7E301CA720B3B5604770672063B067602FFCB5E31C989D8FFCF7507F7D883d100F7D98B7508894618894E1CE90E000000"+\
"31C0FFC8B9FFFFFF7FE9D9FFFFFF89EC5DC20400":Declarar UxTime#:Dim UxTime#,len(UxTime$)\2
:whileloop 0,Sizeof(UxTime#)-1:Byte UxTime#,&Loop=val("$"+mid$(UxTime$,2*&Loop+1,2)):EndWhile

Proc Unixtime

    Declarar Buffer#,BufferPtr&,zeit&
    Struct TimeBuffer=FTimeLo&,FTimeHi&,DivLo&,DivHi&,BiasLo&,BiasHi&,ErgebnisLo&,ErgebnisHi&
    Dim Buffer#,32:BufferPtr& = Addr(Buffer#)
    Externo("kernel32.dll","GetSystemTimeAsFileTime",Buffer#)
    Largo Buffer#,8=$00989680,0,$D53E8000,$019DB1DE
    zeit&=Call(UxTime#,BufferPtr&):Disponer Buffer#:Volver zeit&

ENDPROC

Mientras que 1

    Case %Key = 2:BREAK
    Imprimir unixtime(),Tab(26);Date$(5)
    WaitInput 1000

EndWhile

Disponer UxTime#
WaitInput 1000
End

Título de la ventana "PRÜFSUMME FÜR HEXSTRING"
Var c$="5589E58B75088B068B56042B46101b5614890689560431FF09D2790EFFC7F7D883d200F7DA89068956048B5E088B760C0"+\
"9F67909FFC7F7DB83d200F7DE751509DB745D89C189D031D2F7F387C8F7F3E9330000000fbdceFEC1530fadf30fadd0d3eaF7F389C3F7"+\
"E689C158568B7508F7E301CA720B3B5604770672063B067602FFCB5E31C989D8FFCF7507F7D883d100F7D98B7508894618894E1CE90E000000"+\
"31C0FFC8B9FFFFFF7FE9D9FFFFFF89EC5DC20400"
Declarar p$,w&,s!,l%,m%
l%=Len(c$):Casenote l%:c$="0000"
l%=Len(c$):m%=l% Mod 4

If m%=1:c$=c$+"000"

ElseIf m%=2:c$=c$+"00"

ElseIf m%=3:c$=c$+"0"

EndIf

s!=1'<<< your salt
l%=Len(c$)

WhileLoop 0,l%-4,4

    s!=s!+Val("$"+Mid$(c$,&Loop+1,4))

EndWhile

P$=Formato$("%g",s!)
ClearClip:PutClip p$'<<< debería en el Echtprogramm fuera!!!!!!!!!!!!
Imprimir "  HEXSTRING-PRÜFSUMME = ";P$

If P$="2980236":Imprimir "\n  PRÜFSUMME OK."

    Más: Imprimir "\n  *** FEHLER: PRÜFSUMME STIMMT NICHT! ***"
    Sound 1300,400:WaitInput:End

EndIf

WaitInput 1000
Beep:Imprimir "\n\n  HAUPTPROGRAMM: CALL-Befehl wäre statthaft!"
WaitInput