home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol026 / xfind.bas < prev    next >
Encoding:
BASIC Source File  |  1985-02-10  |  768 b   |  27 lines
  1.     REM    FIND
  2. 5     INPUT "FILENAME: ";FILENAME$
  3.     INPUT "What do you want to find";A$
  4.     COUNTER=0
  5.     FILE    FILENAME$
  6.  
  7. 10    REM
  8.     READ #1; LAST$, FIRST$, ADDRESS$, CITY$,ZIP$,AREA$,TEL$
  9.     IF LAST$="END" THEN 20
  10.     IF LAST$=A$ OR FIRST$=A$+" " OR ADDRESS$=A$ OR CITY$=A$ \
  11.         OR ZIP$=A$ OR AREA$=A$ OR TEL$=A$ THEN 15
  12.     GOTO 16
  13. 15      PRINT
  14.     PRINT LAST$;"/";FIRST$;TAB(20);ADDRESS$;TAB(42);CITY$;\
  15.         ".";ZIP$;TAB(68);TEL$
  16.     PRINT "          This is ";COUNTER+1;"th name on the list":PRINT
  17. 16     COUNTER=COUNTER+1
  18.     GOTO 10
  19.  
  20. 20    REM
  21.     PRINT:PRINT "END OF LIST"
  22.     PRINT "Total ";COUNTER;" names was searched"
  23.     END
  24. FULL, FURTHER PASSES REQUIRED
  25. READY FOR "SAVE SWAP DISKETTES AND TYPE CTRL-C
  26. ILLEGAL EXTENT NUMBER
  27. R, SEEMED MOST POLITE.