Repeat
Cls

If ImagesCollide(encrypt,0,200,0,cursor,MouseX(),MouseY(),0) Then mouseonpicenc=True Else mouseonpicenc=False
If ImagesCollide(decrypt,320-128,200,0,cursor,MouseX(),MouseY(),0) Then mouseonpicdec=True Else mouseonpicdec=False


Text 0,0,dateipfad$

If mouseonpicenc=True Then DrawImage encrypt_mark,0,200-32 Else DrawImage encrypt,0,200-32
If mouseonpicdec=True Then DrawImage decrypt_mark,320-128,200-32 Else DrawImage decrypt,320-128,200-32

DrawImage cursor,MouseX(),MouseY()

Flip
If (mouseonpicenc=True) And (MouseHit(1)) Then encrypt(dateipfad$,key):End
If (mouseonpicdec=True) And (MouseHit(1)) Then decrypt(dateipfad$,key):End
Until KeyHit(1)
EndGraphics
End