home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / basic / lb09c.zip / PROFILE.BAS < prev    next >
BASIC Source File  |  1992-03-02  |  347b  |  21 lines
  1.  
  2.  
  3.     'read profile.txt and display each item on its own line
  4.  
  5.     OPEN"PROFILE.txt" FOR INPUT AS #1
  6.  
  7. [read]
  8.  
  9.     INPUT #1, name$, address$, city$, state$, zip$, phone$
  10.     PRINT name$
  11.     PRINT address$
  12.     PRINT city$
  13.     PRINT state$
  14.     PRINT phone$
  15.     PRINT
  16.  
  17.     if eof(#1) = 0 then [read]
  18.  
  19.     PRINT"Done."
  20.     CLOSE #1
  21.