/ Acorn User 10 / AU_CD10.iso / Archived / Internet / jvscript116beta / JvScript / !JvScript / Resources / Libraries / AddrBook

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0e f4 20 41 64 | 64 72 42 6f 6f 6b 0d 00 |..... Ad|drBook..|
|00000010| 0b 5c 85 20 30 2c 20 22 | 49 27 6d 20 61 20 70 6f |.\. 0, "|I'm a po|
|00000020| 6f 72 20 6c 69 74 74 6c | 65 20 6c 69 62 72 61 72 |or littl|e librar|
|00000030| 79 20 66 69 6c 65 2c 20 | 70 6c 65 61 73 65 20 64 |y file, |please d|
|00000040| 6f 6e 27 74 20 74 72 79 | 20 74 6f 20 72 75 6e 20 |on't try| to run |
|00000050| 6d 65 2c 20 69 74 27 73 | 20 66 61 72 20 74 6f 6f |me, it's| far too|
|00000060| 20 70 61 69 6e 66 75 6c | 6c 22 0d 00 14 13 f4 20 | painful|l"..... |
|00000070| 44 65 74 65 63 74 20 4d | 61 69 6c 65 72 0d 00 15 |Detect M|ailer...|
|00000080| 13 f4 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.. -----|--------|
|00000090| 0d 00 1e 0e dd 20 a4 6d | 61 69 6c 65 72 73 0d 00 |..... .m|ailers..|
|000000a0| 28 34 e7 20 a4 67 73 74 | 72 61 6e 73 28 22 3c 56 |(4. .gst|rans("<V|
|000000b0| 74 69 49 6e 74 65 72 6e | 65 74 24 44 69 72 3e 22 |tiIntern|et$Dir>"|
|000000c0| 29 3c 3e 22 22 20 8c 20 | 3d 22 56 6f 79 61 67 65 |)<>"" . |="Voyage|
|000000d0| 72 22 0d 00 32 32 e7 20 | a4 67 73 74 72 61 6e 73 |r"..22. |.gstrans|
|000000e0| 28 22 3c 4e 65 77 73 44 | 69 72 24 44 69 72 3e 22 |("<NewsD|ir$Dir>"|
|000000f0| 29 3c 3e 22 22 20 8c 20 | 3d 22 4d 65 73 73 65 6e |)<>"" . |="Messen|
|00000100| 67 65 72 22 0d 00 3c 31 | e7 20 a4 67 73 74 72 61 |ger"..<1|. .gstra|
|00000110| 6e 73 28 22 3c 49 6e 65 | 74 53 75 69 74 65 24 44 |ns("<Ine|tSuite$D|
|00000120| 69 72 3e 22 29 3c 3e 22 | 22 20 8c 20 3d 22 4d 61 |ir>")<>"|" . ="Ma|
|00000130| 72 63 65 6c 22 0d 00 46 | 07 3d 22 22 0d 00 50 04 |rcel"..F|.=""..P.|
|00000140| 0d 00 5a 11 f4 20 4d 61 | 72 63 65 6c 20 4d 65 6e |..Z.. Ma|rcel Men|
|00000150| 75 0d 00 5b 11 f4 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |u..[.. -|--------|
|00000160| 2d 2d 0d 00 64 04 0d 00 | 6e 14 f4 20 4d 65 73 73 |--..d...|n.. Mess|
|00000170| 65 6e 67 65 72 20 4d 65 | 6e 75 0d 00 6f 14 f4 20 |enger Me|nu..o.. |
|00000180| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 00 |--------|------..|
|00000190| 78 25 dd 20 a4 6d 65 73 | 73 65 6e 67 65 72 5f 6d |x%. .mes|senger_m|
|000001a0| 65 6e 75 28 66 24 2c 20 | f8 20 65 6e 74 72 69 65 |enu(f$, |. entrie|
|000001b0| 73 25 29 0d 00 82 25 ea | 20 65 72 72 6f 72 24 2c |s%)...%.| error$,|
|000001c0| 6f 75 74 24 2c 6c 6f 6f | 70 25 2c 69 6e 69 74 24 |out$,loo|p%,init$|
|000001d0| 2c 20 72 65 74 75 72 6e | 0d 00 96 4b c8 99 22 58 |, return|...K.."X|
|000001e0| 4f 53 5f 47 42 50 42 22 | 2c 39 2c 22 43 68 6f 69 |OS_GBPB"|,9,"Choi|
|000001f0| 63 65 73 3a 4d 65 73 73 | 65 6e 67 65 72 22 2c 62 |ces:Mess|enger",b|
|00000200| 25 2c 31 2c 30 2c 32 35 | 35 2c 22 4d 73 67 72 43 |%,1,0,25|5,"MsgrC|
|00000210| 6f 6e 66 69 67 22 20 b8 | 20 2c 2c 2c 6e 2c 74 68 |onfig" .| ,,,n,th|
|00000220| 69 73 25 0d 00 a0 18 e7 | 20 6e 3c 31 20 84 20 74 |is%.....| n<1 . t|
|00000230| 68 69 73 25 3c 31 20 8c | 20 3d a3 0d 00 aa 0b 6c |his%<1 .| =.....l|
|00000240| 6f 6f 70 25 3d 30 0d 00 | b4 29 66 69 6c 65 25 3d |oop%=0..|.)file%=|
|00000250| 8e 22 43 68 6f 69 63 65 | 73 3a 4d 65 73 73 65 6e |."Choice|s:Messen|
|00000260| 67 65 72 2e 4d 73 67 72 | 43 6f 6e 66 69 67 22 0d |ger.Msgr|Config".|
|00000270| 00 be 05 f5 0d 00 c8 11 | 6c 69 6e 65 24 3d be 23 |........|line$=.#|
|00000280| 66 69 6c 65 25 0d 00 d2 | 27 fd c5 23 66 69 6c 65 |file%...|'..#file|
|00000290| 25 3d b9 20 84 20 a7 6c | 69 6e 65 24 2c 22 55 73 |%=. . .l|ine$,"Us|
|000002a0| 65 72 4c 6f 67 69 6e 22 | 29 3c 3e a3 0d 00 dc 13 |erLogin"|)<>.....|
|000002b0| 65 71 25 3d a7 6c 69 6e | 65 24 2c 22 3d 22 29 0d |eq%=.lin|e$,"=").|
|000002c0| 00 e6 17 75 73 65 72 24 | 3d c1 6c 69 6e 65 24 2c |...user$|=.line$,|
|000002d0| 65 71 25 2b 31 29 0d 00 | f0 0b d9 23 66 69 6c 65 |eq%+1)..|...#file|
|000002e0| 25 0d 00 fa 4f c8 99 22 | 58 4f 53 5f 47 42 50 42 |%...O.."|XOS_GBPB|
|000002f0| 22 2c 39 2c 28 22 3c 55 | 73 65 72 48 6f 6d 65 24 |",9,("<U|serHome$|
|00000300| 44 69 72 3e 2e 22 2b 75 | 73 65 72 24 29 2c 62 25 |Dir>."+u|ser$),b%|
|00000310| 2c 31 2c 30 2c 32 35 35 | 2c 22 41 64 64 72 42 6f |,1,0,255|,"AddrBo|
|00000320| 6f 6b 22 20 b8 20 2c 2c | 2c 6e 2c 74 68 69 73 25 |ok" . ,,|,n,this%|
|00000330| 0d 01 04 1f 65 72 72 6f | 72 24 3d 22 21 4e 65 77 |....erro|r$="!New|
|00000340| 73 44 69 72 20 6e 6f 74 | 20 66 6f 75 6e 64 22 0d |sDir not| found".|
|00000350| 01 0e 18 e7 20 6e 3c 31 | 20 84 20 74 68 69 73 25 |.... n<1| . this%|
|00000360| 3c 31 20 8c 20 3d a3 0d | 01 18 04 0d 01 22 30 66 |<1 . =..|....."0f|
|00000370| 69 6c 65 25 3d 8e 28 22 | 3c 55 73 65 72 48 6f 6d |ile%=.("|<UserHom|
|00000380| 65 24 44 69 72 3e 2e 22 | 2b 75 73 65 72 24 2b 22 |e$Dir>."|+user$+"|
|00000390| 2e 41 64 64 72 42 6f 6f | 6b 22 29 0d 01 2c 17 6f |.AddrBoo|k")..,.o|
|000003a0| 75 74 24 3d 22 41 64 64 | 72 65 73 73 20 42 6f 6f |ut$="Add|ress Boo|
|000003b0| 6b 22 0d 01 36 08 78 25 | 3d 30 0d 01 40 05 f5 0d |k"..6.x%|=0..@...|
|000003c0| 01 4a 11 6c 69 6e 65 24 | 3d be 23 66 69 6c 65 25 |.J.line$|=.#file%|
|000003d0| 0d 01 54 15 e7 20 a7 6c | 69 6e 65 24 2c 22 23 22 |..T.. .l|ine$,"#"|
|000003e0| 29 3d a3 20 8c 0d 01 5e | 09 78 25 2b 3d 31 0d 01 |)=. ...^|.x%+=1..|
|000003f0| 5f 0e f4 20 47 65 74 20 | 4e 61 6d 65 0d 01 68 20 |_.. Get |Name..h |
|00000400| 6e 61 6d 65 24 3d c1 6c | 69 6e 65 24 2c 30 2c a7 |name$=.l|ine$,0,.|
|00000410| 6c 69 6e 65 24 2c bd 39 | 29 2d 31 29 0d 01 72 25 |line$,.9|)-1)..r%|
|00000420| e7 20 c0 6e 61 6d 65 24 | 2c 31 29 3d 22 20 22 20 |. .name$|,1)=" " |
|00000430| 8c 20 6e 61 6d 65 24 3d | c1 6e 61 6d 65 24 2c 32 |. name$=|.name$,2|
|00000440| 29 0d 01 7c 12 73 74 25 | 3d a7 6c 69 6e 65 24 2c |)..|.st%|=.line$,|
|00000450| bd 39 29 0d 01 86 17 6c | 69 6e 65 24 3d c1 6c 69 |.9)....l|ine$=.li|
|00000460| 6e 65 24 2c 73 74 25 2b | 31 29 0d 01 90 11 f4 20 |ne$,st%+|1)..... |
|00000470| 47 65 74 20 61 64 64 72 | 65 73 73 0d 01 9a 13 73 |Get addr|ess....s|
|00000480| 74 25 3d a7 6c 69 6e 65 | 24 2c 20 bd 39 29 0d 01 |t%=.line|$, .9)..|
|00000490| a4 17 6d 61 69 6c 24 3d | c0 6c 69 6e 65 24 2c 73 |..mail$=|.line$,s|
|000004a0| 74 25 2d 31 29 0d 01 ae | 25 e7 20 c0 6d 61 69 6c |t%-1)...|%. .mail|
|000004b0| 24 2c 31 29 3d 22 20 22 | 20 8c 20 6d 61 69 6c 24 |$,1)=" "| . mail$|
|000004c0| 3d c1 6d 61 69 6c 24 2c | 32 29 0d 01 b8 17 6c 69 |=.mail$,|2)....li|
|000004d0| 6e 65 24 3d c1 6c 69 6e | 65 24 2c 73 74 25 2b 31 |ne$=.lin|e$,st%+1|
|000004e0| 29 0d 01 c2 0f f4 20 47 | 65 74 20 61 6c 69 61 73 |)..... G|et alias|
|000004f0| 0d 01 cc 13 73 74 25 3d | a7 6c 69 6e 65 24 2c 20 |....st%=|.line$, |
|00000500| bd 39 29 0d 01 d6 18 61 | 6c 69 61 73 24 3d c0 6c |.9)....a|lias$=.l|
|00000510| 69 6e 65 24 2c 73 74 25 | 2d 31 29 0d 01 e0 28 e7 |ine$,st%|-1)...(.|
|00000520| 20 c0 61 6c 69 61 73 24 | 2c 31 29 3d 22 20 22 20 | .alias$|,1)=" " |
|00000530| 8c 20 61 6c 69 61 73 24 | 3d c1 61 6c 69 61 73 24 |. alias$|=.alias$|
|00000540| 2c 32 29 0d 01 ea 15 6c | 69 6e 65 24 3d c1 6c 69 |,2)....l|ine$=.li|
|00000550| 6e 65 24 2c 73 74 25 29 | 0d 01 f4 04 0d 01 fe 1e |ne$,st%)|........|
|00000560| e7 20 61 6c 69 61 73 24 | 3d 22 22 20 8c 20 61 6c |. alias$|="" . al|
|00000570| 69 61 73 24 3d 6e 61 6d | 65 24 0d 02 08 1b 65 6d |ias$=nam|e$....em|
|00000580| 61 69 6c 61 64 64 72 24 | 28 78 25 2c 31 29 3d 61 |ailaddr$|(x%,1)=a|
|00000590| 6c 69 61 73 24 0d 02 12 | 1a 65 6d 61 69 6c 61 64 |lias$...|.emailad|
|000005a0| 64 72 24 28 78 25 2c 32 | 29 3d 6d 61 69 6c 24 0d |dr$(x%,2|)=mail$.|
|000005b0| 02 1c 18 62 69 67 5f 6d | 65 6e 75 24 28 78 25 29 |...big_m|enu$(x%)|
|000005c0| 3d 61 6c 69 61 73 24 0d | 02 26 05 cd 0d 02 30 0c |=alias$.|.&....0.|
|000005d0| 72 65 74 75 72 6e 3d b9 | 0d 02 3a 0d fd 20 c5 23 |return=.|..:.. .#|
|000005e0| 66 69 6c 65 25 0d 02 44 | 0b d9 23 66 69 6c 65 25 |file%..D|..#file%|
|000005f0| 0d 02 4e 0f 65 6e 74 72 | 69 65 73 25 3d 78 25 0d |..N.entr|ies%=x%.|
|00000600| 02 58 0b 3d 72 65 74 75 | 72 6e 0d 02 62 04 0d 02 |.X.=retu|rn..b...|
|00000610| 6c 12 f4 20 56 6f 79 61 | 67 65 72 20 4d 65 6e 75 |l.. Voya|ger Menu|
|00000620| 0d 02 6d 12 f4 20 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..m.. --|--------|
|00000630| 2d 2d 0d 02 76 23 dd 20 | a4 76 6f 79 61 67 65 72 |--..v#. |.voyager|
|00000640| 5f 6d 65 6e 75 28 66 69 | 6c 65 24 2c 20 f8 20 6c |_menu(fi|le$, . l|
|00000650| 6f 6f 70 25 29 0d 02 80 | 0c ea 20 72 65 74 75 72 |oop%)...|.. retur|
|00000660| 6e 0d 02 8a 0a ea 20 6f | 75 74 24 0d 02 94 22 62 |n..... o|ut$..."b|
|00000670| 69 67 5f 6d 65 6e 75 24 | 28 30 29 3d 22 45 6d 61 |ig_menu$|(0)="Ema|
|00000680| 69 6c 20 41 64 64 72 65 | 73 73 65 73 22 0d 02 9e |il Addre|sses"...|
|00000690| 10 66 69 6c 65 25 3d 8e | 66 69 6c 65 24 0d 02 a8 |.file%=.|file$...|
|000006a0| 13 e8 23 66 69 6c 65 25 | 2c 66 6f 72 6d 61 74 24 |..#file%|,format$|
|000006b0| 0d 02 b2 19 e7 20 66 6f | 72 6d 61 74 24 3d 22 40 |..... fo|rmat$="@|
|000006c0| 46 72 6d 74 3a 32 22 20 | 8c 0d 02 bc 10 70 6f 73 |Frmt:2" |.....pos|
|000006d0| 25 3d 8f 23 66 69 6c 65 | 25 0d 02 c6 05 f5 0d 02 |%=.#file|%.......|
|000006e0| d0 11 e8 23 66 69 6c 65 | 25 2c 6e 61 6d 65 24 0d |...#file|%,name$.|
|000006f0| 02 da 25 e7 20 c0 6e 61 | 6d 65 24 2c 31 29 3d 22 |..%. .na|me$,1)="|
|00000700| 20 22 20 8c 20 6e 61 6d | 65 24 3d c1 6e 61 6d 65 | " . nam|e$=.name|
|00000710| 24 2c 32 29 0d 02 e4 11 | e8 23 66 69 6c 65 25 2c |$,2)....|.#file%,|
|00000720| 6d 61 69 6c 24 0d 02 ee | 0f e8 23 66 69 6c 65 25 |mail$...|..#file%|
|00000730| 2c 6e 6f 25 0d 02 f8 0d | e7 20 6e 6f 25 3d 30 20 |,no%....|. no%=0 |
|00000740| 8c 0d 03 02 0c 6c 6f 6f | 70 25 2b 3d 31 0d 03 0c |.....loo|p%+=1...|
|00000750| 0c 78 25 3d 6c 6f 6f 70 | 25 0d 03 16 1a 65 6d 61 |.x%=loop|%....ema|
|00000760| 69 6c 61 64 64 72 24 28 | 78 25 2c 31 29 3d 6e 61 |iladdr$(|x%,1)=na|
|00000770| 6d 65 24 0d 03 20 17 62 | 69 67 5f 6d 65 6e 75 24 |me$.. .b|ig_menu$|
|00000780| 28 78 25 29 3d 6e 61 6d | 65 24 0d 03 2a 1a 65 6d |(x%)=nam|e$..*.em|
|00000790| 61 69 6c 61 64 64 72 24 | 28 78 25 2c 32 29 3d 6d |ailaddr$|(x%,2)=m|
|000007a0| 61 69 6c 24 0d 03 34 05 | cd 0d 03 3e 0d fd 20 c5 |ail$..4.|...>.. .|
|000007b0| 23 66 69 6c 65 25 0d 03 | 48 0e 72 65 74 75 72 6e |#file%..|H.return|
|000007c0| 20 3d 20 b9 0d 03 52 10 | cc 20 72 65 74 75 72 6e | = ...R.|. return|
|000007d0| 20 3d 20 a3 0d 03 5c 05 | cd 0d 03 66 0c d9 20 23 | = ...\.|...f.. #|
|000007e0| 66 69 6c 65 25 0d 03 70 | 0b 3d 72 65 74 75 72 6e |file%..p|.=return|
|000007f0| 0d 03 7a 04 0d ff       |                         |..z...  |        |
+--------+-------------------------+-------------------------+--------+--------+