>GetPages 1.22 ; About 1986 v0.10 JGH: Initial version at Myers Grove : Early 1988 v1.00 JGH: Tidied version for Micro User (N 20-Apr-1997 v1.10 JGH: Selects magazine, looks on every line for subpage 22 21-Jun-1998 v1.20 JGH: Can do range of pages &FFFF00:"Program must run in the I/O processor.": nK<>&7C00:"SHADOW 1": 7:<>&7C00:"Please turn shadow screen off.": x"23;2,53;0;0;0:assem: err *HON *"Channel: "C:"CH"+C:"MAGAZINE "+C ("Enter Start Page: "P0:"PAGE "+P0 "MAGAZINE "+P0,1) :"Enter End Page"'"(or RETURN for just P";P0;:"): "P1 $"Save name";:P1<>0:" prefix"; ": "SP$ : 0P=P0:::''"Searching for P";P;:"PAGE "+P lp%=1 99:pf%(lp%)=0: *pg%=page:(pg%&FF00):pages%=pg%256 S$=SP$+P,P1<>0) :"SAVE "+S$+" 0+"+~(pages%*1024)+" FFFF7C00 FFFF7C00" ?pg%=pg%&FF:out%=(S$):#out%=1023:#out%,pages%:save(pg%) ::23;2,53;0;0;0 7"P";P:title:lp%=1 pages%:pf%(lp%):146 151 "47:(lp%20)=0:' ,,:31,(2*pg%-1)40,7+2*((pg%-1)20),94,8 69pages%>1:pg%=page &FF:pg%:pf%(pg%)=0:save(pg%) @)f%=0:lp%=1 pages%:f%=f%+pf%(lp%): J%f%>=pages%:CloseOut:P=P+1:P>P1 T:title:'"Finished" ^ *HOFF h r: | ݤpage *TRANSFER 7000 *DISPLAY 7000  VDU23;2,53;0;0;0 &add%=&7C49::!X%=!add%:X%!4=add%!4 9lp%=X%X%+6:?lp%=?lp%127:((?lp%+1)127)<33:?lp%=32 !:X%?7=13:A$=$X%:add%=add%+40 ?I%=A$,"/"):add%>&8000 (I% (A$,I%-2)+A$,I%+1)<>0)) =add%>&8000:0,24);"Can't find page index.";:=&101: :=0 Mp%=A$,I%+1):p%=0 p%>99:0,24);"Invalid magazine size.";:=&101: :=0 =p%*256+A$,I%-2) : save(p%) 0,0);P;"/";p%: mcode% B?X%=out%:X%!1=&FFFF7C28:X%!5=920:X%!9=1024*(p%-1):A%=1: &FFD1  M%=&7000 &7067 4:!M%=0: 9?X%=out%:X%!1=&FFFF7000:X%!5=104:X%!9=1024*(p%-1)+920 & &FFD1:pf%(p%)=1: 0: :2CloseOut:out%=out%:out%:A%=out%:out%=0:#A% D N: X title bp0,1);132;157;131;141;(5)"Teletext Page Downloader"'132;157;131;141;(5)"Teletext Page Downloader" l7" "157;132;" (C)1988,2000 J.G.Harston. V"ver$'' v :  assem  mcode% 50  pass%=0 1  P%=mcode% [OPT pass%*2 LDA #0:STA &70:TAY LDA #&7C:STA &71  .loop LDA (&70),Y CMP #163:BEQ stay CMP #223:BEQ stay CMP #224:BEQ stay CMP #255:BEQ stay   #&7F:CMP #32:BCS stay  A #&80  .stay *STA (&70),Y:INY:BNE loop 4INC &71:BPL loop >RTS H]: R: \err:0,24)(39); f&0,23);:: :" at line ";;: pCloseOut:*HOFF z