Directional arrows question - Programmers Heaven

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

Directional arrows question

zsolt_93zsolt_93 Posts: 9Member
How can you use the directional arrows to move the cursor?

Comments

  • AtexAtex Posts: 268Member
    : How can you use the directional arrows to move the cursor?
    :
    [code]
    [color=Blue]
    uses crt;

    var ch:char;


    begin
    clrscr;
    gotoxy(40,13); {~middle of screen}
    repeat
    ch:=readkey;
    if ord(ch)=0 then begin
    ch:=readkey;
    case ord(ch) of
    75:{left arrow}if wherex>1 then gotoxy(pred(wherex),wherey)
    else gotoxy(80,wherey);
    77:{right arrow}if wherex<80 then gotoxy(succ(wherex),wherey)
    else gotoxy(1,wherey);
    72:{up arrow}if wherey>1 then gotoxy(wherex,pred(wherey))
    else gotoxy(wherex,25);
    80:{down arrow}if wherey<25 then gotoxy(wherex,succ(wherey))
    else gotoxy(wherex,1);
    end;
    end;
    until ord(ch)=13; {Enter}
    clrscr;
    end.
    [/color]
    [/code]
  • zsolt_93zsolt_93 Posts: 9Member
    Thanks for the help

Sign In or Register to comment.