� >Trimfile
<� Trim a standard-dated file to a certain number of days

(>�:�" in Newsbase/trimfile at line ";�:�exit(1,"Error"):�
2
<� buf% 1024,tmp%256
Fin%=0:out%=0
P
Zș"OS_GetEnv" � A$
d	f$=""
n�
xp$=�getpar(A$," ")
�	Ȏp$�
��"-f":f$=�getpar(A$," ")
� �"-n":diff%=��getpar(A$," ")
��"-h","-?":�help:�
��
�
�A$=""
�'�f$=""��exit(1,"No file parameter")
��diff%<2�diff%=3
��diff%>60�diff%=60
�
�d1$=�dir(f$):f1$=�leaf(f$)
�
�3�objtype(d1$)<2��exit(1,"Directory not found")



next%=0

 today%=�date(�time):write%=0

"�

,?  ș"XOS_GBPB",11,d1$,buf%,1,next%,1024,f1$�,,,no%,next%;F%

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

@    b%=buf%

J    �loop%=1�no%

TN      ș"Territory_ConvertDateAndTime",1,b%+24,tmp%+128,128,"%YR%MN%DY"�s%

^#      filedate%=�date(�str(s%))

h*      f$=�str(b%+29):b%=b%+(32+�f$)��3

r       f2$=d1$+"."+�f$,9)+"!"

|      f$=d1$+"."+f$

�      in%=�openin(f$)

�      �in%<>0�

�        A$=�#in%:�#in%=0

�+        �today%-diff%<�date(�A$,3,6)) �

�          �cf(in%)

�          �

�          F%=�delete(f2$)

�           out%=�openout(f2$)

�          �out%<>0�

�            write%=0:�

�              A$=�#in%

�              �A$,1)="#"�

�:                �today%-diff%<�date(�A$,3,6)) write%=1
              �
&              �write%<>0 �#out%,A$
            ��#in%
&            �cf(out%)
0            �
:            out%=0
D          �
N          �cf(in%)
X           �settype(f2$,&FFF)
b          �write%<>0�
l             �delete(f$)=0 �
v&              x%=�movefile(f2$,f$)
�              �
�!              x%=�delete(f2$)
�            �
�            �
�            x%=�delete(f2$)
�          �
�
        �
�
        �
�        in%=0
�      �
�	    �
�  �
��next%<0
1�exit(0,"Trimmed "+f1$+" to "+�diff%+" days")
�

 ��cf(� C%)
*�C%<>0 �#C%:C%=0
4�
>
Hݤdelete(f$)
R�F%:ș"XOS_File",6,f$�;F%
\=(F%�1)
f
pݤmovefile(s$,d$)
z&�F%:ș"XOS_FSControl",25,s$,d$�;F%
�2�(F%�1) ș"XOS_FSControl",26,s$,d$,(1<<7) �;F%
�=(F%�1)
�
���exit(n%,a$)
��:�" at line ";�:�
��cf(in%)
�
�cf(out%)
�%�("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%
8Gș"Territory_ConvertDateAndTime",1,tmp%,tmp%+128,128,"%YR%MN%DY"�s%
B
=�str(s%)
L
Vݤdate(A$)
`year%=��A$,1,2)
jmonth%=��A$,3,2)
tday%=��A$,5,2)
~date%=365*year%+day%
�
Ȏmonth%�
��1:m%=0
��2:m%=31
��3:m%=59
��4:m%=90
�
�5:m%=120
�
�6:m%=151
�
�7:m%=180
�
�8:m%=211
�
�9:m%=242
��10:m%=272
��11:m%=303
�12:m%=333

�

=date%+m%

(
ݤdir(f$)
2�l%
<%l%=�f$:�l%-=1:��f$,l%,1)="."�l%<1
F=�f$,l%-1)
P
Zݤleaf(f$)
d�l%
n%l%=�f$:�l%-=1:��f$,l%,1)="."�l%<1
x=�f$,l%+1)
�
�ݤgetpar(� A$,s$)
�
�B$,l%
�l%=�A$,s$)
�
�l%>0�
�  B$=�A$,l%-1):A$=�A$,l%+1)
�  �
�  B$=A$:A$=""
��
�=B$
�
�ݤobjtype(f$)
��F%
ș"XOS_File",17,f$�t%;F%
�(F%�1)�=-1:�=t%

"��settype(f$,t%)
,ș"XOS_File",18,f$,t%
6�
@
J
��help
T.�"Usage: trimfile -f <filespec> -n <days>"
^H�"  Trims a newsbase standard-dated file to the last <days> entries"
h?�"  If -n parameter is omitted, a value of 3 days is used"'
r�
|
�ݤ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%
�
�ݤopenout(f$)
�
�h%,F%
-ș"XOS_Find",&8F,f$�h%;F%:�(F%�1)<>0�h%=0
=h%
�

00000000  0d 00 0a 0f f4 20 3e 54  72 69 6d 66 69 6c 65 0d  |..... >Trimfile.|
00000010  00 14 3c f4 20 54 72 69  6d 20 61 20 73 74 61 6e  |..<. Trim a stan|
00000020  64 61 72 64 2d 64 61 74  65 64 20 66 69 6c 65 20  |dard-dated file |
00000030  74 6f 20 61 20 63 65 72  74 61 69 6e 20 6e 75 6d  |to a certain num|
00000040  62 65 72 20 6f 66 20 64  61 79 73 0d 00 1e 04 0d  |ber of days.....|
00000050  00 28 3e ee 85 f6 3a f1  22 20 69 6e 20 4e 65 77  |.(>...:." in New|
00000060  73 62 61 73 65 2f 74 72  69 6d 66 69 6c 65 20 61  |sbase/trimfile a|
00000070  74 20 6c 69 6e 65 20 22  3b 9e 3a f2 65 78 69 74  |t line ";.:.exit|
00000080  28 31 2c 22 45 72 72 6f  72 22 29 3a e0 0d 00 32  |(1,"Error"):...2|
00000090  04 0d 00 3c 17 de 20 62  75 66 25 20 31 30 32 34  |...<.. buf% 1024|
000000a0  2c 74 6d 70 25 32 35 36  0d 00 46 10 69 6e 25 3d  |,tmp%256..F.in%=|
000000b0  30 3a 6f 75 74 25 3d 30  0d 00 50 04 0d 00 5a 16  |0:out%=0..P...Z.|
000000c0  c8 99 22 4f 53 5f 47 65  74 45 6e 76 22 20 b8 20  |.."OS_GetEnv" . |
000000d0  41 24 0d 00 64 09 66 24  3d 22 22 0d 00 6e 05 f5  |A$..d.f$=""..n..|
000000e0  0d 00 78 16 70 24 3d a4  67 65 74 70 61 72 28 41  |..x.p$=.getpar(A|
000000f0  24 2c 22 20 22 29 0d 00  82 09 c8 8e 70 24 ca 0d  |$," ")......p$..|
00000100  00 8c 1c c9 22 2d 66 22  3a 66 24 3d a4 67 65 74  |...."-f":f$=.get|
00000110  70 61 72 28 41 24 2c 22  20 22 29 0d 00 96 20 c9  |par(A$," ")... .|
00000120  22 2d 6e 22 3a 64 69 66  66 25 3d bb a4 67 65 74  |"-n":diff%=..get|
00000130  70 61 72 28 41 24 2c 22  20 22 29 0d 00 a0 16 c9  |par(A$," ").....|
00000140  22 2d 68 22 2c 22 2d 3f  22 3a f2 68 65 6c 70 3a  |"-h","-?":.help:|
00000150  e0 0d 00 aa 05 cb 0d 00  b4 0a fd 41 24 3d 22 22  |...........A$=""|
00000160  0d 00 be 27 e7 66 24 3d  22 22 8c f2 65 78 69 74  |...'.f$=""..exit|
00000170  28 31 2c 22 4e 6f 20 66  69 6c 65 20 70 61 72 61  |(1,"No file para|
00000180  6d 65 74 65 72 22 29 0d  00 c8 14 e7 64 69 66 66  |meter").....diff|
00000190  25 3c 32 8c 64 69 66 66  25 3d 33 0d 00 d2 16 e7  |%<2.diff%=3.....|
000001a0  64 69 66 66 25 3e 36 30  8c 64 69 66 66 25 3d 36  |diff%>60.diff%=6|
000001b0  30 0d 00 dc 04 0d 00 e6  1e 64 31 24 3d a4 64 69  |0........d1$=.di|
000001c0  72 28 66 24 29 3a 66 31  24 3d a4 6c 65 61 66 28  |r(f$):f1$=.leaf(|
000001d0  66 24 29 0d 00 f0 04 0d  00 fa 33 e7 a4 6f 62 6a  |f$).......3..obj|
000001e0  74 79 70 65 28 64 31 24  29 3c 32 8c f2 65 78 69  |type(d1$)<2..exi|
000001f0  74 28 31 2c 22 44 69 72  65 63 74 6f 72 79 20 6e  |t(1,"Directory n|
00000200  6f 74 20 66 6f 75 6e 64  22 29 0d 01 04 04 0d 01  |ot found")......|
00000210  0e 0b 6e 65 78 74 25 3d  30 0d 01 18 20 74 6f 64  |..next%=0... tod|
00000220  61 79 25 3d a4 64 61 74  65 28 a4 74 69 6d 65 29  |ay%=.date(.time)|
00000230  3a 77 72 69 74 65 25 3d  30 0d 01 22 05 f5 0d 01  |:write%=0.."....|
00000240  2c 3f 20 20 c8 99 22 58  4f 53 5f 47 42 50 42 22  |,?  .."XOS_GBPB"|
00000250  2c 31 31 2c 64 31 24 2c  62 75 66 25 2c 31 2c 6e  |,11,d1$,buf%,1,n|
00000260  65 78 74 25 2c 31 30 32  34 2c 66 31 24 b8 2c 2c  |ext%,1024,f1$.,,|
00000270  2c 6e 6f 25 2c 6e 65 78  74 25 3b 46 25 0d 01 36  |,no%,next%;F%..6|
00000280  16 20 20 e7 6e 6f 25 3e  30 80 28 46 25 80 31 29  |.  .no%>0.(F%.1)|
00000290  3d 30 8c 0d 01 40 0f 20  20 20 20 62 25 3d 62 75  |=0...@.    b%=bu|
000002a0  66 25 0d 01 4a 14 20 20  20 20 e3 6c 6f 6f 70 25  |f%..J.    .loop%|
000002b0  3d 31 b8 6e 6f 25 0d 01  54 4e 20 20 20 20 20 20  |=1.no%..TN      |
000002c0  c8 99 22 54 65 72 72 69  74 6f 72 79 5f 43 6f 6e  |.."Territory_Con|
000002d0  76 65 72 74 44 61 74 65  41 6e 64 54 69 6d 65 22  |vertDateAndTime"|
000002e0  2c 31 2c 62 25 2b 32 34  2c 74 6d 70 25 2b 31 32  |,1,b%+24,tmp%+12|
000002f0  38 2c 31 32 38 2c 22 25  59 52 25 4d 4e 25 44 59  |8,128,"%YR%MN%DY|
00000300  22 b8 73 25 0d 01 5e 23  20 20 20 20 20 20 66 69  |".s%..^#      fi|
00000310  6c 65 64 61 74 65 25 3d  a4 64 61 74 65 28 a4 73  |ledate%=.date(.s|
00000320  74 72 28 73 25 29 29 0d  01 68 2a 20 20 20 20 20  |tr(s%))..h*     |
00000330  20 66 24 3d a4 73 74 72  28 62 25 2b 32 39 29 3a  | f$=.str(b%+29):|
00000340  62 25 3d 62 25 2b 28 33  32 2b a9 66 24 29 80 ac  |b%=b%+(32+.f$)..|
00000350  33 0d 01 72 20 20 20 20  20 20 20 66 32 24 3d 64  |3..r       f2$=d|
00000360  31 24 2b 22 2e 22 2b c0  66 24 2c 39 29 2b 22 21  |1$+"."+.f$,9)+"!|
00000370  22 0d 01 7c 17 20 20 20  20 20 20 66 24 3d 64 31  |"..|.      f$=d1|
00000380  24 2b 22 2e 22 2b 66 24  0d 01 86 19 20 20 20 20  |$+"."+f$....    |
00000390  20 20 69 6e 25 3d a4 6f  70 65 6e 69 6e 28 66 24  |  in%=.openin(f$|
000003a0  29 0d 01 90 12 20 20 20  20 20 20 e7 69 6e 25 3c  |)....      .in%<|
000003b0  3e 30 8c 0d 01 9a 1c 20  20 20 20 20 20 20 20 41  |>0.....        A|
000003c0  24 3d be 23 69 6e 25 3a  cf 23 69 6e 25 3d 30 0d  |$=.#in%:.#in%=0.|
000003d0  01 a4 2b 20 20 20 20 20  20 20 20 e7 74 6f 64 61  |..+        .toda|
000003e0  79 25 2d 64 69 66 66 25  3c a4 64 61 74 65 28 c1  |y%-diff%<.date(.|
000003f0  41 24 2c 33 2c 36 29 29  20 8c 0d 01 ae 16 20 20  |A$,3,6)) .....  |
00000400  20 20 20 20 20 20 20 20  f2 63 66 28 69 6e 25 29  |        .cf(in%)|
00000410  0d 01 b8 0f 20 20 20 20  20 20 20 20 20 20 cc 0d  |....          ..|
00000420  01 c2 1d 20 20 20 20 20  20 20 20 20 20 46 25 3d  |...          F%=|
00000430  a4 64 65 6c 65 74 65 28  66 32 24 29 0d 01 cc 20  |.delete(f2$)... |
00000440  20 20 20 20 20 20 20 20  20 20 6f 75 74 25 3d a4  |          out%=.|
00000450  6f 70 65 6e 6f 75 74 28  66 32 24 29 0d 01 d6 17  |openout(f2$)....|
00000460  20 20 20 20 20 20 20 20  20 20 e7 6f 75 74 25 3c  |          .out%<|
00000470  3e 30 8c 0d 01 e0 1a 20  20 20 20 20 20 20 20 20  |>0.....         |
00000480  20 20 20 77 72 69 74 65  25 3d 30 3a f5 0d 01 ea  |   write%=0:....|
00000490  1a 20 20 20 20 20 20 20  20 20 20 20 20 20 20 41  |.              A|
000004a0  24 3d be 23 69 6e 25 0d  01 f4 1e 20 20 20 20 20  |$=.#in%....     |
000004b0  20 20 20 20 20 20 20 20  20 e7 c0 41 24 2c 31 29  |         ..A$,1)|
000004c0  3d 22 23 22 8c 0d 01 fe  3a 20 20 20 20 20 20 20  |="#"....:       |
000004d0  20 20 20 20 20 20 20 20  20 e7 74 6f 64 61 79 25  |         .today%|
000004e0  2d 64 69 66 66 25 3c a4  64 61 74 65 28 c1 41 24  |-diff%<.date(.A$|
000004f0  2c 33 2c 36 29 29 20 77  72 69 74 65 25 3d 31 0d  |,3,6)) write%=1.|
00000500  02 08 13 20 20 20 20 20  20 20 20 20 20 20 20 20  |...             |
00000510  20 cd 0d 02 12 26 20 20  20 20 20 20 20 20 20 20  | ....&          |
00000520  20 20 20 20 e7 77 72 69  74 65 25 3c 3e 30 20 d5  |    .write%<>0 .|
00000530  23 6f 75 74 25 2c 41 24  0d 02 1c 16 20 20 20 20  |#out%,A$....    |
00000540  20 20 20 20 20 20 20 20  fd c5 23 69 6e 25 0d 02  |        ..#in%..|
00000550  26 19 20 20 20 20 20 20  20 20 20 20 20 20 f2 63  |&.            .c|
00000560  66 28 6f 75 74 25 29 0d  02 30 11 20 20 20 20 20  |f(out%)..0.     |
00000570  20 20 20 20 20 20 20 cc  0d 02 3a 16 20 20 20 20  |       ...:.    |
00000580  20 20 20 20 20 20 20 20  6f 75 74 25 3d 30 0d 02  |        out%=0..|
00000590  44 0f 20 20 20 20 20 20  20 20 20 20 cd 0d 02 4e  |D.          ...N|
000005a0  16 20 20 20 20 20 20 20  20 20 20 f2 63 66 28 69  |.          .cf(i|
000005b0  6e 25 29 0d 02 58 20 20  20 20 20 20 20 20 20 20  |n%)..X          |
000005c0  20 f2 73 65 74 74 79 70  65 28 66 32 24 2c 26 46  | .settype(f2$,&F|
000005d0  46 46 29 0d 02 62 19 20  20 20 20 20 20 20 20 20  |FF)..b.         |
000005e0  20 e7 77 72 69 74 65 25  3c 3e 30 8c 0d 02 6c 20  | .write%<>0...l |
000005f0  20 20 20 20 20 20 20 20  20 20 20 20 e7 a4 64 65  |            ..de|
00000600  6c 65 74 65 28 66 24 29  3d 30 20 8c 0d 02 76 26  |lete(f$)=0 ...v&|
00000610  20 20 20 20 20 20 20 20  20 20 20 20 20 20 78 25  |              x%|
00000620  3d a4 6d 6f 76 65 66 69  6c 65 28 66 32 24 2c 66  |=.movefile(f2$,f|
00000630  24 29 0d 02 80 13 20 20  20 20 20 20 20 20 20 20  |$)....          |
00000640  20 20 20 20 cc 0d 02 8a  21 20 20 20 20 20 20 20  |    ....!       |
00000650  20 20 20 20 20 20 20 78  25 3d a4 64 65 6c 65 74  |       x%=.delet|
00000660  65 28 66 32 24 29 0d 02  94 11 20 20 20 20 20 20  |e(f2$)....      |
00000670  20 20 20 20 20 20 cd 0d  02 9e 11 20 20 20 20 20  |      .....     |
00000680  20 20 20 20 20 20 20 cc  0d 02 a8 1f 20 20 20 20  |       .....    |
00000690  20 20 20 20 20 20 20 20  78 25 3d a4 64 65 6c 65  |        x%=.dele|
000006a0  74 65 28 66 32 24 29 0d  02 b2 0f 20 20 20 20 20  |te(f2$)....     |
000006b0  20 20 20 20 20 cd 0d 02  bc 0d 20 20 20 20 20 20  |     .....      |
000006c0  20 20 cd 0d 02 c6 0d 20  20 20 20 20 20 20 20 cc  |  .....        .|
000006d0  0d 02 d0 11 20 20 20 20  20 20 20 20 69 6e 25 3d  |....        in%=|
000006e0  30 0d 02 da 0b 20 20 20  20 20 20 cd 0d 02 e4 09  |0....      .....|
000006f0  20 20 20 20 ed 0d 02 ee  07 20 20 cd 0d 02 f8 0c  |    .....  .....|
00000700  fd 6e 65 78 74 25 3c 30  0d 03 02 31 f2 65 78 69  |.next%<0...1.exi|
00000710  74 28 30 2c 22 54 72 69  6d 6d 65 64 20 22 2b 66  |t(0,"Trimmed "+f|
00000720  31 24 2b 22 20 74 6f 20  22 2b c3 64 69 66 66 25  |1$+" to "+.diff%|
00000730  2b 22 20 64 61 79 73 22  29 0d 03 0c 05 e0 0d 03  |+" days").......|
00000740  16 04 0d 03 20 0e dd f2  63 66 28 f8 20 43 25 29  |.... ...cf(. C%)|
00000750  0d 03 2a 14 e7 43 25 3c  3e 30 20 d9 23 43 25 3a  |..*..C%<>0 .#C%:|
00000760  43 25 3d 30 0d 03 34 05  e1 0d 03 3e 04 0d 03 48  |C%=0..4....>...H|
00000770  10 dd a4 64 65 6c 65 74  65 28 66 24 29 0d 03 52  |...delete(f$)..R|
00000780  1d ea 46 25 3a c8 99 22  58 4f 53 5f 46 69 6c 65  |..F%:.."XOS_File|
00000790  22 2c 36 2c 66 24 b8 3b  46 25 0d 03 5c 0b 3d 28  |",6,f$.;F%..\.=(|
000007a0  46 25 80 31 29 0d 03 66  04 0d 03 70 15 dd a4 6d  |F%.1)..f...p...m|
000007b0  6f 76 65 66 69 6c 65 28  73 24 2c 64 24 29 0d 03  |ovefile(s$,d$)..|
000007c0  7a 26 ea 46 25 3a c8 99  22 58 4f 53 5f 46 53 43  |z&.F%:.."XOS_FSC|
000007d0  6f 6e 74 72 6f 6c 22 2c  32 35 2c 73 24 2c 64 24  |ontrol",25,s$,d$|
000007e0  b8 3b 46 25 0d 03 84 32  e7 28 46 25 80 31 29 20  |.;F%...2.(F%.1) |
000007f0  c8 99 22 58 4f 53 5f 46  53 43 6f 6e 74 72 6f 6c  |.."XOS_FSControl|
00000800  22 2c 32 36 2c 73 24 2c  64 24 2c 28 31 3c 3c 37  |",26,s$,d$,(1<<7|
00000810  29 20 b8 3b 46 25 0d 03  8e 0b 3d 28 46 25 80 31  |) .;F%....=(F%.1|
00000820  29 0d 03 98 04 0d 03 a2  11 dd f2 65 78 69 74 28  |)..........exit(|
00000830  6e 25 2c 61 24 29 0d 03  ac 18 ee 85 f6 3a f1 22  |n%,a$).......:."|
00000840  20 61 74 20 6c 69 6e 65  20 22 3b 9e 3a e0 0d 03  | at line ";.:...|
00000850  b6 0c f2 63 66 28 69 6e  25 29 0d 03 c0 0d f2 63  |...cf(in%).....c|
00000860  66 28 6f 75 74 25 29 0d  03 ca 25 ff 28 22 73 65  |f(out%)...%.("se|
00000870  74 20 4e 65 77 73 42 61  73 65 24 52 65 74 75 72  |t NewsBase$Retur|
00000880  6e 43 6f 64 65 20 22 2b  c3 6e 25 29 0d 03 d4 24  |nCode "+.n%)...$|
00000890  ff 28 22 73 65 74 20 4e  65 77 73 42 61 73 65 24  |.("set NewsBase$|
000008a0  52 65 74 75 72 6e 49 6e  66 6f 20 22 2b 61 24 29  |ReturnInfo "+a$)|
000008b0  0d 03 de 05 e0 0d 03 e8  04 0d 03 f2 0d dd a4 73  |...............s|
000008c0  74 72 28 61 25 29 0d 03  fc 2a ea 61 24 3a c8 95  |tr(a%)...*.a$:..|
000008d0  20 3f 61 25 3e 33 31 80  a9 61 24 3c 32 35 35 3a  | ?a%>31..a$<255:|
000008e0  61 24 2b 3d bd 3f 61 25  3a 61 25 2b 3d 31 3a ce  |a$+=.?a%:a%+=1:.|
000008f0  0d 04 06 07 3d 61 24 0d  04 10 04 0d 04 1a 0a dd  |....=a$.........|
00000900  a4 74 69 6d 65 0d 04 24  07 ea 64 25 0d 04 2e 1f  |.time..$..d%....|
00000910  3f 74 6d 70 25 3d 33 3a  c8 99 22 4f 53 5f 57 6f  |?tmp%=3:.."OS_Wo|
00000920  72 64 22 2c 31 34 2c 74  6d 70 25 0d 04 38 47 c8  |rd",14,tmp%..8G.|
00000930  99 22 54 65 72 72 69 74  6f 72 79 5f 43 6f 6e 76  |."Territory_Conv|
00000940  65 72 74 44 61 74 65 41  6e 64 54 69 6d 65 22 2c  |ertDateAndTime",|
00000950  31 2c 74 6d 70 25 2c 74  6d 70 25 2b 31 32 38 2c  |1,tmp%,tmp%+128,|
00000960  31 32 38 2c 22 25 59 52  25 4d 4e 25 44 59 22 b8  |128,"%YR%MN%DY".|
00000970  73 25 0d 04 42 0d 3d a4  73 74 72 28 73 25 29 0d  |s%..B.=.str(s%).|
00000980  04 4c 04 0d 04 56 0e dd  a4 64 61 74 65 28 41 24  |.L...V...date(A$|
00000990  29 0d 04 60 13 79 65 61  72 25 3d bb c1 41 24 2c  |)..`.year%=..A$,|
000009a0  31 2c 32 29 0d 04 6a 14  6d 6f 6e 74 68 25 3d bb  |1,2)..j.month%=.|
000009b0  c1 41 24 2c 33 2c 32 29  0d 04 74 12 64 61 79 25  |.A$,3,2)..t.day%|
000009c0  3d bb c1 41 24 2c 35 2c  32 29 0d 04 7e 18 64 61  |=..A$,5,2)..~.da|
000009d0  74 65 25 3d 33 36 35 2a  79 65 61 72 25 2b 64 61  |te%=365*year%+da|
000009e0  79 25 0d 04 88 0d c8 8e  6d 6f 6e 74 68 25 ca 0d  |y%......month%..|
000009f0  04 92 0b c9 31 3a 6d 25  3d 30 0d 04 9c 0c c9 32  |....1:m%=0.....2|
00000a00  3a 6d 25 3d 33 31 0d 04  a6 0c c9 33 3a 6d 25 3d  |:m%=31.....3:m%=|
00000a10  35 39 0d 04 b0 0c c9 34  3a 6d 25 3d 39 30 0d 04  |59.....4:m%=90..|
00000a20  ba 0d c9 35 3a 6d 25 3d  31 32 30 0d 04 c4 0d c9  |...5:m%=120.....|
00000a30  36 3a 6d 25 3d 31 35 31  0d 04 ce 0d c9 37 3a 6d  |6:m%=151.....7:m|
00000a40  25 3d 31 38 30 0d 04 d8  0d c9 38 3a 6d 25 3d 32  |%=180.....8:m%=2|
00000a50  31 31 0d 04 e2 0d c9 39  3a 6d 25 3d 32 34 32 0d  |11.....9:m%=242.|
00000a60  04 ec 0e c9 31 30 3a 6d  25 3d 32 37 32 0d 04 f6  |....10:m%=272...|
00000a70  0e c9 31 31 3a 6d 25 3d  33 30 33 0d 05 00 0e c9  |..11:m%=303.....|
00000a80  31 32 3a 6d 25 3d 33 33  33 0d 05 0a 05 cb 0d 05  |12:m%=333.......|
00000a90  14 0d 3d 64 61 74 65 25  2b 6d 25 0d 05 1e 04 0d  |..=date%+m%.....|
00000aa0  05 28 0d dd a4 64 69 72  28 66 24 29 0d 05 32 07  |.(...dir(f$)..2.|
00000ab0  ea 6c 25 0d 05 3c 25 6c  25 3d a9 66 24 3a f5 6c  |.l%..<%l%=.f$:.l|
00000ac0  25 2d 3d 31 3a fd c1 66  24 2c 6c 25 2c 31 29 3d  |%-=1:..f$,l%,1)=|
00000ad0  22 2e 22 84 6c 25 3c 31  0d 05 46 0e 3d c0 66 24  |".".l%<1..F.=.f$|
00000ae0  2c 6c 25 2d 31 29 0d 05  50 04 0d 05 5a 0e dd a4  |,l%-1)..P...Z...|
00000af0  6c 65 61 66 28 66 24 29  0d 05 64 07 ea 6c 25 0d  |leaf(f$)..d..l%.|
00000b00  05 6e 25 6c 25 3d a9 66  24 3a f5 6c 25 2d 3d 31  |.n%l%=.f$:.l%-=1|
00000b10  3a fd c1 66 24 2c 6c 25  2c 31 29 3d 22 2e 22 84  |:..f$,l%,1)=".".|
00000b20  6c 25 3c 31 0d 05 78 0e  3d c1 66 24 2c 6c 25 2b  |l%<1..x.=.f$,l%+|
00000b30  31 29 0d 05 82 04 0d 05  8c 15 dd a4 67 65 74 70  |1)..........getp|
00000b40  61 72 28 f8 20 41 24 2c  73 24 29 0d 05 96 0a ea  |ar(. A$,s$).....|
00000b50  42 24 2c 6c 25 0d 05 a0  0e 6c 25 3d a7 41 24 2c  |B$,l%....l%=.A$,|
00000b60  73 24 29 0d 05 aa 0a e7  6c 25 3e 30 8c 0d 05 b4  |s$).....l%>0....|
00000b70  1f 20 20 42 24 3d c0 41  24 2c 6c 25 2d 31 29 3a  |.  B$=.A$,l%-1):|
00000b80  41 24 3d c1 41 24 2c 6c  25 2b 31 29 0d 05 be 07  |A$=.A$,l%+1)....|
00000b90  20 20 cc 0d 05 c8 11 20  20 42 24 3d 41 24 3a 41  |  .....  B$=A$:A|
00000ba0  24 3d 22 22 0d 05 d2 05  cd 0d 05 dc 07 3d 42 24  |$="".........=B$|
00000bb0  0d 05 e6 04 0d 05 f0 11  dd a4 6f 62 6a 74 79 70  |..........objtyp|
00000bc0  65 28 66 24 29 0d 05 fa  07 ea 46 25 0d 06 04 1c  |e(f$).....F%....|
00000bd0  c8 99 22 58 4f 53 5f 46  69 6c 65 22 2c 31 37 2c  |.."XOS_File",17,|
00000be0  66 24 b8 74 25 3b 46 25  0d 06 0e 14 e7 28 46 25  |f$.t%;F%.....(F%|
00000bf0  80 31 29 8c 3d 2d 31 3a  8b 3d 74 25 0d 06 18 04  |.1).=-1:.=t%....|
00000c00  0d 06 22 14 dd f2 73 65  74 74 79 70 65 28 66 24  |.."...settype(f$|
00000c10  2c 74 25 29 0d 06 2c 19  c8 99 22 58 4f 53 5f 46  |,t%)..,..."XOS_F|
00000c20  69 6c 65 22 2c 31 38 2c  66 24 2c 74 25 0d 06 36  |ile",18,f$,t%..6|
00000c30  05 e1 0d 06 40 04 0d 06  4a 0a dd f2 68 65 6c 70  |....@...J...help|
00000c40  0d 06 54 2e f1 22 55 73  61 67 65 3a 20 74 72 69  |..T.."Usage: tri|
00000c50  6d 66 69 6c 65 20 2d 66  20 3c 66 69 6c 65 73 70  |mfile -f <filesp|
00000c60  65 63 3e 20 2d 6e 20 3c  64 61 79 73 3e 22 0d 06  |ec> -n <days>"..|
00000c70  5e 48 f1 22 20 20 54 72  69 6d 73 20 61 20 6e 65  |^H."  Trims a ne|
00000c80  77 73 62 61 73 65 20 73  74 61 6e 64 61 72 64 2d  |wsbase standard-|
00000c90  64 61 74 65 64 20 66 69  6c 65 20 74 6f 20 74 68  |dated file to th|
00000ca0  65 20 6c 61 73 74 20 3c  64 61 79 73 3e 20 65 6e  |e last <days> en|
00000cb0  74 72 69 65 73 22 0d 06  68 3f f1 22 20 20 49 66  |tries"..h?."  If|
00000cc0  20 2d 6e 20 70 61 72 61  6d 65 74 65 72 20 69 73  | -n parameter is|
00000cd0  20 6f 6d 69 74 74 65 64  2c 20 61 20 76 61 6c 75  | omitted, a valu|
00000ce0  65 20 6f 66 20 33 20 64  61 79 73 20 69 73 20 75  |e of 3 days is u|
00000cf0  73 65 64 22 27 0d 06 72  05 e1 0d 06 7c 04 0d 06  |sed"'..r....|...|
00000d00  86 10 dd a4 6f 70 65 6e  69 6e 28 66 24 29 0d 06  |....openin(f$)..|
00000d10  90 0a ea 68 25 2c 46 25  0d 06 9a 2e c8 99 22 58  |...h%,F%......"X|
00000d20  4f 53 5f 46 69 6e 64 22  2c 26 34 46 2c 66 24 20  |OS_Find",&4F,f$ |
00000d30  b8 68 25 3b 46 25 3a e7  28 46 25 80 31 29 3c 3e  |.h%;F%:.(F%.1)<>|
00000d40  30 8c 68 25 3d 30 0d 06  a4 07 3d 68 25 0d 06 ae  |0.h%=0....=h%...|
00000d50  04 0d 06 b8 10 dd a4 6f  70 65 6e 75 70 28 66 24  |.......openup(f$|
00000d60  29 0d 06 c2 0a ea 68 25  2c 46 25 0d 06 cc 1d c8  |).....h%,F%.....|
00000d70  99 22 58 4f 53 5f 46 69  6e 64 22 2c 26 43 46 2c  |."XOS_Find",&CF,|
00000d80  66 24 b8 68 25 3b 46 25  0d 06 d6 35 e7 28 46 25  |f$.h%;F%...5.(F%|
00000d90  80 31 29 8c c8 99 22 58  4f 53 5f 46 69 6e 64 22  |.1)..."XOS_Find"|
00000da0  2c 26 38 46 2c 66 24 b8  68 25 3b 46 25 3a e7 28  |,&8F,f$.h%;F%:.(|
00000db0  46 25 80 31 29 3c 3e 30  8c 68 25 3d 30 0d 06 e0  |F%.1)<>0.h%=0...|
00000dc0  07 3d 68 25 0d 06 ea 04  0d 06 f4 11 dd a4 6f 70  |.=h%..........op|
00000dd0  65 6e 6f 75 74 28 66 24  29 0d 06 fe 0a ea 68 25  |enout(f$).....h%|
00000de0  2c 46 25 0d 07 08 2d c8  99 22 58 4f 53 5f 46 69  |,F%...-.."XOS_Fi|
00000df0  6e 64 22 2c 26 38 46 2c  66 24 b8 68 25 3b 46 25  |nd",&8F,f$.h%;F%|
00000e00  3a e7 28 46 25 80 31 29  3c 3e 30 8c 68 25 3d 30  |:.(F%.1)<>0.h%=0|
00000e10  0d 07 12 07 3d 68 25 0d  ff                       |....=h%..|
00000e19