vu2416@bingvaxu.cc.binghamton.edu (vu2416) (03/01/91)
1. My sincere apologies for sending that last text viewer. Two bugs... the semicolon after the print statement and the error checking routine for the 64 (all that input#15 stuff) screwed everything up (it works fine if you use the line for 128 users, tho') 2. To make up for #1, here's a TESTED viewer/printer for the **128** that will break lines and pause in between pages. It was written for the 80 column mode... change the value of "pos(0)>70" to somewhere around 35 (line 130) and the 79 to 39 in line 140 for 40 columns. 10 rem a better 128 text view / printer - g.w. riedel 2/28/91 20 fast:trap 160:print chr$(14);"[S]creen or [P]rinter: "; 30 getkeyy$:if y$<>"s" and y$<>"p" then 30 40 close21:if y$="s" then open 21,3:else open 21,4,7 50 print "[";y$;"]":print:print "Filename: ";:open1,0:input#1,f$:close1:print 60 rem read--------------------- 70 open 5,8,4,"0:"+f$+",?,r":if left$(ds$,2)<>"00" then print "Disk error:";ds$:dclose:end 80 get#5,a$:if st=66thendclose:goto120 90 b$=b$+a$:if a$=" " or a$=chr$(13) then 120 100 goto80 110 rem line/page break?---------------------------- 120 if b$=chr$(13) then l=l+1 130 if l>17and pos(0)>70then print:print "PAUSED - PRESS ANY KEY.":l=0:getkeya$:print " ":print ""; 140 if pos(0)+len(b$)+1>79 then print:l=l+1:print b$;:else print b$; 150 b$="":goto 80 160 rem trap---------------------------------------- 170 if er<>30then resume 180 dclose:print:print "[BREAK]":end Gregg W. Riedel consp24@bingsuns.pod.binghamton.edu