/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / demos / compodemo / Virtualise / !SysMerge / !RUNIMAGE

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 11 f4 20 3e 20 | 21 52 75 6e 49 6d 61 67 |..... > |!RunImag|
|00000010| 65 0d 00 14 48 f4 20 41 | 75 74 68 6f 72 73 20 3a |e...H. A|uthors :|
|00000020| 20 4e 65 69 6c 20 47 61 | 72 64 6e 65 72 2c 20 55 | Neil Ga|rdner, U|
|00000030| 70 64 61 74 65 73 20 62 | 79 20 4a 61 6d 65 73 20 |pdates b|y James |
|00000040| 42 79 65 2e 20 4d 6f 64 | 69 66 69 65 64 20 66 6f |Bye. Mod|ified fo|
|00000050| 72 20 52 69 73 63 20 50 | 43 0d 00 1e 21 76 65 72 |r Risc P|C...!ver|
|00000060| 73 69 6f 6e 24 3d 22 31 | 2e 30 32 64 6a 20 28 31 |sion$="1|.02dj (1|
|00000070| 36 2d 4e 6f 76 2d 39 35 | 29 22 0d 00 28 0f f2 69 |6-Nov-95|)"..(..i|
|00000080| 6e 69 74 69 61 6c 69 73 | 65 0d 00 32 0e ee 20 85 |nitialis|e..2.. .|
|00000090| 20 f2 65 72 72 6f 72 0d | 00 3c 05 f5 0d 00 46 1d | .error.|.<....F.|
|000000a0| 20 c8 99 22 57 69 6d 70 | 5f 50 6f 6c 6c 22 2c 30 | .."Wimp|_Poll",0|
|000000b0| 2c 71 31 25 20 b8 20 72 | 25 0d 00 50 0c 20 c8 8e |,q1% . r|%..P. ..|
|000000c0| 20 72 25 20 ca 0d 00 5a | 23 20 c9 20 30 20 20 20 | r% ...Z|# . 0   |
|000000d0| 20 3a 20 e7 73 74 61 67 | 65 25 3d 33 20 f2 63 6f | : .stag|e%=3 .co|
|000000e0| 70 79 5f 66 69 6c 65 73 | 0d 00 64 26 20 c9 20 32 |py_files|..d& . 2|
|000000f0| 20 20 20 20 3a 20 c8 99 | 22 57 69 6d 70 5f 4f 70 |    : ..|"Wimp_Op|
|00000100| 65 6e 57 69 6e 64 6f 77 | 22 2c 2c 71 31 25 0d 00 |enWindow|",,q1%..|
|00000110| 6e 27 20 c9 20 33 20 20 | 20 20 3a 20 c8 99 22 57 |n' . 3  |  : .."W|
|00000120| 69 6d 70 5f 43 6c 6f 73 | 65 57 69 6e 64 6f 77 22 |imp_Clos|eWindow"|
|00000130| 2c 2c 71 31 25 0d 00 78 | 2d 20 20 20 20 20 20 20 |,,q1%..x|-       |
|00000140| 20 20 20 20 20 20 e7 21 | 71 31 25 3d 53 79 73 55 |      .!|q1%=SysU|
|00000150| 70 64 61 74 65 25 20 f2 | 73 68 75 74 64 6f 77 6e |pdate% .|shutdown|
|00000160| 3a e0 0d 00 82 19 20 c9 | 20 36 20 20 20 20 3a 20 |:..... .| 6    : |
|00000170| f2 6d 6f 75 73 65 63 6c | 69 63 6b 0d 00 8c 19 20 |.mousecl|ick.... |
|00000180| c9 20 37 20 20 20 20 3a | 20 f2 64 65 63 6f 64 65 |. 7    :| .decode|
|00000190| 64 72 61 67 0d 00 96 19 | 20 c9 20 39 20 20 20 20 |drag....| . 9    |
|000001a0| 3a 20 f2 6d 65 6e 75 73 | 65 6c 65 63 74 0d 00 a0 |: .menus|elect...|
|000001b0| 1a 20 c9 20 31 37 2c 31 | 38 3a 20 f2 72 65 63 65 |. . 17,1|8: .rece|
|000001c0| 69 76 65 28 72 25 29 0d | 00 aa 06 20 cb 0d 00 b4 |ive(r%).|... ....|
|000001d0| 07 fd 20 a3 0d 00 be 05 | e0 0d 00 c8 05 3a 0d 00 |.. .....|.....:..|
|000001e0| d2 10 dd f2 69 6e 69 74 | 69 61 6c 69 73 65 0d 00 |....init|ialise..|
|000001f0| dc 20 65 72 72 6f 72 5f | 66 6c 61 67 25 3d 33 3a |. error_|flag%=3:|
|00000200| de 20 6d 79 5f 62 75 66 | 66 25 20 32 35 36 0d 00 |. my_buf|f% 256..|
|00000210| e6 1e de 20 77 73 25 20 | 32 30 34 38 3a 77 73 65 |... ws% |2048:wse|
|00000220| 6e 64 25 3d 77 73 25 2b | 32 30 34 38 0d 00 f0 2a |nd%=ws%+|2048...*|
|00000230| de 20 6d 65 6e 75 66 72 | 65 65 25 20 32 35 36 3a |. menufr|ee% 256:|
|00000240| 6d 65 6e 75 65 6e 64 25 | 3d 6d 65 6e 75 66 72 65 |menuend%|=menufre|
|00000250| 65 25 2b 32 35 36 0d 00 | fa 16 de 20 71 31 25 20 |e%+256..|... q1% |
|00000260| 32 35 36 2c 20 71 32 25 | 20 35 31 32 0d 01 04 30 |256, q2%| 512...0|
|00000270| c8 99 22 57 69 6d 70 5f | 49 6e 69 74 69 61 6c 69 |.."Wimp_|Initiali|
|00000280| 73 65 22 2c 32 30 30 2c | 26 34 42 35 33 34 31 35 |se",200,|&4B53415|
|00000290| 34 2c 22 53 79 73 4d 65 | 72 67 65 22 0d 01 0e 36 |4,"SysMe|rge"...6|
|000002a0| c8 99 22 57 69 6d 70 5f | 4f 70 65 6e 54 65 6d 70 |.."Wimp_|OpenTemp|
|000002b0| 6c 61 74 65 22 2c 2c 22 | 3c 53 79 73 55 70 64 61 |late",,"|<SysUpda|
|000002c0| 74 65 24 44 69 72 3e 2e | 54 65 6d 70 6c 61 74 65 |te$Dir>.|Template|
|000002d0| 73 22 0d 01 18 3d c8 99 | 22 57 69 6d 70 5f 4c 6f |s"...=..|"Wimp_Lo|
|000002e0| 61 64 54 65 6d 70 6c 61 | 74 65 22 2c 2c 71 32 25 |adTempla|te",,q2%|
|000002f0| 2c 77 73 25 2c 77 73 65 | 6e 64 25 2c 2d 31 2c 22 |,ws%,wse|nd%,-1,"|
|00000300| 69 6e 66 6f 22 2c 30 20 | b8 20 2c 2c 77 73 25 0d |info",0 |. ,,ws%.|
|00000310| 01 22 1e 24 28 71 32 25 | 21 28 38 38 2b 39 36 2b |.".$(q2%|!(88+96+|
|00000320| 32 30 29 29 3d 76 65 72 | 73 69 6f 6e 24 0d 01 2c |20))=ver|sion$..,|
|00000330| 26 c8 99 22 57 69 6d 70 | 5f 43 72 65 61 74 65 57 |&.."Wimp|_CreateW|
|00000340| 69 6e 64 6f 77 22 2c 2c | 71 32 25 20 b8 20 69 6e |indow",,|q2% . in|
|00000350| 66 6f 25 0d 01 36 46 c8 | 99 22 57 69 6d 70 5f 4c |fo%..6F.|."Wimp_L|
|00000360| 6f 61 64 54 65 6d 70 6c | 61 74 65 22 2c 2c 71 32 |oadTempl|ate",,q2|
|00000370| 25 2c 77 73 25 2c 77 73 | 65 6e 64 25 2c 2d 31 2c |%,ws%,ws|end%,-1,|
|00000380| 22 73 79 73 74 65 6d 22 | 2c 30 20 b8 20 2c 2c 77 |"system"|,0 . ,,w|
|00000390| 73 25 2c 2c 2c 2c 72 36 | 25 0d 01 40 19 66 69 6c |s%,,,,r6|%..@.fil|
|000003a0| 65 31 25 3d 71 32 25 21 | 28 38 38 2b 36 34 2b 32 |e1%=q2%!|(88+64+2|
|000003b0| 30 29 0d 01 4a 19 66 69 | 6c 65 32 25 3d 71 32 25 |0)..J.fi|le2%=q2%|
|000003c0| 21 28 38 38 2b 39 36 2b | 32 30 29 0d 01 54 1b 70 |!(88+96+|20)..T.p|
|000003d0| 72 6f 6d 70 74 25 3d 71 | 32 25 21 28 38 38 2b 31 |rompt%=q|2%!(88+1|
|000003e0| 32 38 2b 32 30 29 0d 01 | 5e 2b c8 99 22 57 69 6d |28+20)..|^+.."Wim|
|000003f0| 70 5f 43 72 65 61 74 65 | 57 69 6e 64 6f 77 22 2c |p_Create|Window",|
|00000400| 2c 71 32 25 20 b8 20 53 | 79 73 55 70 64 61 74 65 |,q2% . S|ysUpdate|
|00000410| 25 0d 01 68 1a c8 99 22 | 57 69 6d 70 5f 43 6c 6f |%..h..."|Wimp_Clo|
|00000420| 73 65 54 65 6d 70 6c 61 | 74 65 22 0d 01 72 15 6d |seTempla|te"..r.m|
|00000430| 61 69 6e 6d 65 6e 75 25 | 3d a4 63 72 6d 65 6e 75 |ainmenu%|=.crmenu|
|00000440| 0d 01 7c 21 20 dc 22 23 | 53 79 73 4d 65 72 67 65 |..|! ."#|SysMerge|
|00000450| 2c 49 6e 66 6f 3e 69 6e | 66 6f 25 2c 51 75 69 74 |,Info>in|fo%,Quit|
|00000460| 22 0d 01 86 14 f2 69 6e | 69 74 5f 73 79 73 5f 77 |".....in|it_sys_w|
|00000470| 69 6e 64 6f 77 0d 01 90 | 0e 73 61 76 65 72 65 66 |indow...|.saveref|
|00000480| 25 3d 30 0d 01 9a 11 65 | 72 72 6f 72 5f 66 6c 61 |%=0....e|rror_fla|
|00000490| 67 25 3d 33 0d 01 a4 10 | f2 67 65 74 6d 6f 64 65 |g%=3....|.getmode|
|000004a0| 69 6e 66 6f 0d 01 ae 49 | 21 71 31 25 3d 53 79 73 |info...I|!q1%=Sys|
|000004b0| 55 70 64 61 74 65 25 3a | c8 99 22 57 69 6d 70 5f |Update%:|.."Wimp_|
|000004c0| 47 65 74 57 69 6e 64 6f | 77 53 74 61 74 65 22 2c |GetWindo|wState",|
|000004d0| 2c 71 31 25 3a c8 99 22 | 57 69 6d 70 5f 4f 70 65 |,q1%:.."|Wimp_Ope|
|000004e0| 6e 57 69 6e 64 6f 77 22 | 2c 2c 71 31 25 0d 01 b8 |nWindow"|,,q1%...|
|000004f0| 05 e1 0d 01 c2 05 3a 0d | 01 cc 15 dd f2 69 6e 69 |......:.|.....ini|
|00000500| 74 5f 73 79 73 5f 77 69 | 6e 64 6f 77 0d 01 d6 3b |t_sys_wi|ndow...;|
|00000510| c8 99 20 22 4f 53 5f 52 | 65 61 64 56 61 72 56 61 |.. "OS_R|eadVarVa|
|00000520| 6c 22 2c 22 53 79 73 74 | 65 6d 24 64 69 72 22 2c |l","Syst|em$dir",|
|00000530| 6d 79 5f 62 75 66 66 25 | 2c 32 35 36 2c 30 2c 33 |my_buff%|,256,0,3|
|00000540| 20 b8 20 2c 2c 52 32 0d | 01 e0 12 6d 79 5f 62 75 | . ,,R2.|...my_bu|
|00000550| 66 66 25 3f 52 32 3d 31 | 33 0d 01 ea 15 24 66 69 |ff%?R2=1|3....$fi|
|00000560| 6c 65 31 25 3d 24 6d 79 | 5f 62 75 66 66 25 0d 01 |le1%=$my|_buff%..|
|00000570| f4 0e 24 66 69 6c 65 32 | 25 3d 22 22 0d 01 fe 34 |..$file2|%=""...4|
|00000580| 24 70 72 6f 6d 70 74 25 | 3d 22 44 72 61 67 20 74 |$prompt%|="Drag t|
|00000590| 68 65 20 6e 65 77 20 21 | 53 79 73 74 65 6d 20 69 |he new !|System i|
|000005a0| 6e 74 6f 20 74 68 69 73 | 20 77 69 6e 64 6f 77 22 |nto this| window"|
|000005b0| 0d 02 08 0c 73 74 61 67 | 65 25 3d 32 0d 02 12 17 |....stag|e%=2....|
|000005c0| f2 72 65 66 72 65 73 68 | 5f 73 79 73 5f 77 69 6e |.refresh|_sys_win|
|000005d0| 64 6f 77 0d 02 1c 05 e1 | 0d 02 26 05 3a 0d 02 30 |dow.....|..&.:..0|
|000005e0| 11 dd f2 67 65 74 6d 6f | 64 65 69 6e 66 6f 0d 02 |...getmo|deinfo..|
|000005f0| 3a 0d 71 31 25 21 30 20 | 3d 20 34 0d 02 44 0d 71 |:.q1%!0 |= 4..D.q|
|00000600| 31 25 21 34 20 3d 20 35 | 0d 02 4e 0e 71 31 25 21 |1%!4 = 5|..N.q1%!|
|00000610| 38 20 3d 20 31 31 0d 02 | 58 0e 71 31 25 21 31 32 |8 = 11..|X.q1%!12|
|00000620| 3d 20 31 32 0d 02 62 0e | 71 31 25 21 31 36 3d 20 |= 12..b.|q1%!16= |
|00000630| 2d 31 0d 02 6c 26 c8 99 | 22 4f 53 5f 52 65 61 64 |-1..l&..|"OS_Read|
|00000640| 56 64 75 56 61 72 69 61 | 62 6c 65 73 22 2c 71 31 |VduVaria|bles",q1|
|00000650| 25 2c 71 31 25 2b 32 30 | 0d 02 76 13 64 78 25 3d |%,q1%+20|..v.dx%=|
|00000660| 31 3c 3c 28 71 31 25 21 | 32 30 29 0d 02 80 13 64 |1<<(q1%!|20)....d|
|00000670| 79 25 3d 31 3c 3c 28 71 | 31 25 21 32 34 29 0d 02 |y%=1<<(q|1%!24)..|
|00000680| 8a 19 73 63 72 78 31 25 | 3d 28 71 31 25 21 32 38 |..scrx1%|=(q1%!28|
|00000690| 2b 31 29 2a 64 78 25 0d | 02 94 19 73 63 72 79 31 |+1)*dx%.|...scry1|
|000006a0| 25 3d 28 71 31 25 21 33 | 32 2b 31 29 2a 64 79 25 |%=(q1%!3|2+1)*dy%|
|000006b0| 0d 02 9e 05 e1 0d 02 a8 | 05 3a 0d 02 b2 10 dd f2 |........|.:......|
|000006c0| 6d 6f 75 73 65 63 6c 69 | 63 6b 0d 02 bc 08 ea 20 |mousecli|ck..... |
|000006d0| 70 25 0d 02 c6 0d c8 8e | 71 31 25 21 38 20 ca 0d |p%......|q1%!8 ..|
|000006e0| 02 d0 3d c9 32 3a 20 20 | 20 e7 71 31 25 21 31 32 |..=.2:  | .q1%!12|
|000006f0| 3d 53 79 73 55 70 64 61 | 74 65 25 20 f2 64 6f 6d |=SysUpda|te% .dom|
|00000700| 65 6e 75 28 6d 61 69 6e | 6d 65 6e 75 25 2c 21 71 |enu(main|menu%,!q|
|00000710| 31 25 2d 36 34 2c 71 31 | 25 21 34 29 0d 02 da 05 |1%-64,q1|%!4)....|
|00000720| cb 0d 02 e4 05 e1 0d 02 | ee 05 3a 0d 02 f8 10 dd |........|..:.....|
|00000730| f2 64 65 63 6f 64 65 64 | 72 61 67 0d 03 02 20 ea |.decoded|rag... .|
|00000740| 20 66 31 25 2c 66 32 25 | 2c 68 25 2c 69 25 2c 6d | f1%,f2%|,h%,i%,m|
|00000750| 78 25 2c 6d 79 25 2c 65 | 78 74 25 0d 03 0c 34 66 |x%,my%,e|xt%...4f|
|00000760| 31 25 3d 8e 28 22 3c 53 | 79 73 55 70 64 61 74 65 |1%=.("<S|ysUpdate|
|00000770| 24 44 69 72 3e 2e 4f 75 | 74 70 75 74 22 29 3a 65 |$Dir>.Ou|tput"):e|
|00000780| 78 74 25 3d a2 23 66 31 | 25 3a d9 23 66 31 25 0d |xt%=.#f1|%:.#f1%.|
|00000790| 03 16 11 66 31 25 3d 66 | 69 6c 65 6e 61 6d 65 25 |...f1%=f|ilename%|
|000007a0| 0d 03 20 05 f5 0d 03 2a | 0c 20 66 32 25 3d 66 31 |.. ....*|. f2%=f1|
|000007b0| 25 0d 03 34 14 20 66 31 | 25 2b 3d a7 24 66 31 25 |%..4. f1|%+=.$f1%|
|000007c0| 2c 22 2e 22 29 0d 03 3e | 0d fd 20 66 31 25 3d 66 |,".")..>|.. f1%=f|
|000007d0| 32 25 0d 03 48 20 c8 99 | 22 57 69 6d 70 5f 47 65 |2%..H ..|"Wimp_Ge|
|000007e0| 74 50 6f 69 6e 74 65 72 | 49 6e 66 6f 22 2c 2c 71 |tPointer|Info",,q|
|000007f0| 31 25 0d 03 52 0c 6d 78 | 25 3d 21 71 31 25 0d 03 |1%..R.mx|%=!q1%..|
|00000800| 5c 0d 6d 79 25 3d 71 31 | 25 21 34 0d 03 66 0d 68 |\.my%=q1|%!4..f.h|
|00000810| 25 3d 71 31 25 21 31 32 | 0d 03 70 0d 69 25 3d 71 |%=q1%!12|..p.i%=q|
|00000820| 31 25 21 31 36 0d 03 7a | 16 21 71 31 25 3d 28 34 |1%!16..z|.!q1%=(4|
|00000830| 38 2b a9 24 66 31 25 29 | 80 ac 33 0d 03 84 0c 71 |8+.$f1%)|..3....q|
|00000840| 31 25 21 31 32 3d 30 0d | 03 8e 0c 71 31 25 21 31 |1%!12=0.|...q1%!1|
|00000850| 36 3d 31 0d 03 98 0d 71 | 31 25 21 32 30 3d 68 25 |6=1....q|1%!20=h%|
|00000860| 0d 03 a2 0d 71 31 25 21 | 32 34 3d 69 25 0d 03 ac |....q1%!|24=i%...|
|00000870| 0e 71 31 25 21 32 38 3d | 6d 78 25 0d 03 b6 0e 71 |.q1%!28=|mx%....q|
|00000880| 31 25 21 33 32 3d 6d 79 | 25 0d 03 c0 0f 71 31 25 |1%!32=my|%....q1%|
|00000890| 21 33 36 3d 65 78 74 25 | 0d 03 ca 0f 71 31 25 21 |!36=ext%|....q1%!|
|000008a0| 34 30 3d 26 46 46 46 0d | 03 d4 12 24 28 71 31 25 |40=&FFF.|...$(q1%|
|000008b0| 2b 34 34 29 3d 24 66 31 | 25 0d 03 de 1a 3f 28 71 |+44)=$f1|%....?(q|
|000008c0| 31 25 2b 34 34 2b a9 24 | 28 71 31 25 2b 34 34 29 |1%+44+.$|(q1%+44)|
|000008d0| 29 3d 30 0d 03 e8 25 c8 | 99 22 57 69 6d 70 5f 53 |)=0...%.|."Wimp_S|
|000008e0| 65 6e 64 4d 65 73 73 61 | 67 65 22 2c 31 37 2c 71 |endMessa|ge",17,q|
|000008f0| 31 25 2c 68 25 2c 69 25 | 0d 03 f2 12 73 61 76 65 |1%,h%,i%|....save|
|00000900| 72 65 66 25 3d 71 31 25 | 21 38 0d 03 fc 05 e1 0d |ref%=q1%|!8......|
|00000910| 04 06 05 3a 0d 04 10 16 | dd f2 64 6f 6d 65 6e 75 |...:....|..domenu|
|00000920| 28 68 25 2c 78 25 2c 79 | 25 29 0d 04 1a 24 6d 65 |(h%,x%,y|%)...$me|
|00000930| 6e 75 64 61 74 61 25 3d | 68 25 3a 6d 65 6e 75 78 |nudata%=|h%:menux|
|00000940| 25 3d 78 25 3a 6d 65 6e | 75 79 25 3d 79 25 0d 04 |%=x%:men|uy%=y%..|
|00000950| 24 21 c8 99 22 57 69 6d | 70 5f 43 72 65 61 74 65 |$!.."Wim|p_Create|
|00000960| 4d 65 6e 75 22 2c 2c 68 | 25 2c 78 25 2c 79 25 0d |Menu",,h|%,x%,y%.|
|00000970| 04 2e 05 e1 0d 04 38 05 | 3a 0d 04 42 10 dd f2 6d |......8.|:..B...m|
|00000980| 65 6e 75 73 65 6c 65 63 | 74 0d 04 4c 0b ea 20 61 |enuselec|t..L.. a|
|00000990| 24 2c 69 25 0d 04 56 38 | c8 99 22 57 69 6d 70 5f |$,i%..V8|.."Wimp_|
|000009a0| 44 65 63 6f 64 65 4d 65 | 6e 75 22 2c 2c 6d 65 6e |DecodeMe|nu",,men|
|000009b0| 75 64 61 74 61 25 2c 71 | 31 25 2c c4 32 30 30 2c |udata%,q|1%,.200,|
|000009c0| 22 20 22 29 20 b8 20 2c | 2c 2c 61 24 0d 04 60 0c |" ") . ,|,,a$..`.|
|000009d0| e7 61 24 3d 22 22 20 e1 | 0d 04 6a 1a e7 61 24 3d |.a$="" .|..j..a$=|
|000009e0| 22 51 75 69 74 22 20 f2 | 73 68 75 74 64 6f 77 6e |"Quit" .|shutdown|
|000009f0| 3a e0 0d 04 74 05 e1 0d | 04 7e 05 3a 0d 04 88 0e |:...t...|.~.:....|
|00000a00| dd a4 72 74 6f 7a 28 70 | 25 29 0d 04 92 08 ea 20 |..rtoz(p|%)..... |
|00000a10| 71 24 0d 04 9c 1e c8 95 | 20 3f 70 25 3c 3e 30 20 |q$......| ?p%<>0 |
|00000a20| 71 24 2b 3d bd 3f 70 25 | 3a 70 25 2b 3d 31 3a ce |q$+=.?p%|:p%+=1:.|
|00000a30| 0d 04 a6 07 3d 71 24 0d | 04 b0 05 3a 0d 04 ba 11 |....=q$.|...:....|
|00000a40| dd f2 72 65 63 65 69 76 | 65 28 72 25 29 0d 04 c4 |..receiv|e(r%)...|
|00000a50| 11 ea 20 6e 61 6d 65 24 | 2c 69 25 2c 78 25 0d 04 |.. name$|,i%,x%..|
|00000a60| ce 0f c8 8e 20 71 31 25 | 21 31 36 20 ca 0d 04 d8 |.... q1%|!16 ....|
|00000a70| 13 c9 30 3a 20 f2 73 68 | 75 74 64 6f 77 6e 3a e0 |..0: .sh|utdown:.|
|00000a80| 0d 04 e2 39 c9 31 3a 20 | f4 20 66 69 6c 65 20 64 |...9.1: |. file d|
|00000a90| 72 6f 70 70 65 64 20 66 | 72 6f 6d 20 61 70 70 6c |ropped f|rom appl|
|00000aa0| 69 63 61 74 69 6f 6e 20 | 2d 20 72 65 74 75 72 6e |ication |- return|
|00000ab0| 20 66 69 6c 65 6e 61 6d | 65 0d 04 ec 33 20 20 20 | filenam|e...3   |
|00000ac0| 20 20 20 20 f2 6f 6b 28 | 22 41 70 70 6c 69 63 61 |    .ok(|"Applica|
|00000ad0| 74 69 6f 6e 20 64 61 74 | 61 20 63 61 6e 6e 6f 74 |tion dat|a cannot|
|00000ae0| 20 62 65 20 6d 65 72 67 | 65 64 22 29 0d 04 f6 0c | be merg|ed")....|
|00000af0| 20 20 20 20 20 20 20 e1 | 0d 05 00 33 c9 33 3a 20 |       .|...3.3: |
|00000b00| f4 20 66 69 6c 65 20 64 | 72 6f 70 70 65 64 20 66 |. file d|ropped f|
|00000b10| 72 6f 6d 20 46 69 6c 65 | 72 20 2d 20 69 64 65 6e |rom File|r - iden|
|00000b20| 74 69 66 79 20 6f 62 6a | 65 63 74 0d 05 0a 11 20 |tify obj|ect.... |
|00000b30| 20 c8 8e 20 73 74 61 67 | 65 25 20 ca 0d 05 14 15 | .. stag|e% .....|
|00000b40| 20 20 c9 31 3a 20 f2 63 | 68 65 63 6b 5f 74 79 70 |  .1: .c|heck_typ|
|00000b50| 65 0d 05 1e 22 20 20 20 | 20 20 20 20 20 20 24 66 |e..."   |      $f|
|00000b60| 69 6c 65 31 25 3d a4 72 | 74 6f 7a 28 71 31 25 2b |ile1%=.r|toz(q1%+|
|00000b70| 34 34 29 0d 05 28 3d 20 | 20 20 20 20 20 20 20 20 |44)..(= |        |
|00000b80| 24 70 72 6f 6d 70 74 25 | 3d 22 44 72 61 67 20 74 |$prompt%|="Drag t|
|00000b90| 68 65 20 6e 65 77 20 21 | 53 79 73 74 65 6d 20 69 |he new !|System i|
|00000ba0| 6e 74 6f 20 74 68 69 73 | 20 77 69 6e 64 6f 77 22 |nto this| window"|
|00000bb0| 0d 05 32 20 20 20 20 20 | 20 20 20 20 20 f2 72 65 |..2     |     .re|
|00000bc0| 66 72 65 73 68 5f 73 79 | 73 5f 77 69 6e 64 6f 77 |fresh_sy|s_window|
|00000bd0| 0d 05 3c 15 20 20 20 20 | 20 20 20 20 20 73 74 61 |..<.    |     sta|
|00000be0| 67 65 25 3d 32 0d 05 46 | 15 20 20 c9 32 3a 20 f2 |ge%=2..F|.  .2: .|
|00000bf0| 63 68 65 63 6b 5f 74 79 | 70 65 0d 05 50 22 20 20 |check_ty|pe..P"  |
|00000c00| 20 20 20 20 20 20 20 24 | 66 69 6c 65 32 25 3d a4 |       $|file2%=.|
|00000c10| 72 74 6f 7a 28 71 31 25 | 2b 34 34 29 0d 05 5a 1f |rtoz(q1%|+44)..Z.|
|00000c20| 20 20 20 20 20 20 20 20 | 20 e7 24 66 69 6c 65 31 |        | .$file1|
|00000c30| 25 3d 24 66 69 6c 65 32 | 25 20 8c 0d 05 64 1e 20 |%=$file2|% ...d. |
|00000c40| 20 20 20 20 20 20 20 20 | 20 f2 69 6e 69 74 5f 73 |        | .init_s|
|00000c50| 79 73 5f 77 69 6e 64 6f | 77 0d 05 6e 2c 20 20 20 |ys_windo|w..n,   |
|00000c60| 20 20 20 20 20 20 20 f2 | 6f 6b 28 22 54 68 65 20 |       .|ok("The |
|00000c70| 66 69 6c 65 73 20 61 72 | 65 20 69 64 65 6e 74 69 |files ar|e identi|
|00000c80| 63 61 6c 22 29 0d 05 78 | 0e 20 20 20 20 20 20 20 |cal")..x|.       |
|00000c90| 20 20 cd 0d 05 82 38 20 | 20 20 20 20 20 20 20 20 |  ....8 |        |
|00000ca0| 24 70 72 6f 6d 70 74 25 | 3d 22 50 6c 65 61 73 65 |$prompt%|="Please|
|00000cb0| 20 77 61 69 74 20 2e 2e | 2e 20 70 72 6f 63 65 73 | wait ..|. proces|
|00000cc0| 73 69 6e 67 20 66 69 6c | 65 73 22 0d 05 8c 20 20 |sing fil|es"...  |
|00000cd0| 20 20 20 20 20 20 20 20 | f2 72 65 66 72 65 73 68 |        |.refresh|
|00000ce0| 5f 73 79 73 5f 77 69 6e | 64 6f 77 0d 05 96 15 20 |_sys_win|dow.... |
|00000cf0| 20 20 20 20 20 20 20 20 | 73 74 61 67 65 25 3d 33 |        |stage%=3|
|00000d00| 0d 05 a0 07 20 20 cb 0d | 05 aa 1c c9 26 35 30 32 |....  ..|....&502|
|00000d10| 3a 20 f2 69 6e 74 65 72 | 61 63 74 69 76 65 5f 68 |: .inter|active_h|
|00000d20| 65 6c 70 0d 05 b4 19 c9 | 26 34 30 30 43 31 3a 20 |elp.....|&400C1: |
|00000d30| f2 67 65 74 6d 6f 64 65 | 69 6e 66 6f 0d 05 be 05 |.getmode|info....|
|00000d40| cb 0d 05 c8 05 e1 0d 05 | d2 05 3a 0d 05 dc 16 dd |........|..:.....|
|00000d50| f2 69 6e 74 65 72 61 63 | 74 69 76 65 5f 68 65 6c |.interac|tive_hel|
|00000d60| 70 0d 05 e6 08 ea 20 74 | 24 0d 05 f0 0f c8 8e 20 |p..... t|$...... |
|00000d70| 71 31 25 21 33 32 20 ca | 0d 05 fa 34 c9 53 79 73 |q1%!32 .|...4.Sys|
|00000d80| 55 70 64 61 74 65 25 3a | 20 74 24 3d 22 54 68 69 |Update%:| t$="Thi|
|00000d90| 73 20 69 73 20 74 68 65 | 20 53 79 73 4d 65 72 67 |s is the| SysMerg|
|00000da0| 65 20 77 69 6e 64 6f 77 | 2e 7c 4d 22 0d 06 04 10 |e window|.|M"....|
|00000db0| 20 c8 8e 20 73 74 61 67 | 65 25 20 ca 0d 06 0e 2f | .. stag|e% ..../|
|00000dc0| 20 c9 31 3a 20 74 24 2b | 3d 22 44 72 6f 70 20 74 | .1: t$+|="Drop t|
|00000dd0| 68 65 20 6f 72 69 67 69 | 6e 61 6c 20 21 53 79 73 |he origi|nal !Sys|
|00000de0| 74 65 6d 20 6f 6e 20 69 | 74 2e 22 0d 06 18 2a 20 |tem on i|t."...* |
|00000df0| c9 32 3a 20 74 24 2b 3d | 22 44 72 6f 70 20 74 68 |.2: t$+=|"Drop th|
|00000e00| 65 20 6e 65 77 20 21 53 | 79 73 74 65 6d 20 6f 6e |e new !S|ystem on|
|00000e10| 20 69 74 2e 22 0d 06 22 | 52 20 c9 34 3a 20 74 24 | it.".."|R .4: t$|
|00000e20| 2b 3d 22 21 53 79 73 74 | 65 6d 20 75 70 64 61 74 |+="!Syst|em updat|
|00000e30| 65 20 77 61 73 20 73 75 | 63 63 65 73 73 66 75 6c |e was su|ccessful|
|00000e40| 2e 7c 4d 43 6c 69 63 6b | 20 53 45 4c 45 43 54 20 |.|MClick| SELECT |
|00000e50| 6f 6e 20 63 6c 6f 73 65 | 20 69 63 6f 6e 20 74 6f |on close| icon to|
|00000e60| 20 71 75 69 74 2e 22 0d | 06 2c 06 20 cb 0d 06 36 | quit.".|.,. ...6|
|00000e70| 05 cb 0d 06 40 0d e7 74 | 24 3c 3e 22 22 20 8c 0d |....@..t|$<>"" ..|
|00000e80| 06 4a 11 20 71 31 25 21 | 31 32 3d 71 31 25 21 38 |.J. q1%!|12=q1%!8|
|00000e90| 0d 06 54 10 20 71 31 25 | 21 31 36 3d 26 35 30 33 |..T. q1%|!16=&503|
|00000ea0| 0d 06 5e 14 20 24 28 71 | 31 25 2b 32 30 29 3d 74 |..^. $(q|1%+20)=t|
|00000eb0| 24 2b bd 30 0d 06 68 15 | 20 21 71 31 25 3d 28 32 |$+.0..h.| !q1%=(2|
|00000ec0| 35 2b a9 74 24 29 80 ac | 33 0d 06 72 26 20 c8 99 |5+.t$)..|3..r& ..|
|00000ed0| 22 57 69 6d 70 5f 53 65 | 6e 64 4d 65 73 73 61 67 |"Wimp_Se|ndMessag|
|00000ee0| 65 22 2c 31 37 2c 71 31 | 25 2c 71 31 25 21 34 0d |e",17,q1|%,q1%!4.|
|00000ef0| 06 7c 05 cd 0d 06 86 05 | e1 0d 06 90 05 3a 0d 06 |.|......|.....:..|
|00000f00| 9a 10 dd f2 63 68 65 63 | 6b 5f 74 79 70 65 0d 06 |....chec|k_type..|
|00000f10| a4 6b e7 71 31 25 21 34 | 30 3c 3e 26 32 30 30 30 |.k.q1%!4|0<>&2000|
|00000f20| 20 84 20 c2 a4 75 70 70 | 65 72 28 a4 72 74 6f 7a | . ..upp|er(.rtoz|
|00000f30| 28 71 31 25 2b 34 34 29 | 29 2c 38 29 3c 3e 22 2e |(q1%+44)|),8)<>".|
|00000f40| 21 53 59 53 54 45 4d 22 | 20 8c 20 f2 6f 6b 28 22 |!SYSTEM"| . .ok("|
|00000f50| 54 68 69 73 20 69 73 20 | 6e 6f 74 20 61 20 73 79 |This is |not a sy|
|00000f60| 73 74 65 6d 20 72 65 73 | 6f 75 72 63 65 20 64 69 |stem res|ource di|
|00000f70| 72 65 63 74 6f 72 79 22 | 29 0d 06 ae 05 e1 0d 06 |rectory"|).......|
|00000f80| b8 05 3a 0d 06 c2 18 dd | f2 72 65 66 72 65 73 68 |..:.....|.refresh|
|00000f90| 5f 73 79 73 5f 77 69 6e | 64 6f 77 0d 06 cc 47 21 |_sys_win|dow...G!|
|00000fa0| 71 32 25 3d 53 79 73 55 | 70 64 61 74 65 25 3a 71 |q2%=SysU|pdate%:q|
|00000fb0| 32 25 21 34 3d 32 3a 71 | 32 25 21 38 3d 30 3a 71 |2%!4=2:q|2%!8=0:q|
|00000fc0| 32 25 21 31 32 3d 30 3a | c8 99 22 57 69 6d 70 5f |2%!12=0:|.."Wimp_|
|00000fd0| 53 65 74 49 63 6f 6e 53 | 74 61 74 65 22 2c 2c 71 |SetIconS|tate",,q|
|00000fe0| 32 25 0d 06 d6 47 21 71 | 32 25 3d 53 79 73 55 70 |2%...G!q|2%=SysUp|
|00000ff0| 64 61 74 65 25 3a 71 32 | 25 21 34 3d 33 3a 71 32 |date%:q2|%!4=3:q2|
|00001000| 25 21 38 3d 30 3a 71 32 | 25 21 31 32 3d 30 3a c8 |%!8=0:q2|%!12=0:.|
|00001010| 99 22 57 69 6d 70 5f 53 | 65 74 49 63 6f 6e 53 74 |."Wimp_S|etIconSt|
|00001020| 61 74 65 22 2c 2c 71 32 | 25 0d 06 e0 47 21 71 32 |ate",,q2|%...G!q2|
|00001030| 25 3d 53 79 73 55 70 64 | 61 74 65 25 3a 71 32 25 |%=SysUpd|ate%:q2%|
|00001040| 21 34 3d 34 3a 71 32 25 | 21 38 3d 30 3a 71 32 25 |!4=4:q2%|!8=0:q2%|
|00001050| 21 31 32 3d 30 3a c8 99 | 22 57 69 6d 70 5f 53 65 |!12=0:..|"Wimp_Se|
|00001060| 74 49 63 6f 6e 53 74 61 | 74 65 22 2c 2c 71 32 25 |tIconSta|te",,q2%|
|00001070| 0d 06 ea 05 e1 0d 06 f4 | 05 3a 0d 06 fe 0e dd f2 |........|.:......|
|00001080| 73 68 75 74 64 6f 77 6e | 0d 07 08 16 c8 99 22 57 |shutdown|......"W|
|00001090| 69 6d 70 5f 43 6c 6f 73 | 65 44 6f 77 6e 22 0d 07 |imp_Clos|eDown"..|
|000010a0| 12 05 e1 0d 07 1c 05 3a | 0d 07 26 0b dd f2 65 72 |.......:|..&...er|
|000010b0| 72 6f 72 0d 07 30 14 e7 | 65 72 72 6f 72 5f 66 6c |ror..0..|error_fl|
|000010c0| 61 67 25 3d 33 20 8c 0d | 07 3a 37 20 f2 65 72 72 |ag%=3 ..|.:7 .err|
|000010d0| 6f 72 62 6f 78 28 22 55 | 6e 65 78 70 65 63 74 65 |orbox("U|nexpecte|
|000010e0| 64 20 65 72 72 6f 72 20 | 3a 2d 20 22 2b f6 24 2b |d error |:- "+.$+|
|000010f0| 22 20 28 22 2b c3 28 9e | 29 2b 22 29 22 29 0d 07 |" ("+.(.|)+")")..|
|00001100| 44 05 cc 0d 07 4e 12 20 | f2 65 72 72 6f 72 62 6f |D....N. |.errorbo|
|00001110| 78 28 f6 24 29 0d 07 58 | 05 cd 0d 07 62 11 65 72 |x(.$)..X|....b.er|
|00001120| 72 6f 72 5f 66 6c 61 67 | 25 3d 33 0d 07 6c 05 e1 |ror_flag|%=3..l..|
|00001130| 0d 07 76 05 3a 0d 07 80 | 0c dd f2 6f 6b 28 65 24 |..v.:...|...ok(e$|
|00001140| 29 0d 07 8a 11 65 72 72 | 6f 72 5f 66 6c 61 67 25 |)....err|or_flag%|
|00001150| 3d 31 0d 07 94 0a 85 20 | 31 2c 65 24 0d 07 9e 05 |=1..... |1,e$....|
|00001160| e1 0d 07 a8 05 3a 0d 07 | b2 0f dd f2 66 61 74 61 |.....:..|....fata|
|00001170| 6c 28 65 24 29 0d 07 bc | 11 65 72 72 6f 72 5f 66 |l(e$)...|.error_f|
|00001180| 6c 61 67 25 3d 32 0d 07 | c6 0a 85 20 31 2c 65 24 |lag%=2..|... 1,e$|
|00001190| 0d 07 d0 05 e1 0d 07 da | 05 3a 0d 07 e4 12 dd f2 |........|.:......|
|000011a0| 65 72 72 6f 72 62 6f 78 | 28 72 24 29 0d 07 ee 08 |errorbox|(r$)....|
|000011b0| ea 20 72 25 0d 07 f8 19 | 21 71 31 25 3d 9f 3a 24 |. r%....|!q1%=.:$|
|000011c0| 28 71 31 25 2b 34 29 3d | 72 24 2b bd 30 0d 08 02 |(q1%+4)=|r$+.0...|
|000011d0| 41 c8 99 22 57 69 6d 70 | 5f 52 65 70 6f 72 74 45 |A.."Wimp|_ReportE|
|000011e0| 72 72 6f 72 22 2c 71 31 | 25 2c 65 72 72 6f 72 5f |rror",q1|%,error_|
|000011f0| 66 6c 61 67 25 2c 22 53 | 79 73 4d 65 72 67 65 20 |flag%,"S|ysMerge |
|00001200| 75 74 69 6c 69 74 79 22 | 20 b8 20 2c 72 25 0d 08 |utility"| . ,r%..|
|00001210| 0c 1e e7 72 25 3d 32 20 | c8 99 22 57 69 6d 70 5f |...r%=2 |.."Wimp_|
|00001220| 43 6c 6f 73 65 44 6f 77 | 6e 22 3a e0 0d 08 16 05 |CloseDow|n":.....|
|00001230| e1 0d 08 20 05 3a 0d 08 | 2a 0c dd a4 63 72 6d 65 |... .:..|*...crme|
|00001240| 6e 75 0d 08 34 11 ea 20 | 6d 25 2c 6d 65 6e 75 24 |nu..4.. |m%,menu$|
|00001250| 2c 6d 24 0d 08 3e 36 e7 | 20 28 6d 65 6e 75 66 72 |,m$..>6.| (menufr|
|00001260| 65 65 25 2b 32 38 3e 6d | 65 6e 75 65 6e 64 25 29 |ee%+28>m|enuend%)|
|00001270| 20 f2 66 61 74 61 6c 28 | 22 4d 65 6e 75 20 61 72 | .fatal(|"Menu ar|
|00001280| 65 61 20 66 75 6c 6c 22 | 29 0d 08 48 0b f3 20 6d |ea full"|)..H.. m|
|00001290| 65 6e 75 24 0d 08 52 15 | c8 95 20 c2 6d 65 6e 75 |enu$..R.|.. .menu|
|000012a0| 24 2c 32 29 3d 22 2b 2b | 22 0d 08 5c 09 20 f3 20 |$,2)="++|"..\. . |
|000012b0| 6d 24 0d 08 66 1e 20 6d | 65 6e 75 24 3d c0 6d 65 |m$..f. m|enu$=.me|
|000012c0| 6e 75 24 2c a9 6d 65 6e | 75 24 2d 32 29 2b 6d 24 |nu$,.men|u$-2)+m$|
|000012d0| 0d 08 70 05 ce 0d 08 7a | 16 6d 65 6e 75 70 74 72 |..p....z|.menuptr|
|000012e0| 25 3d 6d 65 6e 75 66 72 | 65 65 25 0d 08 84 08 69 |%=menufr|ee%....i|
|000012f0| 25 3d 30 0d 08 8e 3d e7 | 20 c0 6d 65 6e 75 24 2c |%=0...=.| .menu$,|
|00001300| 31 29 3d 22 23 22 20 69 | 25 3d 31 3a 6d 65 6e 75 |1)="#" i|%=1:menu|
|00001310| 74 69 74 6c 65 24 3d a4 | 70 61 72 28 22 2c 22 29 |title$=.|par(",")|
|00001320| 20 8b 20 6d 65 6e 75 74 | 69 74 6c 65 24 3d 22 22 | . menut|itle$=""|
|00001330| 0d 08 98 18 24 6d 65 6e | 75 70 74 72 25 3d 6d 65 |....$men|uptr%=me|
|00001340| 6e 75 74 69 74 6c 65 24 | 0d 08 a2 11 6d 65 6e 75 |nutitle$|....menu|
|00001350| 70 74 72 25 3f 31 32 3d | 37 0d 08 ac 11 6d 65 6e |ptr%?12=|7....men|
|00001360| 75 70 74 72 25 3f 31 33 | 3d 32 0d 08 b6 11 6d 65 |uptr%?13|=2....me|
|00001370| 6e 75 70 74 72 25 3f 31 | 34 3d 37 0d 08 c0 11 6d |nuptr%?1|4=7....m|
|00001380| 65 6e 75 70 74 72 25 3f | 31 35 3d 31 0d 08 ca 13 |enuptr%?|15=1....|
|00001390| 6d 65 6e 75 70 74 72 25 | 21 31 36 3d 31 39 36 0d |menuptr%|!16=196.|
|000013a0| 08 d4 12 6d 65 6e 75 70 | 74 72 25 21 32 30 3d 34 |...menup|tr%!20=4|
|000013b0| 34 0d 08 de 11 6d 65 6e | 75 70 74 72 25 21 32 34 |4....men|uptr%!24|
|000013c0| 3d 30 0d 08 e8 10 6d 65 | 6e 75 70 74 72 25 2b 3d |=0....me|nuptr%+=|
|000013d0| 32 38 0d 08 f2 17 6d 61 | 78 78 25 3d a9 6d 65 6e |28....ma|xx%=.men|
|000013e0| 75 74 69 74 6c 65 24 2d | 33 0d 08 fc 05 f5 0d 09 |utitle$-|3.......|
|000013f0| 06 14 20 69 74 65 6d 24 | 3d a4 70 61 72 28 22 2c |.. item$|=.par(",|
|00001400| 22 29 0d 09 10 15 20 f2 | 6d 65 6e 75 69 74 65 6d |").... .|menuitem|
|00001410| 28 69 74 65 6d 24 29 0d | 09 1a 0e fd 20 69 74 65 |(item$).|.... ite|
|00001420| 6d 24 3d 22 22 0d 09 24 | 10 6d 25 3d 6d 65 6e 75 |m$=""..$|.m%=menu|
|00001430| 66 72 65 65 25 0d 09 2e | 17 6d 25 21 31 36 3d 28 |free%...|.m%!16=(|
|00001440| 6d 61 78 78 25 2a 38 2b | 36 29 2a 32 0d 09 38 16 |maxx%*8+|6)*2..8.|
|00001450| 6d 65 6e 75 66 72 65 65 | 25 3d 6d 65 6e 75 70 74 |menufree|%=menupt|
|00001460| 72 25 0d 09 42 07 3d 6d | 25 0d 09 4c 05 3a 0d 09 |r%..B.=m|%..L.:..|
|00001470| 56 15 dd f2 6d 65 6e 75 | 69 74 65 6d 28 74 65 78 |V...menu|item(tex|
|00001480| 74 24 29 0d 09 60 18 ea | 20 69 25 2c 66 6c 67 25 |t$)..`..| i%,flg%|
|00001490| 2c 73 75 62 70 74 72 25 | 2c 4c 25 0d 09 6a 30 e7 |,subptr%|,L%..j0.|
|000014a0| 20 74 65 78 74 24 3d 22 | 22 20 6d 65 6e 75 70 74 | text$="|" menupt|
|000014b0| 72 25 21 2d 32 34 3d 28 | 6d 65 6e 75 70 74 72 25 |r%!-24=(|menuptr%|
|000014c0| 21 2d 32 34 29 84 26 38 | 30 3a e1 0d 09 74 35 e7 |!-24).&8|0:...t5.|
|000014d0| 20 28 6d 65 6e 75 70 74 | 72 25 2b 32 34 3e 6d 65 | (menupt|r%+24>me|
|000014e0| 6e 75 65 6e 64 25 29 20 | f2 66 61 74 61 6c 28 22 |nuend%) |.fatal("|
|000014f0| 4d 65 6e 75 20 61 72 65 | 61 20 66 75 6c 6c 22 29 |Menu are|a full")|
|00001500| 0d 09 7e 0c 66 6c 67 25 | 3d 26 30 30 0d 09 88 12 |..~.flg%|=&00....|
|00001510| 69 25 3d a7 74 65 78 74 | 24 2c 22 3e 22 29 0d 09 |i%=.text|$,">")..|
|00001520| 92 0c e7 20 69 25 3e 30 | 20 8c 0d 09 9c 1a 20 73 |... i%>0| ..... s|
|00001530| 75 62 70 74 72 25 3d a0 | c1 74 65 78 74 24 2c 69 |ubptr%=.|.text$,i|
|00001540| 25 2b 31 29 0d 09 a6 17 | 20 74 65 78 74 24 3d c0 |%+1)....| text$=.|
|00001550| 74 65 78 74 24 2c 69 25 | 2d 31 29 0d 09 b0 05 cc |text$,i%|-1).....|
|00001560| 0d 09 ba 0f 20 73 75 62 | 70 74 72 25 3d 2d 31 0d |.... sub|ptr%=-1.|
|00001570| 09 c4 05 cd 0d 09 ce 34 | e7 20 c2 74 65 78 74 24 |.......4|. .text$|
|00001580| 2c 31 29 3d 22 23 22 20 | 74 65 78 74 24 3d c0 74 |,1)="#" |text$=.t|
|00001590| 65 78 74 24 2c a9 74 65 | 78 74 24 2d 31 29 3a 66 |ext$,.te|xt$-1):f|
|000015a0| 6c 67 25 2b 3d 26 30 32 | 0d 09 d8 13 6d 65 6e 75 |lg%+=&02|....menu|
|000015b0| 70 74 72 25 21 30 3d 66 | 6c 67 25 0d 09 e2 16 6d |ptr%!0=f|lg%....m|
|000015c0| 65 6e 75 70 74 72 25 21 | 34 3d 73 75 62 70 74 72 |enuptr%!|4=subptr|
|000015d0| 25 0d 09 ec 18 6d 65 6e | 75 70 74 72 25 21 38 3d |%....men|uptr%!8=|
|000015e0| 26 30 37 30 30 30 30 32 | 31 0d 09 f6 15 e7 20 c0 |&0700002|1..... .|
|000015f0| 74 65 78 74 24 2c 31 29 | 3d 22 24 22 20 8c 0d 0a |text$,1)|="$" ...|
|00001600| 00 13 20 21 6d 65 6e 75 | 70 74 72 25 2b 3d 26 30 |.. !menu|ptr%+=&0|
|00001610| 34 0d 0a 0a 15 20 6d 65 | 6e 75 70 74 72 25 21 38 |4.... me|nuptr%!8|
|00001620| 2b 3d 26 31 30 30 0d 0a | 14 13 20 69 25 3d a7 74 |+=&100..|.. i%=.t|
|00001630| 65 78 74 24 2c 22 28 22 | 29 0d 0a 1e 0d 20 e7 20 |ext$,"("|).... . |
|00001640| 69 25 3e 30 20 8c 0d 0a | 28 16 20 20 4c 25 3d bb |i%>0 ...|(.  L%=.|
|00001650| c1 74 65 78 74 24 2c 69 | 25 2b 31 29 0d 0a 32 18 |.text$,i|%+1)..2.|
|00001660| 20 20 74 65 78 74 24 3d | c0 74 65 78 74 24 2c 69 |  text$=|.text$,i|
|00001670| 25 2d 31 29 0d 0a 3c 06 | 20 cc 0d 0a 46 0b 20 20 |%-1)..<.| ...F.  |
|00001680| 4c 25 3d 31 32 0d 0a 50 | 06 20 cd 0d 0a 5a 1b 20 |L%=12..P|. ...Z. |
|00001690| 6d 65 6e 75 70 74 72 25 | 21 31 32 3d a0 c1 74 65 |menuptr%|!12=..te|
|000016a0| 78 74 24 2c 32 29 0d 0a | 64 13 20 6d 65 6e 75 70 |xt$,2)..|d. menup|
|000016b0| 74 72 25 21 31 36 3d 2d | 31 0d 0a 6e 13 20 6d 65 |tr%!16=-|1..n. me|
|000016c0| 6e 75 70 74 72 25 21 32 | 30 3d 4c 25 0d 0a 78 11 |nuptr%!2|0=L%..x.|
|000016d0| 20 e7 4c 25 3e 31 36 20 | 4c 25 3d 31 36 0d 0a 82 | .L%>16 |L%=16...|
|000016e0| 13 20 74 65 78 74 24 3d | c4 4c 25 2c 22 20 22 29 |. text$=|.L%," ")|
|000016f0| 0d 0a 8c 05 cc 0d 0a 96 | 11 20 e7 a9 74 65 78 74 |........|. ..text|
|00001700| 24 3c 3d 31 32 8c 0d 0a | a0 1a 20 20 24 28 6d 65 |$<=12...|..  $(me|
|00001710| 6e 75 70 74 72 25 2b 31 | 32 29 3d 74 65 78 74 24 |nuptr%+1|2)=text$|
|00001720| 0d 0a aa 06 20 cc 0d 0a | b4 27 20 20 49 25 3d a4 |.... ...|.'  I%=.|
|00001730| 77 6f 72 6b 73 70 61 63 | 65 28 a9 74 65 78 74 24 |workspac|e(.text$|
|00001740| 2b 31 29 3a 24 49 25 3d | 74 65 78 74 24 0d 0a be |+1):$I%=|text$...|
|00001750| 38 20 20 6d 65 6e 75 70 | 74 72 25 21 31 32 3d 49 |8  menup|tr%!12=I|
|00001760| 25 3a 6d 65 6e 75 70 74 | 72 25 21 31 36 3d 2d 31 |%:menupt|r%!16=-1|
|00001770| 3a 6d 65 6e 75 70 74 72 | 25 21 32 30 3d a9 74 65 |:menuptr|%!20=.te|
|00001780| 78 74 24 2b 31 0d 0a c8 | 22 20 20 6d 65 6e 75 70 |xt$+1...|"  menup|
|00001790| 74 72 25 21 38 3d 6d 65 | 6e 75 70 74 72 25 21 38 |tr%!8=me|nuptr%!8|
|000017a0| 20 84 20 26 31 30 30 0d | 0a d2 06 20 cd 0d 0a dc | . &100.|... ....|
|000017b0| 05 cd 0d 0a e6 1f e7 20 | a9 74 65 78 74 24 3e 6d |....... |.text$>m|
|000017c0| 61 78 78 25 20 6d 61 78 | 78 25 3d a9 74 65 78 74 |axx% max|x%=.text|
|000017d0| 24 0d 0a f0 10 6d 65 6e | 75 70 74 72 25 2b 3d 32 |$....men|uptr%+=2|
|000017e0| 34 0d 0a fa 05 e1 0d 0b | 04 05 3a 0d 0b 0e 0f dd |4.......|..:.....|
|000017f0| a4 70 61 72 28 73 65 70 | 24 29 0d 0b 18 09 ea 20 |.par(sep|$)..... |
|00001800| 69 31 25 0d 0b 22 0c 69 | 31 25 3d 69 25 2b 31 0d |i1%..".i|1%=i%+1.|
|00001810| 0b 2c 1c 69 25 3d a7 6d | 65 6e 75 24 2b 73 65 70 |.,.i%=.m|enu$+sep|
|00001820| 24 2c 73 65 70 24 2c 69 | 31 25 29 0d 0b 36 17 3d |$,sep$,i|1%)..6.=|
|00001830| c1 6d 65 6e 75 24 2c 69 | 31 25 2c 69 25 2d 69 31 |.menu$,i|1%,i%-i1|
|00001840| 25 29 0d 0b 40 05 3a 0d | 0b 4a 1e dd f2 73 68 61 |%)..@.:.|.J...sha|
|00001850| 64 65 28 6d 65 6e 75 68 | 61 6e 64 6c 65 25 2c 69 |de(menuh|andle%,i|
|00001860| 74 65 6d 25 29 0d 0b 54 | 43 6d 65 6e 75 68 61 6e |tem%)..T|Cmenuhan|
|00001870| 64 6c 65 25 21 28 32 38 | 2b 38 2b 32 34 2a 69 74 |dle%!(28|+8+24*it|
|00001880| 65 6d 25 29 3d 6d 65 6e | 75 68 61 6e 64 6c 65 25 |em%)=men|uhandle%|
|00001890| 21 28 32 38 2b 38 2b 32 | 34 2a 69 74 65 6d 25 29 |!(28+8+2|4*item%)|
|000018a0| 82 26 34 30 30 30 30 30 | 0d 0b 5e 05 e1 0d 0b 68 |.&400000|..^....h|
|000018b0| 05 3a 0d 0b 72 25 dd a4 | 73 68 61 64 65 5f 73 74 |.:..r%..|shade_st|
|000018c0| 61 74 75 73 28 6d 65 6e | 75 68 61 6e 64 6c 65 25 |atus(men|uhandle%|
|000018d0| 2c 69 74 65 6d 25 29 0d | 0b 7c 38 3d 20 2d 28 28 |,item%).|.|8= -((|
|000018e0| 6d 65 6e 75 68 61 6e 64 | 6c 65 25 21 28 32 38 2b |menuhand|le%!(28+|
|000018f0| 38 2b 32 34 2a 69 74 65 | 6d 25 29 20 80 20 26 34 |8+24*ite|m%) . &4|
|00001900| 30 30 30 30 30 29 3d 26 | 34 30 30 30 30 30 29 0d |00000)=&|400000).|
|00001910| 0b 86 05 3a 0d 0b 90 29 | dd f2 73 65 74 5f 73 68 |...:...)|..set_sh|
|00001920| 61 64 65 28 6d 65 6e 75 | 68 61 6e 64 6c 65 25 2c |ade(menu|handle%,|
|00001930| 69 74 65 6d 25 2c 76 61 | 6c 75 65 25 29 0d 0b 9a |item%,va|lue%)...|
|00001940| 47 e7 a4 73 68 61 64 65 | 5f 73 74 61 74 75 73 28 |G..shade|_status(|
|00001950| 6d 65 6e 75 68 61 6e 64 | 6c 65 25 2c 69 74 65 6d |menuhand|le%,item|
|00001960| 25 29 3c 3e 76 61 6c 75 | 65 25 20 f2 73 68 61 64 |%)<>valu|e% .shad|
|00001970| 65 28 6d 65 6e 75 68 61 | 6e 64 6c 65 25 2c 69 74 |e(menuha|ndle%,it|
|00001980| 65 6d 25 29 0d 0b a4 05 | e1 0d 0b ae 05 3a 0d 0b |em%)....|.....:..|
|00001990| b8 1d dd f2 74 69 63 6b | 28 6d 65 6e 75 68 61 6e |....tick|(menuhan|
|000019a0| 64 6c 65 25 2c 69 74 65 | 6d 25 29 0d 0b c2 39 6d |dle%,ite|m%)...9m|
|000019b0| 65 6e 75 68 61 6e 64 6c | 65 25 21 28 32 38 2b 32 |enuhandl|e%!(28+2|
|000019c0| 34 2a 69 74 65 6d 25 29 | 3d 6d 65 6e 75 68 61 6e |4*item%)|=menuhan|
|000019d0| 64 6c 65 25 21 28 32 38 | 2b 32 34 2a 69 74 65 6d |dle%!(28|+24*item|
|000019e0| 25 29 82 31 0d 0b cc 05 | e1 0d 0b d6 05 3a 0d 0b |%).1....|.....:..|
|000019f0| e0 24 dd a4 74 69 63 6b | 5f 73 74 61 74 75 73 28 |.$..tick|_status(|
|00001a00| 6d 65 6e 75 68 61 6e 64 | 6c 65 25 2c 69 74 65 6d |menuhand|le%,item|
|00001a10| 25 29 0d 0b ea 21 3d 20 | 6d 65 6e 75 68 61 6e 64 |%)...!= |menuhand|
|00001a20| 6c 65 25 21 28 32 38 2b | 32 34 2a 69 74 65 6d 25 |le%!(28+|24*item%|
|00001a30| 29 80 31 0d 0b f4 05 3a | 0d 0b fe 28 dd f2 73 65 |).1....:|...(..se|
|00001a40| 74 5f 74 69 63 6b 28 6d | 65 6e 75 68 61 6e 64 6c |t_tick(m|enuhandl|
|00001a50| 65 25 2c 69 74 65 6d 25 | 2c 76 61 6c 75 65 25 29 |e%,item%|,value%)|
|00001a60| 0d 0c 08 45 e7 a4 74 69 | 63 6b 5f 73 74 61 74 75 |...E..ti|ck_statu|
|00001a70| 73 28 6d 65 6e 75 68 61 | 6e 64 6c 65 25 2c 69 74 |s(menuha|ndle%,it|
|00001a80| 65 6d 25 29 3c 3e 76 61 | 6c 75 65 25 20 f2 74 69 |em%)<>va|lue% .ti|
|00001a90| 63 6b 28 6d 65 6e 75 68 | 61 6e 64 6c 65 25 2c 69 |ck(menuh|andle%,i|
|00001aa0| 74 65 6d 25 29 0d 0c 12 | 05 e1 0d 0c 1c 05 3a 0d |tem%)...|......:.|
|00001ab0| 0c 26 13 dd a4 77 6f 72 | 6b 73 70 61 63 65 28 4c |.&...wor|kspace(L|
|00001ac0| 25 29 0d 0c 30 38 e7 20 | 63 75 72 77 73 25 2b 4c |%)..08. |curws%+L|
|00001ad0| 25 3e 77 73 25 2b 6d 61 | 78 77 73 25 20 8c 20 f2 |%>ws%+ma|xws% . .|
|00001ae0| 66 61 74 61 6c 28 22 4e | 6f 20 6d 6f 72 65 20 77 |fatal("N|o more w|
|00001af0| 6f 72 6b 73 70 61 63 65 | 22 29 0d 0c 3a 0e 63 75 |orkspace|")..:.cu|
|00001b00| 72 77 73 25 2b 3d 4c 25 | 0d 0c 44 0e 3d 63 75 72 |rws%+=L%|..D.=cur|
|00001b10| 77 73 25 2d 4c 25 0d 0c | 4e 05 3a 0d 0c 58 10 dd |ws%-L%..|N.:..X..|
|00001b20| f2 63 6f 70 79 5f 66 69 | 6c 65 73 0d 0c 62 14 c8 |.copy_fi|les..b..|
|00001b30| 99 22 48 6f 75 72 67 6c | 61 73 73 5f 4f 6e 22 0d |."Hourgl|ass_On".|
|00001b40| 0c 6c 44 c8 99 22 58 4f | 53 5f 46 53 43 6f 6e 74 |.lD.."XO|S_FSCont|
|00001b50| 72 6f 6c 22 2c 32 36 2c | 24 66 69 6c 65 32 25 2c |rol",26,|$file2%,|
|00001b60| 24 66 69 6c 65 31 25 2c | 25 31 30 31 30 30 31 30 |$file1%,|%1010010|
|00001b70| 30 30 30 30 30 30 31 31 | 20 b8 20 72 30 25 3b 72 |00000011| . r0%;r|
|00001b80| 65 67 25 0d 0c 76 13 e7 | 20 28 72 65 67 25 80 20 |eg%..v..| (reg%. |
|00001b90| 31 29 3d 31 20 8c 0d 0c | 80 38 20 65 72 72 6f 72 |1)=1 ...|.8 error|
|00001ba0| 5f 66 6c 61 67 25 3d 31 | 3a f2 65 72 72 6f 72 62 |_flag%=1|:.errorb|
|00001bb0| 6f 78 28 a4 72 74 6f 7a | 28 72 30 25 2b 34 29 29 |ox(.rtoz|(r0%+4))|
|00001bc0| 3a 65 72 72 6f 72 5f 66 | 6c 61 67 25 3d 33 0d 0c |:error_f|lag%=3..|
|00001bd0| 8a 0f 20 24 66 69 6c 65 | 31 25 3d 22 22 0d 0c 94 |.. $file|1%=""...|
|00001be0| 0f 20 24 66 69 6c 65 32 | 25 3d 22 22 0d 0c 9e 6c |. $file2|%=""...l|
|00001bf0| 20 24 70 72 6f 6d 70 74 | 25 3d 22 21 53 79 73 74 | $prompt|%="!Syst|
|00001c00| 65 6d 20 55 70 64 61 74 | 65 20 66 61 69 6c 65 64 |em Updat|e failed|
|00001c10| 2e 20 20 43 6f 72 72 65 | 63 74 20 74 68 65 20 70 |.  Corre|ct the p|
|00001c20| 72 6f 62 6c 65 6d 20 74 | 68 65 6e 20 64 72 61 67 |roblem t|hen drag|
|00001c30| 20 74 68 65 20 6f 72 69 | 67 69 6e 61 6c 20 21 53 | the ori|ginal !S|
|00001c40| 79 73 74 65 6d 20 69 6e | 74 6f 20 74 68 69 73 20 |ystem in|to this |
|00001c50| 77 69 6e 64 6f 77 2e 22 | 0d 0c a8 0d 20 73 74 61 |window."|.... sta|
|00001c60| 67 65 25 3d 31 0d 0c b2 | 18 20 f2 72 65 66 72 65 |ge%=1...|. .refre|
|00001c70| 73 68 5f 73 79 73 5f 77 | 69 6e 64 6f 77 0d 0c bc |sh_sys_w|indow...|
|00001c80| 06 20 e1 0d 0c c6 05 cd | 0d 0c d0 3e f4 20 4f 53 |. ......|...>. OS|
|00001c90| 43 4c 49 22 63 6f 70 79 | 20 22 2b 24 66 69 6c 65 |CLI"copy| "+$file|
|00001ca0| 32 25 2b 22 20 22 2b 24 | 66 69 6c 65 31 25 2b 22 |2%+" "+$|file1%+"|
|00001cb0| 20 72 6e 66 7e 63 7e 76 | 61 7e 64 6c 7e 70 7e 71 | rnf~c~v|a~dl~p~q|
|00001cc0| 7e 73 7e 74 22 31 0d 0c | da 0c 73 74 61 67 65 25 |~s~t"1..|..stage%|
|00001cd0| 3d 34 0d 0c e4 1f 24 70 | 72 6f 6d 70 74 25 3d 22 |=4....$p|rompt%="|
|00001ce0| 21 53 79 73 74 65 6d 20 | 75 70 64 61 74 65 64 2e |!System |updated.|
|00001cf0| 22 0d 0c ee 17 f2 72 65 | 66 72 65 73 68 5f 73 79 |".....re|fresh_sy|
|00001d00| 73 5f 77 69 6e 64 6f 77 | 0d 0c f8 15 c8 99 22 48 |s_window|......"H|
|00001d10| 6f 75 72 67 6c 61 73 73 | 5f 4f 66 66 22 0d 0d 02 |ourglass|_Off"...|
|00001d20| 05 e1 0d 0d 0c 05 3a 0d | 0d 16 11 dd a4 75 70 70 |......:.|.....upp|
|00001d30| 65 72 28 73 74 72 24 29 | 0d 0d 20 11 ea 72 74 6e |er(str$)|.. ..rtn|
|00001d40| 24 2c 20 6c 25 2c 20 63 | 24 0d 0d 2a 0b 72 74 6e |$, l%, c|$..*.rtn|
|00001d50| 24 3d 22 22 0d 0d 34 12 | e3 20 6c 25 3d 31 20 b8 |$=""..4.|. l%=1 .|
|00001d60| 20 a9 73 74 72 24 0d 0d | 3e 14 20 20 63 24 3d c1 | .str$..|>.  c$=.|
|00001d70| 73 74 72 24 2c 6c 25 2c | 31 29 0d 0d 48 1b 20 20 |str$,l%,|1)..H.  |
|00001d80| e7 20 63 24 3e 3d 22 61 | 22 20 80 20 63 24 3c 3d |. c$>="a|" . c$<=|
|00001d90| 22 7a 22 20 8c 0d 0d 52 | 19 20 20 20 20 20 72 74 |"z" ...R|.     rt|
|00001da0| 6e 24 2b 3d bd 28 97 63 | 24 82 26 32 30 29 0d 0d |n$+=.(.c|$.&20)..|
|00001db0| 5c 07 20 20 cc 0d 0d 66 | 11 20 20 20 20 20 72 74 |\.  ...f|.     rt|
|00001dc0| 6e 24 2b 3d 63 24 0d 0d | 70 07 20 20 cd 0d 0d 7a |n$+=c$..|p.  ...z|
|00001dd0| 05 ed 0d 0d 84 09 3d 72 | 74 6e 24 0d ff          |......=r|tn$..   |
+--------+-------------------------+-------------------------+--------+--------+