home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG027.ARC / EDIT.INC < prev    next >
Text File  |  1979-12-31  |  1KB  |  62 lines
  1.  
  2. PROCEDURE check_ear(VAR ear1 : str5; ear2 : str5);
  3.  
  4. CONST
  5.   Term : CharSet  =  [^Z,#27];
  6.  
  7. VAR
  8.   ptr  : INTEGER;
  9.   tc   : CHAR;
  10. BEGIN
  11.   IF ear1 <> '@@@@@'
  12.     THEN
  13.       REPEAT
  14.         find_ear(ptr,ear1);
  15.         IF found
  16.           THEN
  17.             BEGIN
  18.               GotoXY(10,9);
  19.               LowVideo;
  20.               Write(' D U P L I C A T E    Ear number ');
  21.               NormVideo;
  22.               GotoXY(23,4);
  23.               Write('_____');
  24.               Ear1 := '';
  25.               InputStr(Ear1,5,22,3,term,tc);
  26.               Ear1 := UpcaseStr(Ear1);
  27.               Fillup(Ear1);
  28.             END;
  29.       UNTIL (ear2 = ear1) OR (NOT found) OR (TC = ^Z);
  30.   GotoXY(10,9);
  31.   ClrEOL;
  32. END;
  33.  
  34. PROCEDURE edit( Animal : Animal_rec);
  35.  
  36. VAR 
  37.   ch  : CHAR;
  38.   no  : INTEGER;
  39.   ear : str5;
  40. BEGIN
  41.   dis(1,2,'                            E D I T         M E N U      ');
  42.   DisDate;
  43.   dis(1,17,'                                  | ^Z = ABORT      | <ESC> = FINISHED    |');
  44.   ClrEOL;
  45.   no  := Animal.rec_no;
  46.   ear := Animal.ear_no;
  47.   inputAnimal(Animal,ch);
  48.   dis(1,2,' ');
  49.   IF ch <> ^Z
  50.     THEN
  51.       IF (Animal.ear_no <> ear)
  52.         THEN
  53.           check_ear(Animal.ear_no,ear);
  54.   IF ch = #27
  55.     THEN
  56.       BEGIN
  57.         seek(infile,no);
  58.         Write(infile,Animal);
  59.         update_Animal_Table(Animal);
  60.       END;
  61. END;
  62.