ml> that's a zero, not an eight... that zero is the null character and must
ml> 

Ok. Thanks for sharing that.

When I do this:

--snip----

Procedure position;

Begin
  Repeat
    ch1 := #00;
    ch2 := #00;
    if keypressed then
      begin
        printf('onen.ans');
        ch1 := readkey;
        case ch1 of
          #00 : begin
                  if keypressed then
                    begin
                      ch2 := readkey;
                      case ch2 of
                        #80 : printf('onen.ans');
                        #72 : printf('oney.ans');
                      end; {case ch2}
                    end; {if keypressed}
                end; {begin ch1 = #00}
        else
        end; {case ch1}
      end; {if keypressed}
  until ch1=#13;
end;
--snip----

It works. But, when I do this:

--snip---
Procedure position;

Begin
  Repeat
    ch1 := #00;
    ch2 := #00;
    if keypressed then
      begin
        printf('onen.ans');
        ch1 := readkey;
        case ch1 of
          #00 : begin
                  if keypressed then
                    begin
                      ch2 := readkey;
                      case ch2 of
                        #80 : bot_bar;
                        #72 : top_bar;
                      end; {case ch2}
                    end; {if keypressed}
                end; {begin ch1 = #00}
        else
        end; {case ch1}
      end; {if keypressed}
  until ch1=#13;
end;
--snip---

It doesn't work. Same old problem with having to press the down arrow key
twice.

Any ideas?

Thanks,


|09ignatius |07(|15cia|07)

--- DayDream BBS/UNIX (Linux) 2.15a
 * Origin: catch22bbs.com >>>  >> > (1:340/800)