/ ARM Club 3 / TheARMClub_PDCD3.iso / programs / comms_networking / irclient / !IRClient / Scripts / Modules / Headlines

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 10 f4 20 3e 48 | 65 61 64 6c 69 6e 65 73 |..... >H|eadlines|
|00000010| 0d 00 14 1e f4 20 52 65 | 61 64 73 20 74 68 65 20 |..... Re|ads the |
|00000020| 6e 65 77 73 20 68 65 61 | 64 6c 69 6e 65 73 0d 00 |news hea|dlines..|
|00000030| 1e 13 f4 20 a9 a0 4a 6f | 68 6e 20 57 72 69 67 68 |... ..Jo|hn Wrigh|
|00000040| 74 0d 00 28 43 f4 20 32 | 39 20 41 75 67 20 31 39 |t..(C. 2|9 Aug 19|
|00000050| 39 36 20 2d 20 4a 57 3a | 20 57 72 69 74 74 65 6e |96 - JW:| Written|
|00000060| 20 69 6e 20 6f 6c 64 20 | 49 52 43 6c 69 65 6e 74 | in old |IRClient|
|00000070| 20 73 63 72 69 70 74 20 | 66 6f 72 6d 20 20 20 76 | script |form   v|
|00000080| 31 2e 30 30 0d 00 32 43 | f4 20 33 31 20 41 75 67 |1.00..2C|. 31 Aug|
|00000090| 20 31 39 39 36 20 2d 20 | 4a 46 3a 20 4d 6f 64 69 | 1996 - |JF: Modi|
|000000a0| 66 69 65 64 20 66 6f 72 | 20 6e 65 77 20 6d 61 67 |fied for| new mag|
|000000b0| 72 61 74 68 65 61 20 66 | 6f 72 6d 20 20 20 20 20 |rathea f|orm     |
|000000c0| 20 20 76 31 2e 30 31 0d | 00 3c 43 f4 20 31 31 20 |  v1.01.|.<C. 11 |
|000000d0| 53 65 70 20 31 39 39 36 | 20 2d 20 4a 46 3a 20 43 |Sep 1996| - JF: C|
|000000e0| 68 61 6e 67 65 64 20 65 | 72 72 6f 72 20 74 6f 20 |hanged e|rror to |
|000000f0| 50 52 4f 43 44 69 73 70 | 6c 61 79 45 72 72 6f 72 |PROCDisp|layError|
|00000100| 20 20 20 20 20 76 31 2e | 30 32 0d 00 46 37 85 20 |     v1.|02..F7. |
|00000110| 30 2c 22 54 68 69 73 20 | 69 73 20 61 6e 20 49 52 |0,"This |is an IR|
|00000120| 43 6c 69 65 6e 74 20 73 | 63 72 69 70 74 20 61 6e |Client s|cript an|
|00000130| 64 20 63 61 6e 6e 6f 74 | 20 62 65 20 72 75 6e 2e |d cannot| be run.|
|00000140| 22 0d 00 50 05 e0 0d 00 | 5a 05 3a 0d 00 64 16 dd |"..P....|Z.:..d..|
|00000150| f2 49 6e 69 74 69 61 6c | 69 73 65 4d 6f 64 75 6c |.Initial|iseModul|
|00000160| 65 0d 00 6e 10 48 65 61 | 64 42 75 66 66 65 72 3d |e..n.Hea|dBuffer=|
|00000170| 30 0d 00 78 10 48 65 61 | 64 53 6f 63 6b 65 74 3d |0..x.Hea|dSocket=|
|00000180| 30 0d 00 82 20 f4 20 50 | 61 73 73 20 6f 6e 20 74 |0... . P|ass on t|
|00000190| 6f 20 74 68 65 20 6e 65 | 78 74 20 6d 6f 64 75 6c |o the ne|xt modul|
|000001a0| 65 0d 00 8c 06 f2 40 0d | 00 96 05 e1 0d 00 a0 05 |e.....@.|........|
|000001b0| 3a 0d 00 aa 24 f4 20 47 | 69 76 65 20 6f 75 72 73 |:...$. G|ive ours|
|000001c0| 65 6c 76 65 73 20 61 20 | 73 65 6e 73 69 62 6c 65 |elves a |sensible|
|000001d0| 20 6e 61 6d 65 0d 00 b4 | 1e dd a4 4f 76 65 72 6c | name...|...Overl|
|000001e0| 6f 61 64 5f 53 63 72 69 | 70 74 49 6e 66 6f 28 6e |oad_Scri|ptInfo(n|
|000001f0| 75 6d 29 0d 00 be 0a ea | 20 72 65 74 24 0d 00 c8 |um).....| ret$...|
|00000200| 0d e7 20 6e 75 6d 3d 30 | 20 8c 0d 00 d2 25 20 72 |.. num=0| ....% r|
|00000210| 65 74 24 3d 22 48 65 61 | 64 6c 69 6e 65 73 20 76 |et$="Hea|dlines v|
|00000220| 31 2e 30 32 20 28 4a 75 | 67 67 6c 65 72 29 22 0d |1.02 (Ju|ggler)".|
|00000230| 00 dc 05 cc 0d 00 e6 13 | 20 72 65 74 24 3d a4 40 |........| ret$=.@|
|00000240| 28 6e 75 6d 2d 31 29 0d | 00 f0 05 cd 0d 00 fa 09 |(num-1).|........|
|00000250| 3d 72 65 74 24 0d 01 04 | 05 3a 0d 01 0e 20 f4 20 |=ret$...|.:... . |
|00000260| 57 65 20 77 61 6e 74 20 | 74 6f 20 67 72 61 62 20 |We want |to grab |
|00000270| 2f 68 65 61 64 6c 69 6e | 65 73 0d 01 18 3a f4 20 |/headlin|es...:. |
|00000280| 4f 76 65 72 6c 6f 61 64 | 5f 55 6e 6b 6e 6f 77 6e |Overload|_Unknown|
|00000290| 43 6f 6d 6d 61 6e 64 20 | 3a 20 50 72 6f 63 65 73 |Command |: Proces|
|000002a0| 73 20 61 6e 20 75 6e 6b | 6e 6f 77 6e 20 63 6f 6d |s an unk|nown com|
|000002b0| 6d 61 6e 64 0d 01 22 2c | dd f2 4f 76 65 72 6c 6f |mand..",|..Overlo|
|000002c0| 61 64 5f 55 6e 6b 6e 6f | 77 6e 43 6f 6d 6d 61 6e |ad_Unkno|wnComman|
|000002d0| 64 28 63 6f 6d 6d 61 6e | 64 24 2c 73 74 72 24 29 |d(comman|d$,str$)|
|000002e0| 0d 01 2c 1c e7 20 63 6f | 6d 6d 61 6e 64 24 3d 22 |..,.. co|mmand$="|
|000002f0| 48 45 41 44 4c 49 4e 45 | 53 22 20 8c 0d 01 36 0f |HEADLINE|S" ...6.|
|00000300| 20 f2 48 65 61 64 6c 69 | 6e 65 73 0d 01 40 05 cc | .Headli|nes..@..|
|00000310| 0d 01 4a 16 20 f2 40 28 | 63 6f 6d 6d 61 6e 64 24 |..J. .@(|command$|
|00000320| 2c 73 74 72 24 29 0d 01 | 54 05 cd 0d 01 5e 05 e1 |,str$)..|T....^..|
|00000330| 0d 01 68 04 0d 01 72 05 | 3a 0d 01 7c 10 dd 20 f2 |..h...r.|:..|.. .|
|00000340| 48 65 61 64 6c 69 6e 65 | 73 0d 01 86 14 20 20 e7 |Headline|s....  .|
|00000350| 20 48 65 61 64 42 75 66 | 66 65 72 20 8c 0d 01 90 | HeadBuf|fer ....|
|00000360| 1f 20 20 20 20 f2 46 72 | 65 65 42 75 66 66 65 72 |.    .Fr|eeBuffer|
|00000370| 28 48 65 61 64 42 75 66 | 66 65 72 29 0d 01 9a 07 |(HeadBuf|fer)....|
|00000380| 20 20 cd 0d 01 a4 14 20 | 20 e7 20 48 65 61 64 53 |  ..... | . HeadS|
|00000390| 6f 63 6b 65 74 20 8c 0d | 01 ae 1a 20 20 20 20 f2 |ocket ..|...    .|
|000003a0| 43 6c 6f 73 65 28 48 65 | 61 64 53 6f 63 6b 65 74 |Close(He|adSocket|
|000003b0| 29 0d 01 b8 07 20 20 cd | 0d 01 c2 1d 20 20 48 65 |)....  .|....  He|
|000003c0| 61 64 42 75 66 66 65 72 | 20 3d 20 a4 4e 65 77 42 |adBuffer| = .NewB|
|000003d0| 75 66 66 65 72 0d 01 cc | 21 20 20 e7 20 49 52 43 |uffer...|!  . IRC|
|000003e0| 5f 53 65 72 76 65 72 24 | 3d 22 6c 6f 63 61 6c 68 |_Server$|="localh|
|000003f0| 6f 73 74 22 20 8c 0d 01 | d6 5a 20 20 20 20 48 65 |ost" ...|.Z    He|
|00000400| 61 64 53 6f 63 6b 65 74 | 20 3d 20 a4 43 6f 6e 6e |adSocket| = .Conn|
|00000410| 65 63 74 28 22 6c 6f 63 | 61 6c 68 6f 73 74 22 2c |ect("loc|alhost",|
|00000420| 38 30 2c 22 48 65 61 64 | 43 6f 6e 6e 65 63 74 65 |80,"Head|Connecte|
|00000430| 64 22 2c 22 48 65 61 64 | 45 72 72 6f 72 22 2c 22 |d","Head|Error","|
|00000440| 48 65 61 64 49 6e 63 6f | 6d 69 6e 67 22 2c 30 29 |HeadInco|ming",0)|
|00000450| 0d 01 e0 3f 20 20 20 20 | f4 20 47 65 72 70 68 3a |...?    |. Gerph:|
|00000460| 20 53 6f 20 74 68 61 74 | 20 49 20 63 61 6e 20 74 | So that| I can t|
|00000470| 65 73 74 20 74 68 69 73 | 20 61 6c 6f 6e 67 20 77 |est this| along w|
|00000480| 69 74 68 20 74 68 65 20 | 72 65 73 74 2e 2e 2e 0d |ith the |rest....|
|00000490| 01 ea 07 20 20 cc 0d 01 | f4 61 20 20 20 20 48 65 |...  ...|.a    He|
|000004a0| 61 64 53 6f 63 6b 65 74 | 20 3d 20 a4 43 6f 6e 6e |adSocket| = .Conn|
|000004b0| 65 63 74 28 22 77 77 77 | 2e 70 61 2e 70 72 65 73 |ect("www|.pa.pres|
|000004c0| 73 2e 6e 65 74 22 2c 38 | 30 2c 22 48 65 61 64 43 |s.net",8|0,"HeadC|
|000004d0| 6f 6e 6e 65 63 74 65 64 | 22 2c 22 48 65 61 64 45 |onnected|","HeadE|
|000004e0| 72 72 6f 72 22 2c 22 48 | 65 61 64 49 6e 63 6f 6d |rror","H|eadIncom|
|000004f0| 69 6e 67 22 2c 30 29 0d | 01 fe 07 20 20 cd 0d 02 |ing",0).|...  ...|
|00000500| 08 16 20 20 e7 20 48 65 | 61 64 53 6f 63 6b 65 74 |..  . He|adSocket|
|00000510| 3d 30 20 8c 0d 02 12 42 | 20 20 20 20 f2 44 69 73 |=0 ....B|    .Dis|
|00000520| 70 6c 61 79 45 72 72 6f | 72 28 22 43 6f 75 6c 64 |playErro|r("Could|
|00000530| 20 6e 6f 74 20 63 6f 6e | 6e 65 63 74 20 74 6f 20 | not con|nect to |
|00000540| 50 72 65 73 73 20 41 73 | 73 6f 63 69 61 74 69 6f |Press As|sociatio|
|00000550| 6e 22 2c 22 22 29 0d 02 | 1c 07 20 20 cd 0d 02 26 |n","")..|..  ...&|
|00000560| 05 e1 0d 02 30 04 0d 02 | 3a 1b dd 20 f2 48 65 61 |....0...|:.. .Hea|
|00000570| 64 43 6f 6e 6e 65 63 74 | 65 64 28 69 31 2c 69 32 |dConnect|ed(i1,i2|
|00000580| 29 0d 02 44 23 20 20 f2 | 4b 69 6c 6c 44 69 73 70 |)..D#  .|KillDisp|
|00000590| 6c 61 79 28 22 23 23 48 | 65 61 64 6c 69 6e 65 73 |lay("##H|eadlines|
|000005a0| 23 23 22 29 0d 02 4e 47 | 20 20 f2 4e 65 77 44 69 |##")..NG|  .NewDi|
|000005b0| 73 70 6c 61 79 28 22 23 | 23 48 65 61 64 6c 69 6e |splay("#|#Headlin|
|000005c0| 65 73 23 23 22 2c 31 30 | 30 2c 22 48 65 61 64 6c |es##",10|0,"Headl|
|000005d0| 69 6e 65 73 22 2c 44 69 | 73 70 6c 61 79 46 6c 61 |ines",Di|splayFla|
|000005e0| 67 5f 4e 6f 49 6e 64 65 | 6e 74 29 0d 02 58 41 20 |g_NoInde|nt)..XA |
|000005f0| 20 f2 53 65 6e 64 53 74 | 72 69 6e 67 28 48 65 61 | .SendSt|ring(Hea|
|00000600| 64 53 6f 63 6b 65 74 2c | 22 47 45 54 20 2f 6e 65 |dSocket,|"GET /ne|
|00000610| 77 73 2f 68 65 61 64 6c | 69 6e 65 73 2e 68 74 6d |ws/headl|ines.htm|
|00000620| 6c 20 48 54 54 50 2f 30 | 2e 39 22 29 0d 02 62 59 |l HTTP/0|.9")..bY|
|00000630| 20 20 f4 20 50 52 4f 43 | 53 65 6e 64 53 74 72 69 |  . PROC|SendStri|
|00000640| 6e 67 28 48 65 61 64 53 | 6f 63 6b 65 74 2c 22 55 |ng(HeadS|ocket,"U|
|00000650| 73 65 72 2d 41 67 65 6e | 74 3a 20 49 52 43 6c 69 |ser-Agen|t: IRCli|
|00000660| 65 6e 74 20 4d 61 67 72 | 61 74 68 65 61 20 48 65 |ent Magr|athea He|
|00000670| 61 64 6c 69 6e 65 73 20 | 73 63 72 69 70 74 2f 31 |adlines |script/1|
|00000680| 2e 30 32 22 29 0d 02 6c | 20 20 20 f2 53 65 6e 64 |.02")..l|   .Send|
|00000690| 53 74 72 69 6e 67 28 48 | 65 61 64 53 6f 63 6b 65 |String(H|eadSocke|
|000006a0| 74 2c 22 22 29 0d 02 76 | 05 e1 0d 02 80 04 0d 02 |t,"")..v|........|
|000006b0| 8a 1f dd 20 f2 48 65 61 | 64 45 72 72 6f 72 28 69 |... .Hea|dError(i|
|000006c0| 31 2c 69 32 2c 72 65 61 | 73 6f 6e 24 29 0d 02 94 |1,i2,rea|son$)...|
|000006d0| 18 20 20 f2 43 6c 6f 73 | 65 28 48 65 61 64 53 6f |.  .Clos|e(HeadSo|
|000006e0| 63 6b 65 74 29 0d 02 9e | 1d 20 20 f2 46 72 65 65 |cket)...|.  .Free|
|000006f0| 42 75 66 66 65 72 28 48 | 65 61 64 42 75 66 66 65 |Buffer(H|eadBuffe|
|00000700| 72 29 0d 02 a8 12 20 20 | 48 65 61 64 53 6f 63 6b |r)....  |HeadSock|
|00000710| 65 74 3d 30 0d 02 b2 12 | 20 20 48 65 61 64 42 75 |et=0....|  HeadBu|
|00000720| 66 66 65 72 3d 30 0d 02 | bc 05 e1 0d 02 c6 04 0d |ffer=0..|........|
|00000730| 02 d0 20 dd 20 a4 48 65 | 61 64 5f 50 72 6f 63 65 |.. . .He|ad_Proce|
|00000740| 73 73 57 65 62 4c 69 6e | 65 28 73 74 72 24 29 0d |ssWebLin|e(str$).|
|00000750| 02 da 0c 20 20 ea 20 70 | 61 72 61 0d 02 e4 28 20 |...  . p|ara...( |
|00000760| 20 70 61 72 61 20 3d 20 | a7 73 74 72 24 2c 22 3c | para = |.str$,"<|
|00000770| 70 3e 22 29 20 84 20 a7 | 73 74 72 24 2c 22 3c 50 |p>") . .|str$,"<P|
|00000780| 3e 22 29 0d 02 ee 13 20 | 20 c8 95 20 a7 73 74 72 |>").... | .. .str|
|00000790| 24 2c 22 3c 22 29 0d 02 | f8 3e 20 20 20 73 74 72 |$,"<")..|.>   str|
|000007a0| 24 3d c0 73 74 72 24 2c | a7 73 74 72 24 2c 22 3c |$=.str$,|.str$,"<|
|000007b0| 22 29 2d 31 29 2b c1 73 | 74 72 24 2c a7 73 74 72 |")-1)+.s|tr$,.str|
|000007c0| 24 2c 22 3e 22 2c a7 73 | 74 72 24 2c 22 3c 22 29 |$,">",.s|tr$,"<")|
|000007d0| 29 2b 31 29 0d 03 02 07 | 20 20 ce 0d 03 0c 1c 20 |)+1)....|  ..... |
|000007e0| 20 e7 20 70 61 72 61 20 | 80 20 28 a9 28 73 74 72 | . para |. (.(str|
|000007f0| 24 29 3d 30 29 20 8c 0d | 03 16 0f 20 20 20 73 74 |$)=0) ..|...   st|
|00000800| 72 24 3d 22 20 22 0d 03 | 20 07 20 20 cd 0d 03 2a |r$=" "..| .  ...*|
|00000810| 09 3d 73 74 72 24 0d 03 | 34 04 0d 03 3e 1a dd 20 |.=str$..|4...>.. |
|00000820| f2 48 65 61 64 49 6e 63 | 6f 6d 69 6e 67 28 69 31 |.HeadInc|oming(i1|
|00000830| 2c 69 32 29 0d 03 48 1a | 20 20 ea 20 6e 75 6d 62 |,i2)..H.|  . numb|
|00000840| 79 74 65 73 2c 73 74 72 | 24 2c 6e 61 6d 24 0d 03 |ytes,str|$,nam$..|
|00000850| 52 2e 20 20 6e 75 6d 62 | 79 74 65 73 3d a4 52 65 |R.  numb|ytes=.Re|
|00000860| 61 64 54 6f 53 74 61 74 | 69 63 42 75 66 66 65 72 |adToStat|icBuffer|
|00000870| 28 48 65 61 64 53 6f 63 | 6b 65 74 29 0d 03 5c 37 |(HeadSoc|ket)..\7|
|00000880| 20 20 f2 42 75 66 66 65 | 72 41 64 64 28 48 65 61 |  .Buffe|rAdd(Hea|
|00000890| 64 42 75 66 66 65 72 2c | a4 53 74 61 74 69 63 42 |dBuffer,|.StaticB|
|000008a0| 75 66 66 65 72 41 64 64 | 72 2c 6e 75 6d 62 79 74 |ufferAdd|r,numbyt|
|000008b0| 65 73 29 0d 03 66 29 20 | 20 73 74 72 24 3d a4 47 |es)..f) | str$=.G|
|000008c0| 65 74 4c 69 6e 65 46 72 | 6f 6d 42 75 66 66 65 72 |etLineFr|omBuffer|
|000008d0| 28 48 65 61 64 42 75 66 | 66 65 72 29 0d 03 70 10 |(HeadBuf|fer)..p.|
|000008e0| 20 20 c8 95 20 a9 28 73 | 74 72 24 29 0d 03 7a 29 |  .. .(s|tr$)..z)|
|000008f0| 20 20 20 20 e7 20 a7 73 | 74 72 24 2c 22 3c 6c 69 |    . .s|tr$,"<li|
|00000900| 3e 22 29 20 84 20 a7 73 | 74 72 24 2c 22 3c 4c 49 |>") . .s|tr$,"<LI|
|00000910| 3e 22 29 20 8c 0d 03 84 | 14 20 20 20 20 20 20 6e |>") ....|.      n|
|00000920| 61 6d 24 3d 22 20 2a 20 | 22 0d 03 8e 09 20 20 20 |am$=" * |"....   |
|00000930| 20 cc 0d 03 98 14 20 20 | 20 20 20 20 6e 61 6d 24 | .....  |    nam$|
|00000940| 3d 22 20 20 20 22 0d 03 | a2 09 20 20 20 20 cd 0d |="   "..|..    ..|
|00000950| 03 ac 27 20 20 20 20 73 | 74 72 24 3d a4 48 65 61 |..'    s|tr$=.Hea|
|00000960| 64 5f 50 72 6f 63 65 73 | 73 57 65 62 4c 69 6e 65 |d_Proces|sWebLine|
|00000970| 28 73 74 72 24 29 0d 03 | b6 15 20 20 20 20 e7 20 |(str$)..|..    . |
|00000980| a9 28 73 74 72 24 29 3e | 30 20 8c 0d 03 c0 30 20 |.(str$)>|0 ....0 |
|00000990| 20 20 20 20 20 f2 44 69 | 73 70 6c 61 79 28 6e 61 |     .Di|splay(na|
|000009a0| 6d 24 2b 73 74 72 24 2c | 22 22 2c 22 23 23 48 65 |m$+str$,|"","##He|
|000009b0| 61 64 6c 69 6e 65 73 23 | 23 22 29 0d 03 ca 09 20 |adlines#|#").... |
|000009c0| 20 20 20 cd 0d 03 d4 2b | 20 20 20 20 73 74 72 24 |   ....+|    str$|
|000009d0| 3d a4 47 65 74 4c 69 6e | 65 46 72 6f 6d 42 75 66 |=.GetLin|eFromBuf|
|000009e0| 66 65 72 28 48 65 61 64 | 42 75 66 66 65 72 29 0d |fer(Head|Buffer).|
|000009f0| 03 de 07 20 20 ce 0d 03 | e8 05 e1 0d 03 f2 04 0d |...  ...|........|
|00000a00| ff                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+