10REM > Scroll 20REM Scrolling text file display 30: 40ver$="1.00b":c$="128" 50MODE&80:h%=31:w%=79:IFHIMEM<&8000:M ODE&83:h%=24 60PROCinit:A$=FNOS`GetEnv:*disp ON 70I%=INSTR(A$," -q"):quit$="":IFI%:qu it$=MID$(A$,INSTR(A$," ",I%+1)+1) 80IFLEFT$(A$,2)="-?":PRINT"Syntax: Sc roll <afsp> (-quit (*)<filename>)":PROCe nd:END 90A$=LEFT$(A$,INSTR(A$+" "," ")-1):ca t%=A$="":IFmax%<2500:PRINT"Not enough me mory to run":PROCend:END 100lp$=FNFindLP 110ON ERROR IFFNerr OR A$<>"":PROCend: END 120IFpr% AND f$<>"":pr%=FALSE:OSCLI"di sp ON":OSCLI"CODE 251":cat%=FNlp(f$):f$= "" 130REPEAT:IFcat%:CLS:PRINT">> Scroll V ersion "ver$" - (C) J.G.Harston Buffer size: &";÷max%;" (";max%;" bytes) <<"': OSCLI".":PRINT'"Press SHIFT-Escape to ex it.":*FX4 140REPEAT:cat%=FALSE:f$=A$:IFf$="":INP UTLINE"File: "f$:IF LEFT$(f$,1)="*":OSCL I"CODE 253":OSCLIf$:OSCLI"CODE 251" 150UNTILLEFT$(f$,1)<>"*":cat%=FNlp(f$) :f$="":UNTILA$<>"" 160PROCend:END 170: 180DEFPROCend:*FX4 185CLOSE#0 190*FX229 200*FX225,1 210*CODE 253 220IFquit$<>"":VDU13:PRINT"Exit"; 230IFLEFT$(quit$,1)="*":OSCLIquit$:END PROC 240I%=INSTR(quit$," "):IFI%:OSCLI"KEY0 |@"+MID$(quit$,I%+1)+"|M":*FX138,0,192 250IFquit$<>"":CHAINquit$ 260ENDPROC 270: 280DEFFNerr:IFERR<>17:REPORT:IFERR<128 AND ERR<>17:PRINT" at line ";ERL; ELSE IFERR<>17:PRINT 290cat%=ERR=17:IFch%:A%=ch%:ch%=0:CLOS E#A% 300=INKEY-1 310: 320DEFPROCinit:cat%=TRUE:ch%=0:pr%=FAL SE:f$="" 330max%=HIMEM-TOP-800:DIM ctrl% 20,dat a% max%+4:end%=data%+max% 340ENDPROC 350: 360DEFFNlp(f$):IFf$="":=FALSE 370ch%=OPENIN(f$):IFch%=0:PRINT"File ' "f$"' not found":=FALSE 380len%=EXT#ch%:IFlen%<max%:CLOSE#ch%: ch%=0:PRINT"Loading";:OSCLI"LOAD "+f$+" "+STR$÷(data%) 390fst%=0:IFch%:PROCgbpb(max%,fst%) 400OSCLI"CODE "+c$ 410top%=data%:PROCpage:*FX4,2 420*FX225,176 430*FX226,128 440*FX227,144 450REPEAT:OSCLI"FX21":REPEATK$=GET$:I% =INSTR(CHR$27+CHR$&8E+CHR$&8F+CHR$&9E+CH R$&9F+CHR$&BB+" AQaq/:"+CHR$&BE+CHR$&BF+ "Pp",K$):UNTILI%:i%=I%AND&F9 460IFi%=8 ANDptr%+1+LEN$ptr%>end% ANDc h%:PROCdown 470IFi%=8 ANDptr%<data%+len% ANDptr%+1 +LEN$ptr%<end%:top%=top%+1+LEN$top%:OSCL I"CODE 0":PRINTSPC(79);:VDU13:OSCLI"CODE "+c$:PRINT$ptr%:ptr%=ptr%+1+LEN$ptr%:PR OCline:UNTIL0 480IFi%=9 ANDtop%-100<data% ANDch%:PRO Cup 490IFi%=9:PROCback:UNTIL0 500IFI%=2 ANDptr%+2000>end% ANDch%:PRO Cdown 510IFI%=2 ANDptr%<data%+len% ANDptr%+1 +LEN$ptr%<end%:top%=ptr%:PROCpage:UNTIL0 520IFI%=3:top%=top%-1000:IFtop%<data%: top%=data% ELSE IFI%=3:top%=top%+1+LEN$t op% 530IFI%=3:PROCpage:UNTIL0 540IFI%=4 ANDch% ANDfst%<len%-max%:fst %=len%-max%:PROCgbpb(max%,fst%) 550IFI%=4 ANDch%:top%=end%-1500:top%=t op%+1+LEN$top%:PROCpage:UNTIL0 560IFI%=4:top%=data%+len%-1500:top%=to p%+1+LEN$top%:PROCpage:UNTIL0 570IFI%=5 ANDch% ANDfst%>0:fst%=0:PROC gbpb(max%,0) 580IFI%=5:top%=data%:PROCpage:UNTIL0 590IF(I%AND&FE)=6:c$=STR$(VALc$EOR32): OSCLI"CODE "+c$:PROCpage:UNTIL0 600IF(I%AND&FE)=16:PROCpr 610UNTILI%=1:*FX229 620*FX225,1 630=TRUE 640: 650DEFPROCpage:CLS:VDU13:ptr%=top%:REP EATPRINT$ptr%:ptr%=ptr%+1+LEN$ptr%:UNTIL VPOS>=h% OR ptr%>=data%+len%:IFVPOS<h%:O SCLI"CODE 0":REPEATPRINTSPC(80);:UNTILVP OS=h%:OSCLI"CODE "+c$ 660IFLEN$ptr%=0 AND ?ptr%<>13 PRINT"** * LF terminated text file.";CHR$13; 670PROCline:ENDPROC 680: 690DEFPROCback:IFtop%<=data%:PROCline: ENDPROC 700t%=top%-100:IFt%<data%:t%=data% 710REPEATt%=t%+1+LEN$t%:UNTILt%+1+LEN$ t%>=top%:IFdata%+1+LEN$data%=top%:t%=dat a% 720top%=t%:t%=ptr%-100:REPEATt%=t%+1+L EN$t%:UNTILt%+1+LEN$t%=ptr%:ptr%=t% 730PRINTCHR$30;CHR$11;CHR$13;$top%;TAB (0,h%);:PROCline:ENDPROC 740: 750DEFPROCdown:IFfst%+max%>=len%:ENDPR OC 760f%=fst%+max%DIV2:IFf%+max%>len%:f%= len%-max% 770off%=f%-fst%:IFoff%=0:ENDPROC 780top%=top%-off%:ptr%=ptr%-off%:fst%= f%:PROCgbpb(max%,fst%):ENDPROC 790: 800DEFPROCup:IFfst%=0:ENDPROC 810f%=fst%-max%DIV2:IFf%-max%<0:f%=0 820off%=f%-fst%:IFoff%=0:ENDPROC 830top%=top%-off%:ptr%=ptr%-off%:fst%= f%:PROCgbpb(max%,fst%):ENDPROC 840: 850DEFPROCline:IFADVAL(-1)=0:OSCLI"COD E 0":PRINT"File: "RIGHT$(f$,30);SPC(30-L ENf$);RIGHT$(" "+STR$(100*(ptr%-data%+fs t%-1)DIVlen%),2);"% Cursors move, P: pr intout, Esc to exit";:VDU13:OSCLI"CODE " +c$ 860ENDPROC 870: 880DEFPROCgbpb(n%,p%):LOCAL A%,X%,Y%:X %=ctrl%:Y%=X%DIV256:A%=3:PRINT"Read"; 890?X%=ch%:X%!1=data%:X%!5=n%:X%!9=p%: CALL&FFD1:data%?max%=13:*FX21 900ENDPROC 910: 920DEFPROCpr:PRINTSPC(79);CHR$13;"Prin t out ";f$;" Printout with *";:IFlp $<>"":FORi%=1TO LENlp$:OSCLI"FX138,0,"+S TR$ASCMID$(lp$,i%):NEXT 930INPUT""lp$:IFlp$="":VDU7:PRINT"No p rintout command found";:A%=INKEY(200):PR OCpage:ENDPROC 940pr%=TRUE:OSCLI"CODE 253":PRINT"Prin ting...";:OSCLIlp$+" "+f$:OSCLI"disp ON" :OSCLI"CODE "+c$:pr%=FALSE:PROCpage 950ENDPROC 960: 970DEFFNFindLP:IFFNi("lp")=1:="lp" 980A%=FNi("%.lp"):IFA%=1:="%.lp" 990IFA%=2:IFFNi("%.lp.#"):="%.lp.#" 1000IFA%=2:IFFNi("%.lp.*"):="%.lp.*" 1010IFFNi("$.lp"):="$.lp" 1020IFFNi(":0.$.lp"):=":0.$.lp" 1030="" 1040DEFFNi(f$):LOCALA%,X%,Y%:$data%=f$: X%=ctrl%:Y%=X%DIV256:A%=5:!X%=data%:=(US R&FFDD)AND&FF 1050: 1060DEFFNOS`GetEnv:LOCALA$,A%,X%,Y% 1070IFINKEY(0)=0:REPEAT A%=INKEY(0):A$= A$+CHR$A%:UNTIL A%=-1:OSCLI"KEY0":=LEFT$ (A$,LENA$-1+(RIGHT$(A$,2)<" ")) 1080IF(INKEY-256 AND &F0)=&A0 AND PAGE> &8000:LOADATN "OS`GetEnv" TO A$:=MID$(A$ ,1+INSTR(A$," ",1+INSTR(A$," ",1 +INSTR( A$," ")))) 1090X%=ctrl%:Y%=X%DIV256:A%=9:?X%=0:X%! 1=data%:!data%=0:CALL&FFD1:IF!data%AND?d ata%+data%?2<>8:data%?(1+?data%)=13:=$(d ata%+1) 1100=""