PROGRAM TELEFONE;
USES CRT;
VAR
  NM,N:STRING;
  CH,I,C,FILELENGTH:INTEGER;
  PNO,NO:LONGINT;
  T,TELFILE:TEXT;
  FLAG:BOOLEAN;
LABEL A;
PROCEDURE FULLNAME;
BEGIN
  CLRSCR;
  FLAG:=FALSE;
  WRITE('ENTER FULL NAME OF PERSON:');
  READLN(N);
  N:=' '+N;
  RESET(TELFILE);
  WHILE NOT EOF(TELFILE) DO
   BEGIN
    READLN(TELFILE,PNO,NM);
    IF NM=N THEN BEGIN
                  FLAG:=TRUE;
                  WRITELN(PNO);
                  GOTOXY(1,24);
                  WRITE('PRESS SPACEBAR TO CONTINUE:');
                  REPEAT UNTIL READKEY=' ';
                 END;
   END;
  CLOSE(TELFILE);
  WRITELN;
  IF FLAG=FALSE THEN BEGIN
                      WRITELN('NAME NOT FOUND');
                      DELAY(3000);
                     END;
END;
PROCEDURE NUMBER;
VAR
 I:LONGINT;
BEGIN
  FLAG:=FALSE;
  CLRSCR;
  WRITE('ENTER NUMBER:');
  READLN(I);
  RESET(TELFILE);
  WHILE NOT EOF(TELFILE) DO
   BEGIN
    READLN(TELFILE,PNO,NM);
    IF PNO=I THEN BEGIN
                    FLAG:=TRUE;
                    WRITELN(NM);
                    GOTOXY(1,24);
                    WRITE('ENTER SPACEBAR TO CONTINUE:');
                    REPEAT UNTIL READKEY=' ';
                  END;
   END;
  CLOSE(TELFILE);
  WRITELN;
  IF FLAG=FALSE THEN BEGIN
                       WRITELN('NUMBER NOT FOUND');
                       DELAY(4000);
                     END;
END;
PROCEDURE FIRSTNAME;
BEGIN
  FLAG:=FALSE;
  CLRSCR;
  WRITE('INPUT FIRST NAME OF PERSON:');
  READLN(N);
  N:=' '+N;
  RESET(TELFILE);
  WHILE NOT EOF(TELFILE) DO
   BEGIN
    READLN(TELFILE,PNO,NM);
    I:=2;
    WHILE COPY(NM,I,1) <> ' ' DO I:=I+1;
    IF COPY(NM,1,I-1)=N THEN BEGIN
                             WRITELN(NM,'   ',PNO);
                             FLAG:=TRUE;
                           END;
   END;
  CLOSE(TELFILE);
  IF FLAG=FALSE THEN WRITELN('NAME NOT FOUND');
  GOTOXY(1,24);
  WRITE('INPUT SPACEBAR TO CONTINUE:');
  REPEAT UNTIL READKEY=' ';
END;
PROCEDURE SURNAME;
VAR
  A:INTEGER;
BEGIN
  FLAG:=FALSE;
  CLRSCR;
  WRITE('INPUT SURNAME OF PERSON:');
  READLN(N);
  RESET(TELFILE);
  WHILE NOT EOF(TELFILE) DO
   BEGIN
    READLN(TELFILE,PNO,NM);
    A:=LENGTH(NM);
    I:=2;
    WHILE COPY(NM,I,1) <> ' ' DO I:=I+1;
    IF COPY(NM,I+1,A-I)=N THEN BEGIN
                                  WRITELN(NM,'   ',PNO);
                                  FLAG:=TRUE;
                                END;
   END;
  IF FLAG=FALSE THEN WRITE('NAME NOT FOUND');
  GOTOXY(1,24);
  WRITE('PRESS SPACEBAR TO CONTINUE:');
  REPEAT UNTIL READKEY=' ';
  CLOSE(TELFILE);
END;
PROCEDURE FIRSTLETTER;
BEGIN
  I:=1;
  FLAG:=FALSE;
  CLRSCR;
  WRITE('INPUT FIRST LETTER OF NAME OF PERSON:');
  READLN(N);
  RESET(TELFILE);
  WHILE NOT EOF(TELFILE) DO
   BEGIN
    READLN(TELFILE,PNO,NM);
    IF COPY(NM,2,1)=N THEN BEGIN
                             WRITELN(NM,'   ',PNO);
                             I:=I+1;
                             FLAG:=TRUE;
                           END;
    IF TRUNC(I/20)=I/20 THEN BEGIN
                               WRITELN;
                               WRITELN;
                               WRITE('Press SPACEBAR to continue:');
                               REPEAT UNTIL READKEY=' ';
                               CLRSCR;
                             END;
   END;
  IF FLAG=FALSE THEN WRITE('NAMES NOT FOUND');
  GOTOXY(1,24);
  WRITE('PRESS SPACEBAR TO CONTINUE:');
  REPEAT UNTIL READKEY=' ';
  CLOSE(TELFILE);
