uses crt;
const x=30;
var zah,wibor:integer;
procedure showtext;
begin
gotoxy(35,10);
write('test1');
gotoxy(35,11);
write('test2');
gotoxy(35,12);
write('test3');
gotoxy(35,13);
write('test4');
gotoxy(35,14);
write('test5');
gotoxy(35,15);
write('test6');
end;
procedure wib;
var posiz:integer;
stop:boolean;
s:integer;
procedure showkursor;
begin
gotoxy(x,s); write(' ');
gotoxy(x,posiz); write('===>');
s:=posiz;
end;
begin
posiz:=16;
repeat
if keypressed then begin
case readkey of
#72:if posiz>10 then begin posiz:=posiz-1; showkursor; end;
#80:if posiz<15 then begin posiz:=posiz+1; showkursor; end;
#27:stop:=true;
end;
end;
until stop=True;
end;
begin
clrscr;
showtext;
wib;
end.
Он компилируется бес проблем на ТМТ паскале.. но при попытки откомпилировать его же на turbo pascale 7.0 он ведёт себя странно, сразу же после запуска вылетает. Я так думаю что чтото с переменными :/ Ткните пожалуйста носом что я сделал не правильно.