home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 35.dms / 35.adf / amgseq1.bas < prev    next >
Encoding:
BASIC Source File  |  1988-05-22  |  425 b   |  12 lines
  1. 10    rem read/print seq file/Earl Hamner/Nov 85
  2. 20    scnclr:print"READ SEQUENTIAL FILE"
  3. 30    print:print"Use CTRL-D to start/stop screen listing"
  4. 40    print:input"Name of seq file:";a$
  5. 50    print:input"Send to printer <y/n>";b$
  6. 60    if b$="y" then open "O",#2,"prt:"
  7. 70    open "I",#1,a$
  8. 80    while not eof (1)
  9. 90    line input #1, a$: print a$
  10. 100   if b$="y" then print #2, a$
  11. 110   wend:close #1:close #2
  12.