home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / file_trans / psion / !Psion / Data / SEARCH < prev    next >
Encoding:
Text File  |  1989-03-22  |  432 b   |  27 lines
  1. SEARCH:
  2. LOCAL B$(254),F%,K%
  3. ESCAPE OFF
  4. AT 1,1 :PRINT"FIND:";
  5. INPUT B$
  6. OPEN "A:MAIN",A,A$
  7. DO
  8. F%=FIND(B$)
  9. IF F%<>0 :K%=DISP(-1,"") :ENDIF
  10. IF K%=1 :RETURN :ENDIF
  11. NEXT
  12. UNTIL F%=0
  13. CLOSE
  14. TRAP OPEN "B:MAIN",A,A$
  15. IF ERR=246 :CLS :AT 1,1 :PRINT "***  NO PAK  ***"
  16. AT 1,2 :PRINT"****************"
  17. PAUSE 15
  18. ENDIF
  19. DO
  20. F%=FIND(B$)
  21. IF F%<>0 :K%=DISP(-1,""): ENDIF
  22. IF K%=1 :RETURN :ENDIF
  23. NEXT
  24. UNTIL F%=0
  25. CLOSE
  26. NEXT::
  27.