home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib32a.dsk / AUGUST.1987 / SEARCH.DEMO.bas < prev   
BASIC Source File  |  2023-02-26  |  1KB  |  34 lines
  1. 10  REM  ************************
  2. 20  REM  * SEARCH.DEMO          *
  3. 30  REM  * BY KEN KASHMAREK     *
  4. 40  REM  * COPYRIGHT (C) 1987   *
  5. 50  REM  * BY MICROSPARC, INC.  *
  6. 60  REM  * CONCORD, MA  01742   *
  7. 70  REM  ************************
  8. 80  TEXT : HOME : NORMAL 
  9. 90  PRINT "SEARCH DEMO": PRINT "BY KEN KASHMAREK": PRINT "COPYRIGHT 1987 BY MICROSPARC, INC."
  10. 100  VTAB 6: ONERR  GOTO 340
  11. 110  IF  PEEK(116) < >147  THEN  PRINT  CHR$(4)"-SEARCH"
  12. 120  POKE 216,0:DQ$ =  CHR$(34):SQ$ = "'":CO$ = ":"
  13. 130 MARK = 48840:OPEN = 48848
  14. 140 S$ = "25"
  15. 150 FI$ = "SAMPLE"
  16. 160 D$ =  CHR$(4)
  17. 170 CM$ = "SEARCH " +FI$ +SQ$ +S$ +SQ$
  18. 180  PRINT "ISSUING THE COMMAND: ";CM$: PRINT "WITHOUT OPENING THE FILE": PRINT 
  19. 190  PRINT D$;CM$: REM  FILE DOESN'T HAVE TO BE OPEN
  20. 200  PRINT D$"OPEN";FI$
  21. 210 REF =  PEEK(OPEN)
  22. 220  ONERR  GOTO 300
  23. 230  POKE OPEN,REF
  24. 240  PRINT D$;CM$: PRINT "ISSUING THE COMMAND: ";CM$: PRINT "WITH FILE OPEN": PRINT 
  25. 250 B =  PEEK(MARK) + PEEK(MARK +1) *256 + PEEK(MARK +2) *131072
  26. 260  PRINT "MATCH FOUND AT OFFSET "B
  27. 270  PRINT D$"READ";FI$
  28. 280  INPUT A$: PRINT "FOUND: "A$: PRINT 
  29. 290  GOTO 230
  30. 300  POKE 216,0: PRINT D$"CLOSE";FI$
  31. 310 EC =  PEEK(222):EL =  PEEK(218) + PEEK(219) *256
  32. 320  IF EC < >5  THEN  PRINT : PRINT "ERROR CODE=";EC;", LINE #=";EL: PRINT 
  33. 330  END 
  34. 340  PRINT "THIS PROGRAM REQUIRES THE 'SEARCH' FILE TO BE ON THE SAME DISK"