Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!hellgate.utah.edu!csn!magnus.ircc.ohio-state.edu!zaphod.mps.ohio-state.edu!rpi!sarah!bingnews!vu2416
From: vu2416@bingvaxu.cc.binghamton.edu (vu2416)
Newsgroups: comp.sys.cbm
Subject: SEQ files
Summary: How to print/ view
Message-ID: <1991Feb28.182607.21434@bingvaxu.cc.binghamton.edu>
Date: 28 Feb 91 18:26:07 GMT
Sender: consp24@bingsuns.pod.binghamton.edu
Organization: State University of New York at Binghamton
Lines: 18

View / Print Sequential Programs....

10 print "(S)creen or (P)rinter? ";:input a$
20 open 21,3:if a$="p" then close21:open 21,4,7
30 print "Filename ";:input f$
40 open 5,8,4,"0:"+f$+",?,r":gosub 1000
50 get#5,a$:if st=66 then close5:end
60 print#21,a$:goto50
1000 close15:open 15,8,15:input#15,a$,b$,c$,d$:close15
1010 if a$<>"00" then close5:? a$,b$,c$,d$:end
1020 return
1030 rem 128 users can say:
1040 rem 1000 if left$(ds$,2)<>"00" then ? ds$:close5:end:else return

(Done from memory and untested... should work, though  :)  )

Gregg W. Riedel
consp24@bingsuns.pod.binghamton.edu