TM> write('What do you want to know? : ');  
   TM>   str :=input(60,50,3,'');  
   TM>   ok :=pos('island',str) <> 0;  
   TM>   if ok then num := 11;  
    
  First you should do the "search" case insesitive. Make "str" uppercase and  
  then search for the word "ISLAND". So, if the user enters Island or island,  
  or ISLAND it will find it.  
    
  Instead of <> use not... like this:  ok := Not (pos('island',str) = 0);  
    
  |08\\|15x|08/  
    
  --- Mystic BBS v1.12 A31 (Windows)  
   * Origin: Agency BBS | telnet://agency.bbs.geek.nz (3:770/100)