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 / MBUG123.ARC / BOOK2.LBR / SEARCH.BQ / SEARCH.BK
Text File  |  1979-12-31  |  4KB  |  177 lines
  1. * DATE 03/10/85  15:02
  2. * search.bk
  3. STOR t TO first
  4. STOR t TO more
  5. DO WHIL more
  6.  STOR CHR(PEEK (063)) TO dr
  7.  REST from bdata additive
  8.  IF first
  9.   ERAS
  10.   STOR 'Search by <T>itle, a<U>thor, <A>ny part of data base or <Q>uit searching' TO prompt1
  11.   STOR '<B>ackward, <F>orward, <D>elete/Recall, <E>dit, or <P>rint' TO prompt2
  12.   STOR 'Record Search Module' TO mode
  13.   @ 0,26 SAY mode
  14.   @ 1, 0 SAY " -------------------------------------------------"
  15.   @ 1,50 SAY "----------------------------"
  16.   @ 2, 4 SAY "Title:"
  17.   @ 4, 1 SAY "Subtitle:"
  18.   @ 6, 0 SAY "Authors 1:"
  19.   @ 6,44 SAY "2:"
  20.   @ 7, 8 SAY "3:"
  21.   @ 7,41 SAY "Year:"
  22.   @ 7,62 SAY "Price:"
  23.   @ 9, 0 SAY "Publisher:"
  24.   @ 10, 3 SAY "Street:"
  25.   @ 11, 5 SAY "City:"
  26.   @ 11,40 SAY "State:"
  27.   @ 11,64 SAY "Zip:"
  28.   @ 13, 0 SAY "Subject 1:"
  29.   @ 13,44 SAY "2:"
  30.   @ 14, 8 SAY "3:"
  31.   @ 14,44 SAY "4:"
  32.   @ 15, 8 SAY "5:"
  33.   @ 16, 1 SAY "Comments:"
  34.   @ 19,60 SAY "Updated:"
  35.   @ 20, 0 SAY " -------------------------------------------------"
  36.   @ 20,50 SAY "-----------------------------"
  37.  ENDI
  38.  STOR f TO first
  39.  STOR '?' TO command
  40.  STOR '                    ' to name
  41.  IF *
  42.   STOR 'Deleted' TO deleted
  43.  ELSE
  44.   STOR '       ' TO deleted
  45.  ENDI
  46.  STOR # TO rec:number
  47.  @ 0, 0 SAY deleted
  48.  @ 2,11 SAY $(title,1,60)
  49.  @ 3,11 SAY $(title,61,19)
  50.  @ 4,11 SAY $(subtit,1,60)
  51.  @ 5,11 SAY $(subtit,61,18)
  52.  @ 6,11 SAY auth1
  53.  @ 6,47 SAY auth2
  54.  @ 7,11 SAY auth3
  55.  @ 7,47 SAY year
  56.  @ 7,69 SAY price
  57.  @ 9,11 SAY publish
  58.  @ 10,11 SAY street
  59.  @ 11,11 SAY city
  60.  @ 11,47 SAY state
  61.  @ 11,69 SAY zip
  62.  @ 13,11 SAY subj1
  63.  @ 13,47 SAY subj2
  64.  @ 14,11 SAY subj3
  65.  @ 14,47 SAY subj4
  66.  @ 15,11 SAY subj5
  67.  @ 16,11 SAY $(comment,1,60)
  68.  @ 17,11 SAY $(comment,61,60)
  69.  @ 18,11 SAY $(comment,121,60)
  70.  @ 19,11 SAY $(comment,181,47)
  71.  @ 19,69 SAY dayu
  72.  @ 21,00
  73.  @ 22,00
  74.  @ 21, 2 SAY prompt1
  75.  @ 22, 2 SAY prompt2
  76.  @ 22,64 SAY 'WHAT NEXT ?'
  77.  @ 22,77 GET command picture '!'
  78.  READ
  79.  DO CASE
  80.  CASE command = 'A'
  81.   DO search1.bk
  82.  CASE (command = 'B' .OR. command = ',')
  83.   SKIP -1
  84.  CASE command = 'D'
  85.   IF *
  86.    RECA
  87.   ELSE
  88.    DELE
  89.   ENDI
  90.  CASE (command = 'F' .OR. command = '.')
  91.   SKIP
  92.  CASE command = 'E'
  93.   DO edit.bk
  94.  CASE command = 'P'
  95.   DO print.bk
  96.  CASE command = 'T'
  97.   STOR # TO rec:number
  98.   SET INDEX TO &dr.:&tindex
  99.   @ 21,00
  100.   @ 22,00
  101.   @ 22,12 SAY 'Please enter title ' GET name
  102.   READ
  103.   STOR TRIM(name) TO name
  104.   STOR !(name) TO name
  105.   FIND &name
  106.   IF # = 0
  107.    @ 21,00
  108.    @ 22,00
  109.    @ 21,12 SAY name+' is not in the file'
  110.    @ 22,12 SAY 'Press RETURN to Continue'
  111.    SET CONSOLE OFF
  112.    WAIT
  113.    SET CONSOLE ON
  114.    GO rec:number
  115.    @ 21,00
  116.    @ 22,00
  117.   ENDI
  118.  CASE command = 'U'
  119.   STOR # TO rec:number
  120.   SET INDEX TO &dr.:&aindex
  121.   @ 21,00
  122.   @ 22,00
  123.   @ 22,12 SAY 'Please enter author ' GET name
  124.   READ
  125.   STOR TRIM(name) TO name
  126.   STOR !(name) TO name
  127.   FIND &name
  128.   IF # = 0
  129.    @ 21,00
  130.    @ 22,00
  131.    @ 21,12 SAY name+' is not in the file'
  132.    @ 22,12 SAY 'Press RETURN to Continue'
  133.    SET CONSOLE OFF
  134.    WAIT
  135.    SET CONSOLE ON
  136.    GO rec:number
  137.    @ 21,00
  138.    @ 22,00
  139.   ENDI
  140.  CASE command = '?'
  141.   ERAS
  142.   STOR t TO first
  143. TEXT
  144.  
  145.                S E A R C H    M E N U   H E L P   S C R E E N
  146.  
  147.    You can find information in a variety of ways using the various search 
  148.    functions. If you know the name of the first author - the author index
  149.    will turn up the first instance of that name. If you know the start of
  150.    the title, the title index will turn that up.
  151.  
  152.    Please remember, however, dBASE index files will find the first instance
  153.    of the stated combination (in upper or lower case).  Always enter as 
  154.    little as you can. Thus 'smi' will turn up 'SMITH' or 'SMITHERS' etc.
  155.    (which ever comes first); 'smithe' will turn up 'SMITHERS.' If you put
  156.    a title in as 'The Story of ' 'story' will turn up nothing. You would
  157.    have to put in 'the sto.' You can use upper or lower case.
  158.  
  159.    All is not lost, however.  If you are looking for a book by an author
  160.    whose name begins with 'Smi' - use the <A>ny part of data base option. 
  161.    It will turn up any string in any field - and then let you look at all
  162.    files that contain the string - and select any one of those files.
  163.  
  164.                        Please hit any key to return to the program
  165.  
  166. ENDT
  167.   SET CONSOLE OFF
  168.   WAIT
  169.   SET CONSOLE ON
  170.  CASE command = 'Q'
  171.   STOR f  TO more
  172.  ENDC
  173. ENDD
  174. SET INDEX TO &dr.:&tindex
  175. RELE ALL
  176. STOR t TO first
  177.