home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / a / dbretrev.lbr / INDEX.CZD / INDEX.CMD
Encoding:
Text File  |  1993-10-26  |  2.1 KB  |  67 lines
  1. NOTE  - EXTENDED COMMAND FILE INDEX.CMD
  2. USE &FILE1
  3. GO BOTTOM
  4. STORE STR(#,6) TO REC:NO
  5. ERASE
  6. @  3,15 SAY '*** REFS.DBF PRESENTLY CONTAINS '+REC:NO+' RECORDS ***'
  7. @  5,15 SAY '____________________________________________________'
  8. @  6,14 SAY '|                                                    |'
  9. @  7,14 SAY '|              *** IMPORTANT NOTE ***                |'
  10. @  8,14 SAY '|                                                    |'
  11. @  9,14 SAY '| Re-indexing the reference file on authors, source, |'
  12. @ 10,14 SAY '| and key words  requires serveral  minutes.   The   |'
  13. @ 11,14 SAY '| indexed  files are  ONLY  required  for  option 4  |'
  14. @ 12,14 SAY '| (QUICKLY FIND ARTICLES)  to function.   If you do  |'
  15. @ 13,14 SAY '| not intend to use this option STOP now! This will  |'
  16. @ 14,14 SAY '| save many sectors of disk storage disk space!!!!!  |'
  17. @ 15,14 SAY '|                                                    |'
  18. @ 16,14 SAY '|           ** WANT TO CONTINUE? (Y/N) **            |'
  19. @ 17,14 SAY '|____________________________________________________|'
  20. @ 22,1 SAY ' '
  21. WAIT TO ANSWER
  22. IF !(ANSWER)='N'
  23.      RELEASE REC:NO,ANSWER
  24.      RETURN
  25. ENDIF
  26. ERASE
  27. @ 12,16 SAY "**** INDEXING AUTHOR'S NAME(S) TO AUTHOR.NDX ****"
  28. STORE DR+':AUTHORS' TO FILE
  29. INDEX ON AUTHORS TO &FILE
  30. USE &FILE1
  31. ERASE
  32. @ 11,28 SAY'**** INDEX COMPLETE ****'
  33. @  5,26  SAY '** WANT TO CONTIUE? (Y/N) **'
  34. @ 22,1 SAY ' '
  35. WAIT TO ANSWER
  36. IF !(ANSWER)='N'
  37.      RELEASE REC:NO,ANSWER
  38.      RETURN
  39. ENDIF
  40. ERASE
  41. @ 12,19 SAY '**** INDEXING ON SOURCE TO SOURCE.NDX ****'
  42. STORE DR+':SOURCE' TO FILE
  43. INDEX ON SOURCE TO &FILE
  44. USE &FILE1
  45. ERASE
  46. @ 11,28 SAY'**** INDEX COMPLETE ****'
  47. @  5,26  SAY '** WANT TO CONTIUE? (Y/N) **'
  48. @ 22,1 SAY ' '
  49. WAIT TO ANSWER
  50. IF !(ANSWER)='N'
  51.      RELEASE REC:NO,ANSWER
  52.      RETURN
  53. ENDIF
  54. ERASE
  55. @ 12,18 SAY '**** INDEXING ON KEY WORDS TO KWORDS.NDX ****'
  56. STORE DR+':KWORDS' TO FILE
  57. INDEX ON KWORDS TO &FILE
  58. USE 
  59. ERASE
  60. @ 11,28 SAY'**** INDEX COMPLETE ****'
  61. @ 13,18  SAY '*** PRESS ANY KEY TO RETURN TO MAIN MENU ***'
  62. @ 22,1 SAY ' '
  63. WAIT
  64. RELEASE REC:NO,ANSWER
  65. RETURN
  66.  
  67.