� >newgroups
6� make ka9q xxxNG files into fake control messages

(in%=0:out%=0:out2%=0
2<�:�" in ka9q/newsgroups at line ";�:�exit(1,"Error"):�
<
F!� buf% 1024,tmp%256,nbuf%4096
P
Zd1$="<Mail$Dir>.folder"
dș"XOS_File",17,d1$�t%;F%
n@�t%=0�(F%�1)<>0 �exit(1,"Incoming news directory not found")
x-next%=0:out$="<NewsBase$Local>.localnews"
�%out2$="<NewsBase$Data>.newgroups"
��
�A  ș"XOS_GBPB",11,d1$,buf%,1,next%,1024,"*NG"�,,,no%,next%;F%
�  �no%>0�(F%�1)=0�
�    b%=buf%
�    �loop%=1�no%
�*      f$=�str(b%+29):b%=b%+(32+�f$)��3
�B      �filesize(d1$+"."+f$)=0��delete(d1$+"."+f$)=0�next%-=1
�!      in%=�openin(d1$+"."+f$)
�      �in%>0�
�        out%=�openup(out$)
�         out2%=�openup(out2$)
�        �out%>0�out2%>0�

          �#out2%=�#out2%

          �#out2%,�time

          ��#in%�

"            r3%=0:F%=0

,H            ȕr3%=0�(F%�1)=0:ș"XOS_GBPB",4,in%,nbuf%,4096�,,,r3%;F%

6C              �r3%<4096�ș"XOS_GBPB",2,out2%,nbuf%,4096-r3%�;F%

@            �

J          �

T5          �cf(out2%):�settype(out2$,&FFF):�#in%=0

^          �#out%=�#out%

h          �#out%,"#! rnews"

rJ          �#out%,"Path: "+�varval("NewsBase$HostName")+"!not-for-mail"

|4          �#out%,"X-Newsbase-Control: newgroups"

�3          �#out%,"Newsgroups: control.newsbase"

�3          �#out%,"Subject: New groups from "+f$

�?          �#out%,"From: news@"+�varval("NewsBase$HostName")

�C          �#out%,"Approved: news@"+�varval("NewsBase$HostName")

�R          �#out%,"Message-ID: <"+�id_date+"@"+�varval("NewsBase$HostName")+">"

�'          �#out%,"Date: "+�rfc_date

�          �#out%,""

�          ��#in%�

�            r3%=0:F%=0

�H            ȕr3%=0�(F%�1)=0:ș"XOS_GBPB",4,in%,nbuf%,4096�,,,r3%;F%

�B              �r3%<4096�ș"XOS_GBPB",2,out%,nbuf%,4096-r3%�;F%

�            �

�          �
          �#out%,""
           �cf(out%):�cf(in%)
!          �settype(out$,&FFF)
&.          �delete(d1$+"."+f$)=0 �next%-=1
0          �
:          �cf(in%)
D
        �
N      �
X	    �
b  �
l�next%<0
v$�exit(0,"Created control batch")
��
�
�ݤopenin(f$)
�
�h%,F%
�.ș"XOS_Find",&4F,f$ �h%;F%:�(F%�1)<>0�h%=0
�=h%
�
�ݤopenup(f$)
�
�h%,F%
�ș"XOS_Find",&CF,f$�h%;F%
�5�(F%�1)�ș"XOS_Find",&8F,f$�h%;F%:�(F%�1)<>0�h%=0
�=h%
�
��cf(� C%)
�C%<>0 �#C%:C%=0
�
 
*ݤdelete(f$)
4�F%:ș"XOS_File",6,f$�;F%
>=(F%�1)
H
Rݤmovefile(s$,d$)
\&�F%:ș"XOS_FSControl",25,s$,d$�;F%
f2�(F%�1) ș"XOS_FSControl",26,s$,d$,(1<<7) �;F%
p=(F%�1)
z
���exit(n%,a$)
��:�" at line ";�:�
��cf(in%)
�
�cf(out%)
��cf(out2%)
�%�("set NewsBase$ReturnCode "+�n%)
�$�("set NewsBase$ReturnInfo "+a$)
��
�
�
ݤstr(a%)
�*�a$:ȕ ?a%>31��a$<255:a$+=�?a%:a%+=1:�
�=a$
�

ݤtime
�d%
?tmp%=3:ș"OS_Word",14,tmp%
$Jș"OS_ConvertDateAndTime",tmp%,tmp%+128,128,"# %YR%MN%DY %24%MI%SE"�s%
.
=�str(s%)
8
Bݤvarval(A$)
L
�L%,F%
V/ș"XOS_ReadVarVal",A$,tmp%,256,0,3 �,,L%;F%
`�(F%�1) �L%>256 �:=""
jtmp%?L%=13:=$tmp%
t
~ݤrfc_date
�#�b%:?tmp%=3:ș"OS_Word",14,tmp%
�aș"Territory_ConvertDateAndTime",1,tmp%,tmp%+128,128,"%W3, %DY %M3 %CE%YR %24:%MI:%SE %TZ"�b%
�
=�str(b%)
�
�
ݤid_date
�#�b%:?tmp%=3:ș"OS_Word",14,tmp%
�Oș"OS_ConvertDateAndTime",tmp%,tmp%+128,128,"%CE%YR%MN%DY.%24%MI%SE.%CS"�b%
�
=�str(b%)
�
���settype(f$,t%)
�ș"XOS_File",18,f$,t%
��


ݤfilesize(f$)
$�s%:ș"XOS_File",17,f$�,,,,s%;F%
�(F%�1)�s%=-1
(=s%
�

00000000  0d 00 0a 10 f4 20 3e 6e  65 77 67 72 6f 75 70 73  |..... >newgroups|
00000010  0d 00 14 36 f4 20 6d 61  6b 65 20 6b 61 39 71 20  |...6. make ka9q |
00000020  78 78 78 4e 47 20 66 69  6c 65 73 20 69 6e 74 6f  |xxxNG files into|
00000030  20 66 61 6b 65 20 63 6f  6e 74 72 6f 6c 20 6d 65  | fake control me|
00000040  73 73 61 67 65 73 0d 00  1e 04 0d 00 28 18 69 6e  |ssages......(.in|
00000050  25 3d 30 3a 6f 75 74 25  3d 30 3a 6f 75 74 32 25  |%=0:out%=0:out2%|
00000060  3d 30 0d 00 32 3c ee 85  f6 3a f1 22 20 69 6e 20  |=0..2<...:." in |
00000070  6b 61 39 71 2f 6e 65 77  73 67 72 6f 75 70 73 20  |ka9q/newsgroups |
00000080  61 74 20 6c 69 6e 65 20  22 3b 9e 3a f2 65 78 69  |at line ";.:.exi|
00000090  74 28 31 2c 22 45 72 72  6f 72 22 29 3a e0 0d 00  |t(1,"Error"):...|
000000a0  3c 04 0d 00 46 21 de 20  62 75 66 25 20 31 30 32  |<...F!. buf% 102|
000000b0  34 2c 74 6d 70 25 32 35  36 2c 6e 62 75 66 25 34  |4,tmp%256,nbuf%4|
000000c0  30 39 36 0d 00 50 04 0d  00 5a 1b 64 31 24 3d 22  |096..P...Z.d1$="|
000000d0  3c 4d 61 69 6c 24 44 69  72 3e 2e 66 6f 6c 64 65  |<Mail$Dir>.folde|
000000e0  72 22 0d 00 64 1d c8 99  22 58 4f 53 5f 46 69 6c  |r"..d..."XOS_Fil|
000000f0  65 22 2c 31 37 2c 64 31  24 b8 74 25 3b 46 25 0d  |e",17,d1$.t%;F%.|
00000100  00 6e 40 e7 74 25 3d 30  84 28 46 25 80 31 29 3c  |.n@.t%=0.(F%.1)<|
00000110  3e 30 20 f2 65 78 69 74  28 31 2c 22 49 6e 63 6f  |>0 .exit(1,"Inco|
00000120  6d 69 6e 67 20 6e 65 77  73 20 64 69 72 65 63 74  |ming news direct|
00000130  6f 72 79 20 6e 6f 74 20  66 6f 75 6e 64 22 29 0d  |ory not found").|
00000140  00 78 2d 6e 65 78 74 25  3d 30 3a 6f 75 74 24 3d  |.x-next%=0:out$=|
00000150  22 3c 4e 65 77 73 42 61  73 65 24 4c 6f 63 61 6c  |"<NewsBase$Local|
00000160  3e 2e 6c 6f 63 61 6c 6e  65 77 73 22 0d 00 82 25  |>.localnews"...%|
00000170  6f 75 74 32 24 3d 22 3c  4e 65 77 73 42 61 73 65  |out2$="<NewsBase|
00000180  24 44 61 74 61 3e 2e 6e  65 77 67 72 6f 75 70 73  |$Data>.newgroups|
00000190  22 0d 00 8c 05 f5 0d 00  96 41 20 20 c8 99 22 58  |"........A  .."X|
000001a0  4f 53 5f 47 42 50 42 22  2c 31 31 2c 64 31 24 2c  |OS_GBPB",11,d1$,|
000001b0  62 75 66 25 2c 31 2c 6e  65 78 74 25 2c 31 30 32  |buf%,1,next%,102|
000001c0  34 2c 22 2a 4e 47 22 b8  2c 2c 2c 6e 6f 25 2c 6e  |4,"*NG".,,,no%,n|
000001d0  65 78 74 25 3b 46 25 0d  00 a0 16 20 20 e7 6e 6f  |ext%;F%....  .no|
000001e0  25 3e 30 80 28 46 25 80  31 29 3d 30 8c 0d 00 aa  |%>0.(F%.1)=0....|
000001f0  0f 20 20 20 20 62 25 3d  62 75 66 25 0d 00 b4 14  |.    b%=buf%....|
00000200  20 20 20 20 e3 6c 6f 6f  70 25 3d 31 b8 6e 6f 25  |    .loop%=1.no%|
00000210  0d 00 be 2a 20 20 20 20  20 20 66 24 3d a4 73 74  |...*      f$=.st|
00000220  72 28 62 25 2b 32 39 29  3a 62 25 3d 62 25 2b 28  |r(b%+29):b%=b%+(|
00000230  33 32 2b a9 66 24 29 80  ac 33 0d 00 c8 42 20 20  |32+.f$)..3...B  |
00000240  20 20 20 20 e7 a4 66 69  6c 65 73 69 7a 65 28 64  |    ..filesize(d|
00000250  31 24 2b 22 2e 22 2b 66  24 29 3d 30 8c e7 a4 64  |1$+"."+f$)=0...d|
00000260  65 6c 65 74 65 28 64 31  24 2b 22 2e 22 2b 66 24  |elete(d1$+"."+f$|
00000270  29 3d 30 8c 6e 65 78 74  25 2d 3d 31 0d 00 d2 21  |)=0.next%-=1...!|
00000280  20 20 20 20 20 20 69 6e  25 3d a4 6f 70 65 6e 69  |      in%=.openi|
00000290  6e 28 64 31 24 2b 22 2e  22 2b 66 24 29 0d 00 dc  |n(d1$+"."+f$)...|
000002a0  11 20 20 20 20 20 20 e7  69 6e 25 3e 30 8c 0d 00  |.      .in%>0...|
000002b0  e6 1e 20 20 20 20 20 20  20 20 6f 75 74 25 3d a4  |..        out%=.|
000002c0  6f 70 65 6e 75 70 28 6f  75 74 24 29 0d 00 f0 20  |openup(out$)... |
000002d0  20 20 20 20 20 20 20 20  6f 75 74 32 25 3d a4 6f  |        out2%=.o|
000002e0  70 65 6e 75 70 28 6f 75  74 32 24 29 0d 00 fa 1c  |penup(out2$)....|
000002f0  20 20 20 20 20 20 20 20  e7 6f 75 74 25 3e 30 80  |        .out%>0.|
00000300  6f 75 74 32 25 3e 30 8c  0d 01 04 1d 20 20 20 20  |out2%>0.....    |
00000310  20 20 20 20 20 20 cf 23  6f 75 74 32 25 3d a2 23  |      .#out2%=.#|
00000320  6f 75 74 32 25 0d 01 0e  1b 20 20 20 20 20 20 20  |out2%....       |
00000330  20 20 20 d5 23 6f 75 74  32 25 2c a4 74 69 6d 65  |   .#out2%,.time|
00000340  0d 01 18 16 20 20 20 20  20 20 20 20 20 20 e7 ac  |....          ..|
00000350  c5 23 69 6e 25 8c 0d 01  22 1a 20 20 20 20 20 20  |.#in%...".      |
00000360  20 20 20 20 20 20 72 33  25 3d 30 3a 46 25 3d 30  |      r3%=0:F%=0|
00000370  0d 01 2c 48 20 20 20 20  20 20 20 20 20 20 20 20  |..,H            |
00000380  c8 95 72 33 25 3d 30 80  28 46 25 80 31 29 3d 30  |..r3%=0.(F%.1)=0|
00000390  3a c8 99 22 58 4f 53 5f  47 42 50 42 22 2c 34 2c  |:.."XOS_GBPB",4,|
000003a0  69 6e 25 2c 6e 62 75 66  25 2c 34 30 39 36 b8 2c  |in%,nbuf%,4096.,|
000003b0  2c 2c 72 33 25 3b 46 25  0d 01 36 43 20 20 20 20  |,,r3%;F%..6C    |
000003c0  20 20 20 20 20 20 20 20  20 20 e7 72 33 25 3c 34  |          .r3%<4|
000003d0  30 39 36 8c c8 99 22 58  4f 53 5f 47 42 50 42 22  |096..."XOS_GBPB"|
000003e0  2c 32 2c 6f 75 74 32 25  2c 6e 62 75 66 25 2c 34  |,2,out2%,nbuf%,4|
000003f0  30 39 36 2d 72 33 25 b8  3b 46 25 0d 01 40 11 20  |096-r3%.;F%..@. |
00000400  20 20 20 20 20 20 20 20  20 20 20 ce 0d 01 4a 0f  |           ...J.|
00000410  20 20 20 20 20 20 20 20  20 20 cd 0d 01 54 35 20  |          ...T5 |
00000420  20 20 20 20 20 20 20 20  20 f2 63 66 28 6f 75 74  |         .cf(out|
00000430  32 25 29 3a f2 73 65 74  74 79 70 65 28 6f 75 74  |2%):.settype(out|
00000440  32 24 2c 26 46 46 46 29  3a cf 23 69 6e 25 3d 30  |2$,&FFF):.#in%=0|
00000450  0d 01 5e 1b 20 20 20 20  20 20 20 20 20 20 cf 23  |..^.          .#|
00000460  6f 75 74 25 3d a2 23 6f  75 74 25 0d 01 68 1f 20  |out%=.#out%..h. |
00000470  20 20 20 20 20 20 20 20  20 d5 23 6f 75 74 25 2c  |         .#out%,|
00000480  22 23 21 20 72 6e 65 77  73 22 0d 01 72 4a 20 20  |"#! rnews"..rJ  |
00000490  20 20 20 20 20 20 20 20  d5 23 6f 75 74 25 2c 22  |        .#out%,"|
000004a0  50 61 74 68 3a 20 22 2b  a4 76 61 72 76 61 6c 28  |Path: "+.varval(|
000004b0  22 4e 65 77 73 42 61 73  65 24 48 6f 73 74 4e 61  |"NewsBase$HostNa|
000004c0  6d 65 22 29 2b 22 21 6e  6f 74 2d 66 6f 72 2d 6d  |me")+"!not-for-m|
000004d0  61 69 6c 22 0d 01 7c 34  20 20 20 20 20 20 20 20  |ail"..|4        |
000004e0  20 20 d5 23 6f 75 74 25  2c 22 58 2d 4e 65 77 73  |  .#out%,"X-News|
000004f0  62 61 73 65 2d 43 6f 6e  74 72 6f 6c 3a 20 6e 65  |base-Control: ne|
00000500  77 67 72 6f 75 70 73 22  0d 01 86 33 20 20 20 20  |wgroups"...3    |
00000510  20 20 20 20 20 20 d5 23  6f 75 74 25 2c 22 4e 65  |      .#out%,"Ne|
00000520  77 73 67 72 6f 75 70 73  3a 20 63 6f 6e 74 72 6f  |wsgroups: contro|
00000530  6c 2e 6e 65 77 73 62 61  73 65 22 0d 01 90 33 20  |l.newsbase"...3 |
00000540  20 20 20 20 20 20 20 20  20 d5 23 6f 75 74 25 2c  |         .#out%,|
00000550  22 53 75 62 6a 65 63 74  3a 20 4e 65 77 20 67 72  |"Subject: New gr|
00000560  6f 75 70 73 20 66 72 6f  6d 20 22 2b 66 24 0d 01  |oups from "+f$..|
00000570  9a 3f 20 20 20 20 20 20  20 20 20 20 d5 23 6f 75  |.?          .#ou|
00000580  74 25 2c 22 46 72 6f 6d  3a 20 6e 65 77 73 40 22  |t%,"From: news@"|
00000590  2b a4 76 61 72 76 61 6c  28 22 4e 65 77 73 42 61  |+.varval("NewsBa|
000005a0  73 65 24 48 6f 73 74 4e  61 6d 65 22 29 0d 01 a4  |se$HostName")...|
000005b0  43 20 20 20 20 20 20 20  20 20 20 d5 23 6f 75 74  |C          .#out|
000005c0  25 2c 22 41 70 70 72 6f  76 65 64 3a 20 6e 65 77  |%,"Approved: new|
000005d0  73 40 22 2b a4 76 61 72  76 61 6c 28 22 4e 65 77  |s@"+.varval("New|
000005e0  73 42 61 73 65 24 48 6f  73 74 4e 61 6d 65 22 29  |sBase$HostName")|
000005f0  0d 01 ae 52 20 20 20 20  20 20 20 20 20 20 d5 23  |...R          .#|
00000600  6f 75 74 25 2c 22 4d 65  73 73 61 67 65 2d 49 44  |out%,"Message-ID|
00000610  3a 20 3c 22 2b a4 69 64  5f 64 61 74 65 2b 22 40  |: <"+.id_date+"@|
00000620  22 2b a4 76 61 72 76 61  6c 28 22 4e 65 77 73 42  |"+.varval("NewsB|
00000630  61 73 65 24 48 6f 73 74  4e 61 6d 65 22 29 2b 22  |ase$HostName")+"|
00000640  3e 22 0d 01 b8 27 20 20  20 20 20 20 20 20 20 20  |>"...'          |
00000650  d5 23 6f 75 74 25 2c 22  44 61 74 65 3a 20 22 2b  |.#out%,"Date: "+|
00000660  a4 72 66 63 5f 64 61 74  65 0d 01 c2 17 20 20 20  |.rfc_date....   |
00000670  20 20 20 20 20 20 20 d5  23 6f 75 74 25 2c 22 22  |       .#out%,""|
00000680  0d 01 cc 16 20 20 20 20  20 20 20 20 20 20 e7 ac  |....          ..|
00000690  c5 23 69 6e 25 8c 0d 01  d6 1a 20 20 20 20 20 20  |.#in%.....      |
000006a0  20 20 20 20 20 20 72 33  25 3d 30 3a 46 25 3d 30  |      r3%=0:F%=0|
000006b0  0d 01 e0 48 20 20 20 20  20 20 20 20 20 20 20 20  |...H            |
000006c0  c8 95 72 33 25 3d 30 80  28 46 25 80 31 29 3d 30  |..r3%=0.(F%.1)=0|
000006d0  3a c8 99 22 58 4f 53 5f  47 42 50 42 22 2c 34 2c  |:.."XOS_GBPB",4,|
000006e0  69 6e 25 2c 6e 62 75 66  25 2c 34 30 39 36 b8 2c  |in%,nbuf%,4096.,|
000006f0  2c 2c 72 33 25 3b 46 25  0d 01 ea 42 20 20 20 20  |,,r3%;F%...B    |
00000700  20 20 20 20 20 20 20 20  20 20 e7 72 33 25 3c 34  |          .r3%<4|
00000710  30 39 36 8c c8 99 22 58  4f 53 5f 47 42 50 42 22  |096..."XOS_GBPB"|
00000720  2c 32 2c 6f 75 74 25 2c  6e 62 75 66 25 2c 34 30  |,2,out%,nbuf%,40|
00000730  39 36 2d 72 33 25 b8 3b  46 25 0d 01 f4 11 20 20  |96-r3%.;F%....  |
00000740  20 20 20 20 20 20 20 20  20 20 ce 0d 01 fe 0f 20  |          ..... |
00000750  20 20 20 20 20 20 20 20  20 cd 0d 02 08 17 20 20  |         .....  |
00000760  20 20 20 20 20 20 20 20  d5 23 6f 75 74 25 2c 22  |        .#out%,"|
00000770  22 0d 02 12 20 20 20 20  20 20 20 20 20 20 20 f2  |"...           .|
00000780  63 66 28 6f 75 74 25 29  3a f2 63 66 28 69 6e 25  |cf(out%):.cf(in%|
00000790  29 0d 02 1c 21 20 20 20  20 20 20 20 20 20 20 f2  |)...!          .|
000007a0  73 65 74 74 79 70 65 28  6f 75 74 24 2c 26 46 46  |settype(out$,&FF|
000007b0  46 29 0d 02 26 2e 20 20  20 20 20 20 20 20 20 20  |F)..&.          |
000007c0  e7 a4 64 65 6c 65 74 65  28 64 31 24 2b 22 2e 22  |..delete(d1$+"."|
000007d0  2b 66 24 29 3d 30 20 8c  6e 65 78 74 25 2d 3d 31  |+f$)=0 .next%-=1|
000007e0  0d 02 30 0f 20 20 20 20  20 20 20 20 20 20 cc 0d  |..0.          ..|
000007f0  02 3a 16 20 20 20 20 20  20 20 20 20 20 f2 63 66  |.:.          .cf|
00000800  28 69 6e 25 29 0d 02 44  0d 20 20 20 20 20 20 20  |(in%)..D.       |
00000810  20 cd 0d 02 4e 0b 20 20  20 20 20 20 cd 0d 02 58  | ...N.      ...X|
00000820  09 20 20 20 20 ed 0d 02  62 07 20 20 cd 0d 02 6c  |.    ...b.  ...l|
00000830  0c fd 6e 65 78 74 25 3c  30 0d 02 76 24 f2 65 78  |..next%<0..v$.ex|
00000840  69 74 28 30 2c 22 43 72  65 61 74 65 64 20 63 6f  |it(0,"Created co|
00000850  6e 74 72 6f 6c 20 62 61  74 63 68 22 29 0d 02 80  |ntrol batch")...|
00000860  05 e0 0d 02 8a 04 0d 02  94 10 dd a4 6f 70 65 6e  |............open|
00000870  69 6e 28 66 24 29 0d 02  9e 0a ea 68 25 2c 46 25  |in(f$).....h%,F%|
00000880  0d 02 a8 2e c8 99 22 58  4f 53 5f 46 69 6e 64 22  |......"XOS_Find"|
00000890  2c 26 34 46 2c 66 24 20  b8 68 25 3b 46 25 3a e7  |,&4F,f$ .h%;F%:.|
000008a0  28 46 25 80 31 29 3c 3e  30 8c 68 25 3d 30 0d 02  |(F%.1)<>0.h%=0..|
000008b0  b2 07 3d 68 25 0d 02 bc  04 0d 02 c6 10 dd a4 6f  |..=h%..........o|
000008c0  70 65 6e 75 70 28 66 24  29 0d 02 d0 0a ea 68 25  |penup(f$).....h%|
000008d0  2c 46 25 0d 02 da 1d c8  99 22 58 4f 53 5f 46 69  |,F%......"XOS_Fi|
000008e0  6e 64 22 2c 26 43 46 2c  66 24 b8 68 25 3b 46 25  |nd",&CF,f$.h%;F%|
000008f0  0d 02 e4 35 e7 28 46 25  80 31 29 8c c8 99 22 58  |...5.(F%.1)..."X|
00000900  4f 53 5f 46 69 6e 64 22  2c 26 38 46 2c 66 24 b8  |OS_Find",&8F,f$.|
00000910  68 25 3b 46 25 3a e7 28  46 25 80 31 29 3c 3e 30  |h%;F%:.(F%.1)<>0|
00000920  8c 68 25 3d 30 0d 02 ee  07 3d 68 25 0d 02 f8 04  |.h%=0....=h%....|
00000930  0d 03 02 0e dd f2 63 66  28 f8 20 43 25 29 0d 03  |......cf(. C%)..|
00000940  0c 14 e7 43 25 3c 3e 30  20 d9 23 43 25 3a 43 25  |...C%<>0 .#C%:C%|
00000950  3d 30 0d 03 16 05 e1 0d  03 20 04 0d 03 2a 10 dd  |=0....... ...*..|
00000960  a4 64 65 6c 65 74 65 28  66 24 29 0d 03 34 1d ea  |.delete(f$)..4..|
00000970  46 25 3a c8 99 22 58 4f  53 5f 46 69 6c 65 22 2c  |F%:.."XOS_File",|
00000980  36 2c 66 24 b8 3b 46 25  0d 03 3e 0b 3d 28 46 25  |6,f$.;F%..>.=(F%|
00000990  80 31 29 0d 03 48 04 0d  03 52 15 dd a4 6d 6f 76  |.1)..H...R...mov|
000009a0  65 66 69 6c 65 28 73 24  2c 64 24 29 0d 03 5c 26  |efile(s$,d$)..\&|
000009b0  ea 46 25 3a c8 99 22 58  4f 53 5f 46 53 43 6f 6e  |.F%:.."XOS_FSCon|
000009c0  74 72 6f 6c 22 2c 32 35  2c 73 24 2c 64 24 b8 3b  |trol",25,s$,d$.;|
000009d0  46 25 0d 03 66 32 e7 28  46 25 80 31 29 20 c8 99  |F%..f2.(F%.1) ..|
000009e0  22 58 4f 53 5f 46 53 43  6f 6e 74 72 6f 6c 22 2c  |"XOS_FSControl",|
000009f0  32 36 2c 73 24 2c 64 24  2c 28 31 3c 3c 37 29 20  |26,s$,d$,(1<<7) |
00000a00  b8 3b 46 25 0d 03 70 0b  3d 28 46 25 80 31 29 0d  |.;F%..p.=(F%.1).|
00000a10  03 7a 04 0d 03 84 11 dd  f2 65 78 69 74 28 6e 25  |.z.......exit(n%|
00000a20  2c 61 24 29 0d 03 8e 18  ee 85 f6 3a f1 22 20 61  |,a$).......:." a|
00000a30  74 20 6c 69 6e 65 20 22  3b 9e 3a e0 0d 03 98 0c  |t line ";.:.....|
00000a40  f2 63 66 28 69 6e 25 29  0d 03 a2 0d f2 63 66 28  |.cf(in%).....cf(|
00000a50  6f 75 74 25 29 0d 03 ac  0e f2 63 66 28 6f 75 74  |out%).....cf(out|
00000a60  32 25 29 0d 03 b6 25 ff  28 22 73 65 74 20 4e 65  |2%)...%.("set Ne|
00000a70  77 73 42 61 73 65 24 52  65 74 75 72 6e 43 6f 64  |wsBase$ReturnCod|
00000a80  65 20 22 2b c3 6e 25 29  0d 03 c0 24 ff 28 22 73  |e "+.n%)...$.("s|
00000a90  65 74 20 4e 65 77 73 42  61 73 65 24 52 65 74 75  |et NewsBase$Retu|
00000aa0  72 6e 49 6e 66 6f 20 22  2b 61 24 29 0d 03 ca 05  |rnInfo "+a$)....|
00000ab0  e0 0d 03 d4 04 0d 03 de  0d dd a4 73 74 72 28 61  |...........str(a|
00000ac0  25 29 0d 03 e8 2a ea 61  24 3a c8 95 20 3f 61 25  |%)...*.a$:.. ?a%|
00000ad0  3e 33 31 80 a9 61 24 3c  32 35 35 3a 61 24 2b 3d  |>31..a$<255:a$+=|
00000ae0  bd 3f 61 25 3a 61 25 2b  3d 31 3a ce 0d 03 f2 07  |.?a%:a%+=1:.....|
00000af0  3d 61 24 0d 03 fc 04 0d  04 06 0a dd a4 74 69 6d  |=a$..........tim|
00000b00  65 0d 04 10 07 ea 64 25  0d 04 1a 1f 3f 74 6d 70  |e.....d%....?tmp|
00000b10  25 3d 33 3a c8 99 22 4f  53 5f 57 6f 72 64 22 2c  |%=3:.."OS_Word",|
00000b20  31 34 2c 74 6d 70 25 0d  04 24 4a c8 99 22 4f 53  |14,tmp%..$J.."OS|
00000b30  5f 43 6f 6e 76 65 72 74  44 61 74 65 41 6e 64 54  |_ConvertDateAndT|
00000b40  69 6d 65 22 2c 74 6d 70  25 2c 74 6d 70 25 2b 31  |ime",tmp%,tmp%+1|
00000b50  32 38 2c 31 32 38 2c 22  23 20 25 59 52 25 4d 4e  |28,128,"# %YR%MN|
00000b60  25 44 59 20 25 32 34 25  4d 49 25 53 45 22 b8 73  |%DY %24%MI%SE".s|
00000b70  25 0d 04 2e 0d 3d a4 73  74 72 28 73 25 29 0d 04  |%....=.str(s%)..|
00000b80  38 04 0d 04 42 10 dd a4  76 61 72 76 61 6c 28 41  |8...B...varval(A|
00000b90  24 29 0d 04 4c 0a ea 4c  25 2c 46 25 0d 04 56 2f  |$)..L..L%,F%..V/|
00000ba0  c8 99 22 58 4f 53 5f 52  65 61 64 56 61 72 56 61  |.."XOS_ReadVarVa|
00000bb0  6c 22 2c 41 24 2c 74 6d  70 25 2c 32 35 36 2c 30  |l",A$,tmp%,256,0|
00000bc0  2c 33 20 b8 2c 2c 4c 25  3b 46 25 0d 04 60 19 e7  |,3 .,,L%;F%..`..|
00000bd0  28 46 25 80 31 29 20 84  4c 25 3e 32 35 36 20 8c  |(F%.1) .L%>256 .|
00000be0  3a 3d 22 22 0d 04 6a 15  74 6d 70 25 3f 4c 25 3d  |:=""..j.tmp%?L%=|
00000bf0  31 33 3a 3d 24 74 6d 70  25 0d 04 74 04 0d 04 7e  |13:=$tmp%..t...~|
00000c00  0e dd a4 72 66 63 5f 64  61 74 65 0d 04 88 23 ea  |...rfc_date...#.|
00000c10  62 25 3a 3f 74 6d 70 25  3d 33 3a c8 99 22 4f 53  |b%:?tmp%=3:.."OS|
00000c20  5f 57 6f 72 64 22 2c 31  34 2c 74 6d 70 25 0d 04  |_Word",14,tmp%..|
00000c30  92 61 c8 99 22 54 65 72  72 69 74 6f 72 79 5f 43  |.a.."Territory_C|
00000c40  6f 6e 76 65 72 74 44 61  74 65 41 6e 64 54 69 6d  |onvertDateAndTim|
00000c50  65 22 2c 31 2c 74 6d 70  25 2c 74 6d 70 25 2b 31  |e",1,tmp%,tmp%+1|
00000c60  32 38 2c 31 32 38 2c 22  25 57 33 2c 20 25 44 59  |28,128,"%W3, %DY|
00000c70  20 25 4d 33 20 25 43 45  25 59 52 20 25 32 34 3a  | %M3 %CE%YR %24:|
00000c80  25 4d 49 3a 25 53 45 20  25 54 5a 22 b8 62 25 0d  |%MI:%SE %TZ".b%.|
00000c90  04 9c 0d 3d a4 73 74 72  28 62 25 29 0d 04 a6 04  |...=.str(b%)....|
00000ca0  0d 04 b0 0d dd a4 69 64  5f 64 61 74 65 0d 04 ba  |......id_date...|
00000cb0  23 ea 62 25 3a 3f 74 6d  70 25 3d 33 3a c8 99 22  |#.b%:?tmp%=3:.."|
00000cc0  4f 53 5f 57 6f 72 64 22  2c 31 34 2c 74 6d 70 25  |OS_Word",14,tmp%|
00000cd0  0d 04 c4 4f c8 99 22 4f  53 5f 43 6f 6e 76 65 72  |...O.."OS_Conver|
00000ce0  74 44 61 74 65 41 6e 64  54 69 6d 65 22 2c 74 6d  |tDateAndTime",tm|
00000cf0  70 25 2c 74 6d 70 25 2b  31 32 38 2c 31 32 38 2c  |p%,tmp%+128,128,|
00000d00  22 25 43 45 25 59 52 25  4d 4e 25 44 59 2e 25 32  |"%CE%YR%MN%DY.%2|
00000d10  34 25 4d 49 25 53 45 2e  25 43 53 22 b8 62 25 0d  |4%MI%SE.%CS".b%.|
00000d20  04 ce 0d 3d a4 73 74 72  28 62 25 29 0d 04 d8 04  |...=.str(b%)....|
00000d30  0d 04 e2 14 dd f2 73 65  74 74 79 70 65 28 66 24  |......settype(f$|
00000d40  2c 74 25 29 0d 04 ec 19  c8 99 22 58 4f 53 5f 46  |,t%)......"XOS_F|
00000d50  69 6c 65 22 2c 31 38 2c  66 24 2c 74 25 0d 04 f6  |ile",18,f$,t%...|
00000d60  05 e1 0d 05 00 04 0d 05  0a 12 dd a4 66 69 6c 65  |............file|
00000d70  73 69 7a 65 28 66 24 29  0d 05 14 24 ea 73 25 3a  |size(f$)...$.s%:|
00000d80  c8 99 22 58 4f 53 5f 46  69 6c 65 22 2c 31 37 2c  |.."XOS_File",17,|
00000d90  66 24 b8 2c 2c 2c 2c 73  25 3b 46 25 0d 05 1e 11  |f$.,,,,s%;F%....|
00000da0  e7 28 46 25 80 31 29 8c  73 25 3d 2d 31 0d 05 28  |.(F%.1).s%=-1..(|
00000db0  07 3d 73 25 0d ff                                 |.=s%..|
00000db6