* DATE 02/24/85  16:47
* search1.bk - detailed search
STOR CHR(PEEK(063)) TO dr
REST FROM bdata
ERAS
SET INDEX TO
@ 10,20 SAY 'SELECT FIELD NUMBER '
@ 12,20 SAY 'ENTER SEARCH DATA '
@ 14,0 SAY ' 1. Title       2. Subtitle    3. Author 1    4. Author 2    5. Author 3   '
@ 15,0 SAY ' 6. Year        7. Price       8. Publisher   9. Street     10. City       '
@ 16,0 SAY '11. State      12. Zip        13. Subject 1  14. Subject 2  15. Subject 3  '
@ 17,0 SAY '16. Subject 5  17. Subject 5  18. Comment    19. Updated    '
STOR '  ' TO EVAR
DO WHIL VAL(EVAR) < 1 .OR. VAL(EVAR) > 19
 @ 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 'TITLE' TO PARTFIELD
ENDI
IF VAL(EVAR) = 2
 STOR 'SUBTIT' TO PARTFIELD
ENDI
IF VAL(EVAR) = 3
 STOR 'AUTH1' TO PARTFIELD
ENDI
IF VAL(EVAR) = 4
 STOR 'AUTH2' TO PARTFIELD
ENDI
IF VAL(EVAR) = 5
 STOR 'AUTH3' TO PARTFIELD
ENDI
IF VAL(EVAR) = 6
 STOR 'YEAR' TO PARTFIELD
ENDI
IF VAL(EVAR) = 7
 STOR 'PRICE' TO PARTFIELD
ENDI
IF VAL(EVAR) = 8
 STOR 'PUBLISH' TO PARTFIELD
ENDI
IF VAL(EVAR) = 9
 STOR 'STREET' TO PARTFIELD
ENDI
IF VAL(EVAR) = 10
 STOR 'CITY' TO PARTFIELD
ENDI
IF VAL(EVAR) = 11
 STOR 'STATE' TO PARTFIELD
ENDI
IF VAL(EVAR) = 12
 STOR 'ZIP' TO PARTFIELD
ENDI
IF VAL(EVAR) = 13
 STOR 'SUBJ1' TO PARTFIELD
ENDI
IF VAL(EVAR) = 14
 STOR 'SUBJ2' TO PARTFIELD
ENDI
IF VAL(EVAR) = 15
 STOR 'SUBJ3' TO PARTFIELD
ENDI
IF VAL(EVAR) = 16
 STOR 'SUBJ4' TO PARTFIELD
ENDI
IF VAL(EVAR) = 17
 STOR 'SUBJ5' TO PARTFIELD
ENDI
IF VAL(EVAR) = 18
 STOR 'COMMENT' TO PARTFIELD
ENDI
IF VAL(EVAR) = 19
 STOR 'DAYU' 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
 @ 00,0 SAY '                              Detailed Search Menu'
 @ 01,0 SAY '+-----------------------------------------------------------------------------+'
 @ 2,4 SAY 'Title:'
 @ 4,1 SAY 'Subtitle:'
 @ 6,0 SAY 'Authors 1:                                  2:'
 @ 7,8 SAY '3:                               Year:                 Price:'
 @ 9,0 SAY 'Publisher:'
 @ 10,3 SAY 'Street:'
 @ 11,5 SAY 'City:                              State:                   Zip:'
 @ 13,0 SAY 'Subject 1:                                  2:'
 @ 14,8 SAY '3:                                  4:'
 @ 15,8 SAY '5:'
 @ 16,1 SAY 'Comments:'
 @ 19,61 SAY 'Updated:'
 @ 20,0 SAY '+-----------------------------------------------------------------------------+'
 @ 2,11 SAY $(TITLE,1,60)
 @ 3,11 SAY $(TITLE,61,19)
 @ 4,11 SAY $(SUBTIT,1,60)
 @ 5,11 SAY $(SUBTIT,61,18)
 @ 6,11 SAY AUTH1
 @ 6,47 SAY AUTH2
 @ 7,11 SAY AUTH3
 @ 7,47 SAY YEAR
 @ 7,70 SAY PRICE
 @ 9,11 SAY PUBLISH
 @ 10,11 SAY STREET
 @ 11,11 SAY CITY
 @ 11,47 SAY STATE
 @ 11,70 SAY ZIP
 @ 13,11 SAY SUBJ1
 @ 13,47 SAY SUBJ2
 @ 14,11 SAY SUBJ3
 @ 14,47 SAY SUBJ4
 @ 15,11 SAY SUBJ5
 @ 16,11 SAY $(COMMENT,1,60)
 @ 17,11 SAY $(COMMENT,61,60)
 @ 18,11 SAY $(COMMENT,121,60)
 @ 19,11 SAY $(COMMENT,181,47)
 @ 19,70 SAY DAYU
 CLEA GETS
 STOR ' ' TO EOPTION
 @ 21,15 SAY 'N (NEXT), S (SELECT), R (RETURN)'
 DO WHIL EOPTION <> 'N' .AND. EOPTION <> 'S' .AND. EOPTION <> 'R'
  @ 21,48 GET EOPTION PICTURE '!'
  READ
 ENDD
ENDD
STOR !(title) 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