/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / m / multipi / !MultiPi / !RunImage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1e f4 20 3e 3c | 4d 75 6c 74 69 50 69 24 |..... ><|MultiPi$|
|00000010| 44 69 72 3e 2e 21 52 75 | 6e 49 6d 61 67 65 0d 00 |Dir>.!Ru|nImage..|
|00000020| 15 2c f4 20 42 79 20 50 | 2e 20 4c 75 72 63 6f 63 |.,. By P|. Lurcoc|
|00000030| 6b 2c 20 75 73 69 6e 67 | 20 72 6f 75 74 69 6e 65 |k, using| routine|
|00000040| 73 20 66 72 6f 6d 20 21 | 50 49 0d 00 16 1f f4 20 |s from !|PI..... |
|00000050| 4e 6f 74 20 74 65 73 74 | 65 64 20 77 69 74 68 20 |Not test|ed with |
|00000060| 52 49 53 43 20 4f 53 20 | 32 0d 00 1e 05 3a 0d 00 |RISC OS |2....:..|
|00000070| 28 1b ee 20 85 20 85 20 | a2 20 9f 2c f6 24 2b 22 |(.. . . |. .,.$+"|
|00000080| 20 40 20 22 2b c3 9e 3a | e0 0d 00 32 09 f2 69 6e | @ "+..:|...2..in|
|00000090| 69 74 0d 00 3c 0e ee 20 | 85 20 f2 65 72 72 6f 72 |it..<.. |. .error|
|000000a0| 0d 00 46 0e c8 95 20 71 | 75 69 74 25 3d a3 0d 00 |..F... q|uit%=...|
|000000b0| 50 09 f2 70 6f 6c 6c 0d | 00 5a 05 ce 0d 00 64 16 |P..poll.|.Z....d.|
|000000c0| c8 99 22 57 69 6d 70 5f | 43 6c 6f 73 65 44 6f 77 |.."Wimp_|CloseDow|
|000000d0| 6e 22 0d 00 6e 05 e0 0d | 00 78 05 3a 0d 00 82 1d |n"..n...|.x.:....|
|000000e0| dd 20 a4 72 65 70 6f 72 | 74 28 72 65 70 6f 72 74 |. .repor|t(report|
|000000f0| 24 2c 66 6c 61 67 73 25 | 29 0d 00 8c 29 21 65 72 |$,flags%|)...)!er|
|00000100| 72 62 6c 6f 63 6b 25 3d | 32 35 35 3a 24 28 65 72 |rblock%=|255:$(er|
|00000110| 72 62 6c 6f 63 6b 25 2b | 34 29 3d 72 65 70 6f 72 |rblock%+|4)=repor|
|00000120| 74 24 0d 00 96 3c c8 99 | 22 57 69 6d 70 5f 52 65 |t$...<..|"Wimp_Re|
|00000130| 70 6f 72 74 45 72 72 6f | 72 22 2c 65 72 72 62 6c |portErro|r",errbl|
|00000140| 6f 63 6b 25 2c 66 6c 61 | 67 73 25 2c 65 72 72 6e |ock%,fla|gs%,errn|
|00000150| 61 6d 65 24 20 b8 20 2c | 63 6c 69 63 6b 25 0d 00 |ame$ . ,|click%..|
|00000160| a0 0b 3d 63 6c 69 63 6b | 25 0d 00 aa 05 3a 0d 00 |..=click|%....:..|
|00000170| b4 0c dd 20 f2 65 72 72 | 6f 72 0d 00 be 3a e7 20 |... .err|or...:. |
|00000180| a4 72 65 70 6f 72 74 28 | f6 24 2b 22 20 61 74 20 |.report(|.$+" at |
|00000190| 6c 69 6e 65 20 22 2b c3 | 28 9e 29 2b 22 20 2d 20 |line "+.|(.)+" - |
|000001a0| 71 75 69 74 3f 22 2c 33 | 29 3d 31 20 71 75 69 74 |quit?",3|)=1 quit|
|000001b0| 25 3d 2d 31 0d 00 c8 05 | e1 0d 00 d2 05 3a 0d 00 |%=-1....|.....:..|
|000001c0| dc 0b dd 20 f2 69 6e 69 | 74 0d 00 e6 29 de 20 62 |... .ini|t...). b|
|000001d0| 6c 6f 63 6b 25 20 35 31 | 32 2c 6d 69 73 63 62 25 |lock% 51|2,miscb%|
|000001e0| 20 32 35 36 2c 65 72 72 | 62 6c 6f 63 6b 25 20 32 | 256,err|block% 2|
|000001f0| 35 36 0d 00 f0 1f 71 75 | 69 74 25 3d a3 3a 74 61 |56....qu|it%=.:ta|
|00000200| 73 6b 6e 61 6d 65 24 3d | 22 4d 75 6c 74 69 50 69 |skname$=|"MultiPi|
|00000210| 22 0d 00 fa 1e 65 72 72 | 6e 61 6d 65 24 3d 74 61 |"....err|name$=ta|
|00000220| 73 6b 6e 61 6d 65 24 3a | 62 75 73 79 25 3d a3 0d |skname$:|busy%=..|
|00000230| 01 04 2f c8 99 22 57 69 | 6d 70 5f 49 6e 69 74 69 |../.."Wi|mp_Initi|
|00000240| 61 6c 69 73 65 22 2c 32 | 30 30 2c 26 34 42 35 33 |alise",2|00,&4B53|
|00000250| 34 31 35 34 2c 74 61 73 | 6b 6e 61 6d 65 24 0d 01 |4154,tas|kname$..|
|00000260| 0e 13 f2 69 6e 69 74 5f | 74 65 6d 70 6c 61 74 65 |...init_|template|
|00000270| 73 0d 01 18 25 64 70 70 | 6f 73 25 3d a4 67 65 74 |s...%dpp|os%=.get|
|00000280| 69 6e 64 69 72 28 77 68 | 5f 63 61 6c 63 75 6c 61 |indir(wh|_calcula|
|00000290| 74 65 25 2c 31 29 0d 01 | 22 23 73 61 76 65 70 61 |te%,1)..|"#savepa|
|000002a0| 74 68 25 3d a4 67 65 74 | 69 6e 64 69 72 28 77 68 |th%=.get|indir(wh|
|000002b0| 5f 73 61 76 65 25 2c 31 | 29 0d 01 2c 0e f2 69 6e |_save%,1|)..,..in|
|000002c0| 69 74 5f 6d 65 6e 75 0d | 01 36 0c f2 69 6e 69 74 |it_menu.|.6..init|
|000002d0| 5f 70 69 0d 01 40 1a de | 20 69 62 74 65 78 74 25 |_pi..@..| ibtext%|
|000002e0| 20 31 30 2c 69 62 76 61 | 6c 25 20 31 31 0d 01 4a | 10,ibva|l% 11..J|
|000002f0| 25 24 69 62 74 65 78 74 | 25 3d 22 50 69 22 3a 24 |%$ibtext|%="Pi":$|
|00000300| 69 62 76 61 6c 25 3d 22 | 73 21 6d 75 6c 74 69 70 |ibval%="|s!multip|
|00000310| 69 22 0d 01 54 40 21 62 | 6c 6f 63 6b 25 3d 2d 31 |i"..T@!b|lock%=-1|
|00000320| 3a 62 6c 6f 63 6b 25 21 | 34 3d 30 3a 62 6c 6f 63 |:block%!|4=0:bloc|
|00000330| 6b 25 21 38 3d 2d 31 36 | 3a 62 6c 6f 63 6b 25 21 |k%!8=-16|:block%!|
|00000340| 31 32 3d 36 38 3a 62 6c | 6f 63 6b 25 21 31 36 3d |12=68:bl|ock%!16=|
|00000350| 38 36 0d 01 5e 3a 62 6c | 6f 63 6b 25 21 32 30 3d |86..^:bl|ock%!20=|
|00000360| 26 31 37 30 30 33 31 32 | 42 3a 62 6c 6f 63 6b 25 |&1700312|B:block%|
|00000370| 21 32 34 3d 69 62 74 65 | 78 74 25 3a 62 6c 6f 63 |!24=ibte|xt%:bloc|
|00000380| 6b 25 21 32 38 3d 69 62 | 76 61 6c 25 0d 01 68 39 |k%!28=ib|val%..h9|
|00000390| 62 6c 6f 63 6b 25 21 33 | 32 3d 34 3a c8 99 22 57 |block%!3|2=4:.."W|
|000003a0| 69 6d 70 5f 43 72 65 61 | 74 65 49 63 6f 6e 22 2c |imp_Crea|teIcon",|
|000003b0| 2c 62 6c 6f 63 6b 25 20 | b8 20 69 62 61 72 68 61 |,block% |. ibarha|
|000003c0| 6e 64 6c 65 25 0d 01 72 | 05 e1 0d 01 7c 05 3a 0d |ndle%..r|....|.:.|
|000003d0| 01 86 15 dd 20 f2 69 6e | 69 74 5f 74 65 6d 70 6c |.... .in|it_templ|
|000003e0| 61 74 65 73 0d 01 90 0f | de 20 74 6e 61 6d 65 25 |ates....|. tname%|
|000003f0| 20 31 32 0d 01 9a 36 69 | 64 73 69 7a 65 25 3d 35 | 12...6i|dsize%=5|
|00000400| 30 30 3a de 20 69 64 61 | 74 61 25 20 69 64 73 69 |00:. ida|ta% idsi|
|00000410| 7a 65 25 3a 69 64 6d 61 | 78 25 3d 69 64 61 74 61 |ze%:idma|x%=idata|
|00000420| 25 2b 69 64 73 69 7a 65 | 25 0d 01 a4 34 c8 99 22 |%+idsize|%...4.."|
|00000430| 57 69 6d 70 5f 4f 70 65 | 6e 54 65 6d 70 6c 61 74 |Wimp_Ope|nTemplat|
|00000440| 65 22 2c 2c 22 3c 4d 75 | 6c 74 69 50 69 24 44 69 |e",,"<Mu|ltiPi$Di|
|00000450| 72 3e 2e 54 65 6d 70 6c | 61 74 65 73 22 0d 01 ae |r>.Templ|ates"...|
|00000460| 16 24 74 6e 61 6d 65 25 | 3d 22 70 72 6f 67 49 6e |.$tname%|="progIn|
|00000470| 66 6f 22 0d 01 b8 4f c8 | 99 22 57 69 6d 70 5f 4c |fo"...O.|."Wimp_L|
|00000480| 6f 61 64 54 65 6d 70 6c | 61 74 65 22 2c 2c 62 6c |oadTempl|ate",,bl|
|00000490| 6f 63 6b 25 2c 69 64 61 | 74 61 25 2c 69 64 6d 61 |ock%,ida|ta%,idma|
|000004a0| 78 25 2c 2d 31 2c 74 6e | 61 6d 65 25 2c 30 b8 2c |x%,-1,tn|ame%,0.,|
|000004b0| 2c 69 64 6c 65 66 74 25 | 2c 2c 2c 2c 6e 65 78 74 |,idleft%|,,,,next|
|000004c0| 74 25 0d 01 c2 30 c8 99 | 22 57 69 6d 70 5f 43 72 |t%...0..|"Wimp_Cr|
|000004d0| 65 61 74 65 57 69 6e 64 | 6f 77 22 2c 2c 62 6c 6f |eateWind|ow",,blo|
|000004e0| 63 6b 25 20 b8 20 77 68 | 5f 70 72 6f 67 69 6e 66 |ck% . wh|_proginf|
|000004f0| 6f 25 0d 01 cc 17 24 74 | 6e 61 6d 65 25 3d 22 43 |o%....$t|name%="C|
|00000500| 61 6c 63 75 6c 61 74 65 | 22 0d 01 d6 50 c8 99 22 |alculate|"...P.."|
|00000510| 57 69 6d 70 5f 4c 6f 61 | 64 54 65 6d 70 6c 61 74 |Wimp_Loa|dTemplat|
|00000520| 65 22 2c 2c 62 6c 6f 63 | 6b 25 2c 69 64 6c 65 66 |e",,bloc|k%,idlef|
|00000530| 74 25 2c 69 64 6d 61 78 | 25 2c 2d 31 2c 74 6e 61 |t%,idmax|%,-1,tna|
|00000540| 6d 65 25 2c 30 b8 2c 2c | 69 64 6c 65 66 74 25 2c |me%,0.,,|idleft%,|
|00000550| 2c 2c 2c 6e 65 78 74 74 | 25 0d 01 e0 31 c8 99 22 |,,,nextt|%...1.."|
|00000560| 57 69 6d 70 5f 43 72 65 | 61 74 65 57 69 6e 64 6f |Wimp_Cre|ateWindo|
|00000570| 77 22 2c 2c 62 6c 6f 63 | 6b 25 20 b8 20 77 68 5f |w",,bloc|k% . wh_|
|00000580| 63 61 6c 63 75 6c 61 74 | 65 25 0d 01 ea 12 24 74 |calculat|e%....$t|
|00000590| 6e 61 6d 65 25 3d 22 53 | 61 76 65 22 0d 01 f4 50 |name%="S|ave"...P|
|000005a0| c8 99 22 57 69 6d 70 5f | 4c 6f 61 64 54 65 6d 70 |.."Wimp_|LoadTemp|
|000005b0| 6c 61 74 65 22 2c 2c 62 | 6c 6f 63 6b 25 2c 69 64 |late",,b|lock%,id|
|000005c0| 6c 65 66 74 25 2c 69 64 | 6d 61 78 25 2c 2d 31 2c |left%,id|max%,-1,|
|000005d0| 74 6e 61 6d 65 25 2c 30 | b8 2c 2c 69 64 6c 65 66 |tname%,0|.,,idlef|
|000005e0| 74 25 2c 2c 2c 2c 6e 65 | 78 74 74 25 0d 01 fe 2c |t%,,,,ne|xtt%...,|
|000005f0| c8 99 22 57 69 6d 70 5f | 43 72 65 61 74 65 57 69 |.."Wimp_|CreateWi|
|00000600| 6e 64 6f 77 22 2c 2c 62 | 6c 6f 63 6b 25 20 b8 20 |ndow",,b|lock% . |
|00000610| 77 68 5f 73 61 76 65 25 | 0d 02 08 1a c8 99 22 57 |wh_save%|......"W|
|00000620| 69 6d 70 5f 43 6c 6f 73 | 65 54 65 6d 70 6c 61 74 |imp_Clos|eTemplat|
|00000630| 65 22 0d 02 12 05 e1 0d | 02 1c 05 3a 0d 02 26 10 |e"......|...:..&.|
|00000640| dd 20 f2 69 6e 69 74 5f | 6d 65 6e 75 0d 02 30 0f |. .init_|menu..0.|
|00000650| de 20 6d 65 6e 75 25 20 | 31 36 30 0d 02 3a 14 24 |. menu% |160..:.$|
|00000660| 6d 65 6e 75 25 3d 74 61 | 73 6b 6e 61 6d 65 24 0d |menu%=ta|skname$.|
|00000670| 02 44 2a 6d 65 6e 75 25 | 21 31 32 3d 26 37 30 32 |.D*menu%|!12=&702|
|00000680| 30 37 3a 6d 65 6e 75 25 | 21 32 30 3d 34 34 3a 6d |07:menu%|!20=44:m|
|00000690| 65 6e 75 25 21 32 34 3d | 30 0d 02 4e 36 6d 65 6e |enu%!24=|0..N6men|
|000006a0| 75 25 21 32 38 3d 30 3a | 6d 65 6e 75 25 21 33 32 |u%!28=0:|menu%!32|
|000006b0| 3d 77 68 5f 70 72 6f 67 | 69 6e 66 6f 25 3a 6d 65 |=wh_prog|info%:me|
|000006c0| 6e 75 25 21 33 36 3d 26 | 37 30 30 30 30 32 31 0d |nu%!36=&|7000021.|
|000006d0| 02 58 16 24 28 6d 65 6e | 75 25 2b 34 30 29 3d 22 |.X.$(men|u%+40)="|
|000006e0| 49 6e 66 6f 22 0d 02 62 | 32 6d 65 6e 75 25 21 35 |Info"..b|2menu%!5|
|000006f0| 32 3d 30 3a 6d 65 6e 75 | 25 21 35 36 3d 77 68 5f |2=0:menu|%!56=wh_|
|00000700| 73 61 76 65 25 3a 6d 65 | 6e 75 25 21 36 30 3d 26 |save%:me|nu%!60=&|
|00000710| 37 34 30 30 30 32 31 0d | 02 6c 16 24 28 6d 65 6e |7400021.|.l.$(men|
|00000720| 75 25 2b 36 34 29 3d 22 | 53 61 76 65 22 0d 02 76 |u%+64)="|Save"..v|
|00000730| 2d 6d 65 6e 75 25 21 37 | 36 3d 26 38 30 3a 6d 65 |-menu%!7|6=&80:me|
|00000740| 6e 75 25 21 38 30 3d 30 | 3a 6d 65 6e 75 25 21 38 |nu%!80=0|:menu%!8|
|00000750| 34 3d 26 37 30 30 30 30 | 32 31 0d 02 80 16 24 28 |4=&70000|21....$(|
|00000760| 6d 65 6e 75 25 2b 38 38 | 29 3d 22 51 75 69 74 22 |menu%+88|)="Quit"|
|00000770| 0d 02 8a 10 6d 65 6e 75 | 25 21 31 36 3d 26 35 30 |....menu|%!16=&50|
|00000780| 0d 02 94 05 e1 0d 02 9e | 05 3a 0d 02 a8 0e dd 20 |........|.:..... |
|00000790| f2 69 6e 69 74 5f 70 69 | 0d 02 b2 21 6d 61 78 64 |.init_pi|...!maxd|
|000007a0| 70 25 3d 31 30 30 30 30 | 3a 6d 61 78 64 25 3d 6d |p%=10000|:maxd%=m|
|000007b0| 61 78 64 70 25 2f 34 2b | 32 0d 02 bc 2d de 20 41 |axdp%/4+|2...-. A|
|000007c0| 25 28 6d 61 78 64 25 29 | 2c 42 25 28 6d 61 78 64 |%(maxd%)|,B%(maxd|
|000007d0| 25 29 2c 43 25 28 6d 61 | 78 64 25 29 2c 44 25 28 |%),C%(ma|xd%),D%(|
|000007e0| 6d 61 78 64 25 29 0d 02 | c6 0b 62 75 73 79 25 3d |maxd%)..|..busy%=|
|000007f0| a3 0d 02 d0 05 e1 0d 02 | da 05 3a 0d 02 e4 22 dd |........|..:...".|
|00000800| 20 a4 67 65 74 69 6e 64 | 69 72 28 77 68 61 6e 64 | .getind|ir(whand|
|00000810| 6c 65 25 2c 69 68 61 6e | 64 6c 65 25 29 0d 02 ee |le%,ihan|dle%)...|
|00000820| 26 21 6d 69 73 63 62 25 | 3d 77 68 61 6e 64 6c 65 |&!miscb%|=whandle|
|00000830| 25 3a 6d 69 73 63 62 25 | 21 34 3d 69 68 61 6e 64 |%:miscb%|!4=ihand|
|00000840| 6c 65 25 0d 02 f8 21 c8 | 99 22 57 69 6d 70 5f 47 |le%...!.|."Wimp_G|
|00000850| 65 74 49 63 6f 6e 53 74 | 61 74 65 22 2c 2c 6d 69 |etIconSt|ate",,mi|
|00000860| 73 63 62 25 0d 03 02 10 | 3d 28 6d 69 73 63 62 25 |scb%....|=(miscb%|
|00000870| 21 32 38 29 0d 03 0c 05 | 3a 0d 03 16 0b dd 20 f2 |!28)....|:..... .|
|00000880| 70 6f 6c 6c 0d 03 20 23 | c8 99 22 57 69 6d 70 5f |poll.. #|.."Wimp_|
|00000890| 50 6f 6c 6c 22 2c 2c 62 | 6c 6f 63 6b 25 20 b8 20 |Poll",,b|lock% . |
|000008a0| 72 65 61 73 6f 6e 25 0d | 03 2a 10 c8 8e 20 72 65 |reason%.|.*... re|
|000008b0| 61 73 6f 6e 25 20 ca 0d | 03 34 1c c9 20 30 3a e7 |ason% ..|.4.. 0:.|
|000008c0| 20 62 75 73 79 25 3d b9 | 20 f2 63 61 6c 63 5f 6c | busy%=.| .calc_l|
|000008d0| 6f 6f 70 0d 03 3e 23 c9 | 20 32 3a c8 99 22 57 69 |oop..>#.| 2:.."Wi|
|000008e0| 6d 70 5f 4f 70 65 6e 57 | 69 6e 64 6f 77 22 2c 2c |mp_OpenW|indow",,|
|000008f0| 62 6c 6f 63 6b 25 0d 03 | 48 24 c9 20 33 3a c8 99 |block%..|H$. 3:..|
|00000900| 22 57 69 6d 70 5f 43 6c | 6f 73 65 57 69 6e 64 6f |"Wimp_Cl|oseWindo|
|00000910| 77 22 2c 2c 62 6c 6f 63 | 6b 25 0d 03 52 2c c9 20 |w",,bloc|k%..R,. |
|00000920| 36 3a f2 63 6c 69 63 6b | 28 62 6c 6f 63 6b 25 21 |6:.click|(block%!|
|00000930| 38 2c 62 6c 6f 63 6b 25 | 21 31 32 2c 62 6c 6f 63 |8,block%|!12,bloc|
|00000940| 6b 25 21 31 36 29 0d 03 | 5c 11 c9 20 37 3a f2 73 |k%!16)..|\.. 7:.s|
|00000950| 74 6f 70 64 72 61 67 0d | 03 66 11 c9 20 38 3a f2 |topdrag.|.f.. 8:.|
|00000960| 6b 65 79 70 72 65 73 73 | 0d 03 70 13 c9 20 39 3a |keypress|..p.. 9:|
|00000970| f2 6d 65 6e 75 73 65 6c | 65 63 74 0d 03 7a 14 c9 |.menusel|ect..z..|
|00000980| 20 31 37 2c 31 38 3a f2 | 72 65 63 65 69 76 65 0d | 17,18:.|receive.|
|00000990| 03 84 05 cb 0d 03 8e 05 | e1 0d 03 98 05 3a 0d 03 |........|.....:..|
|000009a0| a2 0e dd 20 f2 72 65 63 | 65 69 76 65 0d 03 ac 12 |... .rec|eive....|
|000009b0| c8 8e 20 62 6c 6f 63 6b | 25 21 31 36 20 ca 0d 03 |.. block|%!16 ...|
|000009c0| b6 0f c9 20 30 3a 71 75 | 69 74 25 3d b9 0d 03 c0 |... 0:qu|it%=....|
|000009d0| 07 c9 20 32 0d 03 ca 1f | f2 64 6f 74 68 65 73 61 |.. 2....|.dothesa|
|000009e0| 76 65 28 a4 7a 74 73 28 | 62 6c 6f 63 6b 25 2b 34 |ve(.zts(|block%+4|
|000009f0| 34 29 29 0d 03 d4 1e 24 | 73 61 76 65 70 61 74 68 |4))....$|savepath|
|00000a00| 25 3d a4 7a 74 73 28 62 | 6c 6f 63 6b 25 2b 34 34 |%=.zts(b|lock%+44|
|00000a10| 29 0d 03 de 2e 62 6c 6f | 63 6b 25 21 31 32 3d 62 |)....blo|ck%!12=b|
|00000a20| 6c 6f 63 6b 25 21 38 3a | 62 6c 6f 63 6b 25 21 31 |lock%!8:|block%!1|
|00000a30| 36 3d 33 3a 21 62 6c 6f | 63 6b 25 3d 32 35 36 0d |6=3:!blo|ck%=256.|
|00000a40| 03 e8 36 c8 99 22 57 69 | 6d 70 5f 53 65 6e 64 4d |..6.."Wi|mp_SendM|
|00000a50| 65 73 73 61 67 65 22 2c | 31 38 2c 62 6c 6f 63 6b |essage",|18,block|
|00000a60| 25 2c 62 6c 6f 63 6b 25 | 21 32 30 2c 62 6c 6f 63 |%,block%|!20,bloc|
|00000a70| 6b 25 21 32 34 0d 03 f2 | 05 cb 0d 03 fc 05 e1 0d |k%!24...|........|
|00000a80| 04 06 05 3a 0d 04 10 10 | dd 20 a4 7a 74 73 28 70 |...:....|. .zts(p|
|00000a90| 6f 73 25 29 0d 04 1a 0a | ea 20 6f 75 74 24 0d 04 |os%)....|. out$..|
|00000aa0| 24 0f c8 95 20 3f 70 6f | 73 25 3c 3e 30 0d 04 2e |$... ?po|s%<>0...|
|00000ab0| 1a 6f 75 74 24 2b 3d bd | 28 3f 70 6f 73 25 29 3a |.out$+=.|(?pos%):|
|00000ac0| 70 6f 73 25 2b 3d 31 0d | 04 38 05 ce 0d 04 42 09 |pos%+=1.|.8....B.|
|00000ad0| 3d 6f 75 74 24 0d 04 4c | 05 3a 0d 04 56 27 dd 20 |=out$..L|.:..V'. |
|00000ae0| f2 63 6c 69 63 6b 28 62 | 75 74 74 6f 6e 25 2c 77 |.click(b|utton%,w|
|00000af0| 68 61 6e 64 6c 65 25 2c | 69 68 61 6e 64 6c 65 25 |handle%,|ihandle%|
|00000b00| 29 0d 04 60 1d e7 20 62 | 75 74 74 6f 6e 25 3d 32 |)..`.. b|utton%=2|
|00000b10| 20 8c 20 f2 6f 70 65 6e | 6d 65 6e 75 3a e1 0d 04 | . .open|menu:...|
|00000b20| 6a 11 c8 8e 20 77 68 61 | 6e 64 6c 65 25 20 ca 0d |j... wha|ndle% ..|
|00000b30| 04 74 33 c9 20 2d 32 3a | c8 99 22 57 69 6d 70 5f |.t3. -2:|.."Wimp_|
|00000b40| 43 72 65 61 74 65 4d 65 | 6e 75 22 2c 2c 77 68 5f |CreateMe|nu",,wh_|
|00000b50| 63 61 6c 63 75 6c 61 74 | 65 25 2c 35 30 30 2c 35 |calculat|e%,500,5|
|00000b60| 30 30 0d 04 7e 2d c9 20 | 77 68 5f 63 61 6c 63 75 |00..~-. |wh_calcu|
|00000b70| 6c 61 74 65 25 3a e7 20 | 69 68 61 6e 64 6c 65 25 |late%:. |ihandle%|
|00000b80| 3d 32 20 8c 20 f2 73 74 | 61 72 74 63 61 6c 63 0d |=2 . .st|artcalc.|
|00000b90| 04 88 1c c9 20 77 68 5f | 73 61 76 65 25 3a c8 8e |.... wh_|save%:..|
|00000ba0| 20 69 68 61 6e 64 6c 65 | 25 20 ca 0d 04 92 2e c9 | ihandle|% ......|
|00000bb0| 20 30 3a e7 20 62 75 74 | 74 6f 6e 25 3d 31 36 20 | 0:. but|ton%=16 |
|00000bc0| 84 20 62 75 74 74 6f 6e | 25 3d 36 34 20 8c 20 f2 |. button|%=64 . .|
|00000bd0| 73 74 61 72 74 64 72 61 | 67 0d 04 9c 12 c9 20 32 |startdra|g..... 2|
|00000be0| 3a f2 71 75 69 63 6b 73 | 61 76 65 0d 04 a6 05 cb |:.quicks|ave.....|
|00000bf0| 0d 04 b0 05 cb 0d 04 ba | 05 e1 0d 04 c4 05 3a 0d |........|......:.|
|00000c00| 04 ce 0f dd 20 f2 6f 70 | 65 6e 6d 65 6e 75 0d 04 |.... .op|enmenu..|
|00000c10| d8 2d 79 70 6f 73 25 3d | 62 6c 6f 63 6b 25 21 34 |.-ypos%=|block%!4|
|00000c20| 3a e7 20 62 6c 6f 63 6b | 25 21 31 32 3d 2d 32 20 |:. block|%!12=-2 |
|00000c30| 8c 20 79 70 6f 73 25 3d | 32 32 38 0d 04 e2 2f c8 |. ypos%=|228.../.|
|00000c40| 99 22 57 69 6d 70 5f 43 | 72 65 61 74 65 4d 65 6e |."Wimp_C|reateMen|
|00000c50| 75 22 2c 2c 6d 65 6e 75 | 25 2c 21 62 6c 6f 63 6b |u",,menu|%,!block|
|00000c60| 25 2d 36 34 2c 79 70 6f | 73 25 0d 04 ec 05 e1 0d |%-64,ypo|s%......|
|00000c70| 04 f6 05 3a 0d 05 00 0f | dd 20 f2 6b 65 79 70 72 |...:....|. .keypr|
|00000c80| 65 73 73 0d 05 0a 12 c8 | 8e 20 62 6c 6f 63 6b 25 |ess.....|. block%|
|00000c90| 21 32 34 20 ca 0d 05 14 | 15 c9 20 31 33 3a c8 8e |!24 ....|.. 13:..|
|00000ca0| 20 21 62 6c 6f 63 6b 25 | 20 ca 0d 05 1e 19 c9 20 | !block%| ...... |
|00000cb0| 77 68 5f 73 61 76 65 25 | 3a f2 71 75 69 63 6b 73 |wh_save%|:.quicks|
|00000cc0| 61 76 65 0d 05 28 1e c9 | 20 77 68 5f 63 61 6c 63 |ave..(..| wh_calc|
|00000cd0| 75 6c 61 74 65 25 3a f2 | 73 74 61 72 74 63 61 6c |ulate%:.|startcal|
|00000ce0| 63 0d 05 32 23 7f 3a c8 | 99 22 57 69 6d 70 5f 50 |c..2#.:.|."Wimp_P|
|00000cf0| 72 6f 63 65 73 73 4b 65 | 79 22 2c 62 6c 6f 63 6b |rocessKe|y",block|
|00000d00| 25 21 32 34 0d 05 3c 05 | cb 0d 05 46 23 7f 3a c8 |%!24..<.|...F#.:.|
|00000d10| 99 22 57 69 6d 70 5f 50 | 72 6f 63 65 73 73 4b 65 |."Wimp_P|rocessKe|
|00000d20| 79 22 2c 62 6c 6f 63 6b | 25 21 32 34 0d 05 50 05 |y",block|%!24..P.|
|00000d30| cb 0d 05 5a 05 e1 0d 05 | 64 05 3a 0d 05 6e 11 dd |...Z....|d.:..n..|
|00000d40| 20 f2 6d 65 6e 75 73 65 | 6c 65 63 74 0d 05 78 10 | .menuse|lect..x.|
|00000d50| c8 8e 20 21 62 6c 6f 63 | 6b 25 20 ca 0d 05 82 0f |.. !bloc|k% .....|
|00000d60| c9 20 32 3a 71 75 69 74 | 25 3d b9 0d 05 8c 05 cb |. 2:quit|%=......|
|00000d70| 0d 05 96 05 e1 0d 05 a0 | 05 3a 0d 05 aa 10 dd 20 |........|.:..... |
|00000d80| f2 73 74 61 72 74 63 61 | 6c 63 0d 05 b4 1b c8 99 |.startca|lc......|
|00000d90| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 4d 65 6e 75 |"Wimp_Cr|eateMenu|
|00000da0| 22 2c 2c 2d 31 0d 05 be | 12 64 70 25 3d bb 28 24 |",,-1...|.dp%=.($|
|00000db0| 64 70 70 6f 73 25 29 0d | 05 c8 24 e7 20 64 70 25 |dppos%).|..$. dp%|
|00000dc0| 3c 31 32 20 8c 20 64 70 | 25 3d 31 32 3a 24 64 70 |<12 . dp|%=12:$dp|
|00000dd0| 70 6f 73 25 3d c3 28 64 | 70 25 29 0d 05 d2 0e 44 |pos%=.(d|p%)....D|
|00000de0| 25 3d 64 70 25 2f 34 2b | 32 0d 05 dc 17 49 54 25 |%=dp%/4+|2....IT%|
|00000df0| 3d 28 64 70 25 2f ab 28 | 32 35 29 2b 35 29 2f 32 |=(dp%/.(|25)+5)/2|
|00000e00| 0d 05 e6 1e 43 25 28 31 | 29 3d 38 30 30 3a 44 25 |....C%(1|)=800:D%|
|00000e10| 28 31 29 3d 39 35 36 30 | 3a 4e 25 3d 2d 31 0d 05 |(1)=9560|:N%=-1..|
|00000e20| f0 1c 4a 25 3d 30 3a 62 | 75 73 79 25 3d b9 3a 6c |..J%=0:b|usy%=.:l|
|00000e30| 6f 6f 70 70 61 72 74 25 | 3d 30 0d 05 fa 05 e1 0d |ooppart%|=0......|
|00000e40| 06 04 05 3a 0d 06 0e 0f | dd 20 f2 66 69 6e 69 73 |...:....|. .finis|
|00000e50| 68 65 64 0d 06 18 1d 62 | 75 73 79 25 3d a3 3a 6d |hed....b|usy%=.:m|
|00000e60| 65 6e 75 25 21 36 30 3d | 26 37 30 30 30 30 32 31 |enu%!60=|&7000021|
|00000e70| 0d 06 22 30 24 69 62 74 | 65 78 74 25 3d 22 44 6f |.."0$ibt|ext%="Do|
|00000e80| 6e 65 22 3a f2 73 65 74 | 69 63 6f 6e 28 2d 31 2c |ne":.set|icon(-1,|
|00000e90| 69 62 61 72 68 61 6e 64 | 6c 65 25 2c 30 2c 30 29 |ibarhand|le%,0,0)|
|00000ea0| 0d 06 2c 2b f4 20 50 52 | 4f 43 64 6f 74 68 65 73 |..,+. PR|OCdothes|
|00000eb0| 61 76 65 28 22 3c 4d 75 | 6c 74 69 50 69 24 44 69 |ave("<Mu|ltiPi$Di|
|00000ec0| 72 3e 2e 50 69 46 69 6c | 65 22 29 0d 06 36 1b 24 |r>.PiFil|e")..6.$|
|00000ed0| 73 61 76 65 70 61 74 68 | 25 3d 22 50 69 5f 22 2b |savepath|%="Pi_"+|
|00000ee0| c3 28 64 70 25 29 0d 06 | 40 26 65 72 72 6e 61 6d |.(dp%)..|@&errnam|
|00000ef0| 65 24 3d 22 4d 65 73 73 | 61 67 65 20 66 72 6f 6d |e$="Mess|age from|
|00000f00| 20 22 2b 74 61 73 6b 6e | 61 6d 65 24 0d 06 4a 44 | "+taskn|ame$..JD|
|00000f10| 64 75 6d 6d 79 25 3d a4 | 72 65 70 6f 72 74 28 22 |dummy%=.|report("|
|00000f20| 50 69 20 63 61 6c 63 75 | 6c 61 74 65 64 20 74 6f |Pi calcu|lated to|
|00000f30| 20 22 2b c3 28 64 70 25 | 29 2b 22 20 64 65 63 69 | "+.(dp%|)+" deci|
|00000f40| 6d 61 6c 20 70 6c 61 63 | 65 73 2e 22 2c 31 37 29 |mal plac|es.",17)|
|00000f50| 0d 06 54 16 65 72 72 6e | 61 6d 65 24 3d 74 61 73 |..T.errn|ame$=tas|
|00000f60| 6b 6e 61 6d 65 24 0d 06 | 5e 05 e1 0d 06 68 05 3a |kname$..|^....h.:|
|00000f70| 0d 06 72 2d dd 20 f2 73 | 65 74 69 63 6f 6e 28 77 |..r-. .s|eticon(w|
|00000f80| 68 61 6e 64 6c 65 25 2c | 69 68 61 6e 64 6c 65 25 |handle%,|ihandle%|
|00000f90| 2c 65 6f 72 25 2c 63 6c | 65 61 72 25 29 0d 06 7c |,eor%,cl|ear%)..||
|00000fa0| 34 21 6d 69 73 63 62 25 | 3d 77 68 61 6e 64 6c 65 |4!miscb%|=whandle|
|00000fb0| 25 3a 6d 69 73 63 62 25 | 21 34 3d 69 68 61 6e 64 |%:miscb%|!4=ihand|
|00000fc0| 6c 65 25 3a 6d 69 73 63 | 62 25 21 38 3d 65 6f 72 |le%:misc|b%!8=eor|
|00000fd0| 25 0d 06 86 32 6d 69 73 | 63 62 25 21 31 32 3d 63 |%...2mis|cb%!12=c|
|00000fe0| 6c 65 61 72 25 3a c8 99 | 22 57 69 6d 70 5f 53 65 |lear%:..|"Wimp_Se|
|00000ff0| 74 49 63 6f 6e 53 74 61 | 74 65 22 2c 2c 6d 69 73 |tIconSta|te",,mis|
|00001000| 63 62 25 0d 06 90 05 e1 | 0d 06 9a 05 3a 0d 06 a4 |cb%.....|....:...|
|00001010| 10 dd 20 f2 63 61 6c 63 | 5f 6c 6f 6f 70 0d 06 ae |.. .calc|_loop...|
|00001020| 18 e7 20 4a 25 3e 49 54 | 25 20 f2 66 69 6e 69 73 |.. J%>IT|% .finis|
|00001030| 68 65 64 3a e1 0d 06 b8 | 2b 6c 6f 6f 70 70 61 72 |hed:....|+looppar|
|00001040| 74 25 2b 3d 31 3a e7 20 | 6c 6f 6f 70 70 61 72 74 |t%+=1:. |looppart|
|00001050| 25 3d 31 33 20 6c 6f 6f | 70 70 61 72 74 25 3d 31 |%=13 loo|ppart%=1|
|00001060| 0d 06 c2 12 c8 8e 20 6c | 6f 6f 70 70 61 72 74 25 |...... l|ooppart%|
|00001070| 20 ca 0d 06 cc 07 c9 20 | 31 0d 06 d6 33 24 69 62 | ...... |1...3$ib|
|00001080| 74 65 78 74 25 3d c3 28 | 49 54 25 2d 4a 25 29 3a |text%=.(|IT%-J%):|
|00001090| f2 73 65 74 69 63 6f 6e | 28 2d 31 2c 69 62 61 72 |.seticon|(-1,ibar|
|000010a0| 68 61 6e 64 6c 65 25 2c | 30 2c 30 29 0d 06 e0 09 |handle%,|0,0)....|
|000010b0| 4e 25 2b 3d 32 0d 06 ea | 0d f2 64 69 76 43 62 79 |N%+=2...|..divCby|
|000010c0| 32 35 0d 06 f4 10 c9 20 | 32 3a f2 64 69 76 43 62 |25..... |2:.divCb|
|000010d0| 79 4e 0d 06 fe 10 c9 20 | 33 3a f2 61 64 64 42 74 |yN..... |3:.addBt|
|000010e0| 6f 41 0d 07 08 14 c9 20 | 34 3a f2 64 69 76 44 62 |oA..... |4:.divDb|
|000010f0| 79 35 37 31 32 31 0d 07 | 12 10 c9 20 35 3a f2 64 |y57121..|... 5:.d|
|00001100| 69 76 44 62 79 4e 0d 07 | 1c 12 c9 20 36 3a f2 73 |ivDbyN..|... 6:.s|
|00001110| 75 62 42 66 72 6f 6d 41 | 0d 07 26 0d c9 20 37 3a |ubBfromA|..&.. 7:|
|00001120| 4e 25 2b 3d 32 0d 07 30 | 0d f2 64 69 76 43 62 79 |N%+=2..0|..divCby|
|00001130| 32 35 0d 07 3a 10 c9 20 | 38 3a f2 64 69 76 43 62 |25..:.. |8:.divCb|
|00001140| 79 4e 0d 07 44 12 c9 20 | 39 3a f2 73 75 62 42 66 |yN..D.. |9:.subBf|
|00001150| 72 6f 6d 41 0d 07 4e 15 | c9 20 31 30 3a f2 64 69 |romA..N.|. 10:.di|
|00001160| 76 44 62 79 35 37 31 32 | 31 0d 07 58 11 c9 20 31 |vDby5712|1..X.. 1|
|00001170| 31 3a f2 64 69 76 44 62 | 79 4e 0d 07 62 11 c9 20 |1:.divDb|yN..b.. |
|00001180| 31 32 3a f2 61 64 64 42 | 74 6f 41 0d 07 6c 09 4a |12:.addB|toA..l.J|
|00001190| 25 2b 3d 31 0d 07 76 05 | cb 0d 07 80 05 e1 0d 07 |%+=1..v.|........|
|000011a0| 8a 05 3a 0d 07 94 0e dd | 20 f2 61 64 64 42 74 6f |..:.....| .addBto|
|000011b0| 41 0d 07 9e 08 43 25 3d | 30 0d 07 a8 13 e3 20 49 |A....C%=|0..... I|
|000011c0| 25 3d 44 25 20 b8 20 31 | 20 88 2d 31 0d 07 b2 17 |%=D% . 1| .-1....|
|000011d0| 53 25 3d 41 25 28 49 25 | 29 2b 42 25 28 49 25 29 |S%=A%(I%|)+B%(I%)|
|000011e0| 2b 43 25 0d 07 bc 1f 43 | 25 3d 53 25 81 31 30 30 |+C%....C|%=S%.100|
|000011f0| 30 30 3a 41 25 28 49 25 | 29 3d 53 25 83 31 30 30 |00:A%(I%|)=S%.100|
|00001200| 30 30 0d 07 c6 05 ed 0d | 07 d0 05 e1 0d 07 da 05 |00......|........|
|00001210| 3a 0d 07 e4 10 dd 20 f2 | 73 75 62 42 66 72 6f 6d |:..... .|subBfrom|
|00001220| 41 0d 07 ee 08 43 25 3d | 30 0d 07 f8 13 e3 20 49 |A....C%=|0..... I|
|00001230| 25 3d 44 25 20 b8 20 31 | 20 88 2d 31 0d 08 02 17 |%=D% . 1| .-1....|
|00001240| 53 25 3d 41 25 28 49 25 | 29 2d 42 25 28 49 25 29 |S%=A%(I%|)-B%(I%)|
|00001250| 2d 43 25 0d 08 0c 26 e7 | 20 53 25 3c 30 20 8c 20 |-C%...&.| S%<0 . |
|00001260| 53 25 3d 53 25 2b 31 30 | 30 30 30 3a 43 25 3d 31 |S%=S%+10|000:C%=1|
|00001270| 3a 8b 20 43 25 3d 30 3a | cd 0d 08 16 13 41 25 28 |:. C%=0:|.....A%(|
|00001280| 49 25 29 3d 53 25 83 31 | 30 30 30 30 0d 08 20 05 |I%)=S%.1|0000.. .|
|00001290| ed 0d 08 2a 05 e1 0d 08 | 34 05 3a 0d 08 3e 0e dd |...*....|4.:..>..|
|000012a0| f2 64 69 76 43 62 79 32 | 35 0d 08 48 08 52 25 3d |.divCby2|5..H.R%=|
|000012b0| 30 0d 08 52 10 e3 20 49 | 25 3d 20 31 20 b8 20 44 |0..R.. I|%= 1 . D|
|000012c0| 25 0d 08 5c 16 43 25 3d | 43 25 28 49 25 29 2b 31 |%..\.C%=|C%(I%)+1|
|000012d0| 30 30 30 30 2a 52 25 0d | 08 66 10 43 25 28 49 25 |0000*R%.|.f.C%(I%|
|000012e0| 29 3d 43 25 81 32 35 0d | 08 70 0c 52 25 3d 43 25 |)=C%.25.|.p.R%=C%|
|000012f0| 83 32 35 0d 08 7a 05 ed | 0d 08 84 05 e1 0d 08 8e |.25..z..|........|
|00001300| 05 3a 0d 08 98 12 dd 20 | f2 64 69 76 44 62 79 35 |.:..... |.divDby5|
|00001310| 37 31 32 31 0d 08 a2 08 | 52 25 3d 30 0d 08 ac 0f |7121....|R%=0....|
|00001320| e3 20 49 25 3d 31 20 b8 | 20 44 25 0d 08 b6 16 43 |. I%=1 .| D%....C|
|00001330| 25 3d 44 25 28 49 25 29 | 2b 31 30 30 30 30 2a 52 |%=D%(I%)|+10000*R|
|00001340| 25 0d 08 c0 13 44 25 28 | 49 25 29 3d 43 25 81 35 |%....D%(|I%)=C%.5|
|00001350| 37 31 32 31 0d 08 ca 0f | 52 25 3d 43 25 83 35 37 |7121....|R%=C%.57|
|00001360| 31 32 31 0d 08 d4 05 ed | 0d 08 de 05 e1 0d 08 e8 |121.....|........|
|00001370| 05 3a 0d 08 f2 0e dd 20 | f2 64 69 76 43 62 79 4e |.:..... |.divCbyN|
|00001380| 0d 08 fc 08 52 25 3d 30 | 0d 09 06 0f e3 20 49 25 |....R%=0|..... I%|
|00001390| 3d 31 20 b8 20 44 25 0d | 09 10 16 43 25 3d 43 25 |=1 . D%.|...C%=C%|
|000013a0| 28 49 25 29 2b 31 30 30 | 30 30 2a 52 25 0d 09 1a |(I%)+100|00*R%...|
|000013b0| 10 42 25 28 49 25 29 3d | 43 25 81 4e 25 0d 09 24 |.B%(I%)=|C%.N%..$|
|000013c0| 0c 52 25 3d 43 25 83 4e | 25 0d 09 2e 05 ed 0d 09 |.R%=C%.N|%.......|
|000013d0| 38 05 e1 0d 09 42 05 3a | 0d 09 4c 0e dd 20 f2 64 |8....B.:|..L.. .d|
|000013e0| 69 76 44 62 79 4e 0d 09 | 56 08 52 25 3d 30 0d 09 |ivDbyN..|V.R%=0..|
|000013f0| 60 0f e3 20 49 25 3d 31 | 20 b8 20 44 25 0d 09 6a |`.. I%=1| . D%..j|
|00001400| 16 43 25 3d 44 25 28 49 | 25 29 2b 31 30 30 30 30 |.C%=D%(I|%)+10000|
|00001410| 2a 52 25 0d 09 74 10 42 | 25 28 49 25 29 3d 43 25 |*R%..t.B|%(I%)=C%|
|00001420| 81 4e 25 0d 09 7e 0c 52 | 25 3d 43 25 83 4e 25 0d |.N%..~.R|%=C%.N%.|
|00001430| 09 88 05 ed 0d 09 92 05 | e1 0d 09 9c 05 3a 0d 09 |........|.....:..|
|00001440| a6 10 dd 20 f2 73 74 61 | 72 74 64 72 61 67 0d 09 |... .sta|rtdrag..|
|00001450| b0 13 ea 20 78 6f 72 69 | 67 25 2c 79 6f 72 69 67 |... xori|g%,yorig|
|00001460| 25 0d 09 ba 14 21 6d 69 | 73 63 62 25 3d 77 68 5f |%....!mi|scb%=wh_|
|00001470| 73 61 76 65 25 0d 09 c4 | 23 c8 99 22 57 69 6d 70 |save%...|#.."Wimp|
|00001480| 5f 47 65 74 57 69 6e 64 | 6f 77 53 74 61 74 65 22 |_GetWind|owState"|
|00001490| 2c 2c 6d 69 73 63 62 25 | 0d 09 ce 1d 78 6f 72 69 |,,miscb%|....xori|
|000014a0| 67 25 3d 6d 69 73 63 62 | 25 21 34 2d 6d 69 73 63 |g%=miscb|%!4-misc|
|000014b0| 62 25 21 32 30 0d 09 d8 | 1e 79 6f 72 69 67 25 3d |b%!20...|.yorig%=|
|000014c0| 6d 69 73 63 62 25 21 31 | 36 2d 6d 69 73 63 62 25 |miscb%!1|6-miscb%|
|000014d0| 21 32 34 0d 09 e2 0e 6d | 69 73 63 62 25 21 34 3d |!24....m|iscb%!4=|
|000014e0| 30 0d 09 ec 21 c8 99 22 | 57 69 6d 70 5f 47 65 74 |0...!.."|Wimp_Get|
|000014f0| 49 63 6f 6e 53 74 61 74 | 65 22 2c 2c 6d 69 73 63 |IconStat|e",,misc|
|00001500| 62 25 0d 09 f6 35 21 6d | 69 73 63 62 25 3d 78 6f |b%...5!m|iscb%=xo|
|00001510| 72 69 67 25 2b 6d 69 73 | 63 62 25 21 38 3a 6d 69 |rig%+mis|cb%!8:mi|
|00001520| 73 63 62 25 21 34 3d 79 | 6f 72 69 67 25 2b 6d 69 |scb%!4=y|orig%+mi|
|00001530| 73 63 62 25 21 31 32 0d | 0a 00 38 6d 69 73 63 62 |scb%!12.|..8miscb|
|00001540| 25 21 38 3d 78 6f 72 69 | 67 25 2b 6d 69 73 63 62 |%!8=xori|g%+miscb|
|00001550| 25 21 31 36 3a 6d 69 73 | 63 62 25 21 31 32 3d 79 |%!16:mis|cb%!12=y|
|00001560| 6f 72 69 67 25 2b 6d 69 | 73 63 62 25 21 32 30 0d |orig%+mi|scb%!20.|
|00001570| 0a 0a 37 c8 99 22 44 72 | 61 67 41 53 70 72 69 74 |..7.."Dr|agASprit|
|00001580| 65 5f 53 74 61 72 74 22 | 2c 25 31 30 30 30 30 31 |e_Start"|,%100001|
|00001590| 30 31 2c 31 2c 22 66 69 | 6c 65 5f 66 66 66 22 2c |01,1,"fi|le_fff",|
|000015a0| 6d 69 73 63 62 25 0d 0a | 14 05 e1 0d 0a 1e 05 3a |miscb%..|.......:|
|000015b0| 0d 0a 28 0f dd 20 f2 73 | 74 6f 70 64 72 61 67 0d |..(.. .s|topdrag.|
|000015c0| 0a 32 18 c8 99 22 44 72 | 61 67 41 53 70 72 69 74 |.2..."Dr|agASprit|
|000015d0| 65 5f 53 74 6f 70 22 0d | 0a 3c 1b c8 99 22 57 69 |e_Stop".|.<..."Wi|
|000015e0| 6d 70 5f 43 72 65 61 74 | 65 4d 65 6e 75 22 2c 2c |mp_Creat|eMenu",,|
|000015f0| 2d 31 0d 0a 46 23 c8 99 | 22 57 69 6d 70 5f 47 65 |-1..F#..|"Wimp_Ge|
|00001600| 74 50 6f 69 6e 74 65 72 | 49 6e 66 6f 22 2c 2c 6d |tPointer|Info",,m|
|00001610| 69 73 63 62 25 0d 0a 50 | 2b 62 6c 6f 63 6b 25 21 |iscb%..P|+block%!|
|00001620| 32 30 3d 6d 69 73 63 62 | 25 21 31 32 3a 62 6c 6f |20=miscb|%!12:blo|
|00001630| 63 6b 25 21 32 34 3d 6d | 69 73 63 62 25 21 31 36 |ck%!24=m|iscb%!16|
|00001640| 0d 0a 5a 28 62 6c 6f 63 | 6b 25 21 32 38 3d 21 6d |..Z(bloc|k%!28=!m|
|00001650| 69 73 63 62 25 3a 62 6c | 6f 63 6b 25 21 33 32 3d |iscb%:bl|ock%!32=|
|00001660| 6d 69 73 63 62 25 21 34 | 0d 0a 64 22 62 6c 6f 63 |miscb%!4|..d"bloc|
|00001670| 6b 25 21 33 36 3d 64 70 | 25 2b 38 3a 62 6c 6f 63 |k%!36=dp|%+8:bloc|
|00001680| 6b 25 21 34 30 3d 26 30 | 66 66 0d 0a 6e 29 24 28 |k%!40=&0|ff..n)$(|
|00001690| 62 6c 6f 63 6b 25 2b 34 | 34 29 3d a4 6c 65 61 66 |block%+4|4)=.leaf|
|000016a0| 6e 61 6d 65 28 24 73 61 | 76 65 70 61 74 68 25 29 |name($sa|vepath%)|
|000016b0| 2b bd 30 0d 0a 78 1b 62 | 6c 6f 63 6b 25 21 31 36 |+.0..x.b|lock%!16|
|000016c0| 3d 31 3a 62 6c 6f 63 6b | 25 21 31 32 3d 30 0d 0a |=1:block|%!12=0..|
|000016d0| 82 2f 21 62 6c 6f 63 6b | 25 3d 28 28 34 38 2b a9 |./!block|%=((48+.|
|000016e0| 28 a4 6c 65 61 66 6e 61 | 6d 65 28 24 73 61 76 65 |(.leafna|me($save|
|000016f0| 70 61 74 68 25 29 29 29 | 81 34 29 2a 34 0d 0a 8c |path%)))|.4)*4...|
|00001700| 36 c8 99 22 57 69 6d 70 | 5f 53 65 6e 64 4d 65 73 |6.."Wimp|_SendMes|
|00001710| 73 61 67 65 22 2c 31 38 | 2c 62 6c 6f 63 6b 25 2c |sage",18|,block%,|
|00001720| 62 6c 6f 63 6b 25 21 32 | 30 2c 62 6c 6f 63 6b 25 |block%!2|0,block%|
|00001730| 21 32 34 0d 0a 96 05 e1 | 0d 0a a0 05 3a 0d 0a aa |!24.....|....:...|
|00001740| 14 dd 20 a4 6c 65 61 66 | 6e 61 6d 65 28 69 6e 24 |.. .leaf|name(in$|
|00001750| 29 0d 0a b4 0f ea 20 6f | 75 74 24 2c 70 6f 73 25 |)..... o|ut$,pos%|
|00001760| 0d 0a be 0f 70 6f 73 25 | 3d a9 28 69 6e 24 29 0d |....pos%|=.(in$).|
|00001770| 0a c8 21 c8 95 20 c1 69 | 6e 24 2c 70 6f 73 25 2c |..!.. .i|n$,pos%,|
|00001780| 31 29 3c 3e 22 2e 22 20 | 80 20 70 6f 73 25 3e 30 |1)<>"." |. pos%>0|
|00001790| 0d 0a d2 0d 70 6f 73 25 | 2d 3d 31 3a ce 0d 0a dc |....pos%|-=1:....|
|000017a0| 11 3d c1 69 6e 24 2c 70 | 6f 73 25 2b 31 29 0d 0a |.=.in$,p|os%+1)..|
|000017b0| e6 05 3a 0d 0a f0 10 dd | 20 f2 71 75 69 63 6b 73 |..:.....| .quicks|
|000017c0| 61 76 65 0d 0a fa 0f ea | 20 73 61 76 65 70 61 74 |ave.....| savepat|
|000017d0| 68 24 0d 0b 04 1b c8 99 | 22 57 69 6d 70 5f 43 72 |h$......|"Wimp_Cr|
|000017e0| 65 61 74 65 4d 65 6e 75 | 22 2c 2c 2d 31 0d 0b 0e |eateMenu|",,-1...|
|000017f0| 18 73 61 76 65 70 61 74 | 68 24 3d 24 73 61 76 65 |.savepat|h$=$save|
|00001800| 70 61 74 68 25 0d 0b 18 | 5d e7 20 a7 73 61 76 65 |path%...|]. .save|
|00001810| 70 61 74 68 24 2c 22 2e | 22 29 3d 30 20 8c 20 64 |path$,".|")=0 . d|
|00001820| 75 6d 6d 79 25 3d a4 72 | 65 70 6f 72 74 28 22 54 |ummy%=.r|eport("T|
|00001830| 6f 20 73 61 76 65 2c 20 | 64 72 61 67 20 74 68 65 |o save, |drag the|
|00001840| 20 69 63 6f 6e 20 74 6f | 20 61 20 64 69 72 65 63 | icon to| a direc|
|00001850| 74 6f 72 79 20 76 69 65 | 77 65 72 2e 22 2c 31 29 |tory vie|wer.",1)|
|00001860| 3a e1 0d 0b 22 19 f2 64 | 6f 74 68 65 73 61 76 65 |:..."..d|othesave|
|00001870| 28 73 61 76 65 70 61 74 | 68 24 29 0d 0b 2c 05 e1 |(savepat|h$)..,..|
|00001880| 0d 0b 36 05 3a 0d 0b 40 | 1a dd f2 64 6f 74 68 65 |..6.:..@|...dothe|
|00001890| 73 61 76 65 28 70 61 74 | 68 6e 61 6d 65 24 29 0d |save(pat|hname$).|
|000018a0| 0b 4a 19 63 68 61 6e 6e | 65 6c 25 3d ae 28 70 61 |.J.chann|el%=.(pa|
|000018b0| 74 68 6e 61 6d 65 24 29 | 0d 0b 54 15 d5 23 63 68 |thname$)|..T..#ch|
|000018c0| 61 6e 6e 65 6c 25 2c 22 | 33 2e 31 22 3b 0d 0b 5e |annel%,"|3.1";..^|
|000018d0| 12 e3 20 6c 6f 6f 70 25 | 3d 32 20 b8 20 44 25 0d |.. loop%|=2 . D%.|
|000018e0| 0b 68 1c d5 23 63 68 61 | 6e 6e 65 6c 25 2c c3 28 |.h..#cha|nnel%,.(|
|000018f0| 41 25 28 6c 6f 6f 70 25 | 29 29 3b 0d 0b 72 0b ed |A%(loop%|));..r..|
|00001900| 20 6c 6f 6f 70 25 0d 0b | 7c 0e d9 23 63 68 61 6e | loop%..||..#chan|
|00001910| 6e 65 6c 25 0d 0b 86 20 | ff 22 53 65 74 54 79 70 |nel%... |."SetTyp|
|00001920| 65 20 22 2b 70 61 74 68 | 6e 61 6d 65 24 2b 22 20 |e "+path|name$+" |
|00001930| 46 46 46 22 0d 0b 90 05 | e1 0d 0b 9a 04 0d ff    |FFF"....|....... |
+--------+-------------------------+-------------------------+--------+--------+