Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape26a_acorn_eu_1991_august.wav » GetPage
GetPage
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape26a_acorn_eu_1991_august.wav |
| Filename: | GetPage |
| Read OK: | ✔ |
| File size: | 08B9 bytes |
| Load address: | FFFF1A00 |
| Exec address: | FFFF8023 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- AEW website » mu » mu_5_25_discs_Micro_User_09_06_D-MU09_06.ssd » GetPage
- Personal collection » Acorn tapes » Electron_User » Electron_User_tape26a_acorn_eu_1991_august.wav » GetPage
File contents
10REM GetPage
20REM By Jonathan Harston
30REM (c) The Micro User
40MODE7
50ON ERROR PROCerr
60DIM tx% 20
70PROC_title
80A%=130:IF (USR&FFF4 AND&FFFF00)<>&FFFF00 PRINT"Program must run in the I/O processor.":END
90*HON
100INPUT"Channel: "C:PROCcli("CH"+STR$(C))
110INPUT"Page: "P:PROCcli("PAGE "+STR$(P))
120INPUT"Save name: "S$
130PRINT"Searching for ";P
140*TRANSFER 7000
150*DISPLAY 7000
160add%=&7C4B:REPEAT
170M=add%?5:add%?5=13:A$=$add%:add%?5=M
180B$="":FOR A=1 TO LEN A$:B$=B$+CHR$(ASCMID$(A$,A,1)AND&7F):NEXT
190add%=add%+&370
200UNTIL INSTR(B$,"/") OR add%>&8000
210IF INSTR(B$,"/")=0 PRINTTAB(0,24);"Can't find page number.";:END
220pages%=VAL(MID$(B$,INSTR(B$,"/")+1)):IF pages%=0 OR pages%>99 PRINTTAB(0,24);"Invalid magazine size.";:END
230PROCcli("SAVE "+S$+" 0+"+STR$~(pages%*1024)+" FFFF7C28 FFFF7C28")
240CLS:DIM pf%(pages%),mcode% 60
250add%=add%+INSTR(B$,"/")-1:B$=LEFT$(B$,INSTR(B$,"/")-1)
260FOR pass%=0 TO 1
270P%=mcode%
280[OPT pass%*2
290LDA #0:STA &70:TAY
300LDA #&7C:STA &71
310.loop
320LDA (&70),Y:CMP #163:BEQ stay
330CMP #223:BEQ stay
340CMP #224:BEQ stay
350CMP #255:BEQ stay
360AND #&7F:CMP #32:BCS stay
370ORA #&80
380.stay
390STA (&70),Y:INY:BNE loop
400INC &71:LDA &71:CMP #&80:BNE loop
410RTS
420]NEXT
430CHN%=OPENOUT(S$):PTR#CHN%=935:BPUT#CHN%,pages%
440IF ASC B$<48 OR ASC B$>57 B$=MID$(B$,2)
450PROCsave(B$)
460REPEAT:CLS:REPEAT:REPEAT
470PRINT"P";P:PROC_title:FOR L=1 TO pages%:IF pf%(L)=1 VDU146 ELSE VDU151
480VDU47:IF (L MOD 20)=0 PRINT'
490NEXT:VDU31,(2*VAL B$-1)MOD 40,6+2*(VAL B$-1)DIV20,94,8
500PROCcli("PAGE "+STR$(P))
510*TRANSFER 7000
520*DISPLAY 7000
530UNTIL (?add% AND&7F)=ASC"/"
540?add%=13:A$=$(add%-2):?add%=ASC"/"
550B$="":FOR A=1 TO LEN A$:B$=B$+CHR$(ASCMID$(A$,A,1)AND&7F):NEXT
560IF ASC B$<48 OR ASC B$>57 B$=MID$(B$,2)
570IF VAL B$>pages% CLS:PRINTTAB(0,20);"Bad data..."
580UNTILVAL B$<=pages%
590IF pf%(VAL B$)=0 PROCsave(B$)
600f%=0:FOR L=1 TO pages:IF pf%(L)=0 f%=1
610NEXT:UNTIL f%=0:CLOSE#CHN%
620CLS:PROC_title:PRINT'"Finished"
630*HOFF
640END
650DEFPROCsave(B$)
660PRINTTAB(0,0);P;"/";B$
670CALL mcode%
680?tx%=CHN%:tx%!1=&FFFF7C28:tx%!5=920:tx%!9=1024*(VAL B$-1)
690X%=tx%:Y%=X% DIV 256:A%=1:CALL &FFD1
700FOR A=&7000 TO &7067 STEP4:!A=0:NEXT:?&700F=pages%
710?tx%=CHN%:tx%!1=&FFFF7000:tx%!5=104:tx%!9=1024*(VAL B$-1)+920
720CALL &FFD1
730pf%(VAL B$)=1:ENDPROC
740DEFPROC_title
750PRINTTAB(0,1);CHR$132;CHR$157;CHR$131;CHR$141;SPC(3)"Teletext Page Downloader"'CHR$132;CHR$157;CHR$131;CHR$141;SPC(3)"Teletext Page Downloader"
760PRINT" "CHR$157;CHR$132;SPC(6)"(C)1988 J.G.Harston"''
770ENDPROC
780DEFPROCerr
790PRINTTAB(0,23);:REPORT:ON ERROR REPORT:PRINT" at line ";ERL;:END
800CLOSE#0:*HOFF
810END
820DEFPROCcli($&700)LOCALX%,Y%
830Y%=7:CALL&FFF7:ENDPROC
� GetPage
� By Jonathan Harston
� (c) The Micro User
(�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%>&8000
�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 pass%*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$)
� �:�:�:�
�8�"P";P:�_title:� L=1 � pages%:� pf%(L)=1 �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
�p�0,1);�132;�157;�131;�141;�(3)"Teletext Page Downloader"'�132;�157;�131;�141;�(3)"Teletext Page Downloader"
�-�" "�157;�132;�(6)"(C)1988 J.G.Harston"''
�
��err
&�0,23);:�:� � �:�" at line ";�;:�
�#0:*HOFF
*�
4��cli($&700)�X%,Y%
>Y%=7:�&FFF7:�
� 00000000 0d 00 0a 0d f4 20 47 65 74 50 61 67 65 0d 00 14 |..... GetPage...|
00000010 19 f4 20 42 79 20 4a 6f 6e 61 74 68 61 6e 20 48 |.. By Jonathan H|
00000020 61 72 73 74 6f 6e 0d 00 1e 18 f4 20 28 63 29 20 |arston..... (c) |
00000030 54 68 65 20 4d 69 63 72 6f 20 55 73 65 72 0d 00 |The Micro User..|
00000040 28 06 eb 37 0d 00 32 0c ee 20 85 20 f2 65 72 72 |(..7..2.. . .err|
00000050 0d 00 3c 0c de 20 74 78 25 20 32 30 0d 00 46 0b |..<.. tx% 20..F.|
00000060 f2 5f 74 69 74 6c 65 0d 00 50 53 41 25 3d 31 33 |._title..PSA%=13|
00000070 30 3a e7 20 28 ba 26 46 46 46 34 20 80 26 46 46 |0:. (.&FFF4 .&FF|
00000080 46 46 30 30 29 3c 3e 26 46 46 46 46 30 30 20 f1 |FF00)<>&FFFF00 .|
00000090 22 50 72 6f 67 72 61 6d 20 6d 75 73 74 20 72 75 |"Program must ru|
000000a0 6e 20 69 6e 20 74 68 65 20 49 2f 4f 20 70 72 6f |n in the I/O pro|
000000b0 63 65 73 73 6f 72 2e 22 3a e0 0d 00 5a 08 2a 48 |cessor.":...Z.*H|
000000c0 4f 4e 0d 00 64 21 e8 22 43 68 61 6e 6e 65 6c 3a |ON..d!."Channel:|
000000d0 20 22 43 3a f2 63 6c 69 28 22 43 48 22 2b c3 28 | "C:.cli("CH"+.(|
000000e0 43 29 29 0d 00 6e 21 e8 22 50 61 67 65 3a 20 22 |C))..n!."Page: "|
000000f0 50 3a f2 63 6c 69 28 22 50 41 47 45 20 22 2b c3 |P:.cli("PAGE "+.|
00000100 28 50 29 29 0d 00 78 14 e8 22 53 61 76 65 20 6e |(P))..x.."Save n|
00000110 61 6d 65 3a 20 22 53 24 0d 00 82 17 f1 22 53 65 |ame: "S$....."Se|
00000120 61 72 63 68 69 6e 67 20 66 6f 72 20 22 3b 50 0d |arching for ";P.|
00000130 00 8c 12 2a 54 52 41 4e 53 46 45 52 20 37 30 30 |...*TRANSFER 700|
00000140 30 0d 00 96 11 2a 44 49 53 50 4c 41 59 20 37 30 |0....*DISPLAY 70|
00000150 30 30 0d 00 a0 10 61 64 64 25 3d 26 37 43 34 42 |00....add%=&7C4B|
00000160 3a f5 0d 00 aa 28 4d 3d 61 64 64 25 3f 35 3a 61 |:....(M=add%?5:a|
00000170 64 64 25 3f 35 3d 31 33 3a 41 24 3d 24 61 64 64 |dd%?5=13:A$=$add|
00000180 25 3a 61 64 64 25 3f 35 3d 4d 0d 00 b4 2f 42 24 |%:add%?5=M.../B$|
00000190 3d 22 22 3a e3 20 41 3d 31 20 b8 20 a9 20 41 24 |="":. A=1 . . A$|
000001a0 3a 42 24 3d 42 24 2b bd 28 97 c1 41 24 2c 41 2c |:B$=B$+.(..A$,A,|
000001b0 31 29 80 26 37 46 29 3a ed 0d 00 be 12 61 64 64 |1).&7F):.....add|
000001c0 25 3d 61 64 64 25 2b 26 33 37 30 0d 00 c8 1b fd |%=add%+&370.....|
000001d0 20 a7 42 24 2c 22 2f 22 29 20 84 20 61 64 64 25 | .B$,"/") . add%|
000001e0 3e 26 38 30 30 30 0d 00 d2 35 e7 20 a7 42 24 2c |>&8000...5. .B$,|
000001f0 22 2f 22 29 3d 30 20 f1 8a 30 2c 32 34 29 3b 22 |"/")=0 ..0,24);"|
00000200 43 61 6e 27 74 20 66 69 6e 64 20 70 61 67 65 20 |Can't find page |
00000210 6e 75 6d 62 65 72 2e 22 3b 3a e0 0d 00 dc 58 70 |number.";:....Xp|
00000220 61 67 65 73 25 3d bb 28 c1 42 24 2c a7 42 24 2c |ages%=.(.B$,.B$,|
00000230 22 2f 22 29 2b 31 29 29 3a e7 20 70 61 67 65 73 |"/")+1)):. pages|
00000240 25 3d 30 20 84 20 70 61 67 65 73 25 3e 39 39 20 |%=0 . pages%>99 |
00000250 f1 8a 30 2c 32 34 29 3b 22 49 6e 76 61 6c 69 64 |..0,24);"Invalid|
00000260 20 6d 61 67 61 7a 69 6e 65 20 73 69 7a 65 2e 22 | magazine size."|
00000270 3b 3a e0 0d 00 e6 3f f2 63 6c 69 28 22 53 41 56 |;:....?.cli("SAV|
00000280 45 20 22 2b 53 24 2b 22 20 30 2b 22 2b c3 7e 28 |E "+S$+" 0+"+.~(|
00000290 70 61 67 65 73 25 2a 31 30 32 34 29 2b 22 20 46 |pages%*1024)+" F|
000002a0 46 46 46 37 43 32 38 20 46 46 46 46 37 43 32 38 |FFF7C28 FFFF7C28|
000002b0 22 29 0d 00 f0 1d db 3a de 20 70 66 25 28 70 61 |").....:. pf%(pa|
000002c0 67 65 73 25 29 2c 6d 63 6f 64 65 25 20 36 30 0d |ges%),mcode% 60.|
000002d0 00 fa 2b 61 64 64 25 3d 61 64 64 25 2b a7 42 24 |..+add%=add%+.B$|
000002e0 2c 22 2f 22 29 2d 31 3a 42 24 3d c0 42 24 2c a7 |,"/")-1:B$=.B$,.|
000002f0 42 24 2c 22 2f 22 29 2d 31 29 0d 01 04 11 e3 20 |B$,"/")-1)..... |
00000300 70 61 73 73 25 3d 30 20 b8 20 31 0d 01 0e 0d 50 |pass%=0 . 1....P|
00000310 25 3d 6d 63 6f 64 65 25 0d 01 18 10 5b 4f 50 54 |%=mcode%....[OPT|
00000320 20 70 61 73 73 25 2a 32 0d 01 22 16 4c 44 41 20 | pass%*2..".LDA |
00000330 23 30 3a 53 54 41 20 26 37 30 3a 54 41 59 0d 01 |#0:STA &70:TAY..|
00000340 2c 14 4c 44 41 20 23 26 37 43 3a 53 54 41 20 26 |,.LDA #&7C:STA &|
00000350 37 31 0d 01 36 09 2e 6c 6f 6f 70 0d 01 40 21 4c |71..6..loop..@!L|
00000360 44 41 20 28 26 37 30 29 2c 59 3a 43 4d 50 20 23 |DA (&70),Y:CMP #|
00000370 31 36 33 3a 42 45 51 20 73 74 61 79 0d 01 4a 15 |163:BEQ stay..J.|
00000380 43 4d 50 20 23 32 32 33 3a 42 45 51 20 73 74 61 |CMP #223:BEQ sta|
00000390 79 0d 01 54 15 43 4d 50 20 23 32 32 34 3a 42 45 |y..T.CMP #224:BE|
000003a0 51 20 73 74 61 79 0d 01 5e 15 43 4d 50 20 23 32 |Q stay..^.CMP #2|
000003b0 35 35 3a 42 45 51 20 73 74 61 79 0d 01 68 1b 80 |55:BEQ stay..h..|
000003c0 20 23 26 37 46 3a 43 4d 50 20 23 33 32 3a 42 43 | #&7F:CMP #32:BC|
000003d0 53 20 73 74 61 79 0d 01 72 0b 84 41 20 23 26 38 |S stay..r..A #&8|
000003e0 30 0d 01 7c 09 2e 73 74 61 79 0d 01 86 1c 53 54 |0..|..stay....ST|
000003f0 41 20 28 26 37 30 29 2c 59 3a 49 4e 59 3a 42 4e |A (&70),Y:INY:BN|
00000400 45 20 6c 6f 6f 70 0d 01 90 25 49 4e 43 20 26 37 |E loop...%INC &7|
00000410 31 3a 4c 44 41 20 26 37 31 3a 43 4d 50 20 23 26 |1:LDA &71:CMP #&|
00000420 38 30 3a 42 4e 45 20 6c 6f 6f 70 0d 01 9a 07 52 |80:BNE loop....R|
00000430 54 53 0d 01 a4 06 5d ed 0d 01 ae 27 43 48 4e 25 |TS....]....'CHN%|
00000440 3d ae 28 53 24 29 3a cf 23 43 48 4e 25 3d 39 33 |=.(S$):.#CHN%=93|
00000450 35 3a d5 23 43 48 4e 25 2c 70 61 67 65 73 25 0d |5:.#CHN%,pages%.|
00000460 01 b8 21 e7 20 97 20 42 24 3c 34 38 20 84 20 97 |..!. . B$<48 . .|
00000470 20 42 24 3e 35 37 20 42 24 3d c1 42 24 2c 32 29 | B$>57 B$=.B$,2)|
00000480 0d 01 c2 0d f2 73 61 76 65 28 42 24 29 0d 01 cc |.....save(B$)...|
00000490 0b f5 3a db 3a f5 3a f5 0d 01 d6 38 f1 22 50 22 |..:.:.:....8."P"|
000004a0 3b 50 3a f2 5f 74 69 74 6c 65 3a e3 20 4c 3d 31 |;P:._title:. L=1|
000004b0 20 b8 20 70 61 67 65 73 25 3a e7 20 70 66 25 28 | . pages%:. pf%(|
000004c0 4c 29 3d 31 20 ef 31 34 36 20 8b 20 ef 31 35 31 |L)=1 .146 . .151|
000004d0 0d 01 e0 17 ef 34 37 3a e7 20 28 4c 20 83 20 32 |.....47:. (L . 2|
000004e0 30 29 3d 30 20 f1 27 0d 01 ea 2d ed 3a ef 33 31 |0)=0 .'...-.:.31|
000004f0 2c 28 32 2a bb 20 42 24 2d 31 29 83 20 34 30 2c |,(2*. B$-1). 40,|
00000500 36 2b 32 2a 28 bb 20 42 24 2d 31 29 81 32 30 2c |6+2*(. B$-1).20,|
00000510 39 34 2c 38 0d 01 f4 16 f2 63 6c 69 28 22 50 41 |94,8.....cli("PA|
00000520 47 45 20 22 2b c3 28 50 29 29 0d 01 fe 12 2a 54 |GE "+.(P))....*T|
00000530 52 41 4e 53 46 45 52 20 37 30 30 30 0d 02 08 11 |RANSFER 7000....|
00000540 2a 44 49 53 50 4c 41 59 20 37 30 30 30 0d 02 12 |*DISPLAY 7000...|
00000550 17 fd 20 28 3f 61 64 64 25 20 80 26 37 46 29 3d |.. (?add% .&7F)=|
00000560 97 22 2f 22 0d 02 1c 24 3f 61 64 64 25 3d 31 33 |."/"...$?add%=13|
00000570 3a 41 24 3d 24 28 61 64 64 25 2d 32 29 3a 3f 61 |:A$=$(add%-2):?a|
00000580 64 64 25 3d 97 22 2f 22 0d 02 26 2f 42 24 3d 22 |dd%=."/"..&/B$="|
00000590 22 3a e3 20 41 3d 31 20 b8 20 a9 20 41 24 3a 42 |":. A=1 . . A$:B|
000005a0 24 3d 42 24 2b bd 28 97 c1 41 24 2c 41 2c 31 29 |$=B$+.(..A$,A,1)|
000005b0 80 26 37 46 29 3a ed 0d 02 30 21 e7 20 97 20 42 |.&7F):...0!. . B|
000005c0 24 3c 34 38 20 84 20 97 20 42 24 3e 35 37 20 42 |$<48 . . B$>57 B|
000005d0 24 3d c1 42 24 2c 32 29 0d 02 3a 29 e7 20 bb 20 |$=.B$,2)..:). . |
000005e0 42 24 3e 70 61 67 65 73 25 20 db 3a f1 8a 30 2c |B$>pages% .:..0,|
000005f0 32 30 29 3b 22 42 61 64 20 64 61 74 61 2e 2e 2e |20);"Bad data...|
00000600 22 0d 02 44 11 fd bb 20 42 24 3c 3d 70 61 67 65 |"..D... B$<=page|
00000610 73 25 0d 02 4e 1b e7 20 70 66 25 28 bb 20 42 24 |s%..N.. pf%(. B$|
00000620 29 3d 30 20 f2 73 61 76 65 28 42 24 29 0d 02 58 |)=0 .save(B$)..X|
00000630 26 66 25 3d 30 3a e3 20 4c 3d 31 20 b8 20 70 61 |&f%=0:. L=1 . pa|
00000640 67 65 73 3a e7 20 70 66 25 28 4c 29 3d 30 20 66 |ges:. pf%(L)=0 f|
00000650 25 3d 31 0d 02 62 13 ed 3a fd 20 66 25 3d 30 3a |%=1..b..:. f%=0:|
00000660 d9 23 43 48 4e 25 0d 02 6c 1a db 3a f2 5f 74 69 |.#CHN%..l..:._ti|
00000670 74 6c 65 3a f1 27 22 46 69 6e 69 73 68 65 64 22 |tle:.'"Finished"|
00000680 0d 02 76 09 2a 48 4f 46 46 0d 02 80 05 e0 0d 02 |..v.*HOFF.......|
00000690 8a 0e dd f2 73 61 76 65 28 42 24 29 0d 02 94 13 |....save(B$)....|
000006a0 f1 8a 30 2c 30 29 3b 50 3b 22 2f 22 3b 42 24 0d |..0,0);P;"/";B$.|
000006b0 02 9e 0c d6 20 6d 63 6f 64 65 25 0d 02 a8 3b 3f |.... mcode%...;?|
000006c0 74 78 25 3d 43 48 4e 25 3a 74 78 25 21 31 3d 26 |tx%=CHN%:tx%!1=&|
000006d0 46 46 46 46 37 43 32 38 3a 74 78 25 21 35 3d 39 |FFFF7C28:tx%!5=9|
000006e0 32 30 3a 74 78 25 21 39 3d 31 30 32 34 2a 28 bb |20:tx%!9=1024*(.|
000006f0 20 42 24 2d 31 29 0d 02 b2 23 58 25 3d 74 78 25 | B$-1)...#X%=tx%|
00000700 3a 59 25 3d 58 25 20 81 20 32 35 36 3a 41 25 3d |:Y%=X% . 256:A%=|
00000710 31 3a d6 20 26 46 46 44 31 0d 02 bc 2d e3 20 41 |1:. &FFD1...-. A|
00000720 3d 26 37 30 30 30 20 b8 20 26 37 30 36 37 20 88 |=&7000 . &7067 .|
00000730 34 3a 21 41 3d 30 3a ed 3a 3f 26 37 30 30 46 3d |4:!A=0:.:?&700F=|
00000740 70 61 67 65 73 25 0d 02 c6 3f 3f 74 78 25 3d 43 |pages%...??tx%=C|
00000750 48 4e 25 3a 74 78 25 21 31 3d 26 46 46 46 46 37 |HN%:tx%!1=&FFFF7|
00000760 30 30 30 3a 74 78 25 21 35 3d 31 30 34 3a 74 78 |000:tx%!5=104:tx|
00000770 25 21 39 3d 31 30 32 34 2a 28 bb 20 42 24 2d 31 |%!9=1024*(. B$-1|
00000780 29 2b 39 32 30 0d 02 d0 0b d6 20 26 46 46 44 31 |)+920..... &FFD1|
00000790 0d 02 da 11 70 66 25 28 bb 20 42 24 29 3d 31 3a |....pf%(. B$)=1:|
000007a0 e1 0d 02 e4 0c dd f2 5f 74 69 74 6c 65 0d 02 ee |......._title...|
000007b0 70 f1 8a 30 2c 31 29 3b bd 31 33 32 3b bd 31 35 |p..0,1);.132;.15|
000007c0 37 3b bd 31 33 31 3b bd 31 34 31 3b 89 28 33 29 |7;.131;.141;.(3)|
000007d0 22 54 65 6c 65 74 65 78 74 20 50 61 67 65 20 44 |"Teletext Page D|
000007e0 6f 77 6e 6c 6f 61 64 65 72 22 27 bd 31 33 32 3b |ownloader"'.132;|
000007f0 bd 31 35 37 3b bd 31 33 31 3b bd 31 34 31 3b 89 |.157;.131;.141;.|
00000800 28 33 29 22 54 65 6c 65 74 65 78 74 20 50 61 67 |(3)"Teletext Pag|
00000810 65 20 44 6f 77 6e 6c 6f 61 64 65 72 22 0d 02 f8 |e Downloader"...|
00000820 2d f1 22 20 22 bd 31 35 37 3b bd 31 33 32 3b 89 |-." ".157;.132;.|
00000830 28 36 29 22 28 43 29 31 39 38 38 20 4a 2e 47 2e |(6)"(C)1988 J.G.|
00000840 48 61 72 73 74 6f 6e 22 27 27 0d 03 02 05 e1 0d |Harston"''......|
00000850 03 0c 09 dd f2 65 72 72 0d 03 16 26 f1 8a 30 2c |.....err...&..0,|
00000860 32 33 29 3b 3a f6 3a ee 20 85 20 f6 3a f1 22 20 |23);:.:. . .:." |
00000870 61 74 20 6c 69 6e 65 20 22 3b 9e 3b 3a e0 0d 03 |at line ";.;:...|
00000880 20 0d d9 23 30 3a 2a 48 4f 46 46 0d 03 2a 05 e0 | ..#0:*HOFF..*..|
00000890 0d 03 34 16 dd f2 63 6c 69 28 24 26 37 30 30 29 |..4...cli($&700)|
000008a0 ea 58 25 2c 59 25 0d 03 3e 11 59 25 3d 37 3a d6 |.X%,Y%..>.Y%=7:.|
000008b0 26 46 46 46 37 3a e1 0d ff |&FFF7:...|
000008b9 
GetPage.m0
GetPage.m1
GetPage.m2
GetPage.m4
GetPage.m5
.