/* REXX */
if Open(in,"Work:Kick/Kick2.0",read) then do
call Seek(in,512*1024)
b = ReadCh(in,512)
if (~eof(in)) then
if Open(out,"Work:Kick/bonus.bin",write) then do
do while (~eof(in))
call WriteCh out,b
b = ReadCh(in,512)
end
call Close(out)
end
call Close(in)
end
|