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

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 11 f4 20 43 68 | 6f 69 63 65 73 20 4c 69 |..... Ch|oices Li|
|00000010| 62 0d 00 14 12 dd 20 f2 | 72 65 61 64 63 68 6f 69 |b..... .|readchoi|
|00000020| 63 65 73 0d 00 1e 1a ea | 64 65 66 61 75 6c 74 24 |ces.....|default$|
|00000030| 2c 63 68 61 72 73 24 2c | 66 69 6c 65 25 0d 00 28 |,chars$,|file%..(|
|00000040| 26 66 69 6c 65 25 3d 8e | 22 3c 4a 76 53 63 72 69 |&file%=.|"<JvScri|
|00000050| 70 74 52 65 73 24 44 69 | 72 3e 2e 43 68 6f 69 63 |ptRes$Di|r>.Choic|
|00000060| 65 73 22 0d 00 32 0e 63 | 68 61 72 73 24 3d 22 35 |es"..2.c|hars$="5|
|00000070| 22 0d 00 3c 28 64 65 66 | 61 75 6c 74 24 3d 22 3c |"..<(def|ault$="<|
|00000080| 4a 76 53 63 72 69 70 74 | 52 65 73 24 44 69 72 3e |JvScript|Res$Dir>|
|00000090| 2e 44 65 66 61 75 6c 74 | 22 0d 00 3d 0f 63 6c 69 |.Default|"..=.cli|
|000000a0| 70 24 3d 22 79 65 73 22 | 0d 00 46 05 f5 0d 00 50 |p$="yes"|..F....P|
|000000b0| 11 6c 69 6e 65 24 3d be | 23 66 69 6c 65 25 0d 00 |.line$=.|#file%..|
|000000c0| 5a 3c e7 20 a7 a4 6c 6f | 77 65 72 28 6c 69 6e 65 |Z<. ..lo|wer(line|
|000000d0| 24 29 2c 22 63 68 61 72 | 73 22 29 20 8c 20 63 68 |$),"char|s") . ch|
|000000e0| 61 72 73 24 3d c1 6c 69 | 6e 65 24 2c a7 6c 69 6e |ars$=.li|ne$,.lin|
|000000f0| 65 24 2c 22 3a 22 29 2b | 31 29 0d 00 64 40 e7 20 |e$,":")+|1)..d@. |
|00000100| a7 a4 6c 6f 77 65 72 28 | 6c 69 6e 65 24 29 2c 22 |..lower(|line$),"|
|00000110| 64 65 66 61 75 6c 74 22 | 29 20 8c 20 64 65 66 61 |default"|) . defa|
|00000120| 75 6c 74 24 3d c1 6c 69 | 6e 65 24 2c a7 6c 69 6e |ult$=.li|ne$,.lin|
|00000130| 65 24 2c 22 3a 22 29 2b | 31 29 0d 00 6e 3f e7 20 |e$,":")+|1)..n?. |
|00000140| a7 a4 6c 6f 77 65 72 28 | 6c 69 6e 65 24 29 2c 22 |..lower(|line$),"|
|00000150| 63 6c 69 70 62 6f 61 72 | 64 22 29 20 8c 20 63 6c |clipboar|d") . cl|
|00000160| 69 70 24 3d c1 6c 69 6e | 65 24 2c a7 6c 69 6e 65 |ip$=.lin|e$,.line|
|00000170| 24 2c 22 3a 22 29 2b 31 | 29 0d 00 82 18 fd 6c 69 |$,":")+1|).....li|
|00000180| 6e 65 24 3d 22 65 6e 64 | 22 84 c5 23 66 69 6c 65 |ne$="end|"..#file|
|00000190| 25 0d 00 a0 0b d9 23 66 | 69 6c 65 25 0d 00 aa 1a |%.....#f|ile%....|
|000001a0| 64 65 66 61 75 6c 74 5f | 66 69 6c 65 24 3d 64 65 |default_|file$=de|
|000001b0| 66 61 75 6c 74 24 0d 00 | b4 1b 63 68 61 72 73 5f |fault$..|..chars_|
|000001c0| 74 6f 5f 73 70 6f 6f 6c | 25 3d bb 63 68 61 72 73 |to_spool|%=.chars|
|000001d0| 24 0d 00 b5 37 e7 20 63 | 6c 69 70 24 3d 22 79 65 |$...7. c|lip$="ye|
|000001e0| 73 22 20 8c 20 75 73 65 | 5f 63 6c 69 70 62 6f 61 |s" . use|_clipboa|
|000001f0| 72 64 25 3d b9 20 8b 20 | 75 73 65 5f 63 6c 69 70 |rd%=. . |use_clip|
|00000200| 62 6f 61 72 64 25 3d a3 | 0d 00 d2 11 f2 73 65 74 |board%=.|.....set|
|00000210| 63 68 6f 69 63 65 77 69 | 6e 0d 00 dc 05 e1 0d 00 |choicewi|n.......|
|00000220| e6 06 3a 3a 0d 00 f0 14 | dd 20 f2 77 72 69 74 65 |..::....|. .write|
|00000230| 5f 63 68 6f 69 63 65 73 | 0d 00 fa 1a ea 64 65 66 |_choices|.....def|
|00000240| 61 75 6c 74 24 2c 63 68 | 61 72 73 24 2c 66 69 6c |ault$,ch|ars$,fil|
|00000250| 65 25 0d 01 04 26 66 69 | 6c 65 25 3d ae 22 3c 4a |e%...&fi|le%=."<J|
|00000260| 76 53 63 72 69 70 74 52 | 65 73 24 44 69 72 3e 2e |vScriptR|es$Dir>.|
|00000270| 43 68 6f 69 63 65 73 22 | 0d 01 0e 25 d5 23 66 69 |Choices"|...%.#fi|
|00000280| 6c 65 25 2c 22 63 68 61 | 72 73 3a 22 2b c3 63 68 |le%,"cha|rs:"+.ch|
|00000290| 61 72 73 5f 74 6f 5f 73 | 70 6f 6f 6c 25 0d 01 18 |ars_to_s|pool%...|
|000002a0| 24 d5 23 66 69 6c 65 25 | 2c 22 64 65 66 61 75 6c |$.#file%|,"defaul|
|000002b0| 74 3a 22 2b 64 65 66 61 | 75 6c 74 5f 66 69 6c 65 |t:"+defa|ult_file|
|000002c0| 24 0d 01 22 17 c8 8e 20 | 75 73 65 5f 63 6c 69 70 |$.."... |use_clip|
|000002d0| 62 6f 61 72 64 25 20 ca | 0d 01 2c 21 c9 20 b9 20 |board% .|..,!. . |
|000002e0| 3a 20 d5 23 66 69 6c 65 | 25 2c 22 63 6c 69 70 62 |: .#file|%,"clipb|
|000002f0| 6f 61 72 64 3a 79 65 73 | 22 0d 01 36 20 c9 20 a3 |oard:yes|"..6 . .|
|00000300| 20 3a 20 d5 23 66 69 6c | 65 25 2c 22 63 6c 69 70 | : .#fil|e%,"clip|
|00000310| 62 6f 61 72 64 3a 6e 6f | 22 0d 01 40 05 cb 0d 01 |board:no|"..@....|
|00000320| 4a 11 d5 23 66 69 6c 65 | 25 2c 22 65 6e 64 22 0d |J..#file|%,"end".|
|00000330| 01 54 0b d9 23 66 69 6c | 65 25 0d 01 5e 05 e1 0d |.T..#fil|e%..^...|
|00000340| 01 68 06 3a 3a 0d 01 72 | 13 dd 20 f2 73 65 74 63 |.h.::..r|.. .setc|
|00000350| 68 6f 69 63 65 77 69 6e | 0d 01 7c 2e f2 73 65 74 |hoicewin|..|..set|
|00000360| 69 63 6f 6e 74 65 78 74 | 28 63 68 6f 69 63 65 5f |icontext|(choice_|
|00000370| 77 25 2c 32 2c c3 63 68 | 61 72 73 5f 74 6f 5f 73 |w%,2,.ch|ars_to_s|
|00000380| 70 6f 6f 6c 25 29 0d 01 | 86 2c f2 73 65 74 69 63 |pool%)..|.,.setic|
|00000390| 6f 6e 74 65 78 74 28 63 | 68 6f 69 63 65 5f 77 25 |ontext(c|hoice_w%|
|000003a0| 2c 31 30 2c 64 65 66 61 | 75 6c 74 5f 66 69 6c 65 |,10,defa|ult_file|
|000003b0| 24 29 0d 01 87 4e e7 20 | 75 73 65 5f 63 6c 69 70 |$)...N. |use_clip|
|000003c0| 62 6f 61 72 64 25 20 8c | 20 f2 69 63 6f 6e 73 74 |board% .| .iconst|
|000003d0| 61 74 65 28 63 68 6f 69 | 63 65 5f 77 25 2c 31 37 |ate(choi|ce_w%,17|
|000003e0| 2c 31 29 20 8b 20 f2 69 | 63 6f 6e 73 74 61 74 65 |,1) . .i|constate|
|000003f0| 28 63 68 6f 69 63 65 5f | 77 25 2c 31 37 2c 30 29 |(choice_|w%,17,0)|
|00000400| 0d 01 90 05 e1 0d 01 9a | 06 3a 3a 0d 01 a4 13 dd |........|.::.....|
|00000410| 20 f2 67 65 74 63 68 6f | 69 63 65 77 69 6e 0d 01 | .getcho|icewin..|
|00000420| ae 30 63 68 61 72 73 5f | 74 6f 5f 73 70 6f 6f 6c |.0chars_|to_spool|
|00000430| 25 3d bb 28 a4 67 65 74 | 69 63 6f 6e 74 65 78 74 |%=.(.get|icontext|
|00000440| 28 63 68 6f 69 63 65 5f | 77 25 2c 32 29 29 0d 01 |(choice_|w%,2))..|
|00000450| b8 2c 64 65 66 61 75 6c | 74 5f 66 69 6c 65 24 3d |.,defaul|t_file$=|
|00000460| a4 67 65 74 69 63 6f 6e | 74 65 78 74 28 63 68 6f |.geticon|text(cho|
|00000470| 69 63 65 5f 77 25 2c 31 | 30 29 0d 01 b9 2e 75 73 |ice_w%,1|0)....us|
|00000480| 65 5f 63 6c 69 70 62 6f | 61 72 64 25 3d a4 67 65 |e_clipbo|ard%=.ge|
|00000490| 74 69 63 6f 6e 73 74 61 | 74 65 28 63 68 6f 69 63 |ticonsta|te(choic|
|000004a0| 65 5f 77 25 2c 31 37 29 | 0d 01 c2 05 e1 0d 01 cc |e_w%,17)|........|
|000004b0| 06 3a 3a 0d 01 d6 1f dd | 20 f2 63 68 6f 69 63 65 |.::.....| .choice|
|000004c0| 63 6c 69 63 6b 28 69 63 | 6f 6e 2c 62 75 74 74 6f |click(ic|on,butto|
|000004d0| 6e 29 0d 01 e0 0d c8 8e | 20 69 63 6f 6e 20 ca 0d |n)......| icon ..|
|000004e0| 01 ea 0b 20 20 20 20 c9 | 20 33 0d 01 f4 16 20 20 |...    .| 3....  |
|000004f0| 20 20 20 20 20 c8 8e 20 | 62 75 74 74 6f 6e 20 ca |     .. |button .|
|00000500| 0d 01 fe 28 20 20 20 20 | 20 20 20 20 20 20 20 20 |...(    |        |
|00000510| c9 20 34 20 3a 20 63 68 | 61 72 73 5f 74 6f 5f 73 |. 4 : ch|ars_to_s|
|00000520| 70 6f 6f 6c 25 2d 3d 31 | 0d 02 08 28 20 20 20 20 |pool%-=1|...(    |
|00000530| 20 20 20 20 20 20 20 20 | c9 20 31 20 3a 20 63 68 |        |. 1 : ch|
|00000540| 61 72 73 5f 74 6f 5f 73 | 70 6f 6f 6c 25 2b 3d 31 |ars_to_s|pool%+=1|
|00000550| 0d 02 12 0c 20 20 20 20 | 20 20 20 cb 0d 02 1c 32 |....    |   ....2|
|00000560| 20 20 20 20 20 20 20 e7 | 20 63 68 61 72 73 5f 74 |       .| chars_t|
|00000570| 6f 5f 73 70 6f 6f 6c 25 | 3c 31 20 8c 20 63 68 61 |o_spool%|<1 . cha|
|00000580| 72 73 5f 74 6f 5f 73 70 | 6f 6f 6c 25 3d 31 0d 02 |rs_to_sp|ool%=1..|
|00000590| 26 34 20 20 20 20 20 20 | 20 e7 20 63 68 61 72 73 |&4      | . chars|
|000005a0| 5f 74 6f 5f 73 70 6f 6f | 6c 25 3e 31 30 20 8c 20 |_to_spoo|l%>10 . |
|000005b0| 63 68 61 72 73 5f 74 6f | 5f 73 70 6f 6f 6c 25 3d |chars_to|_spool%=|
|000005c0| 31 30 0d 02 30 18 20 20 | 20 20 20 20 20 f2 73 65 |10..0.  |     .se|
|000005d0| 74 63 68 6f 69 63 65 77 | 69 6e 0d 02 3a 0b 20 20 |tchoicew|in..:.  |
|000005e0| 20 20 c9 20 34 0d 02 44 | 16 20 20 20 20 20 20 20 |  . 4..D|.       |
|000005f0| c8 8e 20 62 75 74 74 6f | 6e 20 ca 0d 02 4e 28 20 |.. butto|n ...N( |
|00000600| 20 20 20 20 20 20 20 20 | 20 20 20 c9 20 31 20 3a |        |   . 1 :|
|00000610| 20 63 68 61 72 73 5f 74 | 6f 5f 73 70 6f 6f 6c 25 | chars_t|o_spool%|
|00000620| 2d 3d 31 0d 02 58 28 20 | 20 20 20 20 20 20 20 20 |-=1..X( |        |
|00000630| 20 20 20 c9 20 34 20 3a | 20 63 68 61 72 73 5f 74 |   . 4 :| chars_t|
|00000640| 6f 5f 73 70 6f 6f 6c 25 | 2b 3d 31 0d 02 62 0c 20 |o_spool%|+=1..b. |
|00000650| 20 20 20 20 20 20 cb 0d | 02 6c 32 20 20 20 20 20 |      ..|.l2     |
|00000660| 20 20 e7 20 63 68 61 72 | 73 5f 74 6f 5f 73 70 6f |  . char|s_to_spo|
|00000670| 6f 6c 25 3c 31 20 8c 20 | 63 68 61 72 73 5f 74 6f |ol%<1 . |chars_to|
|00000680| 5f 73 70 6f 6f 6c 25 3d | 31 0d 02 76 34 20 20 20 |_spool%=|1..v4   |
|00000690| 20 20 20 20 e7 20 63 68 | 61 72 73 5f 74 6f 5f 73 |    . ch|ars_to_s|
|000006a0| 70 6f 6f 6c 25 3e 31 30 | 20 8c 20 63 68 61 72 73 |pool%>10| . chars|
|000006b0| 5f 74 6f 5f 73 70 6f 6f | 6c 25 3d 31 30 0d 02 80 |_to_spoo|l%=10...|
|000006c0| 18 20 20 20 20 20 20 20 | f2 73 65 74 63 68 6f 69 |.       |.setchoi|
|000006d0| 63 65 77 69 6e 0d 02 8a | 0c 20 20 20 20 c9 20 31 |cewin...|.    . 1|
|000006e0| 31 0d 02 94 1f 20 20 20 | 20 20 20 20 f2 63 6c 6f |1....   |    .clo|
|000006f0| 73 65 77 69 6e 28 63 68 | 6f 69 63 65 5f 77 25 29 |sewin(ch|oice_w%)|
|00000700| 0d 02 9e 19 20 20 20 20 | 20 20 20 f2 77 72 69 74 |....    |   .writ|
|00000710| 65 5f 63 68 6f 69 63 65 | 73 0d 02 a8 0c 20 20 20 |e_choice|s....   |
|00000720| 20 c9 20 31 32 0d 02 b2 | 1f 20 20 20 20 20 20 20 | . 12...|.       |
|00000730| f2 63 6c 6f 73 65 77 69 | 6e 28 63 68 6f 69 63 65 |.closewi|n(choice|
|00000740| 5f 77 25 29 0d 02 bc 17 | 20 20 20 20 20 20 20 f2 |_w%)....|       .|
|00000750| 72 65 61 64 63 68 6f 69 | 63 65 73 0d 02 c6 18 20 |readchoi|ces.... |
|00000760| 20 20 20 20 20 20 f2 73 | 65 74 63 68 6f 69 63 65 |      .s|etchoice|
|00000770| 77 69 6e 0d 02 d0 0c 20 | 20 20 20 c9 20 31 33 0d |win.... |   . 13.|
|00000780| 02 da 1f 20 20 20 20 20 | 20 20 f2 63 6c 6f 73 65 |...     |  .close|
|00000790| 77 69 6e 28 63 68 6f 69 | 63 65 5f 77 25 29 0d 02 |win(choi|ce_w%)..|
|000007a0| db 0c 20 20 20 20 c9 20 | 31 37 0d 02 dc 35 20 20 |..    . |17...5  |
|000007b0| 20 20 20 20 20 75 73 65 | 5f 63 6c 69 70 62 6f 61 |     use|_clipboa|
|000007c0| 72 64 25 3d a4 67 65 74 | 69 63 6f 6e 73 74 61 74 |rd%=.get|iconstat|
|000007d0| 65 28 63 68 6f 69 63 65 | 5f 77 25 2c 31 37 29 0d |e(choice|_w%,17).|
|000007e0| 02 e4 05 cb 0d 02 ee 05 | e1 0d ff                |........|...     |
+--------+-------------------------+-------------------------+--------+--------+