� ********************
� * (C) J.J.Brayshaw *
� *  1st June 1988   *
(� ********************
2� * A newspaper from *
<� *   CEEFAX pages   *
F� ********************
P:
Z
*TTXON
d
*TV0,1
n�7
x
�C% 30
�=�adapter<>0 �''�134;"Sorry, not receiving teletext."'':�
��23;8202;0;0;0;
�
*TELESOFT
��L$(40)
�� U% &4400
�*HON
�	*BBC1
�
�setpages
��N%=0�16
�7�setgrabber(N%,1,�("&"+�(N%+2)),&3F7F,U%+(N%*&400))
��
��select
��wait_for_pages

�stop_updates

	*HOFF

'�131:� change to mode 7 for model B

"�print%:�2

,"�file%:�oscli("SPOOL "+fname$)

6�printpages

@*TTXOFF

J
*SPOOL

T�3

^�reset_grabbers

h�

r:

|��setpages

�C%?0=7:C%?1=24

�%A%=&7A:X%=C%�256:Y%=C%�256:�&FFF1

��

�:

�"��setgrabber(n%,m%,p%,sp%,st%)

�%A%=&7A:C%?0=5:X%=C%�256:Y%=C%�256

�OC%?1=n%:C%?2=m%:C%?3=p%:C%?4=sp%�256:C%?5=sp%�256:C%?6=st%�256:C%?7=st%�256

�
�&FFF1

��

�:

�ݤcheck_got(no%)

�%A%=&7A:C%?0=2:X%=C%�256:Y%=C%�256

�C%?1=no%:�&FFF1
�(C%?2)�2=2 =� � =�
:
��oscli(s$)
&X%=C%�256:Y%=C%�256:$C%=s$
0
�&FFF7
:�
D:
N��stop_updates
X%A%=&7A:C%?0=2:X%=C%�256:Y%=C%�256
b�J%=0�16
l�
vC%?1=J%:�&FFF1
��((C%?2)�4)=0
��set_hold(J%)
��
��
�:
���set_hold(no%)
�%A%=&7A:C%?0=3:X%=C%�256:Y%=C%�256
�C%?1=no%:C%?2=3:�&FFF1
��
�:
���reset_grabbers
�A%=&7A:X%=C%�256:Y%=C%�256
�C%?0=14

�&FFF1
�
:
 ��wait_for_pages
*
�:S%=�
4$�G%=0�16:� � �check_got(G%) S%=�
>�
H	�S%=�
R�
\:
f��printpages
p� C%,G%
z�"CEEFAX News ";:*TDATE
��"======================"
��"Time: ";:*TTIME
��"=============="
�#�G%=U%+&400 � (U%+&4000) � &400
��CL%=0�40:L$(CL%)="":�
�%�C%=G%+160 � G%+960:?C%=(?C%)�&7F
�&�?C%=19 � ?(C%+1)=175 ?(C%+1)=�"*"
��?C%<32 ?C%=32
�,� IF?C%=35 ?C%=<Printer code for ` sign>
��?C%=96 ?C%=45
��
�$�''�printtitle(((G%-U%)�&400)+2)
�	LC%=0
�C%=G%+160 � G%+880 �40

LC%=LC%+1
0TE%=?(C%+40):?(C%+40)=&D:L$=$C%:?(C%+40)=TE%
$1� L$=�40," ") L$(LC%)="":LC%=LC%+1:�checkline
.
TE%=40
88�L$,TE%,1)=" ":�:TE%=TE%-1:��L$,TE%,1)<>" " � TE%=0
B<LE%=0:�:LE%=LE%+1:��L$,(LE%+1),1)<>" ":L$=�L$,�(L$)-LE%)
LL$(LC%)=�L$,TE%-LE%)
V�
`�LC%=1�38 � 2
j:�LC%>2:�L$(LC%-2)+L$(LC%-1)+L$(LC%)+L$(LC%+1)="" �D~D
t�L$(LC%);" ";L$(LC%+1)
~�
��
��
�:
���checkline
�"� LC%�2=1 L$(LC%)="":LC%=LC%+1
��
�:
�ݤprinttitle(pn%)
�st%=U%+((pn%+4)*40)+10
�1�z%=st% � st%+40:?z%=(?z%)�&7F:�?z%<32 ?z%=32
��
�)t%=st%?40:st%?40=&D:L$=$st%:st%?40=t%

