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

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0f f4 20 57 69 | 6d 70 58 74 72 61 73 0d |..... Wi|mpXtras.|
|00000010| 00 14 15 dd 20 f2 5f 66 | 69 6c 65 77 72 69 74 65 |.... ._f|ilewrite|
|00000020| 28 66 24 29 0d 00 1e 16 | 78 25 3d ae 22 3c 57 69 |(f$)....|x%=."<Wi|
|00000030| 6d 70 24 53 63 72 61 70 | 3e 22 0d 00 28 0b d5 23 |mp$Scrap|>"..(..#|
|00000040| 78 25 2c 66 24 0d 00 32 | 08 d9 23 78 25 0d 00 3c |x%,f$..2|..#x%..<|
|00000050| 05 e1 0d 00 46 06 3a 3a | 0d 00 50 15 dd 20 a4 73 |....F.::|..P.. .s|
|00000060| 75 62 73 74 69 74 75 74 | 65 28 61 24 29 0d 00 5a |ubstitut|e(a$)..Z|
|00000070| 19 ea 20 62 24 2c 64 24 | 3a ea 20 85 3a ee 20 85 |.. b$,d$|:. .:. .|
|00000080| 20 ea 3a 3d 61 24 0d 00 | 64 11 c8 95 20 a7 61 24 | .:=a$..|d... .a$|
|00000090| 2c 22 a4 22 29 3e 30 0d | 00 6e 2a 20 62 24 3d c1 |,".")>0.|.n* b$=.|
|000000a0| 61 24 2c a7 61 24 2c 22 | a4 22 29 2b 31 29 3a 62 |a$,.a$,"|.")+1):b|
|000000b0| 24 3d c0 62 24 2c a7 62 | 24 2c 22 a4 22 29 2d 31 |$=.b$,.b|$,".")-1|
|000000c0| 29 0d 00 78 0a 20 64 24 | 3d 62 24 0d 00 82 33 20 |)..x. d$|=b$...3 |
|000000d0| 61 24 3d c0 61 24 2c a7 | 61 24 2c 22 a4 22 29 2d |a$=.a$,.|a$,".")-|
|000000e0| 31 29 2b a0 28 64 24 29 | 2b c1 61 24 2c a7 61 24 |1)+.(d$)|+.a$,.a$|
|000000f0| 2c 22 a4 22 29 2b a9 28 | 62 24 29 2b 32 29 0d 00 |,".")+.(|b$)+2)..|
|00000100| 8c 05 ce 0d 00 96 07 3d | 61 24 0d 00 a0 06 3a 3a |.......=|a$....::|
|00000110| 0d 00 aa 15 dd 20 a4 5f | 67 65 74 74 69 74 6c 65 |..... ._|gettitle|
|00000120| 28 77 69 6e 29 0d 00 b4 | 0c 62 25 21 30 3d 77 69 |(win)...|.b%!0=wi|
|00000130| 6e 0d 00 be 1e c8 99 22 | 57 69 6d 70 5f 47 65 74 |n......"|Wimp_Get|
|00000140| 57 69 6e 64 6f 77 49 6e | 66 6f 22 2c 2c 62 25 0d |WindowIn|fo",,b%.|
|00000150| 00 c8 0d 3d 24 28 62 25 | 21 37 36 29 0d 00 d2 06 |...=$(b%|!76)....|
|00000160| 3a 3a 0d 00 dc 13 dd 20 | f2 6b 69 6c 6c 77 69 6e |::..... |.killwin|
|00000170| 28 77 69 6e 29 0d 00 e6 | 0c 62 25 21 30 3d 77 69 |(win)...|.b%!0=wi|
|00000180| 6e 0d 00 f0 1d c8 99 22 | 57 69 6d 70 5f 44 65 6c |n......"|Wimp_Del|
|00000190| 65 74 65 57 69 6e 64 6f | 77 22 2c 2c 62 25 0d 00 |eteWindo|w",,b%..|
|000001a0| fa 05 e1 0d 01 04 06 3a | 3a 0d 01 0e 15 dd 20 a4 |.......:|:..... .|
|000001b0| 78 74 72 61 5f 73 70 61 | 63 65 28 6e 6f 29 0d 01 |xtra_spa|ce(no)..|
|000001c0| 18 14 ea 20 73 70 61 63 | 65 73 24 2c 63 6f 75 6e |... spac|es$,coun|
|000001d0| 74 25 0d 01 22 0e 73 70 | 61 63 65 73 24 3d 22 22 |t%..".sp|aces$=""|
|000001e0| 0d 01 2c 13 e3 20 63 6f | 75 6e 74 25 3d 31 20 b8 |..,.. co|unt%=1 .|
|000001f0| 20 6e 6f 0d 01 36 10 73 | 70 61 63 65 73 24 2b 3d | no..6.s|paces$+=|
|00000200| 22 20 22 0d 01 40 05 ed | 0d 01 4a 0c 3d 73 70 61 |" "..@..|..J.=spa|
|00000210| 63 65 73 24 0d 01 54 06 | 3a 3a 0d 01 5e 13 dd 20 |ces$..T.|::..^.. |
|00000220| a4 75 6e 69 78 69 66 79 | 28 69 6e 24 29 0d 01 68 |.unixify|(in$)..h|
|00000230| 10 ea 20 6f 75 74 24 2c | 63 25 2c 63 24 0d 01 72 |.. out$,|c%,c$..r|
|00000240| 08 63 25 3d 31 0d 01 7c | 0f c8 95 20 63 25 3c 3d |.c%=1..||... c%<=|
|00000250| a9 69 6e 24 0d 01 86 11 | 63 24 3d c1 69 6e 24 2c |.in$....|c$=.in$,|
|00000260| 63 25 2c 31 29 0d 01 90 | 0b c8 8e 20 63 24 20 ca |c%,1)...|... c$ .|
|00000270| 0d 01 9a 15 c9 20 22 2e | 22 20 3a 20 6f 75 74 24 |..... ".|" : out$|
|00000280| 2b 3d 22 2f 22 0d 01 a4 | 15 c9 20 22 2f 22 20 3a |+="/"...|.. "/" :|
|00000290| 20 6f 75 74 24 2b 3d 22 | 2e 22 0d 01 ae 10 7f 20 | out$+="|."..... |
|000002a0| 3a 20 6f 75 74 24 2b 3d | 63 24 0d 01 b8 05 cb 0d |: out$+=|c$......|
|000002b0| 01 c2 09 63 25 2b 3d 31 | 0d 01 cc 05 ce 0d 01 d6 |...c%+=1|........|
|000002c0| 09 3d 6f 75 74 24 0d 01 | e0 06 3a 3a 0d 01 f4 0e |.=out$..|..::....|
|000002d0| dd 20 a4 73 63 72 65 65 | 6e 79 0d 01 fe 1f c8 99 |. .scree|ny......|
|000002e0| 22 4f 53 5f 53 63 72 65 | 65 6e 4d 6f 64 65 22 2c |"OS_Scre|enMode",|
|000002f0| 31 20 b8 20 2c 6d 6f 64 | 65 0d 02 08 0d 3d 28 6d |1 . ,mod|e....=(m|
|00000300| 6f 64 65 21 38 29 0d 02 | 12 06 3a 3a 0d 02 26 3d |ode!8)..|..::..&=|
|00000310| dd 20 a4 63 72 65 61 74 | 69 63 6f 6e 28 77 69 6e |. .creat|icon(win|
|00000320| 2c 78 2c 79 2c 77 2c 68 | 2c 74 69 74 6c 65 24 2c |,x,y,w,h|,title$,|
|00000330| 76 61 6c 69 64 24 2c 63 | 6f 6c 2c 65 73 67 2c 62 |valid$,c|ol,esg,b|
|00000340| 75 74 2c 66 6c 61 67 73 | 29 0d 02 30 45 3d a4 63 |ut,flags|)..0E=.c|
|00000350| 72 65 61 74 69 63 6f 6e | 6c 28 77 69 6e 2c 78 2c |reaticon|l(win,x,|
|00000360| 79 2c 77 2c 68 2c 74 69 | 74 6c 65 24 2c 76 61 6c |y,w,h,ti|tle$,val|
|00000370| 69 64 24 2c 63 6f 6c 2c | 65 73 67 2c 62 75 74 2c |id$,col,|esg,but,|
|00000380| 66 6c 61 67 73 2c a9 74 | 69 74 6c 65 24 29 0d 02 |flags,.t|itle$)..|
|00000390| 3a 06 3a 3a 0d 02 44 42 | dd 20 a4 63 72 65 61 74 |:.::..DB|. .creat|
|000003a0| 69 63 6f 6e 6c 28 77 69 | 6e 2c 78 2c 79 2c 77 2c |iconl(wi|n,x,y,w,|
|000003b0| 68 2c 74 69 74 6c 65 24 | 2c 76 61 6c 69 64 24 2c |h,title$|,valid$,|
|000003c0| 63 6f 6c 2c 65 73 67 2c | 62 75 74 2c 66 6c 61 67 |col,esg,|but,flag|
|000003d0| 73 2c 6c 65 6e 29 0d 02 | 4e 24 ea 20 68 61 6e 64 |s,len)..|N$. hand|
|000003e0| 6c 65 3a 74 69 74 6c 65 | 24 3d a4 6d 73 67 74 65 |le:title|$=.msgte|
|000003f0| 78 74 28 74 69 74 6c 65 | 24 29 0d 02 58 2e 62 25 |xt(title|$)..X.b%|
|00000400| 21 30 3d 77 69 6e 3a 62 | 25 21 34 3d 78 3a 62 25 |!0=win:b|%!4=x:b%|
|00000410| 21 38 3d 79 2d 68 3a 62 | 25 21 31 32 3d 78 2b 77 |!8=y-h:b|%!12=x+w|
|00000420| 3a 62 25 21 31 36 3d 79 | 0d 02 62 36 62 25 21 32 |:b%!16=y|..b6b%!2|
|00000430| 30 3d 28 66 6c 61 67 73 | 20 80 20 28 25 31 31 31 |0=(flags| . (%111|
|00000440| 30 30 31 31 31 31 31 31 | 31 2b 28 31 35 3c 3c 32 |00111111|1+(15<<2|
|00000450| 30 29 29 29 2b 28 63 6f | 6c 3c 3c 32 34 29 0d 02 |0)))+(co|l<<24)..|
|00000460| 6c 1e 62 25 21 32 30 2b | 3d 28 65 73 67 3c 3c 31 |l.b%!20+|=(esg<<1|
|00000470| 36 29 2b 28 62 75 74 3c | 3c 31 32 29 0d 02 76 2d |6)+(but<|<12)..v-|
|00000480| e7 20 76 61 6c 69 64 24 | 3c 3e 22 22 20 84 20 a9 |. valid$|<>"" . .|
|00000490| 28 74 69 74 6c 65 24 29 | 3e 31 31 20 84 20 74 69 |(title$)|>11 . ti|
|000004a0| 74 6c 65 24 3d bd 30 20 | 8c 0d 02 80 12 20 e7 20 |tle$=.0 |..... . |
|000004b0| 74 69 74 6c 65 24 3d bd | 30 20 8c 0d 02 8a 27 20 |title$=.|0 ....' |
|000004c0| 20 62 25 21 32 34 3d a4 | 73 74 72 64 75 70 28 c4 | b%!24=.|strdup(.|
|000004d0| 32 35 35 2c bd 30 29 29 | 3a 62 25 21 33 32 3d 32 |255,.0))|:b%!32=2|
|000004e0| 35 36 0d 02 94 06 20 cc | 0d 02 9e 17 20 20 e7 20 |56.... .|....  . |
|000004f0| 6c 65 6e 3e 32 35 35 20 | 6c 65 6e 3d 32 35 35 0d |len>255 |len=255.|
|00000500| 02 a8 17 20 20 72 65 70 | 25 3d 6c 65 6e 2d a9 20 |...  rep|%=len-. |
|00000510| 74 69 74 6c 65 24 0d 02 | b2 31 20 20 62 25 21 32 |title$..|.1  b%!2|
|00000520| 34 3d a4 73 74 72 64 75 | 70 28 74 69 74 6c 65 24 |4=.strdu|p(title$|
|00000530| 2b c4 72 65 70 25 2c bd | 30 29 29 3a 62 25 21 33 |+.rep%,.|0)):b%!3|
|00000540| 32 3d 6c 65 6e 2b 31 0d | 02 bc 06 20 cd 0d 02 c6 |2=len+1.|... ....|
|00000550| 26 20 62 25 21 32 38 3d | a4 73 74 72 64 75 70 28 |& b%!28=|.strdup(|
|00000560| 76 61 6c 69 64 24 29 3a | 62 25 21 32 30 2b 3d 31 |valid$):|b%!20+=1|
|00000570| 3c 3c 38 0d 02 d0 05 cc | 0d 02 da 14 20 24 28 62 |<<8.....|.... $(b|
|00000580| 25 2b 32 34 29 3d 74 69 | 74 6c 65 24 0d 02 e4 05 |%+24)=ti|tle$....|
|00000590| cd 0d 02 ee 56 e7 20 28 | 28 62 25 21 32 30 29 20 |....V. (|(b%!20) |
|000005a0| 80 20 26 31 30 33 29 3d | 26 33 20 8c 20 85 20 26 |. &103)=|&3 . . &|
|000005b0| 38 30 33 2c 22 43 61 6e | 6e 6f 74 20 6d 61 6b 65 |803,"Can|not make|
|000005c0| 20 61 20 73 70 72 69 74 | 65 2f 74 65 78 74 20 69 | a sprit|e/text i|
|000005d0| 63 6f 6e 20 77 69 74 68 | 6f 75 74 20 76 61 6c 69 |con with|out vali|
|000005e0| 64 61 74 69 6f 6e 22 0d | 02 f8 1e e7 20 28 66 6c |dation".|.... (fl|
|000005f0| 61 67 73 20 80 20 33 29 | 3d 30 20 8c 20 62 25 21 |ags . 3)|=0 . b%!|
|00000600| 32 30 2b 3d 31 0d 03 02 | 2e e7 20 a4 6c 6f 77 65 |20+=1...|.. .lowe|
|00000610| 72 28 c0 76 61 6c 69 64 | 24 2c 31 29 29 3d 22 73 |r(.valid|$,1))="s|
|00000620| 22 20 8c 20 62 25 21 32 | 30 3d 62 25 21 32 30 20 |" . b%!2|0=b%!20 |
|00000630| 84 20 32 0d 03 0c 25 c8 | 99 20 22 57 69 6d 70 5f |. 2...%.|. "Wimp_|
|00000640| 43 72 65 61 74 65 49 63 | 6f 6e 22 2c 2c 62 25 20 |CreateIc|on",,b% |
|00000650| b8 20 68 61 6e 64 6c 65 | 0d 03 16 0b 3d 68 61 6e |. handle|....=han|
|00000660| 64 6c 65 0d 03 20 04 0d | 03 34 37 f4 20 6e 75 6d |dle.. ..|.47. num|
|00000670| 25 3d 6e 6f 2e 20 6f 66 | 20 65 6e 74 72 69 65 73 |%=no. of| entries|
|00000680| 20 69 2e 65 2e 20 6e 6f | 74 20 69 6e 63 6c 75 64 | i.e. no|t includ|
|00000690| 69 6e 67 20 74 68 65 20 | 74 69 74 6c 65 2e 0d 03 |ing the |title...|
|000006a0| 3e 27 dd 20 f2 61 72 72 | 61 79 6d 65 6e 75 28 6d |>'. .arr|aymenu(m|
|000006b0| 61 78 69 74 65 6d 25 2c | 6d 65 6e 75 6e 61 6d 65 |axitem%,|menuname|
|000006c0| 24 2c 6d 25 29 0d 03 48 | 19 de 20 74 65 6d 70 6d |$,m%)..H|.. tempm|
|000006d0| 65 6d 25 a9 20 6d 65 6e | 75 6e 61 6d 65 24 0d 03 |em%. men|uname$..|
|000006e0| 52 17 24 74 65 6d 70 6d | 65 6d 25 3d 6d 65 6e 75 |R.$tempm|em%=menu|
|000006f0| 6e 61 6d 65 24 0d 03 5c | 11 6d 25 21 30 3d 74 65 |name$..\|.m%!0=te|
|00000700| 6d 70 6d 65 6d 25 0d 03 | 66 10 6d 25 21 31 32 3d |mpmem%..|f.m%!12=|
|00000710| 26 37 30 32 30 37 0d 03 | 70 0d 6d 25 21 31 36 3d |&70207..|p.m%!16=|
|00000720| 31 38 30 0d 03 7a 0c 6d | 25 21 32 30 3d 34 34 0d |180..z.m|%!20=44.|
|00000730| 03 84 0b 6d 25 21 32 34 | 3d 30 0d 03 8e 0a 6d 25 |...m%!24|=0....m%|
|00000740| 2b 3d 32 38 0d 03 98 0b | 6c 6f 6f 70 25 3d 30 0d |+=28....|loop%=0.|
|00000750| 03 a2 05 f5 0d 03 ac 0c | 6c 6f 6f 70 25 2b 3d 31 |........|loop%+=1|
|00000760| 0d 03 b6 16 e7 20 6c 6f | 6f 70 25 3e 31 20 8c 20 |..... lo|op%>1 . |
|00000770| 6d 25 2b 3d 32 34 0d 03 | c0 09 6d 30 25 3d 30 0d |m%+=24..|..m0%=0.|
|00000780| 03 ca 1f e7 20 6c 6f 6f | 70 25 3d 6d 61 78 69 74 |.... loo|p%=maxit|
|00000790| 65 6d 25 20 8c 20 6d 30 | 25 2b 3d 26 38 30 0d 03 |em% . m0|%+=&80..|
|000007a0| d4 1f e7 20 6c 6f 6f 70 | 25 3d 31 20 8c 20 6d 30 |... loop|%=1 . m0|
|000007b0| 25 2b 3d 25 31 30 30 30 | 30 30 30 30 30 0d 03 de |%+=%1000|00000...|
|000007c0| 1e 6d 65 6e 75 74 65 78 | 74 24 3d 62 69 67 5f 6d |.menutex|t$=big_m|
|000007d0| 65 6e 75 24 28 6c 6f 6f | 70 25 29 0d 03 e8 47 e7 |enu$(loo|p%)...G.|
|000007e0| 20 c2 6d 65 6e 75 74 65 | 78 74 24 2c 31 29 3d 22 | .menute|xt$,1)="|
|000007f0| 5f 22 20 8c 20 6d 65 6e | 75 74 65 78 74 24 3d c0 |_" . men|utext$=.|
|00000800| 6d 65 6e 75 74 65 78 74 | 24 2c a9 28 6d 65 6e 75 |menutext|$,.(menu|
|00000810| 74 65 78 74 24 29 2d 31 | 29 3a 6d 30 25 2b 3d 25 |text$)-1|):m0%+=%|
|00000820| 31 30 0d 03 f2 46 e7 20 | c2 6d 65 6e 75 74 65 78 |10...F. |.menutex|
|00000830| 74 24 2c 31 29 3d 22 2a | 22 20 8c 20 6d 65 6e 75 |t$,1)="*|" . menu|
|00000840| 74 65 78 74 24 3d c0 6d | 65 6e 75 74 65 78 74 24 |text$=.m|enutext$|
|00000850| 2c a9 28 6d 65 6e 75 74 | 65 78 74 24 29 2d 31 29 |,.(menut|ext$)-1)|
|00000860| 3a 6d 30 25 2b 3d 25 31 | 0d 03 fc 0c 6d 25 21 30 |:m0%+=%1|....m%!0|
|00000870| 3d 6d 30 25 0d 04 06 0b | 6d 25 21 34 3d 2d 31 0d |=m0%....|m%!4=-1.|
|00000880| 04 10 1e 69 6e 6d 65 6e | 75 73 74 72 25 3d a7 6d |...inmen|ustr%=.m|
|00000890| 65 6e 75 74 65 78 74 24 | 2c 22 3e 22 29 0d 04 1a |enutext$|,">")...|
|000008a0| 10 6d 38 25 3d 26 37 30 | 30 30 30 30 31 0d 04 24 |.m8%=&70|00001..$|
|000008b0| 49 e7 20 c2 6d 65 6e 75 | 74 65 78 74 24 2c 31 29 |I. .menu|text$,1)|
|000008c0| 3d 22 3c 22 20 8c 20 6d | 65 6e 75 74 65 78 74 24 |="<" . m|enutext$|
|000008d0| 3d c0 6d 65 6e 75 74 65 | 78 74 24 2c a9 28 6d 65 |=.menute|xt$,.(me|
|000008e0| 6e 75 74 65 78 74 24 29 | 2d 31 29 3a 6d 38 25 2b |nutext$)|-1):m8%+|
|000008f0| 3d 31 3c 3c 32 32 0d 04 | 2e 0c 6d 25 21 38 3d 6d |=1<<22..|..m%!8=m|
|00000900| 38 25 0d 04 38 04 0d 04 | 42 15 e7 20 a9 20 6d 65 |8%..8...|B.. . me|
|00000910| 6e 75 74 65 78 74 24 3e | 31 31 8c 0d 04 4c 1a 20 |nutext$>|11...L. |
|00000920| de 20 74 65 6d 70 6d 65 | 6d 25 a9 20 6d 65 6e 75 |. tempme|m%. menu|
|00000930| 74 65 78 74 24 0d 04 56 | 18 20 24 74 65 6d 70 6d |text$..V|. $tempm|
|00000940| 65 6d 25 3d 6d 65 6e 75 | 74 65 78 74 24 0d 04 60 |em%=menu|text$..`|
|00000950| 14 20 6d 25 21 38 3d 28 | 6d 25 21 38 29 84 32 35 |. m%!8=(|m%!8).25|
|00000960| 36 0d 04 6a 13 20 6d 25 | 21 31 32 3d 74 65 6d 70 |6..j. m%|!12=temp|
|00000970| 6d 65 6d 25 0d 04 74 0d | 20 6d 25 21 31 36 3d 2d |mem%..t.| m%!16=-|
|00000980| 31 0d 04 7e 16 20 6d 25 | 21 32 30 3d a9 20 6d 65 |1..~. m%|!20=. me|
|00000990| 6e 75 74 65 78 74 24 0d | 04 88 05 cc 0d 04 92 17 |nutext$.|........|
|000009a0| 20 24 28 6d 25 2b 31 32 | 29 3d 6d 65 6e 75 74 65 | $(m%+12|)=menute|
|000009b0| 78 74 24 0d 04 9c 05 cd | 0d 04 a6 14 fd 20 6c 6f |xt$.....|..... lo|
|000009c0| 6f 70 25 3d 6d 61 78 69 | 74 65 6d 25 0d 04 b0 05 |op%=maxi|tem%....|
|000009d0| e1 0d 04 ba 0f 3d 6d 65 | 6e 75 62 6c 6f 63 6b 25 |.....=me|nublock%|
|000009e0| 0d 04 c4 06 3a 3a 0d 04 | ce 04 0d ff             |....::..|....    |
+--------+-------------------------+-------------------------+--------+--------+