home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol026 / qsofind.bas < prev    next >
BASIC Source File  |  1984-04-29  |  700b  |  28 lines
  1. 2000    REM    FIND
  2. 2005     INPUT "FILENAME: ";FILENAME$
  3.     INPUT "What do you want to find";A$
  4.     COUNTER=0
  5.     FILE    FILENAME$
  6.  
  7. 2010    REM
  8.     READ #1; CALL$,NAME$,QTH$,FREQ$,\
  9.     DATE$,TIME$,CARD$
  10.     IF CALL$="END" THEN 2020
  11.     IF CALL$=A$ OR NAME$=A$ OR QTH$=A$ OR FREQ$=A$ OR DATE$=A$ \
  12.         OR TIME$=A$ OR CARD$=A$ THEN 2015
  13.     GOTO 2016
  14. 2015      PRINT
  15.     PRINT CALL$;" -";TAB(10);NAME$;TAB(20);QTH$;TAB(42);FREQ$;\
  16.         TAB(55);DATE$;TAB(63);CARD$
  17.     PRINT "          This is ";COUNTER+1;"th name on the list":PRINT
  18. 2016     COUNTER=COUNTER+1
  19.     GOTO 2010
  20.  
  21. 2020    REM
  22.     PRINT:PRINT "END OF LIST"
  23.     PRINT "Total ";COUNTER;" names was searched"
  24.     CLOSE 1
  25.     INPUT "More searching? (Y/N)";A$
  26.     IF A$="Y" THEN 2005
  27.     GOTO 2
  28.