/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / n / newshound / Utils / CopyGroups

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 11 f4 20 3e 43 | 6f 70 79 47 72 6f 75 70 |..... >C|opyGroup|
|00000010| 73 0d 00 14 3c f4 20 43 | 6f 6e 76 65 72 74 73 20 |s...<. C|onverts |
|00000020| 61 20 66 72 65 65 6e 65 | 77 73 20 41 6c 6c 47 72 |a freene|ws AllGr|
|00000030| 6f 75 70 73 20 66 69 6c | 65 20 74 6f 20 6e 65 77 |oups fil|e to new|
|00000040| 73 68 6f 75 6e 64 20 66 | 6f 72 6d 61 74 0d 00 1e |shound f|ormat...|
|00000050| 1d f4 20 28 43 29 20 4a | 6f 73 65 70 68 20 48 65 |.. (C) J|oseph He|
|00000060| 65 6e 61 6e 2c 20 31 39 | 39 37 0d 00 28 0b f4 20 |enan, 19|97..(.. |
|00000070| 56 31 2e 30 30 0d 00 32 | 04 0d 00 3c 0d 58 25 3d |V1.00..2|...<.X%=|
|00000080| 30 3a 59 25 3d 30 0d 00 | 46 5b ff 28 22 49 66 20 |0:Y%=0..|F[.("If |
|00000090| 22 2b bd 33 34 2b 22 3c | 46 72 65 65 4e 65 77 73 |"+.34+"<|FreeNews|
|000000a0| 24 44 69 72 3e 22 2b bd | 33 34 2b 22 3d 22 2b bd |$Dir>"+.|34+"="+.|
|000000b0| 33 34 2b bd 33 34 2b 22 | 20 54 68 65 6e 20 45 72 |34+.34+"| Then Er|
|000000c0| 72 6f 72 20 21 46 72 65 | 65 4e 65 77 73 20 68 61 |ror !Fre|eNews ha|
|000000d0| 73 20 6e 6f 74 20 62 65 | 65 6e 20 73 65 65 6e 22 |s not be|en seen"|
|000000e0| 29 0d 00 50 63 ff 28 22 | 49 66 20 22 2b bd 33 34 |)..Pc.("|If "+.34|
|000000f0| 2b 22 3c 4e 65 77 73 48 | 6f 75 6e 64 24 43 6f 6e |+"<NewsH|ound$Con|
|00000100| 66 69 67 44 69 72 3e 22 | 2b bd 33 34 2b 22 3d 22 |figDir>"|+.34+"="|
|00000110| 2b bd 33 34 2b bd 33 34 | 2b 22 20 54 68 65 6e 20 |+.34+.34|+" Then |
|00000120| 45 72 72 6f 72 20 21 4e | 65 77 73 48 6f 75 6e 64 |Error !N|ewsHound|
|00000130| 20 68 61 73 20 6e 6f 74 | 20 62 65 65 6e 20 73 65 | has not| been se|
|00000140| 65 6e 22 29 0d 00 5a 04 | 0d 00 64 22 ee 20 85 20 |en")..Z.|..d". . |
|00000150| f2 45 78 69 74 28 f6 24 | 2b 22 20 61 74 20 6c 69 |.Exit(.$|+" at li|
|00000160| 6e 65 20 22 2b c3 28 9e | 29 29 0d 00 6e 27 69 6e |ne "+.(.|))..n'in|
|00000170| 24 3d 22 3c 46 72 65 65 | 4e 65 77 73 24 44 69 72 |$="<Free|News$Dir|
|00000180| 3e 2e 44 61 74 61 2e 41 | 6c 6c 47 72 6f 75 70 73 |>.Data.A|llGroups|
|00000190| 22 0d 00 78 20 6f 75 74 | 24 3d 22 3c 4e 65 77 73 |"..x out|$="<News|
|000001a0| 48 6f 75 6e 64 24 43 6f | 6e 66 69 67 44 69 72 3e |Hound$Co|nfigDir>|
|000001b0| 22 0d 00 82 0c de 20 50 | 25 20 31 30 30 0d 00 8c |"..... P|% 100...|
|000001c0| 0b 6c 61 73 74 25 3d 30 | 0d 00 96 05 f5 0d 00 a0 |.last%=0|........|
|000001d0| 41 20 20 c8 99 20 22 4f | 53 5f 47 42 50 42 22 2c |A  .. "O|S_GBPB",|
|000001e0| 39 2c 6f 75 74 24 2c 50 | 25 2c 31 2c 6c 61 73 74 |9,out$,P|%,1,last|
|000001f0| 25 2c 31 30 30 2c 22 2a | 47 72 6f 75 70 22 20 b8 |%,100,"*|Group" .|
|00000200| 20 2c 2c 2c 72 65 61 64 | 2c 6c 61 73 74 25 0d 00 | ,,,read|,last%..|
|00000210| aa 17 fd 20 72 65 61 64 | 3d 31 20 84 20 6c 61 73 |... read|=1 . las|
|00000220| 74 25 3d 2d 31 0d 00 b4 | 3a e7 20 72 65 61 64 3c |t%=-1...|:. read<|
|00000230| 3e 31 20 f2 45 78 69 74 | 28 22 43 6f 75 6c 64 20 |>1 .Exit|("Could |
|00000240| 6e 6f 74 20 66 69 6e 64 | 20 4e 65 77 73 48 6f 75 |not find| NewsHou|
|00000250| 6e 64 20 67 72 6f 75 70 | 20 66 69 6c 65 22 29 0d |nd group| file").|
|00000260| 00 be 1d 41 25 3d 50 25 | 3a c8 95 20 28 3f 41 25 |...A%=P%|:.. (?A%|
|00000270| 29 3c 3e 30 3a 41 25 2b | 3d 31 3a ce 0d 00 c8 0a |)<>0:A%+|=1:.....|
|00000280| 3f 41 25 3d 31 33 0d 00 | d2 11 6f 75 74 24 2b 3d |?A%=13..|..out$+=|
|00000290| 22 2e 22 2b 24 50 25 0d | 00 f0 04 0d 00 fa 32 f4 |"."+$P%.|......2.|
|000002a0| 20 68 61 76 65 20 74 6f | 20 72 65 61 64 20 58 58 | have to| read XX|
|000002b0| 58 47 72 6f 75 70 20 6e | 61 6d 65 20 6f 75 74 20 |XGroup n|ame out |
|000002c0| 6f 66 20 63 6f 6e 66 69 | 67 20 3a 2d 2f 0d 01 04 |of confi|g :-/...|
|000002d0| 04 0d 01 0e 0d 58 25 3d | 8e 28 69 6e 24 29 0d 01 |.....X%=|.(in$)..|
|000002e0| 18 3c e7 20 58 25 3d 30 | 20 8c 20 f2 45 78 69 74 |.<. X%=0| . .Exit|
|000002f0| 28 22 43 6f 75 6c 64 20 | 6e 6f 74 20 6f 70 65 6e |("Could |not open|
|00000300| 20 46 72 65 65 4e 65 77 | 73 20 41 6c 6c 47 72 6f | FreeNew|s AllGro|
|00000310| 75 70 73 20 66 69 6c 65 | 22 29 0d 01 22 0e 59 25 |ups file|")..".Y%|
|00000320| 3d ad 28 6f 75 74 24 29 | 0d 01 36 39 e7 20 59 25 |=.(out$)|..69. Y%|
|00000330| 3d 30 20 8c 20 f2 45 78 | 69 74 28 22 43 6f 75 6c |=0 . .Ex|it("Coul|
|00000340| 64 20 6e 6f 74 20 6f 70 | 65 6e 20 4e 65 77 73 48 |d not op|en NewsH|
|00000350| 6f 75 6e 64 20 47 72 6f | 75 70 20 66 69 6c 65 22 |ound Gro|up file"|
|00000360| 29 0d 01 40 0d cf 23 59 | 25 3d a2 23 59 25 0d 01 |)..@..#Y|%=.#Y%..|
|00000370| 41 04 0d 01 4a 0e c8 95 | 20 ac 28 c5 23 58 25 29 |A...J...| .(.#X%)|
|00000380| 0d 01 54 0d 20 20 41 24 | 3d be 23 58 25 0d 01 5e |..T.  A$|=.#X%..^|
|00000390| 10 20 20 50 25 3d a7 41 | 24 2c bd 39 29 0d 01 68 |.  P%=.A|$,.9)..h|
|000003a0| 0e 20 20 e7 20 50 25 3e | 30 20 8c 0d 01 72 1a 20 |.  . P%>|0 ...r. |
|000003b0| 20 20 20 61 6d 6e 74 25 | 3d bb 28 c1 41 24 2c 50 |   amnt%|=.(.A$,P|
|000003c0| 25 2b 31 29 29 0d 01 7c | 14 20 20 20 20 41 24 3d |%+1))..||.    A$=|
|000003d0| c0 41 24 2c 50 25 2d 31 | 29 0d 01 86 07 20 20 cc |.A$,P%-1|)....  .|
|000003e0| 0d 01 90 0f 20 20 20 20 | 61 6d 6e 74 25 3d 31 0d |....    |amnt%=1.|
|000003f0| 01 9a 07 20 20 cd 0d 01 | a4 3a 20 20 f4 20 61 24 |...  ...|.:  . a$|
|00000400| 3d 67 72 6f 75 70 20 6e | 61 6d 65 2c 20 61 6d 6e |=group n|ame, amn|
|00000410| 74 25 20 3d 20 31 20 2d | 3e 20 61 72 74 69 63 6c |t% = 1 -|> articl|
|00000420| 65 73 2c 20 32 20 2d 3e | 20 68 65 61 64 65 72 73 |es, 2 ->| headers|
|00000430| 0d 01 ae 3f 20 20 d5 23 | 59 25 2c 41 24 2b bd 39 |...?  .#|Y%,A$+.9|
|00000440| 2b 22 2d 35 31 22 3a 20 | f4 20 46 65 74 63 68 20 |+"-51": |. Fetch |
|00000450| 75 70 74 6f 20 35 30 20 | 61 72 74 69 63 6c 65 73 |upto 50 |articles|
|00000460| 20 66 72 6f 6d 20 74 68 | 65 20 67 72 6f 75 70 0d | from th|e group.|
|00000470| 01 b8 07 20 20 cd 0d 01 | c2 05 ce 0d 01 cc 04 0d |...  ...|........|
|00000480| 01 d6 21 f2 45 78 69 74 | 28 22 47 72 6f 75 70 20 |..!.Exit|("Group |
|00000490| 66 69 6c 65 20 63 6f 6e | 76 65 72 74 65 64 22 29 |file con|verted")|
|000004a0| 0d 01 e0 05 e0 0d 01 ea | 04 0d 01 f4 11 dd 20 f2 |........|...... .|
|000004b0| 45 78 69 74 28 45 72 72 | 24 29 0d 01 fe 10 e7 20 |Exit(Err|$)..... |
|000004c0| 58 25 3c 3e 30 20 d9 23 | 58 25 0d 02 08 10 e7 20 |X%<>0 .#|X%..... |
|000004d0| 59 25 3c 3e 30 20 d9 23 | 59 25 0d 02 12 0e 85 20 |Y%<>0 .#|Y%..... |
|000004e0| a2 20 30 2c 45 72 72 24 | 0d 02 1c 05 e1 0d ff    |. 0,Err$|....... |
+--------+-------------------------+-------------------------+--------+--------+