vu2416@bingvaxu.cc.binghamton.edu (vu2416) (03/01/91)
I'll just bury my head in the sand without comments. Okay, okay, this version is COMPLETELY TESTED. Also, it will auto-set fast or slow mode and screen width. -Gregg 10 rem a better 128 text view / printer - g.w. riedel 2/28/91 20 rem version 2- auto set fast/slow 40/80 cols... 30 trap190:print chr$(14);chr$(147);"[S]creen or [P]rinter: "; 40 if rgr(0)=5 then fast:sw=80:else slow:sw=40 50 getkeyy$:if y$<>"s" and y$<>"p" then 50 60 close21:if y$="s" then open 21,3:else open 21,4,7:sw=80 70 print "[";y$;"]":print:print "Filename: ";:open1,0:input#1,f$:close1:print 80 rem read--------------------- 90 open 5,8,4,"0:"+f$+",?,r":if left$(ds$,2)<>"00" then print "Disk error:";ds$:dclose:end 100 get#5,a$:if st=66thendclose:goto140 110 b$=b$+a$:if a$=" " or a$=chr$(13) then 140 120 goto100 130 rem line/page break?---------------------------- 140 if b$=chr$(13) then l=l+1:t$="" 150 if len(t$)+len(b$)+1>(sw-1) then print#21:gosub170:t$="":l=l+1:print#21,b$;:elseprint#21,b$; 160 t$=t$+b$:b$="":goto 100 170 if y$="s" and l>17 then print "PAUSED - PRESS ANY KEY.":l=0:getkeya$:print " ":print ""; 180 return 190 rem trap---------------------------------------- 200 if er<>30thenprint err$(er): resume 210 dclose:print#21:print "[BREAK]":end