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

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0e f4 20 3e 4d | 61 6b 65 4d 6f 64 0d 00 |..... >M|akeMod..|
|00000010| 14 51 f4 20 67 65 6e 65 | 72 61 74 65 73 20 61 20 |.Q. gene|rates a |
|00000020| 6d 6f 64 65 72 61 74 65 | 64 20 67 72 6f 75 70 20 |moderate|d group |
|00000030| 6c 69 73 74 20 66 72 6f | 6d 20 74 61 6c 65 27 73 |list fro|m tale's|
|00000040| 20 70 65 72 69 6f 64 69 | 63 20 70 6f 73 74 69 6e | periodi|c postin|
|00000050| 67 20 74 6f 20 6e 65 77 | 73 2e 6c 69 73 74 73 0d |g to new|s.lists.|
|00000060| 00 1e 04 0d 00 28 19 ee | 85 20 f6 3a f1 22 20 61 |.....(..|. .:." a|
|00000070| 74 20 6c 69 6e 65 20 22 | 3b 9e 3a e0 0d 00 32 16 |t line "|;.:...2.|
|00000080| c8 99 22 4f 53 5f 47 65 | 74 45 6e 76 22 20 b8 20 |.."OS_Ge|tEnv" . |
|00000090| 41 24 0d 00 3c 0f 76 65 | 72 24 3d 22 30 2e 35 35 |A$..<.ve|r$="0.55|
|000000a0| 22 0d 00 46 1a 69 6e 66 | 69 6c 65 24 3d 22 22 3a |"..F.inf|ile$="":|
|000000b0| 6f 75 74 66 69 6c 65 24 | 3d 22 22 0d 00 50 2e 6b |outfile$|=""..P.k|
|000000c0| 65 65 70 61 64 72 25 3d | 30 3a 73 75 62 74 61 73 |eepadr%=|0:subtas|
|000000d0| 6b 25 3d 30 3a 69 6e 25 | 3d 30 3a 6f 75 74 25 3d |k%=0:in%|=0:out%=|
|000000e0| 30 3a 63 6f 6d 70 25 3d | 30 0d 00 5a 05 f5 0d 00 |0:comp%=|0..Z....|
|000000f0| 64 16 70 24 3d a4 67 65 | 74 70 61 72 28 41 24 2c |d.p$=.ge|tpar(A$,|
|00000100| 22 20 22 29 0d 00 6e 09 | c8 8e 70 24 ca 0d 00 78 |" ")..n.|..p$...x|
|00000110| 24 20 20 c9 22 2d 69 6e | 22 3a 69 6e 66 69 6c 65 |$  ."-in|":infile|
|00000120| 24 3d a4 67 65 74 70 61 | 72 28 41 24 2c 22 20 22 |$=.getpa|r(A$," "|
|00000130| 29 0d 00 82 26 20 20 c9 | 22 2d 6f 75 74 22 3a 6f |)...&  .|"-out":o|
|00000140| 75 74 66 69 6c 65 24 3d | a4 67 65 74 70 61 72 28 |utfile$=|.getpar(|
|00000150| 41 24 2c 22 20 22 29 0d | 00 8c 18 20 20 c9 22 2d |A$," ").|...  ."-|
|00000160| 73 75 62 22 3a 73 75 62 | 74 61 73 6b 25 3d b9 0d |sub":sub|task%=..|
|00000170| 00 96 16 20 20 c9 22 2d | 63 6f 6d 70 22 3a 63 6f |...  ."-|comp":co|
|00000180| 6d 70 25 3d b9 0d 00 a0 | 49 20 20 c9 22 2d 68 65 |mp%=....|I  ."-he|
|00000190| 6c 70 22 2c 22 2d 3f 22 | 3a f2 65 78 69 74 28 30 |lp","-?"|:.exit(0|
|000001a0| 2c 22 55 73 61 67 65 3a | 20 6d 61 6b 65 6d 6f 64 |,"Usage:| makemod|
|000001b0| 20 2d 69 6e 20 5b 69 6e | 66 69 6c 65 5d 20 2d 6f | -in [in|file] -o|
|000001c0| 75 74 20 5b 6f 75 74 66 | 69 6c 65 5d 22 29 0d 00 |ut [outf|ile]")..|
|000001d0| aa 05 cb 0d 00 b4 2d f4 | 20 6e 65 65 64 20 65 78 |......-.| need ex|
|000001e0| 74 72 61 20 6f 70 74 69 | 6f 6e 73 20 74 6f 20 63 |tra opti|ons to c|
|000001f0| 6f 6d 70 72 65 73 73 20 | 63 6c 61 72 69 2e 2a 20 |ompress |clari.* |
|00000200| 0d 00 be 26 f4 20 63 6c | 61 72 69 2e 2a 20 2d 3e |...&. cl|ari.* ->|
|00000210| 20 6d 6f 64 72 65 70 6c | 79 40 63 6c 61 72 69 6e | modrepl|y@clarin|
|00000220| 65 74 2e 63 6f 6d 0d 00 | c8 0a fd 41 24 3d 22 22 |et.com..|...A$=""|
|00000230| 0d 00 d2 33 e7 69 6e 66 | 69 6c 65 24 3d 22 22 8c |...3.inf|ile$="".|
|00000240| f2 65 78 69 74 28 31 2c | 22 4e 6f 20 73 6f 75 72 |.exit(1,|"No sour|
|00000250| 63 65 20 66 69 6c 65 20 | 73 70 65 63 69 66 69 65 |ce file |specifie|
|00000260| 64 22 29 0d 00 dc 34 e7 | 6f 75 74 66 69 6c 65 24 |d")...4.|outfile$|
|00000270| 3d 22 22 8c f2 65 78 69 | 74 28 31 2c 22 4e 6f 20 |=""..exi|t(1,"No |
|00000280| 6f 75 74 70 75 74 20 66 | 69 6c 65 20 73 70 65 63 |output f|ile spec|
|00000290| 69 66 69 65 64 22 29 0d | 00 e6 39 e7 a4 6f 62 6a |ified").|..9..obj|
|000002a0| 74 79 70 65 28 69 6e 66 | 69 6c 65 24 29 3d 30 8c |type(inf|ile$)=0.|
|000002b0| f2 65 78 69 74 28 31 2c | 22 53 6f 75 72 63 65 20 |.exit(1,|"Source |
|000002c0| 66 69 6c 65 20 6e 6f 74 | 20 66 6f 75 6e 64 22 29 |file not| found")|
|000002d0| 0d 00 f0 04 0d 00 fa 18 | 69 6e 25 3d a4 6f 70 65 |........|in%=.ope|
|000002e0| 6e 69 6e 28 69 6e 66 69 | 6c 65 24 29 0d 01 04 39 |nin(infi|le$)...9|
|000002f0| e7 69 6e 25 3d 30 8c f2 | 65 78 69 74 28 31 2c 22 |.in%=0..|exit(1,"|
|00000300| 43 6f 75 6c 64 6e 27 74 | 20 6f 70 65 6e 20 73 6f |Couldn't| open so|
|00000310| 75 72 63 65 20 66 69 6c | 65 2c 20 22 2b 69 6e 66 |urce fil|e, "+inf|
|00000320| 69 6c 65 24 29 0d 01 0e | 1b 6f 75 74 25 3d a4 6f |ile$)...|.out%=.o|
|00000330| 70 65 6e 6f 75 74 28 6f | 75 74 66 69 6c 65 24 29 |penout(o|utfile$)|
|00000340| 0d 01 18 44 e7 6f 75 74 | 25 3d 30 8c f2 63 66 28 |...D.out|%=0..cf(|
|00000350| 69 6e 25 29 3a f2 65 78 | 69 74 28 31 2c 22 43 6f |in%):.ex|it(1,"Co|
|00000360| 75 6c 64 6e 27 74 20 6f | 70 65 6e 20 6f 75 74 70 |uldn't o|pen outp|
|00000370| 75 74 20 66 69 6c 65 2c | 20 22 2b 6f 75 74 66 69 |ut file,| "+outfi|
|00000380| 6c 65 24 29 0d 01 22 05 | f5 0d 01 2c 0e 20 20 41 |le$)..".|...,.  A|
|00000390| 24 3d be 23 69 6e 25 0d | 01 36 1b fd 28 c0 41 24 |$=.#in%.|.6..(.A$|
|000003a0| 2c 33 29 3d 22 3a 2d 2d | 22 29 84 28 c5 23 69 6e |,3)=":--|").(.#in|
|000003b0| 25 29 0d 01 40 0e e7 ac | 28 c5 23 69 6e 25 29 8c |%)..@...|(.#in%).|
|000003c0| 0d 01 41 1d 20 20 e7 63 | 6f 6d 70 25 8c d5 23 6f |..A.  .c|omp%..#o|
|000003d0| 75 74 25 2c 22 63 6c 61 | 72 69 2e 2a 22 0d 01 4a |ut%,"cla|ri.*"..J|
|000003e0| 07 20 20 f5 0d 01 54 10 | 20 20 20 20 41 24 3d be |.  ...T.|    A$=.|
|000003f0| 23 69 6e 25 0d 01 5e 17 | 20 20 20 20 67 24 3d a4 |#in%..^.|    g$=.|
|00000400| 70 75 74 6c 69 6e 65 28 | 41 24 29 0d 01 68 18 20 |putline(|A$)..h. |
|00000410| 20 20 20 e7 67 24 3e 22 | 22 8c d5 23 6f 75 74 25 |   .g$>"|"..#out%|
|00000420| 2c 67 24 0d 01 72 0e 20 | 20 fd 28 c5 23 69 6e 25 |,g$..r. | .(.#in%|
|00000430| 29 0d 01 7c 05 cd 0d 01 | 86 16 f2 63 66 28 6f 75 |)..|....|...cf(ou|
|00000440| 74 25 29 3a f2 63 66 28 | 69 6e 25 29 0d 01 90 1b |t%):.cf(|in%)....|
|00000450| f2 73 65 74 74 79 70 65 | 28 6f 75 74 66 69 6c 65 |.settype|(outfile|
|00000460| 24 2c 26 46 46 46 29 0d | 01 9a 17 f2 65 78 69 74 |$,&FFF).|....exit|
|00000470| 28 30 2c 22 46 69 6e 69 | 73 68 65 64 22 29 0d 01 |(0,"Fini|shed")..|
|00000480| a4 05 e0 0d 01 ae 04 0d | 01 b8 11 dd a4 70 75 74 |........|.....put|
|00000490| 6c 69 6e 65 28 41 24 29 | 0d 01 c2 1e e7 63 6f 6d |line(A$)|.....com|
|000004a0| 70 25 80 c0 41 24 2c 36 | 29 3d 22 63 6c 61 72 69 |p%..A$,6|)="clari|
|000004b0| 2e 22 8c 3d 22 22 0d 01 | cc 16 67 24 3d a4 67 65 |.".=""..|..g$=.ge|
|000004c0| 74 70 61 72 28 41 24 2c | 22 20 22 29 0d 01 d6 27 |tpar(A$,|" ")...'|
|000004d0| e7 6b 65 65 70 61 64 72 | 25 3d 30 8c 41 24 3d 22 |.keepadr|%=0.A$="|
|000004e0| 22 8b 41 24 3d 22 20 22 | 2b a4 63 6c 65 61 6e 28 |".A$=" "|+.clean(|
|000004f0| 41 24 29 0d 01 e0 0a 3d | 67 24 2b 41 24 0d 01 ea |A$)....=|g$+A$...|
|00000500| 04 0d 01 f4 15 dd a4 6d | 6f 76 65 66 69 6c 65 28 |.......m|ovefile(|
|00000510| 73 24 2c 64 24 29 0d 01 | fe 26 ea 46 25 3a c8 99 |s$,d$)..|.&.F%:..|
|00000520| 22 58 4f 53 5f 46 53 43 | 6f 6e 74 72 6f 6c 22 2c |"XOS_FSC|ontrol",|
|00000530| 32 35 2c 73 24 2c 64 24 | b8 3b 46 25 0d 02 08 32 |25,s$,d$|.;F%...2|
|00000540| e7 28 46 25 80 31 29 20 | c8 99 22 58 4f 53 5f 46 |.(F%.1) |.."XOS_F|
|00000550| 53 43 6f 6e 74 72 6f 6c | 22 2c 32 36 2c 73 24 2c |SControl|",26,s$,|
|00000560| 64 24 2c 28 31 3c 3c 37 | 29 20 b8 3b 46 25 0d 02 |d$,(1<<7|) .;F%..|
|00000570| 12 0b 3d 28 46 25 80 31 | 29 0d 02 1c 04 0d 02 26 |..=(F%.1|)......&|
|00000580| 15 dd a4 63 6f 70 79 66 | 69 6c 65 28 73 24 2c 64 |...copyf|ile(s$,d|
|00000590| 24 29 0d 02 30 23 c8 99 | 22 58 4f 53 5f 46 53 43 |$)..0#..|"XOS_FSC|
|000005a0| 6f 6e 74 72 6f 6c 22 2c | 32 36 2c 73 24 2c 64 24 |ontrol",|26,s$,d$|
|000005b0| 20 b8 3b 46 25 0d 02 3a | 0b 3d 28 46 25 80 31 29 | .;F%..:|.=(F%.1)|
|000005c0| 0d 02 44 04 0d 02 4e 11 | dd a4 64 65 6c 66 69 6c |..D...N.|..delfil|
|000005d0| 65 28 66 24 29 0d 02 58 | 1d ea 46 25 3a c8 99 22 |e(f$)..X|..F%:.."|
|000005e0| 58 4f 53 5f 46 69 6c 65 | 22 2c 36 2c 66 24 b8 3b |XOS_File|",6,f$.;|
|000005f0| 46 25 0d 02 62 0b 3d 28 | 46 25 80 31 29 0d 02 6c |F%..b.=(|F%.1)..l|
|00000600| 04 0d 02 76 11 dd f2 65 | 78 69 74 28 6e 25 2c 61 |...v...e|xit(n%,a|
|00000610| 24 29 0d 02 80 16 f2 63 | 66 28 69 6e 25 29 3a f2 |$).....c|f(in%):.|
|00000620| 63 66 28 6f 75 74 25 29 | 0d 02 8a 0e e7 73 75 62 |cf(out%)|.....sub|
|00000630| 74 61 73 6b 25 8c 0d 02 | 94 27 20 20 ff 28 22 73 |task%...|.'  .("s|
|00000640| 65 74 20 4e 65 77 73 42 | 61 73 65 24 52 65 74 75 |et NewsB|ase$Retu|
|00000650| 72 6e 43 6f 64 65 20 22 | 2b c3 6e 25 29 0d 02 9e |rnCode "|+.n%)...|
|00000660| 26 20 20 ff 28 22 73 65 | 74 20 4e 65 77 73 42 61 |&  .("se|t NewsBa|
|00000670| 73 65 24 52 65 74 75 72 | 6e 49 6e 66 6f 20 22 2b |se$Retur|nInfo "+|
|00000680| 61 24 29 0d 02 a8 07 20 | 20 cc 0d 02 b2 0a 20 20 |a$).... | .....  |
|00000690| f1 61 24 3b 0d 02 bc 18 | 20 20 e7 6e 25 8c f1 22 |.a$;....|  .n%.."|
|000006a0| 20 28 66 61 69 6c 29 22 | 8b f1 22 22 0d 02 c6 05 | (fail)"|..""....|
|000006b0| cd 0d 02 d0 05 e0 0d 02 | da 05 e1 0d 02 e4 04 0d |........|........|
|000006c0| 02 ee 0f dd a4 63 6c 65 | 61 6e 28 42 24 29 0d 02 |.....cle|an(B$)..|
|000006d0| f8 1c c8 95 c0 42 24 2c | 31 29 3d 22 20 22 3a 42 |.....B$,|1)=" ":B|
|000006e0| 24 3d c1 42 24 2c 32 29 | 3a ce 0d 03 02 20 c8 95 |$=.B$,2)|:.... ..|
|000006f0| c2 42 24 2c 31 29 3d 22 | 20 22 3a 42 24 3d c0 42 |.B$,1)="| ":B$=.B|
|00000700| 24 2c a9 42 24 2d 31 29 | 3a ce 0d 03 0c 07 3d 42 |$,.B$-1)|:.....=B|
|00000710| 24 0d 03 16 04 0d 03 20 | 13 dd f2 65 6e 73 75 72 |$...... |...ensur|
|00000720| 65 64 69 72 28 66 24 29 | 0d 03 2a 07 ea 74 25 0d |edir(f$)|..*..t%.|
|00000730| 03 34 13 74 25 3d a4 6f | 62 6a 74 79 70 65 28 66 |.4.t%=.o|bjtype(f|
|00000740| 24 29 0d 03 3e 20 e7 74 | 25 3c 32 84 74 25 3e 33 |$)..> .t|%<2.t%>3|
|00000750| 8c c8 99 22 58 4f 53 5f | 46 69 6c 65 22 2c 38 2c |..."XOS_|File",8,|
|00000760| 66 24 0d 03 48 05 e1 0d | 03 52 04 0d 03 5c 11 dd |f$..H...|.R...\..|
|00000770| a4 6f 62 6a 74 79 70 65 | 28 66 24 29 0d 03 66 07 |.objtype|(f$)..f.|
|00000780| ea 46 25 0d 03 70 1c c8 | 99 22 58 4f 53 5f 46 69 |.F%..p..|."XOS_Fi|
|00000790| 6c 65 22 2c 31 37 2c 66 | 24 b8 74 25 3b 46 25 0d |le",17,f|$.t%;F%.|
|000007a0| 03 7a 14 e7 28 46 25 80 | 31 29 8c 3d 2d 31 3a 8b |.z..(F%.|1).=-1:.|
|000007b0| 3d 74 25 0d 03 84 04 0d | 03 8e 14 dd f2 73 65 74 |=t%.....|.....set|
|000007c0| 74 79 70 65 28 66 24 2c | 74 25 29 0d 03 98 19 c8 |type(f$,|t%).....|
|000007d0| 99 22 58 4f 53 5f 46 69 | 6c 65 22 2c 31 38 2c 66 |."XOS_Fi|le",18,f|
|000007e0| 24 2c 74 25 0d 03 a2 05 | e1 0d 03 ac 04 0d 03 b6 |$,t%....|........|
|000007f0| 0e dd f2 63 66 28 f8 20 | 68 25 29 0d 03 c0 21 e7 |...cf(. |h%)...!.|
|00000800| 68 25 3c 3e 30 20 c8 99 | 22 58 4f 53 5f 46 69 6e |h%<>0 ..|"XOS_Fin|
|00000810| 64 22 2c 30 2c 68 25 3a | 68 25 3d 30 0d 03 ca 05 |d",0,h%:|h%=0....|
|00000820| e1 0d 03 d4 04 0d 03 de | 10 dd a4 76 61 72 76 61 |........|...varva|
|00000830| 6c 28 41 24 29 0d 03 e8 | 0a ea 4c 25 2c 46 25 0d |l(A$)...|..L%,F%.|
|00000840| 03 f2 2f c8 99 22 58 4f | 53 5f 52 65 61 64 56 61 |../.."XO|S_ReadVa|
|00000850| 72 56 61 6c 22 2c 41 24 | 2c 74 6d 70 25 2c 32 35 |rVal",A$|,tmp%,25|
|00000860| 36 2c 30 2c 33 20 b8 2c | 2c 4c 25 3b 46 25 0d 03 |6,0,3 .,|,L%;F%..|
|00000870| fc 19 e7 28 46 25 80 31 | 29 20 84 4c 25 3e 32 35 |...(F%.1|) .L%>25|
|00000880| 36 20 8c 3a 3d 22 22 0d | 04 06 15 74 6d 70 25 3f |6 .:="".|...tmp%?|
|00000890| 4c 25 3d 31 33 3a 3d 24 | 74 6d 70 25 0d 04 10 10 |L%=13:=$|tmp%....|
|000008a0| dd a4 6f 70 65 6e 69 6e | 28 66 24 29 0d 04 1a 0a |..openin|(f$)....|
|000008b0| ea 68 25 2c 46 25 0d 04 | 24 2e c8 99 22 58 4f 53 |.h%,F%..|$..."XOS|
|000008c0| 5f 46 69 6e 64 22 2c 26 | 34 46 2c 66 24 20 b8 68 |_Find",&|4F,f$ .h|
|000008d0| 25 3b 46 25 3a e7 28 46 | 25 80 31 29 3c 3e 30 8c |%;F%:.(F|%.1)<>0.|
|000008e0| 68 25 3d 30 0d 04 2e 07 | 3d 68 25 0d 04 38 04 0d |h%=0....|=h%..8..|
|000008f0| 04 42 10 dd a4 6f 70 65 | 6e 75 70 28 66 24 29 0d |.B...ope|nup(f$).|
|00000900| 04 4c 0a ea 68 25 2c 46 | 25 0d 04 56 1d c8 99 22 |.L..h%,F|%..V..."|
|00000910| 58 4f 53 5f 46 69 6e 64 | 22 2c 26 43 46 2c 66 24 |XOS_Find|",&CF,f$|
|00000920| b8 68 25 3b 46 25 0d 04 | 60 35 e7 28 46 25 80 31 |.h%;F%..|`5.(F%.1|
|00000930| 29 8c c8 99 22 58 4f 53 | 5f 46 69 6e 64 22 2c 26 |)..."XOS|_Find",&|
|00000940| 38 46 2c 66 24 b8 68 25 | 3b 46 25 3a e7 28 46 25 |8F,f$.h%|;F%:.(F%|
|00000950| 80 31 29 3c 3e 30 8c 68 | 25 3d 30 0d 04 6a 07 3d |.1)<>0.h|%=0..j.=|
|00000960| 68 25 0d 04 74 04 0d 04 | 7e 11 dd a4 6f 70 65 6e |h%..t...|~...open|
|00000970| 6f 75 74 28 66 24 29 0d | 04 88 0a ea 68 25 2c 46 |out(f$).|....h%,F|
|00000980| 25 0d 04 92 2d c8 99 22 | 58 4f 53 5f 46 69 6e 64 |%...-.."|XOS_Find|
|00000990| 22 2c 26 38 46 2c 66 24 | b8 68 25 3b 46 25 3a e7 |",&8F,f$|.h%;F%:.|
|000009a0| 28 46 25 80 31 29 3c 3e | 30 8c 68 25 3d 30 0d 04 |(F%.1)<>|0.h%=0..|
|000009b0| 9c 07 3d 68 25 0d 04 a6 | 04 0d 04 b0 15 dd a4 67 |..=h%...|.......g|
|000009c0| 65 74 70 61 72 28 f8 20 | 41 24 2c 73 24 29 0d 04 |etpar(. |A$,s$)..|
|000009d0| ba 0a ea 42 24 2c 6c 25 | 0d 04 c4 0e 6c 25 3d a7 |...B$,l%|....l%=.|
|000009e0| 41 24 2c 73 24 29 0d 04 | ce 0a e7 6c 25 3e 30 8c |A$,s$)..|...l%>0.|
|000009f0| 0d 04 d8 1f 20 20 42 24 | 3d c0 41 24 2c 6c 25 2d |....  B$|=.A$,l%-|
|00000a00| 31 29 3a 41 24 3d c1 41 | 24 2c 6c 25 2b 31 29 0d |1):A$=.A|$,l%+1).|
|00000a10| 04 e2 07 20 20 cc 0d 04 | ec 11 20 20 42 24 3d 41 |...  ...|..  B$=A|
|00000a20| 24 3a 41 24 3d 22 22 0d | 04 f6 05 cd 0d 05 00 07 |$:A$="".|........|
|00000a30| 3d 42 24 0d 05 0a 04 0d | 05 14 0d dd a4 64 69 72 |=B$.....|.....dir|
|00000a40| 28 66 24 29 0d 05 1e 07 | ea 6c 25 0d 05 28 25 6c |(f$)....|.l%..(%l|
|00000a50| 25 3d a9 66 24 3a f5 6c | 25 2d 3d 31 3a fd c1 66 |%=.f$:.l|%-=1:..f|
|00000a60| 24 2c 6c 25 2c 31 29 3d | 22 2e 22 84 6c 25 3c 32 |$,l%,1)=|".".l%<2|
|00000a70| 0d 05 32 0e 3d c0 66 24 | 2c 6c 25 2d 31 29 0d ff |..2.=.f$|,l%-1)..|
+--------+-------------------------+-------------------------+--------+--------+