Исправленная версия одной из функций
Function TFileBank_Randomize(TFB.TFileBank)
Local N%=Ceil(TFB\ReadOk/2.0)
For i=1 To N
Local a%=Rand(1,TFB\ReadOk)
Local b%=((a+Rand(1,TFB\ReadOk-1)-1) Mod (TFB\ReadOk))
a=a-1
Local sv%=PeekInt(TFB\FilBnk,a*4)
PokeInt(TFB\FilBnk,a*4,PeekInt(TFB\FilBnk,b*4))
PokeInt(TFB\FilBnk,b*4,sv)
Next
End Function