TE%=30

�L$=�TE%," ") =""
8�L$,TE%,1)=" ":�:TE%=TE%-1:��L$,TE%,1)<>" " � TE%=0
7� �L$,1)=" " L$=�L$,�(L$)-1):TE%=TE%-1:�TE%<0 TE%=0
(=�L$,TE%)+�10+�13+�TE%,"=")
2:
<
ݤadapter
F
A%=&7A
PX%=C%  �256:Y%=C% �256
ZC%?0=17
d
�&FFF1
n	=C%?1
x��select
�8�5,1);:�141,132,157,131:�"CEEFAX News Print ";:�156
�8�5,2);:�141,132,157,131:�"CEEFAX News Print ";:�156
�/�''�134;"Send details to file? (Y/N)";�131;
�?�:Q=� �&DF:�Q=78 � Q=89:�Q=89 �"Yes":file%=� ��"No":file%=�
�.�file%:�'�134;"File name:";�131;:�""fname$
�*�''�134;"Print newspaper? (Y/N)";�131;
�A�:Q=� �&DF:�Q=78 � Q=89:�Q=89 �"Yes":print%=� ��"No":print%=�
�)�''�131;"Waiting for news pages ...";
��
�

00000000  0d 00 0a 1a f4 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |..... **********|
00000010  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 0d 00 14 1a f4 20  |**********..... |
00000020  2a 20 28 43 29 20 4a 2e  4a 2e 42 72 61 79 73 68  |* (C) J.J.Braysh|
00000030  61 77 20 2a 0d 00 1e 1a  f4 20 2a 20 20 31 73 74  |aw *..... *  1st|
00000040  20 4a 75 6e 65 20 31 39  38 38 20 20 20 2a 0d 00  | June 1988   *..|
00000050  28 1a f4 20 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |(.. ************|
00000060  2a 2a 2a 2a 2a 2a 2a 2a  0d 00 32 1a f4 20 2a 20  |********..2.. * |
00000070  41 20 6e 65 77 73 70 61  70 65 72 20 66 72 6f 6d  |A newspaper from|
00000080  20 2a 0d 00 3c 1a f4 20  2a 20 20 20 43 45 45 46  | *..<.. *   CEEF|
00000090  41 58 20 70 61 67 65 73  20 20 20 2a 0d 00 46 1a  |AX pages   *..F.|
000000a0  f4 20 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |. **************|
000000b0  2a 2a 2a 2a 2a 2a 0d 00  50 05 3a 0d 00 5a 0a 2a  |******..P.:..Z.*|
000000c0  54 54 58 4f 4e 0d 00 64  0a 2a 54 56 30 2c 31 0d  |TTXON..d.*TV0,1.|
000000d0  00 6e 06 eb 37 0d 00 78  0a de 43 25 20 33 30 0d  |.n..7..x..C% 30.|
000000e0  00 82 3d e7 a4 61 64 61  70 74 65 72 3c 3e 30 20  |..=..adapter<>0 |
000000f0  f1 27 27 bd 31 33 34 3b  22 53 6f 72 72 79 2c 20  |.''.134;"Sorry, |
00000100  6e 6f 74 20 72 65 63 65  69 76 69 6e 67 20 74 65  |not receiving te|
00000110  6c 65 74 65 78 74 2e 22  27 27 3a e0 0d 00 8c 13  |letext."'':.....|
00000120  ef 32 33 3b 38 32 30 32  3b 30 3b 30 3b 30 3b 0d  |.23;8202;0;0;0;.|
00000130  00 96 0d 2a 54 45 4c 45  53 4f 46 54 0d 00 a0 0b  |...*TELESOFT....|
00000140  de 4c 24 28 34 30 29 0d  00 aa 0e de 20 55 25 20  |.L$(40)..... U% |
00000150  26 34 34 30 30 0d 00 b4  08 2a 48 4f 4e 0d 00 be  |&4400....*HON...|
00000160  09 2a 42 42 43 31 0d 00  c8 0d f2 73 65 74 70 61  |.*BBC1.....setpa|
00000170  67 65 73 0d 00 d2 0c e3  4e 25 3d 30 b8 31 36 0d  |ges.....N%=0.16.|
00000180  00 dc 37 f2 73 65 74 67  72 61 62 62 65 72 28 4e  |..7.setgrabber(N|
00000190  25 2c 31 2c a0 28 22 26  22 2b c3 28 4e 25 2b 32  |%,1,.("&"+.(N%+2|
000001a0  29 29 2c 26 33 46 37 46  2c 55 25 2b 28 4e 25 2a  |)),&3F7F,U%+(N%*|
000001b0  26 34 30 30 29 29 0d 00  e6 05 ed 0d 00 f0 0b f2  |&400))..........|
000001c0  73 65 6c 65 63 74 0d 00  fa 13 f2 77 61 69 74 5f  |select.....wait_|
000001d0  66 6f 72 5f 70 61 67 65  73 0d 01 04 11 f2 73 74  |for_pages.....st|
000001e0  6f 70 5f 75 70 64 61 74  65 73 0d 01 0e 09 2a 48  |op_updates....*H|
000001f0  4f 46 46 0d 01 18 27 eb  31 33 31 3a f4 20 63 68  |OFF...'.131:. ch|
00000200  61 6e 67 65 20 74 6f 20  6d 6f 64 65 20 37 20 66  |ange to mode 7 f|
00000210  6f 72 20 6d 6f 64 65 6c  20 42 0d 01 22 0e e7 70  |or model B.."..p|
00000220  72 69 6e 74 25 3a ef 32  0d 01 2c 22 e7 66 69 6c  |rint%:.2..,".fil|
00000230  65 25 3a f2 6f 73 63 6c  69 28 22 53 50 4f 4f 4c  |e%:.oscli("SPOOL|
00000240  20 22 2b 66 6e 61 6d 65  24 29 0d 01 36 0f f2 70  | "+fname$)..6..p|
00000250  72 69 6e 74 70 61 67 65  73 0d 01 40 0b 2a 54 54  |rintpages..@.*TT|
00000260  58 4f 46 46 0d 01 4a 0a  2a 53 50 4f 4f 4c 0d 01  |XOFF..J.*SPOOL..|
00000270  54 06 ef 33 0d 01 5e 13  f2 72 65 73 65 74 5f 67  |T..3..^..reset_g|
00000280  72 61 62 62 65 72 73 0d  01 68 05 e0 0d 01 72 05  |rabbers..h....r.|
00000290  3a 0d 01 7c 0e dd f2 73  65 74 70 61 67 65 73 0d  |:..|...setpages.|
000002a0  01 86 12 43 25 3f 30 3d  37 3a 43 25 3f 31 3d 32  |...C%?0=7:C%?1=2|
000002b0  34 0d 01 90 25 41 25 3d  26 37 41 3a 58 25 3d 43  |4...%A%=&7A:X%=C|
000002c0  25 83 32 35 36 3a 59 25  3d 43 25 81 32 35 36 3a  |%.256:Y%=C%.256:|
000002d0  d6 26 46 46 46 31 0d 01  9a 05 e1 0d 01 a4 05 3a  |.&FFF1.........:|
000002e0  0d 01 ae 22 dd f2 73 65  74 67 72 61 62 62 65 72  |..."..setgrabber|
000002f0  28 6e 25 2c 6d 25 2c 70  25 2c 73 70 25 2c 73 74  |(n%,m%,p%,sp%,st|
00000300  25 29 0d 01 b8 25 41 25  3d 26 37 41 3a 43 25 3f  |%)...%A%=&7A:C%?|
00000310  30 3d 35 3a 58 25 3d 43  25 83 32 35 36 3a 59 25  |0=5:X%=C%.256:Y%|
00000320  3d 43 25 81 32 35 36 0d  01 c2 4f 43 25 3f 31 3d  |=C%.256...OC%?1=|
00000330  6e 25 3a 43 25 3f 32 3d  6d 25 3a 43 25 3f 33 3d  |n%:C%?2=m%:C%?3=|
00000340  70 25 3a 43 25 3f 34 3d  73 70 25 81 32 35 36 3a  |p%:C%?4=sp%.256:|
00000350  43 25 3f 35 3d 73 70 25  83 32 35 36 3a 43 25 3f  |C%?5=sp%.256:C%?|
00000360  36 3d 73 74 25 83 32 35  36 3a 43 25 3f 37 3d 73  |6=st%.256:C%?7=s|
00000370  74 25 81 32 35 36 0d 01  cc 0a d6 26 46 46 46 31  |t%.256.....&FFF1|
00000380  0d 01 d6 05 e1 0d 01 e0  05 3a 0d 01 ea 14 dd a4  |.........:......|
00000390  63 68 65 63 6b 5f 67 6f  74 28 6e 6f 25 29 0d 01  |check_got(no%)..|
000003a0  f4 25 41 25 3d 26 37 41  3a 43 25 3f 30 3d 32 3a  |.%A%=&7A:C%?0=2:|
000003b0  58 25 3d 43 25 83 32 35  36 3a 59 25 3d 43 25 81  |X%=C%.256:Y%=C%.|
000003c0  32 35 36 0d 01 fe 13 43  25 3f 31 3d 6e 6f 25 3a  |256....C%?1=no%:|
000003d0  d6 26 46 46 46 31 0d 02  08 17 e7 28 43 25 3f 32  |.&FFF1.....(C%?2|
000003e0  29 80 32 3d 32 20 3d b9  20 8b 20 3d a3 0d 02 12  |).2=2 =. . =....|
000003f0  05 3a 0d 02 1c 0f dd f2  6f 73 63 6c 69 28 73 24  |.:......oscli(s$|
00000400  29 0d 02 26 1e 58 25 3d  43 25 83 32 35 36 3a 59  |)..&.X%=C%.256:Y|
00000410  25 3d 43 25 81 32 35 36  3a 24 43 25 3d 73 24 0d  |%=C%.256:$C%=s$.|
00000420  02 30 0a d6 26 46 46 46  37 0d 02 3a 05 e1 0d 02  |.0..&FFF7..:....|
00000430  44 05 3a 0d 02 4e 12 dd  f2 73 74 6f 70 5f 75 70  |D.:..N...stop_up|
00000440  64 61 74 65 73 0d 02 58  25 41 25 3d 26 37 41 3a  |dates..X%A%=&7A:|
00000450  43 25 3f 30 3d 32 3a 58  25 3d 43 25 83 32 35 36  |C%?0=2:X%=C%.256|
00000460  3a 59 25 3d 43 25 81 32  35 36 0d 02 62 0c e3 4a  |:Y%=C%.256..b..J|
00000470  25 3d 30 b8 31 36 0d 02  6c 05 f5 0d 02 76 12 43  |%=0.16..l....v.C|
00000480  25 3f 31 3d 4a 25 3a d6  26 46 46 46 31 0d 02 80  |%?1=J%:.&FFF1...|
00000490  11 fd 28 28 43 25 3f 32  29 80 34 29 3d 30 0d 02  |..((C%?2).4)=0..|
000004a0  8a 11 f2 73 65 74 5f 68  6f 6c 64 28 4a 25 29 0d  |...set_hold(J%).|
000004b0  02 94 05 ed 0d 02 9e 05  e1 0d 02 a8 05 3a 0d 02  |.............:..|
000004c0  b2 13 dd f2 73 65 74 5f  68 6f 6c 64 28 6e 6f 25  |....set_hold(no%|
000004d0  29 0d 02 bc 25 41 25 3d  26 37 41 3a 43 25 3f 30  |)...%A%=&7A:C%?0|
000004e0  3d 33 3a 58 25 3d 43 25  83 32 35 36 3a 59 25 3d  |=3:X%=C%.256:Y%=|
000004f0  43 25 81 32 35 36 0d 02  c6 1a 43 25 3f 31 3d 6e  |C%.256....C%?1=n|
00000500  6f 25 3a 43 25 3f 32 3d  33 3a d6 26 46 46 46 31  |o%:C%?2=3:.&FFF1|
00000510  0d 02 d0 05 e1 0d 02 da  05 3a 0d 02 e4 14 dd f2  |.........:......|
00000520  72 65 73 65 74 5f 67 72  61 62 62 65 72 73 0d 02  |reset_grabbers..|
00000530  ee 1e 41 25 3d 26 37 41  3a 58 25 3d 43 25 83 32  |..A%=&7A:X%=C%.2|
00000540  35 36 3a 59 25 3d 43 25  81 32 35 36 0d 02 f8 0b  |56:Y%=C%.256....|
00000550  43 25 3f 30 3d 31 34 0d  03 02 0a d6 26 46 46 46  |C%?0=14.....&FFF|
00000560  31 0d 03 0c 05 e1 0d 03  16 05 3a 0d 03 20 14 dd  |1.........:.. ..|
00000570  f2 77 61 69 74 5f 66 6f  72 5f 70 61 67 65 73 0d  |.wait_for_pages.|
00000580  03 2a 0a f5 3a 53 25 3d  b9 0d 03 34 24 e3 47 25  |.*..:S%=...4$.G%|
00000590  3d 30 b8 31 36 3a e7 20  ac 20 a4 63 68 65 63 6b  |=0.16:. . .check|
000005a0  5f 67 6f 74 28 47 25 29  20 53 25 3d a3 0d 03 3e  |_got(G%) S%=...>|
000005b0  05 ed 0d 03 48 09 fd 53  25 3d b9 0d 03 52 05 e1  |....H..S%=...R..|
000005c0  0d 03 5c 05 3a 0d 03 66  10 dd f2 70 72 69 6e 74  |..\.:..f...print|
000005d0  70 61 67 65 73 0d 03 70  0b ea 20 43 25 2c 47 25  |pages..p.. C%,G%|
000005e0  0d 03 7a 1b f1 22 43 45  45 46 41 58 20 4e 65 77  |..z.."CEEFAX New|
000005f0  73 20 22 3b 3a 2a 54 44  41 54 45 0d 03 84 1d f1  |s ";:*TDATE.....|
00000600  22 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |"===============|
00000610  3d 3d 3d 3d 3d 3d 3d 22  0d 03 8e 15 f1 22 54 69  |======="....."Ti|
00000620  6d 65 3a 20 22 3b 3a 2a  54 54 49 4d 45 0d 03 98  |me: ";:*TTIME...|
00000630  15 f1 22 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |.."=============|
00000640  3d 22 0d 03 a2 23 e3 47  25 3d 55 25 2b 26 34 30  |="...#.G%=U%+&40|
00000650  30 20 b8 20 28 55 25 2b  26 34 30 30 30 29 20 88  |0 . (U%+&4000) .|
00000660  20 26 34 30 30 0d 03 ac  1a e3 43 4c 25 3d 30 b8  | &400.....CL%=0.|
00000670  34 30 3a 4c 24 28 43 4c  25 29 3d 22 22 3a ed 0d  |40:L$(CL%)="":..|
00000680  03 b6 25 e3 43 25 3d 47  25 2b 31 36 30 20 b8 20  |..%.C%=G%+160 . |
00000690  47 25 2b 39 36 30 3a 3f  43 25 3d 28 3f 43 25 29  |G%+960:?C%=(?C%)|
000006a0  80 26 37 46 0d 03 c0 26  e7 3f 43 25 3d 31 39 20  |.&7F...&.?C%=19 |
000006b0  80 20 3f 28 43 25 2b 31  29 3d 31 37 35 20 3f 28  |. ?(C%+1)=175 ?(|
000006c0  43 25 2b 31 29 3d 97 22  2a 22 0d 03 ca 12 e7 3f  |C%+1)=."*".....?|
000006d0  43 25 3c 33 32 20 3f 43  25 3d 33 32 0d 03 d4 2c  |C%<32 ?C%=32...,|
000006e0  f4 20 49 46 3f 43 25 3d  33 35 20 3f 43 25 3d 3c  |. IF?C%=35 ?C%=<|
000006f0  50 72 69 6e 74 65 72 20  63 6f 64 65 20 66 6f 72  |Printer code for|
00000700  20 60 20 73 69 67 6e 3e  0d 03 de 12 e7 3f 43 25  | ` sign>.....?C%|
00000710  3d 39 36 20 3f 43 25 3d  34 35 0d 03 e8 05 ed 0d  |=96 ?C%=45......|
00000720  03 f2 24 f1 27 27 a4 70  72 69 6e 74 74 69 74 6c  |..$.''.printtitl|
00000730  65 28 28 28 47 25 2d 55  25 29 81 26 34 30 30 29  |e(((G%-U%).&400)|
00000740  2b 32 29 0d 03 fc 09 4c  43 25 3d 30 0d 04 06 1b  |+2)....LC%=0....|
00000750  e3 43 25 3d 47 25 2b 31  36 30 20 b8 20 47 25 2b  |.C%=G%+160 . G%+|
00000760  38 38 30 20 88 34 30 0d  04 10 0d 4c 43 25 3d 4c  |880 .40....LC%=L|
00000770  43 25 2b 31 0d 04 1a 30  54 45 25 3d 3f 28 43 25  |C%+1...0TE%=?(C%|
00000780  2b 34 30 29 3a 3f 28 43  25 2b 34 30 29 3d 26 44  |+40):?(C%+40)=&D|
00000790  3a 4c 24 3d 24 43 25 3a  3f 28 43 25 2b 34 30 29  |:L$=$C%:?(C%+40)|
000007a0  3d 54 45 25 0d 04 24 31  e7 20 4c 24 3d c4 34 30  |=TE%..$1. L$=.40|
000007b0  2c 22 20 22 29 20 4c 24  28 4c 43 25 29 3d 22 22  |," ") L$(LC%)=""|
000007c0  3a 4c 43 25 3d 4c 43 25  2b 31 3a f2 63 68 65 63  |:LC%=LC%+1:.chec|
000007d0  6b 6c 69 6e 65 0d 04 2e  0a 54 45 25 3d 34 30 0d  |kline....TE%=40.|
000007e0  04 38 38 e7 c1 4c 24 2c  54 45 25 2c 31 29 3d 22  |.88..L$,TE%,1)="|
000007f0  20 22 3a f5 3a 54 45 25  3d 54 45 25 2d 31 3a fd  | ":.:TE%=TE%-1:.|
00000800  c1 4c 24 2c 54 45 25 2c  31 29 3c 3e 22 20 22 20  |.L$,TE%,1)<>" " |
00000810  84 20 54 45 25 3d 30 0d  04 42 3c 4c 45 25 3d 30  |. TE%=0..B<LE%=0|
00000820  3a f5 3a 4c 45 25 3d 4c  45 25 2b 31 3a fd c1 4c  |:.:LE%=LE%+1:..L|
00000830  24 2c 28 4c 45 25 2b 31  29 2c 31 29 3c 3e 22 20  |$,(LE%+1),1)<>" |
00000840  22 3a 4c 24 3d c2 4c 24  2c a9 28 4c 24 29 2d 4c  |":L$=.L$,.(L$)-L|
00000850  45 25 29 0d 04 4c 18 4c  24 28 4c 43 25 29 3d c0  |E%)..L.L$(LC%)=.|
00000860  4c 24 2c 54 45 25 2d 4c  45 25 29 0d 04 56 05 ed  |L$,TE%-LE%)..V..|
00000870  0d 04 60 11 e3 4c 43 25  3d 31 b8 33 38 20 88 20  |..`..LC%=1.38 . |
00000880  32 0d 04 6a 3a e7 4c 43  25 3e 32 3a e7 4c 24 28  |2..j:.LC%>2:.L$(|
00000890  4c 43 25 2d 32 29 2b 4c  24 28 4c 43 25 2d 31 29  |LC%-2)+L$(LC%-1)|
000008a0  2b 4c 24 28 4c 43 25 29  2b 4c 24 28 4c 43 25 2b  |+L$(LC%)+L$(LC%+|
000008b0  31 29 3d 22 22 20 e5 8d  44 7e 44 0d 04 74 1a f1  |1)="" ..D~D..t..|
000008c0  4c 24 28 4c 43 25 29 3b  22 20 22 3b 4c 24 28 4c  |L$(LC%);" ";L$(L|
000008d0  43 25 2b 31 29 0d 04 7e  05 ed 0d 04 88 05 ed 0d  |C%+1)..~........|
000008e0  04 92 05 e1 0d 04 9c 05  3a 0d 04 a6 0f dd f2 63  |........:......c|
000008f0  68 65 63 6b 6c 69 6e 65  0d 04 b0 22 e7 20 4c 43  |heckline...". LC|
00000900  25 83 32 3d 31 20 4c 24  28 4c 43 25 29 3d 22 22  |%.2=1 L$(LC%)=""|
00000910  3a 4c 43 25 3d 4c 43 25  2b 31 0d 04 ba 05 e1 0d  |:LC%=LC%+1......|
00000920  04 c4 05 3a 0d 04 ce 15  dd a4 70 72 69 6e 74 74  |...:......printt|
00000930  69 74 6c 65 28 70 6e 25  29 0d 04 d8 1a 73 74 25  |itle(pn%)....st%|
00000940  3d 55 25 2b 28 28 70 6e  25 2b 34 29 2a 34 30 29  |=U%+((pn%+4)*40)|
00000950  2b 31 30 0d 04 e2 31 e3  7a 25 3d 73 74 25 20 b8  |+10...1.z%=st% .|
00000960  20 73 74 25 2b 34 30 3a  3f 7a 25 3d 28 3f 7a 25  | st%+40:?z%=(?z%|
00000970  29 80 26 37 46 3a e7 3f  7a 25 3c 33 32 20 3f 7a  |).&7F:.?z%<32 ?z|
00000980  25 3d 33 32 0d 04 ec 05  ed 0d 04 f6 29 74 25 3d  |%=32........)t%=|
00000990  73 74 25 3f 34 30 3a 73  74 25 3f 34 30 3d 26 44  |st%?40:st%?40=&D|
000009a0  3a 4c 24 3d 24 73 74 25  3a 73 74 25 3f 34 30 3d  |:L$=$st%:st%?40=|
000009b0  74 25 0d 05 00 0a 54 45  25 3d 33 30 0d 05 0a 15  |t%....TE%=30....|
000009c0  e7 4c 24 3d c4 54 45 25  2c 22 20 22 29 20 3d 22  |.L$=.TE%," ") ="|
000009d0  22 0d 05 14 38 e7 c1 4c  24 2c 54 45 25 2c 31 29  |"...8..L$,TE%,1)|
000009e0  3d 22 20 22 3a f5 3a 54  45 25 3d 54 45 25 2d 31  |=" ":.:TE%=TE%-1|
000009f0  3a fd c1 4c 24 2c 54 45  25 2c 31 29 3c 3e 22 20  |:..L$,TE%,1)<>" |
00000a00  22 20 84 20 54 45 25 3d  30 0d 05 1e 37 e7 20 c0  |" . TE%=0...7. .|
00000a10  4c 24 2c 31 29 3d 22 20  22 20 4c 24 3d c2 4c 24  |L$,1)=" " L$=.L$|
00000a20  2c a9 28 4c 24 29 2d 31  29 3a 54 45 25 3d 54 45  |,.(L$)-1):TE%=TE|
00000a30  25 2d 31 3a e7 54 45 25  3c 30 20 54 45 25 3d 30  |%-1:.TE%<0 TE%=0|
00000a40  0d 05 28 1f 3d c0 4c 24  2c 54 45 25 29 2b bd 31  |..(.=.L$,TE%)+.1|
00000a50  30 2b bd 31 33 2b c4 54  45 25 2c 22 3d 22 29 0d  |0+.13+.TE%,"=").|
00000a60  05 32 05 3a 0d 05 3c 0d  dd a4 61 64 61 70 74 65  |.2.:..<...adapte|
00000a70  72 0d 05 46 0a 41 25 3d  26 37 41 0d 05 50 1a 58  |r..F.A%=&7A..P.X|
00000a80  25 3d 43 25 20 20 83 32  35 36 3a 59 25 3d 43 25  |%=C%  .256:Y%=C%|
00000a90  20 81 32 35 36 0d 05 5a  0b 43 25 3f 30 3d 31 37  | .256..Z.C%?0=17|
00000aa0  0d 05 64 0a d6 26 46 46  46 31 0d 05 6e 09 3d 43  |..d..&FFF1..n.=C|
00000ab0  25 3f 31 0d 05 78 0c dd  f2 73 65 6c 65 63 74 0d  |%?1..x...select.|
00000ac0  05 82 38 f1 8a 35 2c 31  29 3b 3a ef 31 34 31 2c  |..8..5,1);:.141,|
00000ad0  31 33 32 2c 31 35 37 2c  31 33 31 3a f1 22 43 45  |132,157,131:."CE|
00000ae0  45 46 41 58 20 4e 65 77  73 20 50 72 69 6e 74 20  |EFAX News Print |
00000af0  22 3b 3a ef 31 35 36 0d  05 8c 38 f1 8a 35 2c 32  |";:.156...8..5,2|
00000b00  29 3b 3a ef 31 34 31 2c  31 33 32 2c 31 35 37 2c  |);:.141,132,157,|
00000b10  31 33 31 3a f1 22 43 45  45 46 41 58 20 4e 65 77  |131:."CEEFAX New|
00000b20  73 20 50 72 69 6e 74 20  22 3b 3a ef 31 35 36 0d  |s Print ";:.156.|
00000b30  05 96 2f f1 27 27 bd 31  33 34 3b 22 53 65 6e 64  |../.''.134;"Send|
00000b40  20 64 65 74 61 69 6c 73  20 74 6f 20 66 69 6c 65  | details to file|
00000b50  3f 20 28 59 2f 4e 29 22  3b bd 31 33 31 3b 0d 05  |? (Y/N)";.131;..|
00000b60  a0 3f f5 3a 51 3d a5 20  80 26 44 46 3a fd 51 3d  |.?.:Q=. .&DF:.Q=|
00000b70  37 38 20 84 20 51 3d 38  39 3a e7 51 3d 38 39 20  |78 . Q=89:.Q=89 |
00000b80  f1 22 59 65 73 22 3a 66  69 6c 65 25 3d b9 20 8b  |."Yes":file%=. .|
00000b90  f1 22 4e 6f 22 3a 66 69  6c 65 25 3d a3 0d 05 aa  |."No":file%=....|
00000ba0  2e e7 66 69 6c 65 25 3a  f1 27 bd 31 33 34 3b 22  |..file%:.'.134;"|
00000bb0  46 69 6c 65 20 6e 61 6d  65 3a 22 3b bd 31 33 31  |File name:";.131|
00000bc0  3b 3a e8 22 22 66 6e 61  6d 65 24 0d 05 b4 2a f1  |;:.""fname$...*.|
00000bd0  27 27 bd 31 33 34 3b 22  50 72 69 6e 74 20 6e 65  |''.134;"Print ne|
00000be0  77 73 70 61 70 65 72 3f  20 28 59 2f 4e 29 22 3b  |wspaper? (Y/N)";|
00000bf0  bd 31 33 31 3b 0d 05 be  41 f5 3a 51 3d a5 20 80  |.131;...A.:Q=. .|
00000c00  26 44 46 3a fd 51 3d 37  38 20 84 20 51 3d 38 39  |&DF:.Q=78 . Q=89|
00000c10  3a e7 51 3d 38 39 20 f1  22 59 65 73 22 3a 70 72  |:.Q=89 ."Yes":pr|
00000c20  69 6e 74 25 3d b9 20 8b  f1 22 4e 6f 22 3a 70 72  |int%=. .."No":pr|
00000c30  69 6e 74 25 3d a3 0d 05  c8 29 f1 27 27 bd 31 33  |int%=....).''.13|
00000c40  31 3b 22 57 61 69 74 69  6e 67 20 66 6f 72 20 6e  |1;"Waiting for n|
00000c50  65 77 73 20 70 61 67 65  73 20 2e 2e 2e 22 3b 0d  |ews pages ...";.|
00000c60  05 d2 05 e1 0d ff                                 |......|
00000c66