Параллельное выполнение двух кусков кода pas abc

[Kujivunia]

Паскаль ABC использую я. Консольное приложение.
Суть: нужно параллельно выполнить два куска кода. А именно:
Крутить "в фоновом режиме" бесконечный цикл с условием выхода, который зависит от переменных Х У, и в то же время иметь возможность изменять эти переменные в любой момент и останавливать фоновый цикл.
Грубо говоря, нужно, что бы это выполнялось в фоне:

repeat 
x:=x+y;
clrscr;
write(x,' ',y)
until t='q'
А это это было основной программой: 
readln(y);
read(t);

Возможно ли это вообще?
Можно конечно сделать, что бы запускались две программы, а Х и У были общими из текстового файла, но тогда как сделать так, что одна из программ запускалась в фоновом режиме?

[Plague]

Смысл в этой программе? Вы же не сможете мгновенно остановить программу. Пока нажмете кнопку, пока подумаете, потом нажмете Enter. x изменится 1000 раз.
Ну вот что то подобное написал на вашем Pascal ABC.Net.

uses crt;
var x,y,t:integer;
begin
{$omp parallel sections}
  begin
    repeat
      x:=x+y;
      clrscr();
      writeln(x,' ',y);
    until t=-1;
    begin
      repeat
        readln(y,t);
      until t=-1;
    end;
 end;
end.