home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / educ / retrv_pc.zip / INDEX.PRG < prev    next >
Text File  |  1984-10-24  |  2KB  |  64 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. INDEX ON AUTHORS TO AUTHORS
  29. USE &FILE1
  30. ERASE
  31. @ 11,28 SAY'**** INDEX COMPLETE ****'
  32. @  5,26  SAY '** WANT TO CONTIUE? (Y/N) **'
  33. @ 22,1 SAY ' '
  34. WAIT TO ANSWER
  35. IF !(ANSWER)='N'
  36.      RELEASE REC:NO,ANSWER
  37.      RETURN
  38. ENDIF
  39. ERASE
  40. @ 12,19 SAY '**** INDEXING ON SOURCE TO SOURCE.NDX ****'
  41. INDEX ON SOURCE TO SOURCE
  42. USE &FILE1
  43. ERASE
  44. @ 11,28 SAY'**** INDEX COMPLETE ****'
  45. @  5,26  SAY '** WANT TO CONTIUE? (Y/N) **'
  46. @ 22,1 SAY ' '
  47. WAIT TO ANSWER
  48. IF !(ANSWER)='N'
  49.      RELEASE REC:NO,ANSWER
  50.      RETURN
  51. ENDIF
  52. ERASE
  53. @ 12,18 SAY '**** INDEXING ON KEY WORDS TO KWORDS.NDX ****'
  54. INDEX ON KWORDS TO KWORDS
  55. USE 
  56. ERASE
  57. @ 11,28 SAY'**** INDEX COMPLETE ****'
  58. @ 13,18  SAY '*** PRESS ANY KEY TO RETURN TO MAIN MENU ***'
  59. @ 22,1 SAY ' '
  60. WAIT
  61. RELEASE REC:NO,ANSWER
  62. RETURN
  63.  
  64.