home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol026 / xtel.bas < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  649 b   |  28 lines
  1.     REM    TELEPHONE LIST
  2.     INPUT "FILENAME: ";FILENAME$
  3.     INPUT "ENTER AREA CODE YOU WANT OR 'ALL':";B$
  4.     PRINT
  5.     IF B$="ALL" THEN PRINT "TELEPHONES FOR ALL AREA CODES"
  6.     IF B$<>"ALL" THEN PRINT "TELEPHONES FOR AREA (";B$;")"
  7. 100    REM
  8.     FILE    FILENAME$
  9.  
  10. 10    REM
  11.  
  12.     READ #1; LAST$, FIRST$, ADDRESS$, CITY$,ZIP$,AREA$,TEL$
  13.     IF LAST$="END" THEN 20
  14.     COUNTER=COUNTER+1
  15.     IF TEL$="=" OR TEL$="==" OR TEL$="= =" THEN 10
  16.     IF B$<>"ALL" THEN 15
  17.     PRINT LAST$;"-";FIRST$;TAB(26);"(";AREA$;") ";TEL$
  18.     GOTO 10
  19.  
  20. 15    REM   TEL FOR SECIFIC AREA CODE
  21.     IF B$=AREA$ THEN PRINT LAST$;"-";FIRST$;TAB(26);TEL$
  22.     GOTO 10
  23.  
  24. 20    REM
  25.     PRINT
  26.     PRINT "END OF LIST"
  27.     END
  28.