Modifying the "Ball.bin" for screensaver

[trustkill]

Can someone mod the great "balls.bin" for using with seklth´s newest patch ?
I think about "long press #" for exit (no other keys).
What about my "Invert Display@Keylocked, can it work when exiting the .bin by long press # ?

Second idea: Can someone do the SSB Patch selectable ?

[Seklth]

base 0A00000h

#define doIdle 0EE1CACh
#define BFABuff 0080000h ;20h:0
#define FilesysICall 0E47FFCh
#define TurnLightIfON 0C1FBB6h

#define FileOpen 0DFA73Eh
#define FileRead 0DFABAEh
#define FileWrite 0DFB0FEh
#define FileClose 0DFC570h

;#name SSB. SSaver.Bin v1.2

'Based on *** Using midlet for Screen Saver *** (c) RizaPN
''
'Added: if file not exists/cann't read - keylocked

org 0DB02B2h
'Using this patch, it is possible to assign a:\zbin\ssaver.bin
'run automatically after some times using auto keylock mode.
calls _ssaver

org 0DAD2B8h
'If you want to use this also for long pressing of button '#'
'(usually for keylock), use this data
calls _ssaver


org 0EF3700h
_ssaver:
mov r12, #sof(_ssaver_load)
mov r13, #seg(_ssaver_load)
calls FilesysICall
rets

;================================================= =
_ssaver_load:
; main.c 122 f=FileOpen(ssaver_bin,_O_RDONLY,0);
MOV R12,#pof(_ssaver_bin)
MOV R13,#pag(_ssaver_bin)
MOV R14,#00h
MOV R15,#00h
CALLS FileOpen
MOV R8,R4
; main.c 123 if (f!=-1)
CMP R8,#0FFFFh
JMPA cc_EQ,_not_load
; main.c 136 FileRead(f,BFABuff,0x4000);
MOV R12,R8
MOV R13,#pof(BFABuff)
MOV R14,#pag(BFABuff)
MOV R15,#04000h
CALLS FileRead
; main.c 157 FileClose(f);
MOV R12,R8
CALLS FileClose
calls TurnLightIfON
calls BFABuff
rets
_not_load:
;SetKeyLocked
bset DDP0.2
calls 0C1FBFAh
calls doIdle
rets
_ssaver_bin:
db 'a:\zbin\ssaver.bin',0

[Seklth]

http://patch.oslik.ru/SL45_RU/patches/zbin/ssaver.bin