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)