home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / educ / retrv_pc.zip / TEXT.PRG < prev   
Text File  |  1984-12-21  |  5KB  |  158 lines
  1. NOTE  - EXTENDED COMMAND FILE TEXT.CMD
  2. USE &FILE1
  3. GO BOTTOM
  4. STORE '                    ' TO NAME
  5. STORE STR(#,4) TO REC:NO
  6. STORE TRIM(REC:NO) TO REC:NO
  7. STORE '*** REFS.DBF CONTAINS '+REC:NO+' RECORDS ***' TO MESSAGE
  8. STORE 40-(LEN(MESSAGE)/2) TO COLUMN
  9. ERASE
  10. @  4,COLUMN SAY MESSAGE
  11. @  6,24 SAY 'EACH RECORD CONSISTS OF 5 FIELDS:'
  12. @  8,28 SAY '(1) REF:NO    (4) SOURCE'
  13. @  9,28 SAY '(2) AUTHORS   (5) KWORDS'
  14. @ 10,28 SAY '(3) TITLE'
  15. STORE ' ' TO FLD1
  16. STORE ' ' TO FLD2
  17. STORE ' ' TO FLD3
  18. STORE '               ' TO SSTR1
  19. STORE '               ' TO SSTR2
  20. STORE '               ' TO SSTR3
  21. STORE 'N' TO PRINT
  22. @ 12,20 SAY '________________________________________'
  23. @ 14,25 SAY '** ENTER SEARCH INFORMATION **'
  24. @ 16,6  SAY '1st FIELD TO SEARCH ON (1-5) ' GET FLD1 PICTURE '9'
  25. @ 16,40 SAY 'SUBSTRING TO LOCATE ' GET SSTR1 PICTURE 'XXXXXXXXXXXXXXX'
  26. @ 17,6  SAY '2nd FIELD TO SEARCH ON (1-5) ' GET FLD2 PICTURE '9'
  27. @ 17,40 SAY 'SUBSTRING TO LOCATE ' GET SSTR2 PICTURE 'XXXXXXXXXXXXXXX'
  28. @ 18,6  SAY '3rd FIELD TO SEARCH ON (1-5) ' GET FLD3 PICTURE '9'
  29. @ 18,40 SAY 'SUBSTRING TO LOCATE ' GET SSTR3 PICTURE 'XXXXXXXXXXXXXXX'
  30. READ
  31. IF FLD1='1'
  32.      STORE 'REF:NO' TO FLD1
  33. ELSE
  34.      IF FLD1='2'
  35.           STORE 'AUTHORS' TO FLD1
  36.      ELSE
  37.           IF FLD1='3'
  38.                STORE 'TITLE' TO FLD1
  39.           ELSE
  40.                IF FLD1='4'
  41.                     STORE 'SOURCE' TO FLD1
  42.                ELSE
  43.                     IF FLD1='5'
  44.                          STORE 'KWORDS' TO FLD1
  45.                     ENDIF
  46.                ENDIF
  47.           ENDIF
  48.      ENDIF
  49. ENDIF
  50. IF FLD2='1'
  51.      STORE 'REF:NO' TO FLD2
  52. ELSE
  53.      IF FLD2='2'
  54.           STORE 'AUTHORS' TO FLD2
  55.      ELSE
  56.           IF FLD2='3'
  57.                STORE 'TITLE' TO FLD2
  58.           ELSE
  59.                IF FLD2='4'
  60.                     STORE 'SOURCE' TO FLD2
  61.                ELSE
  62.                     IF FLD2='5'
  63.                          STORE 'KWORDS' TO FLD2
  64.                     ENDIF
  65.                ENDIF
  66.           ENDIF
  67.      ENDIF
  68. ENDIF
  69. IF FLD3='1'
  70.      STORE 'REF:NO' TO FLD3
  71. ELSE
  72.      IF FLD3='2'
  73.           STORE 'AUTHORS' TO FLD3
  74.      ELSE
  75.           IF FLD3='3'
  76.                STORE 'TITLE' TO FLD3
  77.           ELSE
  78.                IF FLD3='4'
  79.                     STORE 'SOURCE' TO FLD3
  80.                ELSE
  81.                     IF FLD3='5'
  82.                          STORE 'KWORDS' TO FLD3
  83.                     ENDIF
  84.                ENDIF
  85.           ENDIF
  86.      ENDIF
  87. ENDIF
  88. STORE TRIM(SSTR1) TO SSTR1
  89. STORE TRIM(SSTR2) TO SSTR2
  90. STORE TRIM(SSTR3) TO SSTR3
  91. IF FLD3<>' '
  92.      @ 20,22 SAY '                                      '
  93.      @ 20,27 SAY '*** LOCATING RECORD(S) ***'
  94.      LOCATE FOR !(SSTR1)$!(&FLD1) .AND. !(SSTR2)$!(&FLD2);
  95.         .AND. !(SSTR3)$!(&FLD3)
  96. ELSE
  97.      IF FLD2<>' '
  98.           @ 20,22 SAY '                                      '
  99.           @ 20,27 SAY '*** LOCATING RECORD(S) ***'
  100.           LOCATE FOR !(SSTR1)$!(&FLD1) .AND. !(SSTR2)$!(&FLD2)
  101.      ELSE
  102.           @ 20,22 SAY '                                      '
  103.           @ 20,27 SAY '*** LOCATING RECORD(S) ***'
  104.           LOCATE FOR !(SSTR1)$!(&FLD1)
  105.      ENDIF
  106. ENDIF
  107. ERASE
  108. @ 12,15 SAY "NAME OF 'TEXT FILE' TO WRITE RESULTS TO " GET NAME;
  109.      PICTURE 'XXXXXXXXXXXXXXXXXXXX'
  110. READ
  111.  
  112. SET ALTERNATE TO &NAME
  113. SET ALTERNATE ON
  114.      DO WHILE .NOT. EOF
  115.           STORE $(AUTHORS,1,40) TO AU1
  116.           STORE $(AUTHORS,41,40) TO AU2
  117.           STORE $(TITLE,1,40) TO TI1
  118.           STORE $(TITLE,41,40) TO TI2
  119.           STORE $(TITLE,81,40) TO TI3
  120.           STORE $(TITLE,121,40) TO TI4
  121.           STORE $(SOURCE,1,40) TO SO1
  122.           STORE $(SOURCE,41,40) TO SO2
  123.           STORE $(KWORDS,1,40) TO KW1
  124.           STORE $(KWORDS,41,40) TO KW2
  125.           ? REF:NO 
  126.           ? AU1 
  127.           IF AU2<>' '
  128.                ? AU2 
  129.           ENDIF
  130.           ? TI1
  131.           IF TI2<>' '
  132.                ? TI2 
  133.                IF TI3<>' '
  134.                     ? TI3 
  135.                     IF TI4<>' '
  136.                          ? TI4 
  137.                     ENDIF
  138.                ENDIF
  139.           ENDIF
  140.           ? SO1
  141.           IF SO2<>' '
  142.                ? SO2 
  143.           ENDIF
  144.           ? KW1
  145.           IF KW2<>' '
  146.                ? KW2 
  147.           ENDIF
  148.           ?
  149.           CONTINUE
  150.      ENDDO
  151. SET ALTERNATE OFF
  152. ERASE
  153. @     20,21 SAY '************** FINISHED ***************'
  154. @     21,21 SAY '*** PRESS ANY KEY TO RETURN TO MENU ***'
  155. @     22,1  SAY ' '
  156. WAIT
  157. RELEASE REC:NO,MESSAGE,COLUMN,FLD1,FLD2,FLD3,SSTR1,SSTR2,SSTR3,PRINT,CONTINUE
  158. RETURN