ml> remember to keep it simple and straightforward...  
  ml>  
    
  I think I know the problem.  
    
    
  --snip---  
    
  Procedure position;  
    
  Begin  
    show;  
    Repeat  
    printf('onen.ans');  
    ch1:=ReadKey;  
        case ch1 of  
        #0 : begin  
          begin  
               ch1:=ReadKey;  
               case ch1 of  
               #80 : bot_bar;  
               #72 : top_bar;  
               end;  
             end;  
        end;  
    until ch1=#13  
  end;  
  --snip----  
    
  See the "#8 : begin" ? I don't think that's right. Any idea what I change it  
  to?  
    
  Thanks,  
    
    
  ignatius (cia)  
    
  --- DayDream BBS/UNIX (Linux) 2.15a  
   * Origin: catch22bbs.com >>>  >> > (1:340/800)