> GetPage  By Jonathan Harston  (c) (7 2 err < tx% 20 F _title PSA%=130: (&FFF4 &FFFF00)<>&FFFF00 "Program must run in the I/O processor.": Z*HON d!"Channel: "C:cli("CH"+(C)) n!"Page: "P:cli("PAGE "+(P)) x"Save name: "S$ "Searching for ";P *TRANSFER 7000 *DISPLAY 7000 add%=&7C4B: (M=add%?5:add%?5=13:A$=$add%:add%?5=M /B$="": A=1 A$:B$=B$+(A$,A,1)&7F): add%=add%+&370  B$,"/") add%>&80000 5 B$,"/")=0 0,24);"Can't find page number.";: Xpages%=(B$,B$,"/")+1)): pages%=0 pages%>99 0,24);"Invalid magazine size.";: ?cli("SAVE "+S$+" 0+"+~(pages%*1024)+" FFFF7C28 FFFF7C28") : pf%(pages%),mcode% 60 +add%=add%+B$,"/")-1:B$=B$,B$,"/")-1)  pass%=0 1  P%=mcode% [OPT padd%*2 "LDA #0:STA &70:TAY ,LDA #&7C:STA &71 6 .loop @!LDA (&70),Y:CMP #163:BEQ stay JCMP #223:BEQ stay TCMP #224:BEQ stay ^CMP #255:BEQ stay h #&7F:CMP #32:BCS stay r A #&80 | .stay STA (&70),Y:INY:BNE loop %INC &71:LDA &71:CMP #&80:BNE loop RTS ] 'CHN%=(S$):#CHN%=935:#CHN%,pages% ! B$<48 B$>57 B$=B$,2)  save(B$)  ::: 4"P";P:title: L=1 pages%:pf%(L):146 151 47: (L 20)=0 ' .:31,(2* B$-1) 40,6+2*( B$-1) 20,94,8 cli("PAGE "+(P)) *TRANSFER 7000 *DISPLAY 7000  (?add% &7f)="/" $?add%=13:A$=$(add%-2):?add%="/" &/B$="": A=1 A$:B$=B$+(A$,A,1)&7F): 0! B$<48 B$>57 B$=B$,2) :) B$>pages% :0,20);"Bad data..." D B$<=pages% N pf%( B$)=0 save(B$) X'f%=0: L=1 pages%: pf%(L)=0 f%=1 b: f%=0:#CHN% l:_title:"Finished" v *HOFF  save(B$) 0,0);P;"/";B$  mcode% ;?tx%=CHN%:tx%!1=&FFFF7C28:tx%!5=920:tx%!9=1024*( B$-1) #X%=tx%:Y%=X% 256:A%=1: &FFD1 - A=&7000 &7067 4:!A=0::?&700F=pages% ??tx%=CHN%:tx%!1=&FFFF7000:tx%!5=104:tx%!9=1024*( B$-1)+920  &FFD1 pf%( B$)=1:  _title p0,1);132;157;131;141;(5)"Teletext Page Downloader"'132;157;131;141;(5)"Teletext Page Downloader" -" "157;132;(8)"(C)1988 J.G.Harston"''   err &0,23);:: :" at line ";;:  #0:*HOFF * 4cli($&700): X%,Y% >Y%=7:&FFF7: