� >badnews
$� check for unsent news postings
� Recoded for NewsHound

(in%=0:out%=0
2� �:�" at line ";�:�
<ș"OS_GetEnv" � A$
FN$="":old%=�
P�
Zp$=�getpar(A$," ")
d	Ȏp$�
n�"-u":N$=�getpar(A$," ")
x�
�
�A$=""
�� buf% 1024,tmp% 512
�fbsize%=8*1024
�� fbuf% fbsize%
�
�newsuser$=�clean(N$)
�(�newsuser$=""�newsuser$="postmaster"
�
�d1$="<NewsHound$NewsDir>"
�>�objtype(d1$)<2��exit(1,"News spool directory not found")
�d2$=d1$+".badmarker"
�d1$=d1$+".articles"
�

next%=0

�

>  ș"XOS_GBPB",9,d2$,buf%,1,next%,1024,"*"�,,,no%,next%;F%

"  �no%>0�(F%�1)=0�

,    f$=�str(buf%)

6     �objtype(d1$+"."+f$)=0�

@B      �returnart(d2$+"."+f$)��delfile(d2$+"."+f$)=0�next%-=1

J	    �

T  �

^�next%<0�(F%�1)>0

h(�exit(0,"news spool check complete")

r�

|

�ݤobjtype(f$)

�
�F%,t%

�ș"XOS_File",17,f$�t%;F%

��(F%�1)�=-1

�=t%

�

���settype(f$,t%)

�ș"XOS_File",18,f$,t%

��

�

�ݤopenin(f$)

�
�h%,F%

�.ș"XOS_Find",&4F,f$ �h%;F%:�(F%�1)<>0�h%=0
=h%

ݤopenup(f$)
&
�h%,F%
0ș"XOS_Find",&CF,f$�h%;F%
:5�(F%�1)�ș"XOS_Find",&8F,f$�h%;F%:�(F%�1)<>0�h%=0
D=h%
N
X��fcopy(in%,out%)
b�r3%,F%
l
�(�#in%)
vA  ȕr3%=0�(F%�1)=0:ș"XOS_GBPB",4,in%,fbuf%,fbsize%�,,,r3%;F%
�G    �r3%<fbsize%�(F%�1)=0�ș"XOS_GBPB",2,out%,fbuf%,fbsize%-r3%�;F%
�  �
��
��
�
���cf(� h%)
�!�h%<>0 ș"XOS_Find",0,h%:h%=0
��
�
�ݤreturnart(f$)
��ok%:ok%=0
�&out$="<NewsBase$Local>."+newsuser$
�in%=�openin(f$)
�in%<>0�
  out%=�openup(out$)
  �out%<>0�
     �#out%=�#out%
*    �#out%,"From "+�$
4    �#out%,"To: "+newsuser$
>1    �#out%,"Subject: Failed news posting "+f$
HR    �#out%,"From: root@"+�varval("NewsBase$HostName")+" (NewsHound Transport)"
RL    �#out%,"Message-ID: <"+�id_date+"@"+�varval("NewsBase$HostName")+">"
\!    �#out%,"Date: "+�rfc_date
f    �#out%,""
p`    �#out%,"The following article was found in the directory of unsuccessful news postings."
z`    �#out%,"-------------------------------------------------------------------------------"
�    �#out%,""
�    �fcopy(in%,out%)
�+    �cf(out%):�settype(out$,&FFF):ok%=�
�  �
�  �cf(in%)
��
�=ok%
�
�
ݤtime
��d%
�?tmp%=3:ș"OS_Word",14,tmp%
�Jș"OS_ConvertDateAndTime",tmp%,tmp%+128,128,"# %YR%MN%DY %24%MI%SE"�s%
�
=�str(s%)

ݤvarval(A$)

�L%,F%
$/ș"XOS_ReadVarVal",A$,tmp%,256,0,3 �,,L%;F%
.�(F%�1) �L%>256 �:=""
8tmp%?L%=13:=$tmp%
B
Lݤrfc_date
V#�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%
j
=�str(b%)
t
~
ݤ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%)
�
���exit(n%,a$)
��cf(in%):�cf(out%)
�%�("set NewsBase$ReturnCode "+�n%)
�$�("set NewsBase$ReturnInfo "+a$)
��
�
�ݤrename(s$,d$)
�*�F%:ș"XOS_FSControl",25,s$,d$�err%;F%

�(F%�1) �

  F%=�delfile(d$)
(  ș"XOS_FSControl",25,s$,d$�err%;F%
�
(=(F%�1)
2
<ݤmovefile(s$,d$)
F�F%:F%=�rename(s$,d$)
P0�F%<>0ș"XOS_FSControl",26,s$,d$,(1<<7) �;F%
Z=(F%�1)
d
nݤdelfile(f$)
x�F%:ș"XOS_File",6,f$�;F%
�=(F%�1)
�
�ݤclean(B$)
�ȕ�B$,1)=" ":B$=�B$,2):�
� ȕ�B$,1)=" ":B$=�B$,�B$-1):�
�=B$
�
�ݤgetpar(� A$,s$)
�
�B$,l%
�l%=�A$,s$)
�
�l%>0�
�  B$=�A$,l%-1):A$=�A$,l%+1)
�  �
  B$=A$:A$=""
�
=B$
"
,
ݤstr(a%)
6*�a$:ȕ ?a%>31��a$<255:a$+=�?a%:a%+=1:�
@=a$
J
�

00000000  0d 00 0a 0e f4 20 3e 62  61 64 6e 65 77 73 0d 00  |..... >badnews..|
00000010  14 24 f4 20 63 68 65 63  6b 20 66 6f 72 20 75 6e  |.$. check for un|
00000020  73 65 6e 74 20 6e 65 77  73 20 70 6f 73 74 69 6e  |sent news postin|
00000030  67 73 0d 00 1e 1b f4 20  52 65 63 6f 64 65 64 20  |gs..... Recoded |
00000040  66 6f 72 20 4e 65 77 73  48 6f 75 6e 64 0d 00 1f  |for NewsHound...|
00000050  04 0d 00 28 10 69 6e 25  3d 30 3a 6f 75 74 25 3d  |...(.in%=0:out%=|
00000060  30 0d 00 32 19 ee 85 20  f6 3a f1 22 20 61 74 20  |0..2... .:." at |
00000070  6c 69 6e 65 20 22 3b 9e  3a e0 0d 00 3c 16 c8 99  |line ";.:...<...|
00000080  22 4f 53 5f 47 65 74 45  6e 76 22 20 b8 20 41 24  |"OS_GetEnv" . A$|
00000090  0d 00 46 10 4e 24 3d 22  22 3a 6f 6c 64 25 3d a3  |..F.N$="":old%=.|
000000a0  0d 00 50 05 f5 0d 00 5a  16 70 24 3d a4 67 65 74  |..P....Z.p$=.get|
000000b0  70 61 72 28 41 24 2c 22  20 22 29 0d 00 64 09 c8  |par(A$," ")..d..|
000000c0  8e 70 24 ca 0d 00 6e 1c  c9 22 2d 75 22 3a 4e 24  |.p$...n.."-u":N$|
000000d0  3d a4 67 65 74 70 61 72  28 41 24 2c 22 20 22 29  |=.getpar(A$," ")|
000000e0  0d 00 78 05 cb 0d 00 82  0a fd 41 24 3d 22 22 0d  |..x.......A$="".|
000000f0  00 8c 18 de 20 62 75 66  25 20 31 30 32 34 2c 74  |.... buf% 1024,t|
00000100  6d 70 25 20 35 31 32 0d  00 96 12 66 62 73 69 7a  |mp% 512....fbsiz|
00000110  65 25 3d 38 2a 31 30 32  34 0d 00 a0 13 de 20 66  |e%=8*1024..... f|
00000120  62 75 66 25 20 66 62 73  69 7a 65 25 0d 00 aa 04  |buf% fbsize%....|
00000130  0d 00 b4 18 6e 65 77 73  75 73 65 72 24 3d a4 63  |....newsuser$=.c|
00000140  6c 65 61 6e 28 4e 24 29  0d 00 be 28 e7 6e 65 77  |lean(N$)...(.new|
00000150  73 75 73 65 72 24 3d 22  22 8c 6e 65 77 73 75 73  |suser$="".newsus|
00000160  65 72 24 3d 22 70 6f 73  74 6d 61 73 74 65 72 22  |er$="postmaster"|
00000170  0d 00 c8 04 0d 00 d2 1d  64 31 24 3d 22 3c 4e 65  |........d1$="<Ne|
00000180  77 73 48 6f 75 6e 64 24  4e 65 77 73 44 69 72 3e  |wsHound$NewsDir>|
00000190  22 0d 00 dc 3e e7 a4 6f  62 6a 74 79 70 65 28 64  |"...>..objtype(d|
000001a0  31 24 29 3c 32 8c f2 65  78 69 74 28 31 2c 22 4e  |1$)<2..exit(1,"N|
000001b0  65 77 73 20 73 70 6f 6f  6c 20 64 69 72 65 63 74  |ews spool direct|
000001c0  6f 72 79 20 6e 6f 74 20  66 6f 75 6e 64 22 29 0d  |ory not found").|
000001d0  00 e6 18 64 32 24 3d 64  31 24 2b 22 2e 62 61 64  |...d2$=d1$+".bad|
000001e0  6d 61 72 6b 65 72 22 0d  00 f0 17 64 31 24 3d 64  |marker"....d1$=d|
000001f0  31 24 2b 22 2e 61 72 74  69 63 6c 65 73 22 0d 00  |1$+".articles"..|
00000200  fa 04 0d 01 04 0b 6e 65  78 74 25 3d 30 0d 01 0e  |......next%=0...|
00000210  05 f5 0d 01 18 3e 20 20  c8 99 22 58 4f 53 5f 47  |.....>  .."XOS_G|
00000220  42 50 42 22 2c 39 2c 64  32 24 2c 62 75 66 25 2c  |BPB",9,d2$,buf%,|
00000230  31 2c 6e 65 78 74 25 2c  31 30 32 34 2c 22 2a 22  |1,next%,1024,"*"|
00000240  b8 2c 2c 2c 6e 6f 25 2c  6e 65 78 74 25 3b 46 25  |.,,,no%,next%;F%|
00000250  0d 01 22 16 20 20 e7 6e  6f 25 3e 30 80 28 46 25  |..".  .no%>0.(F%|
00000260  80 31 29 3d 30 8c 0d 01  2c 15 20 20 20 20 66 24  |.1)=0...,.    f$|
00000270  3d a4 73 74 72 28 62 75  66 25 29 0d 01 36 20 20  |=.str(buf%)..6  |
00000280  20 20 20 e7 a4 6f 62 6a  74 79 70 65 28 64 31 24  |   ..objtype(d1$|
00000290  2b 22 2e 22 2b 66 24 29  3d 30 8c 0d 01 40 42 20  |+"."+f$)=0...@B |
000002a0  20 20 20 20 20 e7 a4 72  65 74 75 72 6e 61 72 74  |     ..returnart|
000002b0  28 64 32 24 2b 22 2e 22  2b 66 24 29 8c e7 a4 64  |(d2$+"."+f$)...d|
000002c0  65 6c 66 69 6c 65 28 64  32 24 2b 22 2e 22 2b 66  |elfile(d2$+"."+f|
000002d0  24 29 3d 30 8c 6e 65 78  74 25 2d 3d 31 0d 01 4a  |$)=0.next%-=1..J|
000002e0  09 20 20 20 20 cd 0d 01  54 07 20 20 cd 0d 01 5e  |.    ...T.  ...^|
000002f0  15 fd 6e 65 78 74 25 3c  30 84 28 46 25 80 31 29  |..next%<0.(F%.1)|
00000300  3e 30 0d 01 68 28 f2 65  78 69 74 28 30 2c 22 6e  |>0..h(.exit(0,"n|
00000310  65 77 73 20 73 70 6f 6f  6c 20 63 68 65 63 6b 20  |ews spool check |
00000320  63 6f 6d 70 6c 65 74 65  22 29 0d 01 72 05 e0 0d  |complete")..r...|
00000330  01 7c 04 0d 01 86 11 dd  a4 6f 62 6a 74 79 70 65  |.|.......objtype|
00000340  28 66 24 29 0d 01 90 0a  ea 46 25 2c 74 25 0d 01  |(f$).....F%,t%..|
00000350  9a 1c c8 99 22 58 4f 53  5f 46 69 6c 65 22 2c 31  |...."XOS_File",1|
00000360  37 2c 66 24 b8 74 25 3b  46 25 0d 01 a4 0f e7 28  |7,f$.t%;F%.....(|
00000370  46 25 80 31 29 8c 3d 2d  31 0d 01 ae 07 3d 74 25  |F%.1).=-1....=t%|
00000380  0d 01 b8 04 0d 01 c2 14  dd f2 73 65 74 74 79 70  |..........settyp|
00000390  65 28 66 24 2c 74 25 29  0d 01 cc 19 c8 99 22 58  |e(f$,t%)......"X|
000003a0  4f 53 5f 46 69 6c 65 22  2c 31 38 2c 66 24 2c 74  |OS_File",18,f$,t|
000003b0  25 0d 01 d6 05 e1 0d 01  e0 04 0d 01 ea 10 dd a4  |%...............|
000003c0  6f 70 65 6e 69 6e 28 66  24 29 0d 01 f4 0a ea 68  |openin(f$).....h|
000003d0  25 2c 46 25 0d 01 fe 2e  c8 99 22 58 4f 53 5f 46  |%,F%......"XOS_F|
000003e0  69 6e 64 22 2c 26 34 46  2c 66 24 20 b8 68 25 3b  |ind",&4F,f$ .h%;|
000003f0  46 25 3a e7 28 46 25 80  31 29 3c 3e 30 8c 68 25  |F%:.(F%.1)<>0.h%|
00000400  3d 30 0d 02 08 07 3d 68  25 0d 02 12 04 0d 02 1c  |=0....=h%.......|
00000410  10 dd a4 6f 70 65 6e 75  70 28 66 24 29 0d 02 26  |...openup(f$)..&|
00000420  0a ea 68 25 2c 46 25 0d  02 30 1d c8 99 22 58 4f  |..h%,F%..0..."XO|
00000430  53 5f 46 69 6e 64 22 2c  26 43 46 2c 66 24 b8 68  |S_Find",&CF,f$.h|
00000440  25 3b 46 25 0d 02 3a 35  e7 28 46 25 80 31 29 8c  |%;F%..:5.(F%.1).|
00000450  c8 99 22 58 4f 53 5f 46  69 6e 64 22 2c 26 38 46  |.."XOS_Find",&8F|
00000460  2c 66 24 b8 68 25 3b 46  25 3a e7 28 46 25 80 31  |,f$.h%;F%:.(F%.1|
00000470  29 3c 3e 30 8c 68 25 3d  30 0d 02 44 07 3d 68 25  |)<>0.h%=0..D.=h%|
00000480  0d 02 4e 04 0d 02 58 15  dd f2 66 63 6f 70 79 28  |..N...X...fcopy(|
00000490  69 6e 25 2c 6f 75 74 25  29 0d 02 62 0b ea 72 33  |in%,out%)..b..r3|
000004a0  25 2c 46 25 0d 02 6c 0d  e7 ac 28 c5 23 69 6e 25  |%,F%..l...(.#in%|
000004b0  29 0d 02 76 41 20 20 c8  95 72 33 25 3d 30 80 28  |)..vA  ..r3%=0.(|
000004c0  46 25 80 31 29 3d 30 3a  c8 99 22 58 4f 53 5f 47  |F%.1)=0:.."XOS_G|
000004d0  42 50 42 22 2c 34 2c 69  6e 25 2c 66 62 75 66 25  |BPB",4,in%,fbuf%|
000004e0  2c 66 62 73 69 7a 65 25  b8 2c 2c 2c 72 33 25 3b  |,fbsize%.,,,r3%;|
000004f0  46 25 0d 02 80 47 20 20  20 20 e7 72 33 25 3c 66  |F%...G    .r3%<f|
00000500  62 73 69 7a 65 25 80 28  46 25 80 31 29 3d 30 8c  |bsize%.(F%.1)=0.|
00000510  c8 99 22 58 4f 53 5f 47  42 50 42 22 2c 32 2c 6f  |.."XOS_GBPB",2,o|
00000520  75 74 25 2c 66 62 75 66  25 2c 66 62 73 69 7a 65  |ut%,fbuf%,fbsize|
00000530  25 2d 72 33 25 b8 3b 46  25 0d 02 8a 07 20 20 ce  |%-r3%.;F%....  .|
00000540  0d 02 94 05 cd 0d 02 9e  05 e1 0d 02 a8 04 0d 02  |................|
00000550  b2 0e dd f2 63 66 28 f8  20 68 25 29 0d 02 bc 21  |....cf(. h%)...!|
00000560  e7 68 25 3c 3e 30 20 c8  99 22 58 4f 53 5f 46 69  |.h%<>0 .."XOS_Fi|
00000570  6e 64 22 2c 30 2c 68 25  3a 68 25 3d 30 0d 02 c6  |nd",0,h%:h%=0...|
00000580  05 e1 0d 02 d0 04 0d 02  da 13 dd a4 72 65 74 75  |............retu|
00000590  72 6e 61 72 74 28 66 24  29 0d 02 e4 0e ea 6f 6b  |rnart(f$).....ok|
000005a0  25 3a 6f 6b 25 3d 30 0d  02 ee 26 6f 75 74 24 3d  |%:ok%=0...&out$=|
000005b0  22 3c 4e 65 77 73 42 61  73 65 24 4c 6f 63 61 6c  |"<NewsBase$Local|
000005c0  3e 2e 22 2b 6e 65 77 73  75 73 65 72 24 0d 02 f8  |>."+newsuser$...|
000005d0  13 69 6e 25 3d a4 6f 70  65 6e 69 6e 28 66 24 29  |.in%=.openin(f$)|
000005e0  0d 03 02 0c e7 69 6e 25  3c 3e 30 8c 0d 03 0c 18  |.....in%<>0.....|
000005f0  20 20 6f 75 74 25 3d a4  6f 70 65 6e 75 70 28 6f  |  out%=.openup(o|
00000600  75 74 24 29 0d 03 16 0f  20 20 e7 6f 75 74 25 3c  |ut$)....  .out%<|
00000610  3e 30 8c 0d 03 20 15 20  20 20 20 cf 23 6f 75 74  |>0... .    .#out|
00000620  25 3d a2 23 6f 75 74 25  0d 03 2a 19 20 20 20 20  |%=.#out%..*.    |
00000630  d5 23 6f 75 74 25 2c 22  46 72 6f 6d 20 22 2b 91  |.#out%,"From "+.|
00000640  24 0d 03 34 1f 20 20 20  20 d5 23 6f 75 74 25 2c  |$..4.    .#out%,|
00000650  22 54 6f 3a 20 22 2b 6e  65 77 73 75 73 65 72 24  |"To: "+newsuser$|
00000660  0d 03 3e 31 20 20 20 20  d5 23 6f 75 74 25 2c 22  |..>1    .#out%,"|
00000670  53 75 62 6a 65 63 74 3a  20 46 61 69 6c 65 64 20  |Subject: Failed |
00000680  6e 65 77 73 20 70 6f 73  74 69 6e 67 20 22 2b 66  |news posting "+f|
00000690  24 0d 03 48 52 20 20 20  20 d5 23 6f 75 74 25 2c  |$..HR    .#out%,|
000006a0  22 46 72 6f 6d 3a 20 72  6f 6f 74 40 22 2b a4 76  |"From: root@"+.v|
000006b0  61 72 76 61 6c 28 22 4e  65 77 73 42 61 73 65 24  |arval("NewsBase$|
000006c0  48 6f 73 74 4e 61 6d 65  22 29 2b 22 20 28 4e 65  |HostName")+" (Ne|
000006d0  77 73 48 6f 75 6e 64 20  54 72 61 6e 73 70 6f 72  |wsHound Transpor|
000006e0  74 29 22 0d 03 52 4c 20  20 20 20 d5 23 6f 75 74  |t)"..RL    .#out|
000006f0  25 2c 22 4d 65 73 73 61  67 65 2d 49 44 3a 20 3c  |%,"Message-ID: <|
00000700  22 2b a4 69 64 5f 64 61  74 65 2b 22 40 22 2b a4  |"+.id_date+"@"+.|
00000710  76 61 72 76 61 6c 28 22  4e 65 77 73 42 61 73 65  |varval("NewsBase|
00000720  24 48 6f 73 74 4e 61 6d  65 22 29 2b 22 3e 22 0d  |$HostName")+">".|
00000730  03 5c 21 20 20 20 20 d5  23 6f 75 74 25 2c 22 44  |.\!    .#out%,"D|
00000740  61 74 65 3a 20 22 2b a4  72 66 63 5f 64 61 74 65  |ate: "+.rfc_date|
00000750  0d 03 66 11 20 20 20 20  d5 23 6f 75 74 25 2c 22  |..f.    .#out%,"|
00000760  22 0d 03 70 60 20 20 20  20 d5 23 6f 75 74 25 2c  |"..p`    .#out%,|
00000770  22 54 68 65 20 66 6f 6c  6c 6f 77 69 6e 67 20 61  |"The following a|
00000780  72 74 69 63 6c 65 20 77  61 73 20 66 6f 75 6e 64  |rticle was found|
00000790  20 69 6e 20 74 68 65 20  64 69 72 65 63 74 6f 72  | in the director|
000007a0  79 20 6f 66 20 75 6e 73  75 63 63 65 73 73 66 75  |y of unsuccessfu|
000007b0  6c 20 6e 65 77 73 20 70  6f 73 74 69 6e 67 73 2e  |l news postings.|
000007c0  22 0d 03 7a 60 20 20 20  20 d5 23 6f 75 74 25 2c  |"..z`    .#out%,|
000007d0  22 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |"---------------|
000007e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000820  22 0d 03 84 11 20 20 20  20 d5 23 6f 75 74 25 2c  |"....    .#out%,|
00000830  22 22 0d 03 8e 18 20 20  20 20 f2 66 63 6f 70 79  |""....    .fcopy|
00000840  28 69 6e 25 2c 6f 75 74  25 29 0d 03 98 2b 20 20  |(in%,out%)...+  |
00000850  20 20 f2 63 66 28 6f 75  74 25 29 3a f2 73 65 74  |  .cf(out%):.set|
00000860  74 79 70 65 28 6f 75 74  24 2c 26 46 46 46 29 3a  |type(out$,&FFF):|
00000870  6f 6b 25 3d b9 0d 03 a2  07 20 20 cd 0d 03 ac 0e  |ok%=.....  .....|
00000880  20 20 f2 63 66 28 69 6e  25 29 0d 03 b6 05 cd 0d  |  .cf(in%)......|
00000890  03 c0 08 3d 6f 6b 25 0d  03 ca 04 0d 03 d4 0a dd  |...=ok%.........|
000008a0  a4 74 69 6d 65 0d 03 de  07 ea 64 25 0d 03 e8 1f  |.time.....d%....|
000008b0  3f 74 6d 70 25 3d 33 3a  c8 99 22 4f 53 5f 57 6f  |?tmp%=3:.."OS_Wo|
000008c0  72 64 22 2c 31 34 2c 74  6d 70 25 0d 03 f2 4a c8  |rd",14,tmp%...J.|
000008d0  99 22 4f 53 5f 43 6f 6e  76 65 72 74 44 61 74 65  |."OS_ConvertDate|
000008e0  41 6e 64 54 69 6d 65 22  2c 74 6d 70 25 2c 74 6d  |AndTime",tmp%,tm|
000008f0  70 25 2b 31 32 38 2c 31  32 38 2c 22 23 20 25 59  |p%+128,128,"# %Y|
00000900  52 25 4d 4e 25 44 59 20  25 32 34 25 4d 49 25 53  |R%MN%DY %24%MI%S|
00000910  45 22 b8 73 25 0d 03 fc  0d 3d a4 73 74 72 28 73  |E".s%....=.str(s|
00000920  25 29 0d 04 06 04 0d 04  10 10 dd a4 76 61 72 76  |%)..........varv|
00000930  61 6c 28 41 24 29 0d 04  1a 0a ea 4c 25 2c 46 25  |al(A$).....L%,F%|
00000940  0d 04 24 2f c8 99 22 58  4f 53 5f 52 65 61 64 56  |..$/.."XOS_ReadV|
00000950  61 72 56 61 6c 22 2c 41  24 2c 74 6d 70 25 2c 32  |arVal",A$,tmp%,2|
00000960  35 36 2c 30 2c 33 20 b8  2c 2c 4c 25 3b 46 25 0d  |56,0,3 .,,L%;F%.|
00000970  04 2e 19 e7 28 46 25 80  31 29 20 84 4c 25 3e 32  |....(F%.1) .L%>2|
00000980  35 36 20 8c 3a 3d 22 22  0d 04 38 15 74 6d 70 25  |56 .:=""..8.tmp%|
00000990  3f 4c 25 3d 31 33 3a 3d  24 74 6d 70 25 0d 04 42  |?L%=13:=$tmp%..B|
000009a0  04 0d 04 4c 0e dd a4 72  66 63 5f 64 61 74 65 0d  |...L...rfc_date.|
000009b0  04 56 23 ea 62 25 3a 3f  74 6d 70 25 3d 33 3a c8  |.V#.b%:?tmp%=3:.|
000009c0  99 22 4f 53 5f 57 6f 72  64 22 2c 31 34 2c 74 6d  |."OS_Word",14,tm|
000009d0  70 25 0d 04 60 61 c8 99  22 54 65 72 72 69 74 6f  |p%..`a.."Territo|
000009e0  72 79 5f 43 6f 6e 76 65  72 74 44 61 74 65 41 6e  |ry_ConvertDateAn|
000009f0  64 54 69 6d 65 22 2c 31  2c 74 6d 70 25 2c 74 6d  |dTime",1,tmp%,tm|
00000a00  70 25 2b 31 32 38 2c 31  32 38 2c 22 25 57 33 2c  |p%+128,128,"%W3,|
00000a10  20 25 44 59 20 25 4d 33  20 25 43 45 25 59 52 20  | %DY %M3 %CE%YR |
00000a20  25 32 34 3a 25 4d 49 3a  25 53 45 20 25 54 5a 22  |%24:%MI:%SE %TZ"|
00000a30  b8 62 25 0d 04 6a 0d 3d  a4 73 74 72 28 62 25 29  |.b%..j.=.str(b%)|
00000a40  0d 04 74 04 0d 04 7e 0d  dd a4 69 64 5f 64 61 74  |..t...~...id_dat|
00000a50  65 0d 04 88 23 ea 62 25  3a 3f 74 6d 70 25 3d 33  |e...#.b%:?tmp%=3|
00000a60  3a c8 99 22 4f 53 5f 57  6f 72 64 22 2c 31 34 2c  |:.."OS_Word",14,|
00000a70  74 6d 70 25 0d 04 92 4f  c8 99 22 4f 53 5f 43 6f  |tmp%...O.."OS_Co|
00000a80  6e 76 65 72 74 44 61 74  65 41 6e 64 54 69 6d 65  |nvertDateAndTime|
00000a90  22 2c 74 6d 70 25 2c 74  6d 70 25 2b 31 32 38 2c  |",tmp%,tmp%+128,|
00000aa0  31 32 38 2c 22 25 43 45  25 59 52 25 4d 4e 25 44  |128,"%CE%YR%MN%D|
00000ab0  59 2e 25 32 34 25 4d 49  25 53 45 2e 25 43 53 22  |Y.%24%MI%SE.%CS"|
00000ac0  b8 62 25 0d 04 9c 0d 3d  a4 73 74 72 28 62 25 29  |.b%....=.str(b%)|
00000ad0  0d 04 a6 04 0d 04 b0 11  dd f2 65 78 69 74 28 6e  |..........exit(n|
00000ae0  25 2c 61 24 29 0d 04 ba  16 f2 63 66 28 69 6e 25  |%,a$).....cf(in%|
00000af0  29 3a f2 63 66 28 6f 75  74 25 29 0d 04 c4 25 ff  |):.cf(out%)...%.|
00000b00  28 22 73 65 74 20 4e 65  77 73 42 61 73 65 24 52  |("set NewsBase$R|
00000b10  65 74 75 72 6e 43 6f 64  65 20 22 2b c3 6e 25 29  |eturnCode "+.n%)|
00000b20  0d 04 ce 24 ff 28 22 73  65 74 20 4e 65 77 73 42  |...$.("set NewsB|
00000b30  61 73 65 24 52 65 74 75  72 6e 49 6e 66 6f 20 22  |ase$ReturnInfo "|
00000b40  2b 61 24 29 0d 04 d8 05  e0 0d 04 e2 04 0d 04 ec  |+a$)............|
00000b50  13 dd a4 72 65 6e 61 6d  65 28 73 24 2c 64 24 29  |...rename(s$,d$)|
00000b60  0d 04 f6 2a ea 46 25 3a  c8 99 22 58 4f 53 5f 46  |...*.F%:.."XOS_F|
00000b70  53 43 6f 6e 74 72 6f 6c  22 2c 32 35 2c 73 24 2c  |SControl",25,s$,|
00000b80  64 24 b8 65 72 72 25 3b  46 25 0d 05 00 0d e7 28  |d$.err%;F%.....(|
00000b90  46 25 80 31 29 20 8c 0d  05 0a 15 20 20 46 25 3d  |F%.1) .....  F%=|
00000ba0  a4 64 65 6c 66 69 6c 65  28 64 24 29 0d 05 14 28  |.delfile(d$)...(|
00000bb0  20 20 c8 99 22 58 4f 53  5f 46 53 43 6f 6e 74 72  |  .."XOS_FSContr|
00000bc0  6f 6c 22 2c 32 35 2c 73  24 2c 64 24 b8 65 72 72  |ol",25,s$,d$.err|
00000bd0  25 3b 46 25 0d 05 1e 05  cd 0d 05 28 0b 3d 28 46  |%;F%.......(.=(F|
00000be0  25 80 31 29 0d 05 32 04  0d 05 3c 15 dd a4 6d 6f  |%.1)..2...<...mo|
00000bf0  76 65 66 69 6c 65 28 73  24 2c 64 24 29 0d 05 46  |vefile(s$,d$)..F|
00000c00  19 ea 46 25 3a 46 25 3d  a4 72 65 6e 61 6d 65 28  |..F%:F%=.rename(|
00000c10  73 24 2c 64 24 29 0d 05  50 30 e7 46 25 3c 3e 30  |s$,d$)..P0.F%<>0|
00000c20  c8 99 22 58 4f 53 5f 46  53 43 6f 6e 74 72 6f 6c  |.."XOS_FSControl|
00000c30  22 2c 32 36 2c 73 24 2c  64 24 2c 28 31 3c 3c 37  |",26,s$,d$,(1<<7|
00000c40  29 20 b8 3b 46 25 0d 05  5a 0b 3d 28 46 25 80 31  |) .;F%..Z.=(F%.1|
00000c50  29 0d 05 64 04 0d 05 6e  11 dd a4 64 65 6c 66 69  |)..d...n...delfi|
00000c60  6c 65 28 66 24 29 0d 05  78 1d ea 46 25 3a c8 99  |le(f$)..x..F%:..|
00000c70  22 58 4f 53 5f 46 69 6c  65 22 2c 36 2c 66 24 b8  |"XOS_File",6,f$.|
00000c80  3b 46 25 0d 05 82 0b 3d  28 46 25 80 31 29 0d 05  |;F%....=(F%.1)..|
00000c90  8c 04 0d 05 96 0f dd a4  63 6c 65 61 6e 28 42 24  |........clean(B$|
00000ca0  29 0d 05 a0 1c c8 95 c0  42 24 2c 31 29 3d 22 20  |).......B$,1)=" |
00000cb0  22 3a 42 24 3d c1 42 24  2c 32 29 3a ce 0d 05 aa  |":B$=.B$,2):....|
00000cc0  20 c8 95 c2 42 24 2c 31  29 3d 22 20 22 3a 42 24  | ...B$,1)=" ":B$|
00000cd0  3d c0 42 24 2c a9 42 24  2d 31 29 3a ce 0d 05 b4  |=.B$,.B$-1):....|
00000ce0  07 3d 42 24 0d 05 be 04  0d 05 c8 15 dd a4 67 65  |.=B$..........ge|
00000cf0  74 70 61 72 28 f8 20 41  24 2c 73 24 29 0d 05 d2  |tpar(. A$,s$)...|
00000d00  0a ea 42 24 2c 6c 25 0d  05 dc 0e 6c 25 3d a7 41  |..B$,l%....l%=.A|
00000d10  24 2c 73 24 29 0d 05 e6  0a e7 6c 25 3e 30 8c 0d  |$,s$).....l%>0..|
00000d20  05 f0 1f 20 20 42 24 3d  c0 41 24 2c 6c 25 2d 31  |...  B$=.A$,l%-1|
00000d30  29 3a 41 24 3d c1 41 24  2c 6c 25 2b 31 29 0d 05  |):A$=.A$,l%+1)..|
00000d40  fa 07 20 20 cc 0d 06 04  11 20 20 42 24 3d 41 24  |..  .....  B$=A$|
00000d50  3a 41 24 3d 22 22 0d 06  0e 05 cd 0d 06 18 07 3d  |:A$="".........=|
00000d60  42 24 0d 06 22 04 0d 06  2c 0d dd a4 73 74 72 28  |B$.."...,...str(|
00000d70  61 25 29 0d 06 36 2a ea  61 24 3a c8 95 20 3f 61  |a%)..6*.a$:.. ?a|
00000d80  25 3e 33 31 80 a9 61 24  3c 32 35 35 3a 61 24 2b  |%>31..a$<255:a$+|
00000d90  3d bd 3f 61 25 3a 61 25  2b 3d 31 3a ce 0d 06 40  |=.?a%:a%+=1:...@|
00000da0  07 3d 61 24 0d 06 4a 04  0d ff                    |.=a$..J...|
00000daa