/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / internet / starterpck / !Newsbase / Support / qnews

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0f f4 20 3e 53 | 65 6e 64 4e 65 77 73 0d |..... >S|endNews.|
|00000010| 00 14 38 f4 20 74 61 6b | 65 73 20 61 20 6e 65 77 |..8. tak|es a new|
|00000020| 73 20 66 69 6c 65 20 61 | 6e 64 20 63 6f 70 69 65 |s file a|nd copie|
|00000030| 73 20 74 6f 20 6f 75 74 | 67 6f 69 6e 67 20 64 69 |s to out|going di|
|00000040| 72 65 63 74 6f 72 79 0d | 00 1e 04 0d 00 28 19 ee |rectory.|.....(..|
|00000050| 85 20 f6 3a f1 22 20 61 | 74 20 6c 69 6e 65 20 22 |. .:." a|t line "|
|00000060| 3b 9e 3a e0 0d 00 32 16 | c8 99 22 4f 53 5f 47 65 |;.:...2.|.."OS_Ge|
|00000070| 74 45 6e 76 22 20 b8 20 | 41 24 0d 00 3c 47 4e 24 |tEnv" . |A$..<GN$|
|00000080| 3d 22 22 3a 74 65 78 74 | 64 69 72 24 3d 22 22 3a |="":text|dir$="":|
|00000090| 63 6f 70 79 64 69 72 24 | 3d 22 22 3a 74 65 78 74 |copydir$|="":text|
|000000a0| 66 69 6c 65 24 3d 22 22 | 3a 63 6f 70 79 66 69 6c |file$=""|:copyfil|
|000000b0| 65 24 3d 22 22 3a 6c 6f | 67 66 69 6c 65 24 3d 22 |e$="":lo|gfile$="|
|000000c0| 22 0d 00 46 05 f5 0d 00 | 50 16 70 24 3d a4 67 65 |"..F....|P.p$=.ge|
|000000d0| 74 70 61 72 28 41 24 2c | 22 20 22 29 0d 00 5a 09 |tpar(A$,|" ")..Z.|
|000000e0| c8 8e 70 24 ca 0d 00 64 | 26 20 20 c9 22 2d 66 69 |..p$...d|&  ."-fi|
|000000f0| 6c 65 22 2c 22 2d 66 22 | 3a 4e 24 3d a4 67 65 74 |le","-f"|:N$=.get|
|00000100| 70 61 72 28 41 24 2c 22 | 20 22 29 0d 00 6e 2b 20 |par(A$,"| ")..n+ |
|00000110| 20 c9 22 2d 64 69 72 22 | 2c 22 2d 64 22 3a 74 65 | ."-dir"|,"-d":te|
|00000120| 78 74 64 69 72 24 3d a4 | 67 65 74 70 61 72 28 41 |xtdir$=.|getpar(A|
|00000130| 24 2c 22 20 22 29 0d 00 | 78 2c 20 20 c9 22 2d 63 |$," ")..|x,  ."-c|
|00000140| 6f 70 79 22 2c 22 2d 63 | 22 3a 63 6f 70 79 64 69 |opy","-c|":copydi|
|00000150| 72 24 3d a4 67 65 74 70 | 61 72 28 41 24 2c 22 20 |r$=.getp|ar(A$," |
|00000160| 22 29 0d 00 79 26 20 20 | c9 22 2d 6c 6f 67 22 3a |")..y&  |."-log":|
|00000170| 6c 6f 67 66 69 6c 65 24 | 3d a4 67 65 74 70 61 72 |logfile$|=.getpar|
|00000180| 28 41 24 2c 22 20 22 29 | 0d 00 82 1a 20 20 c9 22 |(A$," ")|....  ."|
|00000190| 2d 6b 61 39 71 22 3a f2 | 73 65 74 64 69 72 73 28 |-ka9q":.|setdirs(|
|000001a0| 31 29 0d 00 8c 1d 20 20 | c9 22 2d 74 65 72 6d 69 |1)....  |."-termi|
|000001b0| 74 65 22 3a f2 73 65 74 | 64 69 72 73 28 32 29 0d |te":.set|dirs(2).|
|000001c0| 00 8d 1e 20 20 c9 22 2d | 66 72 65 65 6e 65 77 73 |...  ."-|freenews|
|000001d0| 22 3a f2 73 65 74 64 69 | 72 73 28 33 29 0d 00 96 |":.setdi|rs(3)...|
|000001e0| 05 cb 0d 00 a0 0a fd 41 | 24 3d 22 22 0d 00 aa 27 |.......A|$=""...'|
|000001f0| e7 4e 24 3d 22 22 8c f2 | 65 78 69 74 28 31 2c 22 |.N$=""..|exit(1,"|
|00000200| 4e 6f 20 66 69 6c 65 20 | 70 61 72 61 6d 65 74 65 |No file |paramete|
|00000210| 72 22 29 0d 00 b4 38 e7 | 74 65 78 74 64 69 72 24 |r")...8.|textdir$|
|00000220| 3d 22 22 8c f2 65 78 69 | 74 28 31 2c 22 4e 6f 20 |=""..exi|t(1,"No |
|00000230| 73 70 6f 6f 6c 20 64 69 | 72 65 63 74 6f 72 79 20 |spool di|rectory |
|00000240| 73 70 65 63 69 66 69 65 | 64 22 29 0d 00 be 04 0d |specifie|d").....|
|00000250| 00 c8 0e f2 63 68 65 63 | 6b 64 69 72 73 0d 00 d2 |....chec|kdirs...|
|00000260| 04 0d 00 dc 05 f5 0d 00 | e6 28 20 20 6e 24 3d a4 |........|.(  n$=.|
|00000270| 66 69 6c 65 6e 61 6d 65 | 28 22 6e 65 77 73 22 2c |filename|("news",|
|00000280| 39 29 3a 74 31 25 3d 30 | 3a 74 32 25 3d 30 0d 00 |9):t1%=0|:t2%=0..|
|00000290| f0 40 20 20 74 65 78 74 | 66 69 6c 65 24 3d 74 65 |.@  text|file$=te|
|000002a0| 78 74 64 69 72 24 2b 22 | 2e 22 2b 6e 24 3a c8 99 |xtdir$+"|."+n$:..|
|000002b0| 22 58 4f 53 5f 46 69 6c | 65 22 2c 31 37 2c 74 65 |"XOS_Fil|e",17,te|
|000002c0| 78 74 66 69 6c 65 24 b8 | 74 31 25 3b 46 25 0d 00 |xtfile$.|t1%;F%..|
|000002d0| fa 4e 20 20 e7 63 6f 70 | 79 64 69 72 24 3e 22 22 |.N  .cop|ydir$>""|
|000002e0| 8c 63 6f 70 79 66 69 6c | 65 24 3d 63 6f 70 79 64 |.copyfil|e$=copyd|
|000002f0| 69 72 24 2b 22 2e 22 2b | 6e 24 3a c8 99 22 58 4f |ir$+"."+|n$:.."XO|
|00000300| 53 5f 46 69 6c 65 22 2c | 31 37 2c 63 6f 70 79 66 |S_File",|17,copyf|
|00000310| 69 6c 65 24 20 b8 74 32 | 25 3b 46 25 0d 01 04 16 |ile$ .t2|%;F%....|
|00000320| fd 74 31 25 2b 74 32 25 | 3d 30 20 84 28 46 25 80 |.t1%+t2%|=0 .(F%.|
|00000330| 31 29 0d 01 0e 2c e7 28 | 46 25 80 31 29 20 f2 65 |1)...,.(|F%.1) .e|
|00000340| 78 69 74 28 31 2c 22 4e | 61 6d 65 20 67 65 6e 65 |xit(1,"N|ame gene|
|00000350| 72 61 74 69 6f 6e 20 65 | 72 72 6f 72 22 29 0d 01 |ration e|rror")..|
|00000360| 18 04 0d 01 22 1e 46 25 | 3d a4 6d 6f 76 65 66 69 |....".F%|=.movefi|
|00000370| 6c 65 28 4e 24 2c 74 65 | 78 74 66 69 6c 65 24 29 |le(N$,te|xtfile$)|
|00000380| 0d 01 2c 35 e7 28 46 25 | 80 31 29 20 f2 65 78 69 |..,5.(F%|.1) .exi|
|00000390| 74 28 31 2c 22 46 69 6c | 65 20 6d 6f 76 65 20 74 |t(1,"Fil|e move t|
|000003a0| 6f 20 73 70 6f 6f 6c 20 | 61 72 65 61 20 66 61 69 |o spool |area fai|
|000003b0| 6c 65 64 22 29 0d 01 36 | 12 e7 63 6f 70 79 66 69 |led")..6|..copyfi|
|000003c0| 6c 65 24 3e 22 22 8c 0d | 01 40 27 20 20 46 25 3d |le$>""..|.@'  F%=|
|000003d0| a4 63 6f 70 79 66 69 6c | 65 28 74 65 78 74 66 69 |.copyfil|e(textfi|
|000003e0| 6c 65 24 2c 63 6f 70 79 | 66 69 6c 65 24 29 0d 01 |le$,copy|file$)..|
|000003f0| 4a 3d 20 20 e7 28 46 25 | 80 31 29 20 f2 65 78 69 |J=  .(F%|.1) .exi|
|00000400| 74 28 31 2c 22 46 69 6c | 65 20 63 6f 70 79 20 66 |t(1,"Fil|e copy f|
|00000410| 61 69 6c 65 64 20 28 62 | 61 63 6b 75 70 20 73 70 |ailed (b|ackup sp|
|00000420| 6f 6f 6c 20 61 72 65 61 | 29 22 29 0d 01 54 05 cd |ool area|)")..T..|
|00000430| 0d 01 5e 11 ff 22 72 65 | 6d 6f 76 65 20 22 2b 4e |..^.."re|move "+N|
|00000440| 24 0d 01 5f 17 f2 6c 6f | 67 66 69 6c 65 28 74 65 |$.._..lo|gfile(te|
|00000450| 78 74 66 69 6c 65 24 29 | 0d 01 68 1d f2 65 78 69 |xtfile$)|..h..exi|
|00000460| 74 28 30 2c 22 41 72 74 | 69 63 6c 65 20 70 6f 73 |t(0,"Art|icle pos|
|00000470| 74 65 64 22 29 0d 01 72 | 05 e0 0d 01 7c 04 0d 01 |ted")..r|....|...|
|00000480| 86 17 dd a4 66 69 6c 65 | 6e 61 6d 65 28 41 24 2c |....file|name(A$,|
|00000490| 6c 65 6e 25 29 0d 01 90 | 16 3d 41 24 2b c2 c3 7e |len%)...|.=A$+..~|
|000004a0| 91 2c 6c 65 6e 25 2d a9 | 41 24 29 0d 01 9a 04 0d |.,len%-.|A$).....|
|000004b0| 01 a4 15 dd a4 6d 6f 76 | 65 66 69 6c 65 28 73 24 |.....mov|efile(s$|
|000004c0| 2c 64 24 29 0d 01 ae 26 | ea 46 25 3a c8 99 22 58 |,d$)...&|.F%:.."X|
|000004d0| 4f 53 5f 46 53 43 6f 6e | 74 72 6f 6c 22 2c 32 35 |OS_FSCon|trol",25|
|000004e0| 2c 73 24 2c 64 24 b8 3b | 46 25 0d 01 b8 32 e7 28 |,s$,d$.;|F%...2.(|
|000004f0| 46 25 80 31 29 8c c8 99 | 22 58 4f 53 5f 46 53 43 |F%.1)...|"XOS_FSC|
|00000500| 6f 6e 74 72 6f 6c 22 2c | 32 36 2c 73 24 2c 64 24 |ontrol",|26,s$,d$|
|00000510| 2c 28 31 3c 3c 37 29 20 | b8 3b 46 25 0d 01 c2 0b |,(1<<7) |.;F%....|
|00000520| 3d 28 46 25 80 31 29 0d | 01 cc 04 0d 01 d6 15 dd |=(F%.1).|........|
|00000530| a4 63 6f 70 79 66 69 6c | 65 28 73 24 2c 64 24 29 |.copyfil|e(s$,d$)|
|00000540| 0d 01 e0 23 c8 99 22 58 | 4f 53 5f 46 53 43 6f 6e |...#.."X|OS_FSCon|
|00000550| 74 72 6f 6c 22 2c 32 36 | 2c 73 24 2c 64 24 20 b8 |trol",26|,s$,d$ .|
|00000560| 3b 46 25 0d 01 ea 0b 3d | 28 46 25 80 31 29 0d 01 |;F%....=|(F%.1)..|
|00000570| f4 04 0d 01 fe 11 dd f2 | 65 78 69 74 28 6e 25 2c |........|exit(n%,|
|00000580| 61 24 29 0d 02 08 25 ff | 28 22 73 65 74 20 4e 65 |a$)...%.|("set Ne|
|00000590| 77 73 42 61 73 65 24 52 | 65 74 75 72 6e 43 6f 64 |wsBase$R|eturnCod|
|000005a0| 65 20 22 2b c3 6e 25 29 | 0d 02 12 24 ff 28 22 73 |e "+.n%)|...$.("s|
|000005b0| 65 74 20 4e 65 77 73 42 | 61 73 65 24 52 65 74 75 |et NewsB|ase$Retu|
|000005c0| 72 6e 49 6e 66 6f 20 22 | 2b 61 24 29 0d 02 1c 05 |rnInfo "|+a$)....|
|000005d0| e0 0d 02 26 05 e1 0d 02 | 30 04 0d 02 3a 0f dd f2 |...&....|0...:...|
|000005e0| 63 68 65 63 6b 64 69 72 | 73 0d 02 44 18 f2 65 6e |checkdir|s..D..en|
|000005f0| 73 75 72 65 64 69 72 28 | 74 65 78 74 64 69 72 24 |suredir(|textdir$|
|00000600| 29 0d 02 4e 25 e7 63 6f | 70 79 64 69 72 24 3e 22 |)..N%.co|pydir$>"|
|00000610| 22 8c f2 65 6e 73 75 72 | 65 64 69 72 28 63 6f 70 |"..ensur|edir(cop|
|00000620| 79 64 69 72 24 29 0d 02 | 58 6c e7 a4 6f 62 6a 74 |ydir$)..|Xl..objt|
|00000630| 79 70 65 28 74 65 78 74 | 64 69 72 24 29 3c 32 20 |ype(text|dir$)<2 |
|00000640| 84 28 63 6f 70 79 64 69 | 72 24 3e 22 22 80 a4 6f |.(copydi|r$>""..o|
|00000650| 62 6a 74 79 70 65 28 63 | 6f 70 79 64 69 72 24 29 |bjtype(c|opydir$)|
|00000660| 3c 32 29 20 8c f2 65 78 | 69 74 28 31 2c 22 4e 65 |<2) ..ex|it(1,"Ne|
|00000670| 77 73 20 73 70 6f 6f 6c | 20 64 69 72 65 63 74 6f |ws spool| directo|
|00000680| 72 69 65 73 20 6e 6f 74 | 20 63 72 65 61 74 65 64 |ries not| created|
|00000690| 22 29 0d 02 62 05 e1 0d | 02 6c 04 0d 02 76 13 dd |")..b...|.l...v..|
|000006a0| f2 65 6e 73 75 72 65 64 | 69 72 28 66 24 29 0d 02 |.ensured|ir(f$)..|
|000006b0| 80 07 ea 74 25 0d 02 8a | 13 74 25 3d a4 6f 62 6a |...t%...|.t%=.obj|
|000006c0| 74 79 70 65 28 66 24 29 | 0d 02 94 20 e7 74 25 3c |type(f$)|... .t%<|
|000006d0| 32 84 74 25 3e 33 8c c8 | 99 22 58 4f 53 5f 46 69 |2.t%>3..|."XOS_Fi|
|000006e0| 6c 65 22 2c 38 2c 66 24 | 0d 02 9e 05 e1 0d 02 a8 |le",8,f$|........|
|000006f0| 04 0d 02 b2 11 dd a4 6f | 62 6a 74 79 70 65 28 66 |.......o|bjtype(f|
|00000700| 24 29 0d 02 bc 07 ea 46 | 25 0d 02 c6 1c c8 99 22 |$).....F|%......"|
|00000710| 58 4f 53 5f 46 69 6c 65 | 22 2c 31 37 2c 66 24 b8 |XOS_File|",17,f$.|
|00000720| 74 25 3b 46 25 0d 02 d0 | 14 e7 28 46 25 80 31 29 |t%;F%...|..(F%.1)|
|00000730| 8c 3d 2d 31 3a 8b 3d 74 | 25 0d 02 da 04 0d 02 e4 |.=-1:.=t|%.......|
|00000740| 11 dd f2 73 65 74 64 69 | 72 73 28 61 25 29 0d 02 |...setdi|rs(a%)..|
|00000750| ee 09 c8 8e 61 25 ca 0d | 02 f8 37 20 20 c9 31 3a |....a%..|..7  .1:|
|00000760| 74 65 78 74 64 69 72 24 | 3d 22 3c 4d 61 69 6c 24 |textdir$|="<Mail$|
|00000770| 64 69 72 3e 2e 73 70 6f | 6f 6c 2e 6e 65 77 73 71 |dir>.spo|ol.newsq|
|00000780| 75 65 75 65 2e 61 72 74 | 69 63 6c 65 73 22 0d 03 |ueue.art|icles"..|
|00000790| 02 3b 20 20 20 20 20 20 | 20 20 63 6f 70 79 64 69 |.;      |  copydi|
|000007a0| 72 24 3d 22 3c 4d 61 69 | 6c 24 64 69 72 3e 2e 73 |r$="<Mai|l$dir>.s|
|000007b0| 70 6f 6f 6c 2e 6e 65 77 | 73 71 75 65 75 65 2e 62 |pool.new|squeue.b|
|000007c0| 61 64 6d 61 72 6b 65 72 | 22 0d 03 0c 17 20 20 20 |admarker|"....   |
|000007d0| 20 20 20 20 20 6c 6f 67 | 66 69 6c 65 24 3d 22 22 |     log|file$=""|
|000007e0| 0d 03 16 3b 20 20 c9 32 | 3a 74 65 78 74 64 69 72 |...;  .2|:textdir|
|000007f0| 24 3d 22 3c 54 65 72 6d | 69 74 65 24 4d 61 69 6c |$="<Term|ite$Mail|
|00000800| 42 6f 78 3e 2e 4f 75 74 | 54 72 61 79 2e 49 6e 74 |Box>.Out|Tray.Int|
|00000810| 65 72 6e 65 74 2e 4e 65 | 77 73 22 0d 03 20 23 20 |ernet.Ne|ws".. # |
|00000820| 20 20 20 20 20 20 20 63 | 6f 70 79 64 69 72 24 3d |       c|opydir$=|
|00000830| 22 22 3a 6c 6f 67 66 69 | 6c 65 24 3d 22 22 0d 03 |"":logfi|le$=""..|
|00000840| 2a 30 20 20 c9 33 3a 74 | 65 78 74 64 69 72 24 3d |*0  .3:t|extdir$=|
|00000850| 22 3c 46 72 65 65 4e 65 | 77 73 24 44 69 72 3e 2e |"<FreeNe|ws$Dir>.|
|00000860| 44 61 74 61 2e 61 72 74 | 69 63 6c 65 73 22 0d 03 |Data.art|icles"..|
|00000870| 34 34 20 20 20 20 20 20 | 20 20 63 6f 70 79 64 69 |44      |  copydi|
|00000880| 72 24 3d 22 3c 46 72 65 | 65 4e 65 77 73 24 44 69 |r$="<Fre|eNews$Di|
|00000890| 72 3e 2e 44 61 74 61 2e | 62 61 64 6d 61 72 6b 65 |r>.Data.|badmarke|
|000008a0| 72 22 0d 03 3e 34 20 20 | 20 20 20 20 20 20 6c 6f |r"..>4  |      lo|
|000008b0| 67 66 69 6c 65 24 3d 22 | 3c 46 72 65 65 4e 65 77 |gfile$="|<FreeNew|
|000008c0| 73 24 44 69 72 3e 2e 44 | 61 74 61 2e 50 6f 73 74 |s$Dir>.D|ata.Post|
|000008d0| 49 6e 64 65 78 22 0d 03 | 48 05 cb 0d 03 52 05 e1 |Index"..|H....R..|
|000008e0| 0d 03 5c 04 0d 03 66 10 | dd a4 6f 70 65 6e 75 70 |..\...f.|..openup|
|000008f0| 28 66 24 29 0d 03 70 0a | ea 68 25 2c 46 25 0d 03 |(f$)..p.|.h%,F%..|
|00000900| 7a 1d c8 99 22 58 4f 53 | 5f 46 69 6e 64 22 2c 26 |z..."XOS|_Find",&|
|00000910| 43 46 2c 66 24 b8 68 25 | 3b 46 25 0d 03 84 35 e7 |CF,f$.h%|;F%...5.|
|00000920| 28 46 25 80 31 29 8c c8 | 99 22 58 4f 53 5f 46 69 |(F%.1)..|."XOS_Fi|
|00000930| 6e 64 22 2c 26 38 46 2c | 66 24 b8 68 25 3b 46 25 |nd",&8F,|f$.h%;F%|
|00000940| 3a e7 28 46 25 80 31 29 | 3c 3e 30 8c 68 25 3d 30 |:.(F%.1)|<>0.h%=0|
|00000950| 0d 03 8e 07 3d 68 25 0d | 03 98 04 0d 03 a2 15 dd |....=h%.|........|
|00000960| a4 67 65 74 70 61 72 28 | f8 20 41 24 2c 73 24 29 |.getpar(|. A$,s$)|
|00000970| 0d 03 ac 0a ea 42 24 2c | 6c 25 0d 03 b6 0e 6c 25 |.....B$,|l%....l%|
|00000980| 3d a7 41 24 2c 73 24 29 | 0d 03 c0 0a e7 6c 25 3e |=.A$,s$)|.....l%>|
|00000990| 30 8c 0d 03 ca 1f 20 20 | 42 24 3d c0 41 24 2c 6c |0.....  |B$=.A$,l|
|000009a0| 25 2d 31 29 3a 41 24 3d | c1 41 24 2c 6c 25 2b 31 |%-1):A$=|.A$,l%+1|
|000009b0| 29 0d 03 d4 07 20 20 cc | 0d 03 de 11 20 20 42 24 |)....  .|....  B$|
|000009c0| 3d 41 24 3a 41 24 3d 22 | 22 0d 03 e8 05 cd 0d 03 |=A$:A$="|".......|
|000009d0| f2 07 3d 42 24 0d 03 fc | 04 0d 04 06 11 dd f2 6c |..=B$...|.......l|
|000009e0| 6f 67 66 69 6c 65 28 41 | 24 29 0d 04 10 07 ea 66 |ogfile(A|$).....f|
|000009f0| 25 0d 04 1a 11 e7 6c 6f | 67 66 69 6c 65 24 3e 22 |%.....lo|gfile$>"|
|00000a00| 22 8c 0d 04 24 1a 20 20 | 66 25 3d a4 6f 70 65 6e |"...$.  |f%=.open|
|00000a10| 75 70 28 6c 6f 67 66 69 | 6c 65 24 29 0d 04 38 22 |up(logfi|le$)..8"|
|00000a20| 20 20 e7 66 25 3e 30 8c | cf 23 66 25 3d a2 23 66 |  .f%>0.|.#f%=.#f|
|00000a30| 25 3a d5 23 66 25 2c 41 | 24 3a d9 23 66 25 0d 04 |%:.#f%,A|$:.#f%..|
|00000a40| 42 05 cd 0d 04 4c 05 e1 | 0d ff                   |B....L..|..      |
+--------+-------------------------+-------------------------+--------+--------+