home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / propmgr2.zip / DUPREC.ACG < prev    next >
Text File  |  1986-09-03  |  3KB  |  149 lines

  1. * DATE 12/24/83  19:45
  2. * duprec.cmd
  3. SKIP -1
  4. STOR lastname TO lastname1
  5. STOR fname TO fname1
  6. STOR company1 TO company11
  7. STOR address TO address1
  8. STOR phone TO phone1
  9. STOR ophone TO ophone1
  10. STOR update TO update1
  11. IF *
  12.  STOR 'Deleted' TO deleted1
  13. ELSE
  14.  STOR '       ' TO deleted1
  15. ENDI
  16. SKIP
  17. STOR lastname TO lastname2
  18. STOR fname TO fname2
  19. STOR company1 TO company12
  20. STOR address TO address2
  21. STOR phone TO phone2
  22. STOR ophone TO ophone2
  23. STOR update TO update2
  24. IF *
  25.  STOR 'Deleted' TO deleted2
  26. ELSE
  27.  STOR ' ' TO deleted2
  28. ENDI
  29. STOR t TO more
  30. DO WHIL more
  31.  ERAS
  32.  STOR '<C>ontinue, <D>elete/Recall, <E>dit, <P>rint, <Q>uit' TO prompt
  33.  STOR 'Records with duplicate last names' TO mode
  34.  STOR '?' TO command
  35.  STOR '?' TO record
  36.  @ 01,27 SAY mode
  37.  @ 02,00 SAY '+--------------------'
  38.  @ 02,20 SAY '---------------------'
  39.  @ 02,40 SAY '---------------------'
  40.  @ 02,60 SAY '-------------------+'
  41.  @ 03,00 SAY 'Lastname: '
  42.  @ 03,12 SAY lastname1
  43.  @ 03,40 SAY 'First & MI: '
  44.  @ 03,55 SAY fname1
  45.  @ 04,00 SAY 'Company: '
  46.  @ 04,23 SAY company11
  47.  @ 05,00 SAY 'Address: '
  48.  @ 05,20 SAY address1
  49.  @ 06,00 SAY 'Phone - office: '
  50.  @ 06,19 SAY ophone1
  51.  @ 06,38 SAY 'home: '
  52.  @ 06,44 SAY phone1
  53.  @ 07,00 SAY 'Last update: '
  54.  @ 07,20 SAY update1
  55.  @ 07,50 SAY deleted1
  56.  @ 08,00 SAY '+--------------------'
  57.  @ 08,20 SAY '---------------> > > '
  58.  @ 08,40 SAY 'RECORD-A < < <-------'
  59.  @ 08,60 SAY '-------------------+'
  60.  @ 10,00 SAY 'Lastname: '
  61.  @ 10,12 SAY lastname2
  62.  @ 10,40 SAY 'First & MI: '
  63.  @ 10,55 SAY fname2
  64.  @ 11,00 SAY 'Company: '
  65.  @ 11,23 SAY company12
  66.  @ 12,00 SAY 'Address: '
  67.  @ 12,20 SAY address2
  68.  @ 13,00 SAY 'Phone - office: '
  69.  @ 13,19 SAY ophone2
  70.  @ 13,38 SAY 'home: '
  71.  @ 13,44 SAY phone2
  72.  @ 14,00 SAY 'Last update: '
  73.  @ 14,20 SAY update2
  74.  @ 14,50 SAY deleted2
  75.  @ 16,00 SAY '+--------------------'
  76.  @ 16,20 SAY '---------------> > > '
  77.  @ 16,40 SAY 'RECORD-B < < <-------'
  78.  @ 16,60 SAY '-------------------+'
  79.  @ 18,17 SAY prompt
  80.  @ 20,24 SAY 'What next?'
  81.  @ 20,35 GET command picture '!'
  82.  READ
  83.  IF command = 'D' .OR. command = 'E' .OR. command = 'P'
  84.   ?? CHR(11)
  85.   ?? '                         Which Record ?'
  86.   SET CONSOLE OFF
  87.   WAIT TO record
  88.   SET CONSOLE on
  89.   STOR !(record) TO record
  90.   ?? record
  91.  ENDI
  92.  IF record = 'A'
  93.   SKIP -1
  94.  ENDI
  95.  DO CASE
  96.  CASE command = 'C' .OR. command = 'Q'
  97.   STOR f to more
  98.  CASE command = 'D'
  99.   IF *
  100.    RECA
  101.   ELSE
  102.    DELE
  103.   ENDI
  104.   IF record = 'A'
  105.    IF deleted1 = 'Deleted'
  106.     STOR '       ' TO deleted1
  107.    ELSE
  108.     STOR 'Deleted' TO deleted1
  109.    ENDI
  110.   ENDI
  111.   IF record <> 'A'
  112.    IF deleted2 = 'Deleted'
  113.     STOR '       ' TO deleted2
  114.    ELSE
  115.     STOR 'Deleted' TO deleted2
  116.    ENDI
  117.   ENDI
  118.  CASE command = 'E'
  119.   SAVE TO temp2
  120.   RELE ALL
  121.   REST FROM temp1
  122.   ? 'Hit RETURN to Continue'
  123.   SET CONSOLE OFF
  124.   REST
  125.   STOR # TO rec:number
  126.   SET INDEX TO
  127.   IF rec:number = 0
  128.    GO 1
  129.   ELSE
  130.    GO rec:number
  131.   ENDI rec:number = 0
  132.   SET CONSOLE ON
  133.   DO edit.acg
  134.   SAVE TO temp1
  135.   RELE ALL
  136.   REST FROM temp2
  137.   STOR CHR(PEEK(063)) TO dr
  138.   SET INDEX TO &dr.:lastname
  139.  CASE command = 'P'
  140.   DO print.acg
  141.  ENDC
  142.  IF record = 'A'
  143.   SKIP
  144.  ENDI
  145. ENDD
  146. IF command = 'C'
  147.  STOR t TO more
  148. ENDI
  149.