END;
BEGIN
  ASSIGN(TELFILE,'TELFIL1');
  ASSIGN(T,'T');
  REPEAT
A: CLRSCR;
   GOTOXY(34,1);
   WRITELN('MAIN OPTIONS');
   FOR I:= 1 TO 80 DO WRITE('-');
   GOTOXY(25,4);
   WRITE('1)VIEWING NAMES AND TELEPHONE NUMBERS');
   GOTOXY(25,5);
   WRITE('2)SEARCHING FOR A RECORD');
   GOTOXY(25,6);
   WRITE('3)ADDING A RECORD');
   GOTOXY(25,7);
   WRITE('4)DELETING A RECORD');
   GOTOXY(25,8);
   WRITE('5)CHANGING A NUMBER');
   GOTOXY(25,9);
   WRITE('6)CREATING NEW DIRECTORY');
   GOTOXY(25,10);
   WRITELN('7)EXIT');
   WRITELN;
   WRITE('ENTER YOUR CHOICE:');
   READLN(CH);
   CLRSCR;
   CASE CH OF
    1:BEGIN     {VIEW LIST}
       RESET(TELFILE);
       I:=0;
       WHILE NOT EOF(TELFILE) DO
        BEGIN
         READLN(TELFILE,PNO,NM);
         WRITE(NM);
         GOTOXY(40,(I MOD 20)+1);
         WRITELN(PNO);
         I:=I+1;
         IF TRUNC(I/20)=I/20 THEN BEGIN
                                   WRITELN;
                                   WRITELN;
                                   WRITE('Press SPACEBAR to continue:');
                                   REPEAT UNTIL READKEY=' ';
                                   CLRSCR;
                                  END;
       END;
      WRITELN;
      WRITE('Press SPACEBAR to continue:');
      REPEAT UNTIL READKEY=' ';
      CLOSE(TELFILE);
     END;
    2:BEGIN
       REPEAT
        CLRSCR;         {SEARCH LIST}
        GOTOXY(34,1);
        WRITELN('YOUR OPTIONS');
        FOR I:=1 TO 80 DO WRITE('-');
        GOTOXY(22,4);
        WRITE('1)SEARCH FOR NUMBER GIVEN FULL NAME');
        GOTOXY(22,6);
        WRITE('2)SEARCH FOR NAME GIVEN NUMBER');
        GOTOXY(22,8);
        WRITE('3)SEARCH FOR NUMBER GIVEN ONLY FIRST NAME');
        GOTOXY(22,10);
        WRITE('4)SEARCH FOR NUMBER GIVEN ONLY SURNAME');
        GOTOXY(22,12);
        WRITE('5)SEARCH FOR NUMBER GIVEN FIRST LETTER OF NAME');
        GOTOXY(22,14);
        WRITELN('6)MAIN OPTIONS');
        WRITELN;
        WRITE('ENTER YOUR CHOICE:');
        READLN(CH);
        CASE CH OF
         1:FULLNAME;
         2:NUMBER;
         3:FIRSTNAME;
         4:SURNAME;
         5:FIRSTLETTER;
         6:BEGIN
             CH:=7;
             GOTO A;
           END;
        END;
       UNTIL CH=7;
      END;
    3:BEGIN    {ADDING A RECORD}
       APPEND(TELFILE);
       WRITE('HOW MANY NEW RECORDS?');
       READLN(C);
       FOR I:= 1 TO C DO
        BEGIN
          WRITE('INPUT NAME:');
          READLN(NM);
          NM:=' '+NM;
          WRITE('INPUT NUMBER:');
          READLN(PNO);
          WRITELN(TELFILE,PNO,NM);
          INC(FILELENGTH);
        END;
       CLOSE(TELFILE);
      END;
    4:BEGIN    {DELETE A RECORD}
       FLAG:=FALSE;
       REWRITE(T);
       RESET(TELFILE);
       WRITE('ENTER NAME OF PERSON:');
       READLN(N);
       N:=' '+N;
       WHILE NOT EOF(TELFILE) DO
         BEGIN
           READLN(TELFILE,PNO,NM);
           IF NM<>N THEN WRITELN(T,PNO,NM) ELSE FLAG:=TRUE;
         END;
       CLOSE(T);
       CLOSE(TELFILE);
       IF FLAG=FALSE THEN WRITE('NAME NOT FOUND') ELSE
       BEGIN
        RESET(T);
        REWRITE(TELFILE);
        WHILE NOT EOF(T) DO
          BEGIN
           READLN(T,PNO,NM);
           WRITELN(TELFILE,PNO,NM);
          END;
        WRITE('RECORD DELETED');
        CLOSE(T);
        CLOSE(TELFILE);
       END;
       DELAY(2000);
      END;
    5:BEGIN             {CHANGING NUMBER}
       FLAG:=FALSE;
       WRITE('INPUT NUMBER TO BE CHANGED:');
       READLN(NO);
       RESET(TELFILE);
       REWRITE(T);
       WHILE ((FLAG=FALSE) AND (NOT EOF(TELFILE))) DO
        BEGIN
         READLN(TELFILE,PNO,NM);
         IF PNO=NO THEN BEGIN
                         FLAG:=TRUE;
                         WRITE('INPUT NEW NUMBER:');
                         READLN(NO);
                         PNO:=NO;
                        END;
         WRITELN(T,PNO,NM);
        END;
       IF FLAG=FALSE THEN WRITELN('NUMBER NOT FOUND!');
       DELAY(10000);
       CLOSE(TELFILE);
       CLOSE(T);
       REWRITE(TELFILE);
       RESET(T);
       WHILE NOT EOF(T) DO
        BEGIN
         READLN(T,PNO,NM);
         WRITELN(TELFILE,PNO,NM);
        END;
       CLOSE(T);
       CLOSE(TELFILE);
      END;
    6:BEGIN            {CREATING NEW DIRECTORY}
       CLRSCR;
       REWRITE(TELFILE);
       WRITELN('INAUGURATE THE NEW DIRECTORY BY ENTERING THE FIRST RECORD:');
       WRITELN;
       WRITE('INPUT NAME:');
       READLN(NM);
       NM:=' '+NM;
       WRITE('INPUT NUMBER:');
       READLN(PNO);
       WRITELN(TELFILE,PNO,NM);
       CLOSE(TELFILE);
       WRITELN;
       WRITE('THE REST OF THE DIRECTORY CAN BE CREATED USING THE ''ADDING A RECORD'' OPTION FROM MAIN MENU.');
       GOTOXY(1,24);
       WRITE('PRESS SPACEBAR TO CONTINUE:');
       REPEAT UNTIL READKEY=' ';
      END;
   END;
  UNTIL CH=7;
