* DATE 04/27/85  08:40               
SKIP -1
STOR # TO rec1
STOR title TO title1
STOR subtit TO subtit1
STOR auth1  TO auth11
STOR year TO year1
STOR price TO price1
STOR publish TO publish1
IF *
 STOR 'Deleted' TO deleted1
ELSE
 STOR '       ' TO deleted1
ENDI
SKIP
STOR # TO rec2
STOR title TO title2
STOR subtit TO subtit2
STOR auth1 TO auth12
STOR year TO year2
STOR price TO price2
STOR publish TO publish2
IF *
 STOR 'Deleted' TO deleted2
ELSE
 STOR '       ' TO deleted2
ENDI
STOR t TO more
DO WHIL more
 ERAS
 STOR '<C>ontinue, <D>elete/Recall, <E>dit, <P>rint, <Q>uit' TO prompt
 STOR 'Possible Duplicate Records' TO mode
 STOR '?' TO command
 STOR '?' TO record
 @ 00,25 SAY mode
 @ 01,00 SAY '+--------------------'
 @ 01,20 SAY '---------------------'
 @ 01,40 SAY '---------------------'
 @ 01,60 SAY '-------------------+'
 @ 02,01 SAY 'Record #:'
 @ 03,04 SAY 'Title:'
 @ 05,01 SAY 'Subtitle:''
 @ 07,01 SAY 'Author 1:'
 @ 07,41 SAY 'Year:'
 @ 07,62 SAY 'Price:'
 @ 08,00 SAY 'Publisher:'
 @ 09,00 SAY '+--------------------'
 @ 09,20 SAY '---------------------'
 @ 09,40 SAY '---------------------'
 @ 09,60 SAY '-------------------+'
 @ 10,01 SAY 'Record #:'
 @ 11,04 SAY 'Title:'
 @ 13,01 SAY 'Subtitle:'
 @ 15,01 SAY 'Author 1:'
 @ 15,41 SAY 'Year:'
 @ 15,62 SAY 'Price:'
 @ 16,00 SAY 'Publisher:'
 @ 17,00 SAY '+--------------------'
 @ 17,20 SAY '---------------------'
 @ 17,40 SAY '---------------------'
 @ 17,60 SAY '-------------------+'
 @ 18,17 SAY prompt
 @ 01,67 SAY ' Record-A '
 @ 02,11 SAY STR(rec1,4)
 @ 02,67 SAY deleted1
 @ 03,11 SAY $(title1,1,60)
 @ 04,11 SAY $(title1,61,19)
 @ 05,11 SAY $(subtit1,1,60)
 @ 06,11 SAY $(subtit1,61,18)
 @ 07,11 SAY auth11
 @ 07,47 SAY year1
 @ 07,69 SAY price1
 @ 08,11 SAY publish1
 @ 09,67 SAY ' Record-B '
 @ 10,67 SAY deleted2
 @ 10,11 SAY STR(rec2,4)
 @ 11,11 SAY $(title2,1,60)
 @ 12,11 SAY $(title2,61,19)
 @ 13,11 SAY $(subtit2,1,60)
 @ 14,11 SAY $(subtit2,61,18)
 @ 15,11 SAY auth12
 @ 15,47 SAY year2
 @ 15,69 SAY price2
 @ 16,11 SAY publish2
 @ 20,24 SAY 'What next?'
 @ 20,35 GET command picture '!'
 READ
 IF command = 'D' .OR. command = 'E' .OR. command = 'P'
  DO WHIL .NOT. (record = 'A' .OR. record = 'B')
   @ 22,24 SAY 'Which Record ' GET record PICTURE '!'
   READ
  ENDD
 ENDI
 IF record = 'A'
  SKIP -1
 ENDI
 DO CASE
 CASE command = 'C' .OR. command = 'Q'
  STOR f to more
 CASE command = 'D'
  IF *
   RECA
  ELSE
   DELE
  ENDI
  IF record = 'A'
   IF deleted1 = 'Deleted'
    STOR '       ' TO deleted1
   ELSE
    STOR 'Deleted' TO deleted1
   ENDI
  ENDI
  IF record = 'B'
   IF deleted2 = 'Deleted'
    STOR '       ' TO deleted2
   ELSE
    STOR 'Deleted' TO deleted2
   ENDI
  ENDI
 CASE command = 'E'
  SAVE TO temp1
  RELE ALL
  REST FROM temp
  DO edit.bk
  SAVE TO temp
  RELE ALL
  REST FROM temp1
  IF record = 'A'
   STOR title TO title1
   STOR subtit TO subtit1
   STOR auth1  TO auth11
   STOR year TO year1
   STOR price TO price1
   STOR publish TO publish1
   IF *
    STOR 'Deleted' TO deleted1
   ELSE
    STOR '       ' TO deleted1
   ENDI
  ELSE
   STOR title TO title2
   STOR subtit TO subtit2
   STOR auth1 TO auth12
   STOR year TO year2
   STOR price TO price2
   STOR publish TO publish2
   IF *
    STOR 'Deleted' TO deleted
   ELSE
    STOR '       ' TO deleted
   ENDI
   STOR deleted TO deleted2
  ENDI
 CASE command = 'P'
  DO print.bk
 ENDC
 IF record = 'A'
  SKIP
 ENDI
ENDD
IF command = 'C'
 STOR t TO more
 ERAS
 @ 07,22 SAY 'Looking for duplicate records'
ENDI