home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol026 / xlist.bas < prev    next >
Encoding:
BASIC Source File  |  1985-02-10  |  512 b   |  21 lines
  1.     REM    LIST
  2. 5     INPUT "FILENAME: ";FILENAME$
  3.     COUNTER=0
  4.     FILE    FILENAME$
  5.  
  6. 10    REM
  7.  
  8.     READ #1; LAST$, FIRST$, ADDRESS$, CITY$,ZIP$,AREA$,TEL$
  9.     IF LAST$="END" THEN 20
  10.     COUNTER=COUNTER+1
  11.     PRINT LAST$;"/";FIRST$;TAB(22);ADDRESS$;TAB(42);CITY$;".,";\Z
  12.         ZIP$;TAB(68);TEL$
  13.  
  14.     GOTO 10
  15.  
  16. 20    REM
  17.     PRINT:PRINT "END OF LIST"
  18.     PRINT COUNTER, "NAMES":PRINT
  19.  
  20.     END
  21. C> ═C!]~#■ ╩ÖB═C┬ïB>.═C:,D■Ç:h╩¡B╖╩┐B╞0═C>$═C>$═C├╥B!e~#■ ╩╥B═C┬─B>"═C═!C!▒C═÷B═Cµ■┬┌B├≤B!╥C═÷B├~╖╚═C#├÷B