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,   
      
      
   |09ignatius |07(|15cia|07)   
      
   --- DayDream BBS/UNIX (Linux) 2.15a   
    * Origin: catch22bbs.com >>>  >> > (1:340/800)