/* Исправление ndpftp.dll на предмет использования * маленькой "я" при использовании кодировки 1251 */ file = 'ndpftp.dll' call charout,'Looking for 'file'... ' if stream( file, 'c', 'query exists' )= '' then say 'Failed!' else do say 'Found!' call stream file, 'c', 'open' cb = chars( file ) call charout, 'Applying fix... ' p = pos( X2C( '81FAFF00000075' ), charin( file, 1, cb )) if p > 0 then do call charout file, X2C( 'EB' ), p + 6 say 'Done!' end else do say 'Failed!' end call stream file, 'c', 'close' end