/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / q / quasitalk / !QuasiTalk / Source

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 10 f4 20 3e 51 | 75 61 73 69 54 61 6c 6b |..... >Q|uasiTalk|
|00000010| 0d 00 14 1d f4 20 4f 70 | 65 6e 20 74 61 6c 6b 20 |..... Op|en talk |
|00000020| 55 52 4c 73 20 72 65 6d | 6f 74 65 6c 79 0d 00 1e |URLs rem|otely...|
|00000030| 12 f4 20 52 2e 20 52 2e | 20 54 68 6f 6d 61 73 0d |.. R. R.| Thomas.|
|00000040| 00 28 33 f4 20 76 30 2e | 31 20 20 20 37 2d 39 2f |.(3. v0.|1   7-9/|
|00000050| 32 2f 39 37 3b 20 76 30 | 2e 31 31 20 32 34 2f 32 |2/97; v0|.11 24/2|
|00000060| 2f 39 37 3b 20 76 30 2e | 31 32 20 31 32 2f 33 2f |/97; v0.|12 12/3/|
|00000070| 39 37 0d 00 32 04 0d 00 | 3c 04 0d 00 46 14 f4 20 |97..2...|<...F.. |
|00000080| 49 6e 69 74 69 61 6c 69 | 73 61 74 69 6f 6e 0d 00 |Initiali|sation..|
|00000090| 50 04 0d 00 5a 11 de 20 | 6d 65 73 73 61 67 65 73 |P...Z.. |messages|
|000000a0| 25 20 37 0d 00 64 15 21 | 6d 65 73 73 61 67 65 73 |% 7..d.!|messages|
|000000b0| 25 3d 26 34 41 46 38 30 | 0d 00 6e 11 6d 65 73 73 |%=&4AF80|..n.mess|
|000000c0| 61 67 65 73 25 21 34 3d | 30 0d 00 78 15 74 61 73 |ages%!4=|0..x.tas|
|000000d0| 6b 24 3d 22 51 75 61 73 | 69 54 61 6c 6b 22 0d 00 |k$="Quas|iTalk"..|
|000000e0| 82 0e de 20 62 6c 6b 25 | 20 35 31 31 0d 00 8c 3f |... blk%| 511...?|
|000000f0| c8 99 20 22 57 69 6d 70 | 5f 49 6e 69 74 69 61 6c |.. "Wimp|_Initial|
|00000100| 69 73 65 22 2c 33 31 30 | 2c 26 34 42 35 33 34 31 |ise",310|,&4B5341|
|00000110| 35 34 2c 74 61 73 6b 24 | 2c 6d 65 73 73 61 67 65 |54,task$|,message|
|00000120| 73 25 20 b8 20 2c 74 61 | 73 6b 25 0d 00 96 2a ee |s% . ,ta|sk%...*.|
|00000130| 20 85 20 f2 77 69 6d 70 | 5f 65 72 72 6f 72 28 f6 | . .wimp|_error(.|
|00000140| 24 2b 22 20 28 63 6f 64 | 65 20 22 2b c3 28 9e 29 |$+" (cod|e "+.(.)|
|00000150| 2b 22 29 22 29 0d 00 a0 | 04 0d 00 aa 04 0d 00 b4 |+")")...|........|
|00000160| 0f f4 20 4d 61 69 6e 20 | 6c 6f 6f 70 0d 00 be 04 |.. Main |loop....|
|00000170| 0d 00 c8 05 f5 0d 00 d2 | 31 c8 99 20 22 57 69 6d |........|1.. "Wim|
|00000180| 70 5f 50 6f 6c 6c 22 2c | 25 31 31 31 30 30 30 30 |p_Poll",|%1110000|
|00000190| 30 31 31 30 30 30 30 2c | 62 6c 6b 25 20 b8 20 72 |0110000,|blk% . r|
|000001a0| 65 61 73 6f 6e 25 0d 00 | dc 1f e7 20 72 65 61 73 |eason%..|... reas|
|000001b0| 6f 6e 25 3d 31 37 20 84 | 20 72 65 61 73 6f 6e 25 |on%=17 .| reason%|
|000001c0| 3d 31 38 20 8c 0d 00 e6 | 12 20 20 c8 8e 20 62 6c |=18 ....|.  .. bl|
|000001d0| 6b 25 21 31 36 20 ca 0d | 00 f0 16 20 20 20 20 c9 |k%!16 ..|...    .|
|000001e0| 20 30 3a f2 77 69 6d 70 | 5f 71 75 69 74 0d 00 fa | 0:.wimp|_quit...|
|000001f0| 1b 20 20 20 20 c9 20 26 | 34 41 46 38 30 3a f4 20 |.    . &|4AF80:. |
|00000200| 4f 70 65 6e 20 55 52 4c | 0d 01 04 12 20 20 20 20 |Open URL|....    |
|00000210| 20 20 6d 65 73 73 24 3d | 22 22 0d 01 0e 14 20 20 |  mess$=|""....  |
|00000220| 20 20 20 20 69 25 3d 62 | 6c 6b 25 2b 32 30 0d 01 |    i%=b|lk%+20..|
|00000230| 18 20 20 20 20 20 20 20 | c8 95 20 3f 69 25 20 80 |.       |.. ?i% .|
|00000240| 20 69 25 3c 62 6c 6b 25 | 2b 21 62 6c 6b 25 0d 01 | i%<blk%|+!blk%..|
|00000250| 22 1f 20 20 20 20 20 20 | 20 20 6d 65 73 73 24 2b |".      |  mess$+|
|00000260| 3d bd 28 3f 69 25 29 3a | 69 25 2b 3d 31 0d 01 2c |=.(?i%):|i%+=1..,|
|00000270| 0b 20 20 20 20 20 20 ce | 0d 01 2d 27 20 20 20 20 |.      .|..-'    |
|00000280| 20 20 e7 20 c2 6d 65 73 | 73 24 29 3d 22 2f 22 20 |  . .mes|s$)="/" |
|00000290| 8c 20 6d 65 73 73 24 3d | c0 6d 65 73 73 24 29 0d |. mess$=|.mess$).|
|000002a0| 01 36 21 20 20 20 20 20 | 20 e7 20 c0 6d 65 73 73 |.6!     | . .mess|
|000002b0| 24 2c 37 29 3d 22 74 61 | 6c 6b 3a 2f 2f 22 20 8c |$,7)="ta|lk://" .|
|000002c0| 0d 01 40 1b 20 20 20 20 | 20 20 20 20 6d 65 73 73 |..@.    |    mess|
|000002d0| 24 3d c1 6d 65 73 73 24 | 2c 38 29 0d 01 4a 19 20 |$=.mess$|,8)..J. |
|000002e0| 20 20 20 20 20 20 20 e7 | 20 6d 65 73 73 24 3c 3e |       .| mess$<>|
|000002f0| 22 22 20 8c 0d 01 54 2c | 20 20 20 20 20 20 20 20 |"" ...T,|        |
|00000300| 20 20 69 6e 25 3d 8e 28 | 22 3c 51 75 61 73 69 54 |  in%=.(|"<QuasiT|
|00000310| 61 6c 6b 24 44 69 72 3e | 2e 50 72 6f 74 6f 22 29 |alk$Dir>|.Proto")|
|00000320| 0d 01 5e 3d 20 20 20 20 | 20 20 20 20 20 20 e7 20 |..^=    |      . |
|00000330| 69 6e 25 3d 30 20 8c 20 | f2 77 69 6d 70 5f 65 72 |in%=0 . |.wimp_er|
|00000340| 72 6f 72 28 22 43 61 6e | 27 74 20 72 65 61 64 20 |ror("Can|'t read |
|00000350| 73 63 72 69 70 74 20 66 | 69 6c 65 22 29 0d 01 68 |script f|ile")..h|
|00000360| 2e 20 20 20 20 20 20 20 | 20 20 20 6f 75 74 25 3d |.       |   out%=|
|00000370| ae 28 22 3c 51 75 61 73 | 69 54 61 6c 6b 24 44 69 |.("<Quas|iTalk$Di|
|00000380| 72 3e 2e 53 63 72 69 70 | 74 22 29 0d 01 72 3f 20 |r>.Scrip|t")..r? |
|00000390| 20 20 20 20 20 20 20 20 | 20 e7 20 6f 75 74 25 3d |        | . out%=|
|000003a0| 30 20 8c 20 f2 77 69 6d | 70 5f 65 72 72 6f 72 28 |0 . .wim|p_error(|
|000003b0| 22 43 61 6e 27 74 20 77 | 72 69 74 65 20 73 63 72 |"Can't w|rite scr|
|000003c0| 69 70 74 20 66 69 6c 65 | 22 29 0d 01 7c 27 20 20 |ipt file|")..|'  |
|000003d0| 20 20 20 20 20 20 20 20 | c8 95 20 ac 20 c5 23 69 |        |.. . .#i|
|000003e0| 6e 25 3a d5 23 6f 75 74 | 25 2c be 23 69 6e 25 3a |n%:.#out|%,.#in%:|
|000003f0| ce 0d 01 86 30 20 20 20 | 20 20 20 20 20 20 20 d5 |....0   |       .|
|00000400| 23 6f 75 74 25 2c 22 73 | 65 6e 64 6c 20 22 22 6e |#out%,"s|endl ""n|
|00000410| 74 61 6c 6b 20 22 2b 6d | 65 73 73 24 2b 22 22 22 |talk "+m|ess$+"""|
|00000420| 22 0d 01 90 21 20 20 20 | 20 20 20 20 20 20 20 d5 |"...!   |       .|
|00000430| 23 6f 75 74 25 2c 22 73 | 65 73 73 69 6f 6e 65 6e |#out%,"s|essionen|
|00000440| 64 22 0d 01 9a 14 20 20 | 20 20 20 20 20 20 20 20 |d"....  |        |
|00000450| d9 20 23 69 6e 25 0d 01 | a4 15 20 20 20 20 20 20 |. #in%..|..      |
|00000460| 20 20 20 20 d9 20 23 6f | 75 74 25 0d 01 ae 36 20 |    . #o|ut%...6 |
|00000470| 20 20 20 20 20 20 20 20 | 20 ff 28 22 53 65 74 54 |        | .("SetT|
|00000480| 79 70 65 20 3c 51 75 61 | 73 69 54 61 6c 6b 24 44 |ype <Qua|siTalk$D|
|00000490| 69 72 3e 2e 53 63 72 69 | 70 74 20 26 31 33 33 22 |ir>.Scri|pt &133"|
|000004a0| 29 0d 01 b8 32 20 20 20 | 20 20 20 20 20 20 20 ff |)...2   |       .|
|000004b0| 28 22 57 69 6d 70 54 61 | 73 6b 20 3c 51 75 61 73 |("WimpTa|sk <Quas|
|000004c0| 69 54 61 6c 6b 24 44 69 | 72 3e 2e 53 63 72 69 70 |iTalk$Di|r>.Scrip|
|000004d0| 74 22 29 0d 01 c2 1c 20 | 20 20 20 20 20 20 20 20 |t").... |        |
|000004e0| 20 62 6c 6b 25 21 31 32 | 3d 62 6c 6b 25 21 38 0d | blk%!12|=blk%!8.|
|000004f0| 01 cc 32 20 20 20 20 20 | 20 20 20 20 20 c8 99 20 |..2     |     .. |
|00000500| 22 57 69 6d 70 5f 53 65 | 6e 64 4d 65 73 73 61 67 |"Wimp_Se|ndMessag|
|00000510| 65 22 2c 31 39 2c 62 6c | 6b 25 2c 62 6c 6b 25 21 |e",19,bl|k%,blk%!|
|00000520| 34 0d 01 d6 0d 20 20 20 | 20 20 20 20 20 cd 0d 01 |4....   |     ...|
|00000530| e0 0b 20 20 20 20 20 20 | cd 0d 01 ea 07 20 20 cb |..      |.....  .|
|00000540| 0d 01 f4 05 cd 0d 01 fe | 07 fd 20 a3 0d 02 08 04 |........|.. .....|
|00000550| 0d 02 12 17 dd f2 77 69 | 6d 70 5f 65 72 72 6f 72 |......wi|mp_error|
|00000560| 28 6d 65 73 73 24 29 0d | 02 1c 30 21 62 6c 6b 25 |(mess$).|..0!blk%|
|00000570| 3d 30 3a 24 28 62 6c 6b | 25 2b 34 29 3d 6d 65 73 |=0:$(blk|%+4)=mes|
|00000580| 73 24 3a 3f 28 62 6c 6b | 25 2b 34 2b a9 28 6d 65 |s$:?(blk|%+4+.(me|
|00000590| 73 73 24 29 29 3d 30 0d | 02 26 26 c8 99 20 22 57 |ss$))=0.|.&&.. "W|
|000005a0| 69 6d 70 5f 52 65 70 6f | 72 74 45 72 72 6f 72 22 |imp_Repo|rtError"|
|000005b0| 2c 62 6c 6b 25 2c 31 2c | 74 61 73 6b 24 0d 02 30 |,blk%,1,|task$..0|
|000005c0| 0e f2 77 69 6d 70 5f 71 | 75 69 74 0d 02 3a 05 e1 |..wimp_q|uit..:..|
|000005d0| 0d 02 44 04 0d 02 4e 0f | dd f2 77 69 6d 70 5f 71 |..D...N.|..wimp_q|
|000005e0| 75 69 74 0d 02 58 26 ff | 28 22 52 65 6d 6f 76 65 |uit..X&.|("Remove|
|000005f0| 20 3c 51 75 61 73 69 54 | 61 6c 6b 24 44 69 72 3e | <QuasiT|alk$Dir>|
|00000600| 2e 53 63 72 69 70 74 22 | 29 0d 02 62 27 c8 99 20 |.Script"|)..b'.. |
|00000610| 22 57 69 6d 70 5f 43 6c | 6f 73 65 44 6f 77 6e 22 |"Wimp_Cl|oseDown"|
|00000620| 2c 74 61 73 6b 25 2c 26 | 34 42 35 33 34 31 35 34 |,task%,&|4B534154|
|00000630| 0d 02 6c 05 e0 0d 02 76 | 05 e1 0d ff             |..l....v|....    |
+--------+-------------------------+-------------------------+--------+--------+