* DATE 04/26/85  21:17
* search1.ref - detailed search
STOR CHR(PEEK(063)) TO dr
REST FROM rdata additive
ERAS
STOR 'Detailed Search' TO mode
SET INDEX TO
@ 10,20 SAY 'SELECT FIELD NUMBER '
@ 12,20 SAY 'ENTER SEARCH DATA '
@ 14,0 SAY ' 1. Author      2. Title 1     3. Title 2     4. Jrnl Cite   5. Ed/Trans   '
@ 15,0 SAY ' 6. Edition     7. Page No.    8. Pub Data    9. Lib Data   10. Chron      '
@ 16,0 SAY '11. Type       12. Works Dis. 13. Comment    14. Updated    15. Action     '
STOR '  ' TO EVAR
DO WHIL VAL(EVAR) < 1 .OR. VAL(EVAR) > 15
 @ 10,20 SAY 'SELECT FIELD NUMBER ' GET EVAR PICTURE '99'
 READ
ENDD
STOR '                              ' TO EPART
@ 12,20 SAY 'ENTER SEARCH DATA ' GET EPART
READ
IF VAL(EVAR) = 1
 STOR 'AUTHOR' TO PARTFIELD
ENDI
IF VAL(EVAR) = 2
 STOR 'TITLE1' TO PARTFIELD
ENDI
IF VAL(EVAR) = 3
 STOR 'TITLE2' TO PARTFIELD
ENDI
IF VAL(EVAR) = 4
 STOR 'JOURNAL' TO PARTFIELD
ENDI
IF VAL(EVAR) = 5
 STOR 'EDITION' TO PARTFIELD
ENDI
IF VAL(EVAR) = 6
 STOR 'PAGENO' TO PARTFIELD
ENDI
IF VAL(EVAR) = 7
 STOR 'EDTRANS' TO PARTFIELD
ENDI
IF VAL(EVAR) = 8
 STOR 'PUBLDAT' TO PARTFIELD
ENDI
IF VAL(EVAR) = 9
 STOR 'LIBRDAT' TO PARTFIELD
ENDI
IF VAL(EVAR) = 10
 STOR 'CHRON' TO PARTFIELD
ENDI
IF VAL(EVAR) = 11
 STOR 'TYPE' TO PARTFIELD
ENDI
IF VAL(EVAR) = 12
 STOR 'WORKSDIS' TO PARTFIELD
ENDI
IF VAL(EVAR) = 13
 STOR 'COMMENTS' TO PARTFIELD
ENDI
IF VAL(EVAR) = 14
 STOR 'DAYU' TO PARTFIELD
ENDI
IF VAL(EVAR) = 15
 STOR 'ACTION' TO PARTFIELD
ENDI
USE &dr.:&base
STOR TRIM(EPART) TO EPART
RELE EVAR
GO BOTTOM
STOR # TO LASTREC
GO TOP
STOR 0 TO RECNO
STOR T TO PARTSRCH
STOR ' ' TO EOPTION
STOR T TO FIRSTLOOP
DO WHIL PARTSRCH
 IF EOPTION = 'S'
  STOR # TO RECNO
  STOR F TO PARTSRCH
  LOOP
 ENDI
 IF EOPTION = 'R'
  STOR 0 TO RECNO
  STOR F TO PARTSRCH
  LOOP
 ENDI
 IF RECNO = LASTREC
  STOR 'R' TO EOPTION
  LOOP
 ENDI
 IF FIRSTLOOP
  LOCA FOR !(EPART) $ !(&PARTFIELD)
 ENDI
 IF .NOT.FIRSTLOOP
  CONT
 ENDI
 STOR F TO FIRSTLOOP
 STOR # TO RECNO
 IF # = LASTREC .AND.(.NOT. EPART $ &PARTFIELD)
  STOR 'R' TO EOPTION
  LOOP
 ENDI
 ERAS
 @ 1, 0 SAY "+-------------------------------------------------"
 @ 1,50 SAY "-----------------------------+"
 @ 2, 2 SAY "Author:"
 @ 3,54 SAY ">>> ACTION >>>>>"
 @ 4, 1 SAY "Title 1:"
 @ 6, 1 SAY "Title 2:"
 @ 7, 0 SAY "JrnlCite:"
 @ 9, 0 SAY "Ed-Trans:"
 @ 9,56 SAY "Edn:"
 @ 10, 0 SAY "Pub data:"
 @ 10,55 SAY "Pg #:"
 @ 11, 0 SAY "Lib data:"
 @ 13, 3 SAY "Chron:"
 @ 13,55 SAY "Type:"
 @ 14, 0 SAY "Wks disc:"
 @ 16, 0 SAY "Comments:"
 @ 18,52 SAY "Updated:"
 @ 19, 0 SAY "+-------------------------------------------------"
 @ 19,50 SAY "-----------------------------+"
 IF *
  STOR 'Deleted' TO deleted
 ELSE
  STOR '       ' TO deleted
 ENDIF
 @ 0,0 SAY deleted
 @ 0,27 SAY mode
 @ 0,65 SAY "Code: "
 @ 0,72 SAY code
 @ 2,10 SAY author
 @ 3,72 SAY action
 @ 4,10 SAY $(title1,1,60)
 @ 5,10 SAY $(title1,61,60)
 @ 6,10 SAY title2
 @ 7,10 SAY journal
 @ 9,10 SAY edtrans
 @ 9,61 SAY edition
 @ 10,10 SAY publdat
 @ 10,61 SAY pageno
 @ 11,10 SAY librdat
 @ 13,10 SAY chron
 @ 13,61 SAY type
 @ 14,10 SAY $(worksdis,1,60)
 @ 15,10 SAY $(worksdis,61,60)
 @ 16,10 SAY $(comments,1,60)
 @ 17,10 SAY $(comments,60,60)
 @ 18,10 SAY $(comments,121,40)
 @ 18,61 SAY dayu
 STOR ' ' TO EOPTION
 @ 20,15 SAY 'N (NEXT), S (SELECT), R (RETURN)'
 DO WHIL EOPTION <> 'N' .AND. EOPTION <> 'S' .AND. EOPTION <> 'R'
  @ 20,48 GET EOPTION PICTURE '!'
  READ
 ENDD
ENDD
STOR !($(title1,1,12)) TO name
RELE PARTSRCH
RELE EMETH, EOPTION, EPART, FILESRCH, LASTREC, FIRSTREC
RELE PARTFIELD, FIRSTLOOP, EKEYOPT, INCREMENT
SET INDEX TO &dr.:&tindex
FIND &name
STOR t TO first
STOR t TO more
RETU