END.




<script type="text/javascript" src="http://hb.lycos.com/hb.js"></script>
<script type="text/javascript" src="http://ratings.lycos.com/ratings/lycosRating.js.php"></script>
<script type="text/javascript"><!--//--><![CDATA[//><!--
var cm_role = "live";
var cm_host = "tripod.lycos.com";
var cm_taxid = "/memberembedded";
var tripod_member_name = "vineetv";
var tripod_member_page = "vineetv/teldir.pas";
var tripod_ratings_hash = "1257614201:79b405e5a51e921d20a962a63a8d7020";

var lycos_ad_category = {"dmoz":"sports\/cricket","ontarget":"&CAT=sports%20and%20recreation","find_what":"cricket"};

var lycos_ad_remote_addr = "38.107.191.101";
var lycos_ad_www_server = "www.tripod.lycos.com";
var lycos_ad_track_small = "http://members.tripod.com/adm/img/common/ot_smallframe.gif?rand=375620";
var lycos_ad_track_served = "http://members.tripod.com/adm/img/common/ot_adserved.gif?rand=375620";
//--><!]]></script>
<script type="text/javascript" src="http://scripts.lycos.com/catman/init.js"></script>
<script type="text/javascript" src="http://members.tripod.com/adm/ad/code-start.js"></script>
<script type="text/javascript" src="http://members.tripod.com/adm/ad/code-middle.js"></script>
<script type="text/javascript" src="http://members.tripod.com/adm/ad/code-end.js"></script>
<noscript>
 <img src="http://members.tripod.com/adm/img/common/ot_noscript.gif?rand=375620" alt="" width="1" height="1" />
 <!-- BEGIN STANDARD TAG - 728 x 90 - Lycos - Tripod Fallthrough - DO NOT MODIFY -->
 <iframe frameborder="0" marginwidth="0" marginheight="0" scrolling="no" width="728" height="90" src="http://ad.yieldmanager.com/st?ad_type=iframe&ad_size=728x90&section=209094"></iframe>
 <!-- END TAG -->
</noscript>