home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib42a.dsk / FEBRUARY.1992 / SPEED.SRCH.DEMO.bas < prev   
BASIC Source File  |  2023-02-26  |  1KB  |  39 lines
  1. 1  REM ************************
  2. 2  REM *  SPEED SEARCH DEMO   *
  3. 3  REM *   by C.B. Winkler    *
  4. 4  REM *  Copyright (C) 1992  *
  5. 5  REM * MindCraft Publ. Corp.*
  6. 6  REM *  Lincoln, MA  01773  *
  7. 7  REM ************************
  8. 10  HOME : PRINT  CHR$(21);: HTAB 12: PRINT "SPEED SEARCH DEMO": PRINT : PRINT "This demo will fill a 100 element array and then find all occurances of the word'One.'"
  9. 20  PRINT  CHR$(4);"BLOAD SPEED.SEARCH,A$300"
  10. 30  DIM A$(100),S%(100)
  11. 40  REM  ** FILL A$ ARAY **
  12. 50  FOR I = 1 TO 10: READ A$(I): NEXT I
  13. 60  FOR J = 1 TO 9: FOR I = 1 TO 10
  14. 70 A$(J *10 +I) = A$(I) + STR$(J)
  15. 80  NEXT I: NEXT J
  16. 90  REM  ** DEFINE W$ AND N% **
  17. 100  READ W$,N%
  18. 110  REM  ** READY, SET, GO **
  19. 120  PRINT : PRINT "The array is ready.": INPUT "Press <Return> to begin the search: ";D$
  20. 130  REM  ** CALL SPEED SEARCH **
  21. 140  REM  WHERE:
  22. 150  REM   768 = ADDRESS OF SPEED SEARCH
  23. 151  REM   W$ = STRING TO FIND
  24. 152  REM   A$(1) = 1ST ELEMENT OF ARRAY TO SEARCH
  25. 153  REM   S%(1) = 1ST ELEMENT OF RETURN ARRAY TO USE
  26. 154  REM   N% = NUMBER OF ARRAY ELEMENTS TO SEARCH
  27. 155  REM  ** NOTE: NO SPACES AFTER ADDRESS **
  28. 160  CALL 768W$,A$(1),S%(1),N%
  29. 170  REM  ** PRINT RESULTS **
  30. 180 I = 1
  31. 190  HOME 
  32. 200  PRINT "Element","Element": PRINT "Number","Contents": PRINT 
  33. 210 J = S%(I)
  34. 220  IF J =  >0  THEN  PRINT J,A$(J):I = I +1: GOTO 210
  35. 230  PRINT J
  36. 500  REM  ** DATA **
  37. 510  DATA  One,Two,Three,Four,Five,Six,Seven,Eight,Nine,Ten
  38. 520  DATA  "One"
  39. 530  DATA  100