Любой объект, единственный на форме.
Событие СОЗДАНИЯ: (эквивалентно началу программы в других языках)

=============
show_message('Выберите WAD:');
file=get_open_filename("*","");
if file="" {show_message("Распаковка отменена!");game_end();exit}
if not file_exists(file) {show_message("Файл не существует!");game_end();exit}
filename=filename_change_ext(file,"");
wad=file_bin_open(file,0);
size=file_bin_size(wad)
if size<10 {show_message("Файл слишком мал!");game_restart();exit;}
b[1]=1;
b[2]=256;
b[3]=65536;
b[4]=16777216;
str_null="0000000000"
i=0;
addr=0;
volume=0;
draw_set_font(font0);
line=0;
text="Файл '"+filename+"'#Принят, размер в байтах: "+string(size)
screen_redraw(); sleep(3000);
part=0;
ar[2,2]=0;
status=0;
pusto=0
=============
Все остальные действия будут в событии шага (аналог бесконечного цикла тела программы других языков).
Событие ШАГА:

=============
if status=0
{
part+=1;
addr=0
for (n=1;n<5;n+=1){
addr+=file_bin_read_byte(wad)*b[n]}
volume=0
for (n=1;n<5;n+=1){
volume+=file_bin_read_byte(wad)*b[n]};

ar[part,1]=addr;
ar[part,2]=volume;
if volume=0 pusto+=1 else pusto=0
if (addr<=file_bin_position(wad))and(volume>0)
{show_message("Ошибка! Найдена ненулевая ссылка, указывающая на уже прошедшую область! ");game_end();exit}
text="Найдено вложенных файлов: "+string(part-pusto);
if file_bin_position(wad)+7>=ar[1,1] {part-=pusto;show_message("Поиск завершён. Найдено "+string(part)+ " суб-файлов!");status=1;exit;}
if addr+volume>size {show_message("Ошибка! Субфайл '"+string(part)+"' ссылается на область "+
string(addr)+"-"+string(addr+volume)+", что превосходит размер самого файла ("+string(size)+")!");game_end();exit;}
}
if status=1
{
text="Выбор назначения...";screen_redraw();sleep(1000);
nulls=string_length(string(part));
temp=string_copy(str_null,0,nulls-1)
show_message("Укажите папку для сохранения всех "+string(part)+
" файликов! Они будут извлечены как 'Файл_"+temp+"1,Файл_"+temp+"2' и.т.д.")
folder=get_directory_alt("Укажите выходную папку (на диске должно быть достаточно места!)","");
if folder="" {show_message("Отменено пользователем!");game_end();exit;}
if not directory_exists(folder) {show_message("Папка не существует!");exit;}
save=file_bin_open(folder+"\файл_",1);
file_bin_rewrite(save);
if not file_exists(folder+"\файл_") {show_message("Нет доступа!");exit;}
file_bin_close(save);
file_delete(folder+"\файл_");
status=2;fin=part;
part=0;exit
}
if status=2
{
part+=1;
if part>fin {show_message("Распаковка полностью завершена!");game_end();exit;}
name=folder+"\Файл_"+string_copy(str_null,0,nulls-string_length(string(part)))+string(part);
save=file_bin_open(name,1);
file_bin_rewrite(save)
addr=ar[part,1];
volume=ar[part,2];
file_bin_seek(wad,addr);
for(n=0;n<volume;n+=1){
file_bin_write_byte(save,file_bin_read_byte(wad))
}
file_bin_close(save);
text="Данные в#'"+name+"'#Извлечены!";
}
=============
Это по сути всё. Но есть ещё «интерфейс» в событии рисования (можно заложить в тело бесконечного цикла с выводом на форму в других языках).
Событие РИСОВАНИЯ:

=============
draw_text(x,y,text)
=============
И на всякий случай событие завершения программы, где я закрываю открытый файл (хотя он и так сам закроется, но всё же).
Событие GameEnd:

=============
file_bin_close(wad)
=============
Вот теперь точно всё, скажу только, что используется ресурс ШРИФТ «font0» (у меня это Arial 12 пт) и форма (комната) «room0» с нашим объектом «object0» в точке 0,0 (размер формы – 600*64, цвет фона – белый, скорость – 60 шагов в секунду)

Program CONCATENATOR;
label finish;
const name = 'CONCATENATOR.TXT';
var ar: array [1..256] of byte;
var f_in: file of byte;
var f_out: file of byte;
var f_text: text;
var st_in: string;
var st_out: string;
var st_buffer: string;
var ok: boolean;
var i: integer;
var stop: integer;
var buffer: integer;
begin
st_buffer:='256';
Assign(f_text,name);
Reset(f_text);
Readln(f_text,st_in);
Readln(f_text,st_out);
if not SeekEof(f_text) then Readln(f_text,st_buffer);
Close(f_text);
Assign(f_in,st_in);
Assign(f_out,st_out);
Reset(f_in);
Reset(f_out);
Seek(f_out,FileSize(f_out));
ok:=true;
Val(st_buffer,buffer,stop);
stop:=0;
while ok do begin
for i:=1 to buffer do begin
if Eof(f_in) then begin ok:=false; stop:=i; break; end;
Read(f_in,ar[i]);
end;
for i:=1 to buffer do begin
if i=stop then goto finish;
Write(f_out,ar[i])
end;
end;
finish:
Close(f_in);
Close(f_out);
end.