/ Really Useful CD 1 / ReallyUsefulCD1.iso / extras / utilities / _coder / _runimage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 19 f4 20 3e 24 | 2e 21 43 6f 64 65 72 2e |..... >$|.!Coder.|
|00000010| 21 52 75 6e 49 6d 61 67 | 65 0d 00 14 2d f4 20 4d |!RunImag|e...-. M|
|00000020| 61 69 6e 20 70 72 6f 67 | 72 61 6d 20 63 6f 64 65 |ain prog|ram code|
|00000030| 20 66 6f 72 20 52 49 53 | 43 4f 53 20 46 69 6c 65 | for RIS|COS File|
|00000040| 20 43 6f 64 65 72 0d 00 | 1e 42 f4 20 56 65 72 73 | Coder..|.B. Vers|
|00000050| 69 6f 6e 20 32 2e 31 30 | 20 4c 61 73 74 20 55 70 |ion 2.10| Last Up|
|00000060| 64 61 74 65 20 31 2f 31 | 32 2f 39 30 20 41 52 49 |date 1/1|2/90 ARI|
|00000070| 20 30 2e 35 30 20 2d 20 | 44 6f 20 6e 6f 74 20 75 | 0.50 - |Do not u|
|00000080| 73 65 20 61 67 61 69 6e | 0d 00 28 1c f4 20 a9 20 |se again|..(.. . |
|00000090| 41 6e 64 72 65 77 20 46 | 6c 69 6e 74 68 61 6d 20 |Andrew F|lintham |
|000000a0| 31 39 39 30 0d 00 32 05 | 3a 0d 00 3c 34 de 20 62 |1990..2.|:..<4. b|
|000000b0| 6c 6f 63 6b 20 34 30 39 | 36 2c 20 6d 65 6e 75 25 |lock 409|6, menu%|
|000000c0| 20 34 30 39 36 2c 63 75 | 72 62 75 66 25 20 38 31 | 4096,cu|rbuf% 81|
|000000d0| 39 32 2c 69 63 6f 6e 64 | 20 31 30 32 34 0d 00 46 |92,icond| 1024..F|
|000000e0| 19 65 6e 64 62 75 66 25 | 3d 63 75 72 62 75 66 25 |.endbuf%|=curbuf%|
|000000f0| 2b 32 30 34 38 30 0d 00 | 50 33 c8 99 20 22 57 69 |+20480..|P3.. "Wi|
|00000100| 6d 70 5f 49 6e 69 74 69 | 61 6c 69 73 65 22 2c 32 |mp_Initi|alise",2|
|00000110| 30 30 2c 26 34 42 35 33 | 34 31 35 34 2c 22 46 69 |00,&4B53|4154,"Fi|
|00000120| 6c 65 20 43 6f 64 65 72 | 22 0d 00 5a 0d f2 74 65 |le Coder|"..Z..te|
|00000130| 6d 70 6c 61 74 65 0d 00 | 64 36 69 3d a4 69 63 6f |mplate..|d6i=.ico|
|00000140| 6e 62 61 72 28 25 31 31 | 30 31 30 2c 2d 31 2c 37 |nbar(%11|010,-1,7|
|00000150| 2c 30 2c 22 21 43 6f 64 | 65 72 22 2b bd 31 33 2c |,0,"!Cod|er"+.13,|
|00000160| 30 2c 30 2c 33 2c 36 38 | 2c 36 38 29 0d 00 6e 23 |0,0,3,68|,68)..n#|
|00000170| 65 6e 64 25 3d a3 3a 64 | 72 61 67 25 3d 30 3a 73 |end%=.:d|rag%=0:s|
|00000180| 61 76 69 6e 67 25 3d 30 | 3a 61 63 6b 25 3d a3 0d |aving%=0|:ack%=..|
|00000190| 00 78 11 66 69 6c 65 74 | 79 70 65 3d 26 35 31 37 |.x.filet|ype=&517|
|000001a0| 0d 00 82 20 24 76 65 72 | 73 69 6f 6e 25 3d 22 32 |... $ver|sion%="2|
|000001b0| 2e 31 30 20 28 30 31 2d | 44 65 63 2d 39 30 29 22 |.10 (01-|Dec-90)"|
|000001c0| 0d 00 8c 05 f5 0d 00 96 | 26 c8 99 20 22 57 69 6d |........|&.. "Wim|
|000001d0| 70 5f 50 6f 6c 6c 22 2c | 31 2c 62 6c 6f 63 6b 20 |p_Poll",|1,block |
|000001e0| b8 20 65 76 65 6e 74 63 | 6f 64 65 0d 00 a0 12 c8 |. eventc|ode.....|
|000001f0| 8e 20 65 76 65 6e 74 63 | 6f 64 65 20 ca 0d 00 aa |. eventc|ode ....|
|00000200| 25 c9 20 31 3a c8 99 20 | 22 57 69 6d 70 5f 52 65 |%. 1:.. |"Wimp_Re|
|00000210| 64 72 61 77 57 69 6e 64 | 6f 77 22 2c 2c 62 6c 6f |drawWind|ow",,blo|
|00000220| 63 6b 0d 00 b4 23 c9 20 | 32 3a c8 99 20 22 57 69 |ck...#. |2:.. "Wi|
|00000230| 6d 70 5f 4f 70 65 6e 57 | 69 6e 64 6f 77 22 2c 2c |mp_OpenW|indow",,|
|00000240| 62 6c 6f 63 6b 0d 00 be | 24 c9 20 33 3a c8 99 20 |block...|$. 3:.. |
|00000250| 22 57 69 6d 70 5f 43 6c | 6f 73 65 57 69 6e 64 6f |"Wimp_Cl|oseWindo|
|00000260| 77 22 2c 2c 62 6c 6f 63 | 6b 0d 00 c8 17 c9 20 36 |w",,bloc|k..... 6|
|00000270| 3a f2 62 75 74 74 6f 6e | 73 28 62 6c 6f 63 6b 29 |:.button|s(block)|
|00000280| 0d 00 d2 25 c9 20 38 3a | c8 99 20 22 57 69 6d 70 |...%. 8:|.. "Wimp|
|00000290| 5f 50 72 6f 63 65 73 73 | 4b 65 79 22 2c 62 6c 6f |_Process|Key",blo|
|000002a0| 63 6b 21 32 34 0d 00 dc | 0f c9 20 39 3a f2 64 65 |ck!24...|.. 9:.de|
|000002b0| 63 6f 64 65 0d 00 e6 11 | c9 20 31 37 2c 31 38 3a |code....|. 17,18:|
|000002c0| f2 6d 65 73 73 0d 00 f0 | 05 cb 0d 00 fa 0a fd 20 |.mess...|....... |
|000002d0| 65 6e 64 25 0d 01 04 05 | e0 0d 01 0e 34 dd f2 6f |end%....|....4..o|
|000002e0| 70 65 6e 28 68 61 6e 64 | 6c 65 2c 76 6d 69 6e 78 |pen(hand|le,vminx|
|000002f0| 2c 76 6d 69 6e 79 2c 76 | 6d 61 78 78 2c 76 6d 61 |,vminy,v|maxx,vma|
|00000300| 78 79 2c 78 6f 66 66 2c | 79 6f 66 66 29 0d 01 18 |xy,xoff,|yoff)...|
|00000310| 3c 21 62 6c 6f 63 6b 3d | 68 61 6e 64 6c 65 3a 62 |<!block=|handle:b|
|00000320| 6c 6f 63 6b 21 34 3d 76 | 6d 69 6e 78 3a 62 6c 6f |lock!4=v|minx:blo|
|00000330| 63 6b 21 38 3d 76 6d 69 | 6e 79 3a 62 6c 6f 63 6b |ck!8=vmi|ny:block|
|00000340| 21 31 32 3d 76 6d 61 78 | 78 0d 01 22 3a 62 6c 6f |!12=vmax|x..":blo|
|00000350| 63 6b 21 31 36 3d 76 6d | 61 78 79 3a 62 6c 6f 63 |ck!16=vm|axy:bloc|
|00000360| 6b 21 32 30 3d 78 6f 66 | 66 3a 62 6c 6f 63 6b 21 |k!20=xof|f:block!|
|00000370| 32 34 3d 79 6f 66 66 3a | 62 6c 6f 63 6b 21 32 38 |24=yoff:|block!28|
|00000380| 3d 2d 31 0d 01 2c 1f c8 | 99 20 22 57 69 6d 70 5f |=-1..,..|. "Wimp_|
|00000390| 4f 70 65 6e 57 69 6e 64 | 6f 77 22 2c 2c 62 6c 6f |OpenWind|ow",,blo|
|000003a0| 63 6b 0d 01 36 05 e1 0d | 01 40 14 dd f2 62 75 74 |ck..6...|.@...but|
|000003b0| 74 6f 6e 73 28 62 6c 6f | 63 6b 29 0d 01 4a 24 e7 |tons(blo|ck)..J$.|
|000003c0| 20 62 6c 6f 63 6b 21 31 | 32 3d 2d 32 20 80 20 62 | block!1|2=-2 . b|
|000003d0| 6c 6f 63 6b 21 38 3d 32 | 20 f2 6d 65 6e 75 73 0d |lock!8=2| .menus.|
|000003e0| 01 54 2c e7 20 62 6c 6f | 63 6b 21 31 32 3d 2d 32 |.T,. blo|ck!12=-2|
|000003f0| 20 80 20 28 62 6c 6f 63 | 6b 21 38 29 3c 3e 32 20 | . (bloc|k!8)<>2 |
|00000400| f2 6f 70 65 6e 77 69 6e | 64 6f 77 0d 01 5e 29 e7 |.openwin|dow..^).|
|00000410| 20 62 6c 6f 63 6b 21 31 | 32 3d 63 6f 64 65 72 25 | block!1|2=coder%|
|00000420| 20 80 20 62 6c 6f 63 6b | 21 31 36 3d 31 30 20 8c | . block|!16=10 .|
|00000430| 20 f2 67 6f 0d 01 68 05 | e1 0d 01 72 3e dd a4 69 | .go..h.|...r>..i|
|00000440| 63 6f 6e 62 61 72 28 66 | 6c 61 67 73 2c 70 61 72 |conbar(f|lags,par|
|00000450| 74 2c 66 6f 72 2c 62 61 | 63 2c 64 61 74 61 24 2c |t,for,ba|c,data$,|
|00000460| 61 64 64 2c 6c 65 6e 67 | 74 68 2c 6d 6f 75 73 65 |add,leng|th,mouse|
|00000470| 2c 78 73 2c 79 73 29 0d | 01 7c 0f 21 62 6c 6f 63 |,xs,ys).|.|.!bloc|
|00000480| 6b 3d 70 61 72 74 0d 01 | 86 0d 62 6c 6f 63 6b 21 |k=part..|..block!|
|00000490| 34 3d 30 0d 01 90 25 62 | 6c 6f 63 6b 21 38 3d 30 |4=0...%b|lock!8=0|
|000004a0| 3a 62 6c 6f 63 6b 21 31 | 32 3d 78 73 3a 62 6c 6f |:block!1|2=xs:blo|
|000004b0| 63 6b 21 31 36 3d 79 73 | 0d 01 9a 35 62 6c 6f 63 |ck!16=ys|...5bloc|
|000004c0| 6b 21 32 30 3d 66 6c 61 | 67 73 2b 28 28 32 5e 31 |k!20=fla|gs+((2^1|
|000004d0| 32 29 2a 6d 6f 75 73 65 | 29 3a 62 6c 6f 63 6b 3f |2)*mouse|):block?|
|000004e0| 32 33 3d 66 6f 72 2b 62 | 61 63 2a 31 36 0d 01 a4 |23=for+b|ac*16...|
|000004f0| 4d e7 20 64 61 74 61 24 | 3c 3e 22 22 20 8c 20 24 |M. data$|<>"" . $|
|00000500| 28 62 6c 6f 63 6b 2b 32 | 34 29 3d 64 61 74 61 24 |(block+2|4)=data$|
|00000510| 20 8b 20 62 6c 6f 63 6b | 21 32 34 3d 61 64 64 3a | . block|!24=add:|
|00000520| 62 6c 6f 63 6b 21 32 38 | 3d 30 3a 62 6c 6f 63 6b |block!28|=0:block|
|00000530| 21 33 32 3d 6c 65 6e 67 | 74 68 0d 01 ae 26 c8 99 |!32=leng|th...&..|
|00000540| 20 22 57 69 6d 70 5f 43 | 72 65 61 74 65 49 63 6f | "Wimp_C|reateIco|
|00000550| 6e 22 2c 2c 62 6c 6f 63 | 6b 20 b8 20 69 63 6f 6e |n",,bloc|k . icon|
|00000560| 0d 01 b8 09 3d 69 63 6f | 6e 0d 01 c2 2b dd f2 6d |....=ico|n...+..m|
|00000570| 65 6e 75 28 74 69 74 6c | 65 24 2c 77 69 64 74 68 |enu(titl|e$,width|
|00000580| 2c 78 2c 79 2c 69 74 24 | 2c 64 65 70 74 68 2c 61 |,x,y,it$|,depth,a|
|00000590| 64 64 72 29 0d 01 cc 1f | ea 20 63 6f 64 24 2c 73 |ddr)....|. cod$,s|
|000005a0| 65 70 24 2c 63 6f 64 32 | 24 2c 63 2c 73 65 70 2c |ep$,cod2|$,c,sep,|
|000005b0| 63 6f 64 0d 01 d6 15 24 | 28 61 64 64 72 29 3d 74 |cod....$|(addr)=t|
|000005c0| 69 74 6c 65 24 2b bd 30 | 0d 01 e0 2b 61 64 64 72 |itle$+.0|...+addr|
|000005d0| 3f 31 32 3d 37 3a 61 64 | 64 72 3f 31 33 3d 32 3a |?12=7:ad|dr?13=2:|
|000005e0| 61 64 64 72 3f 31 34 3d | 37 3a 61 64 64 72 3f 31 |addr?14=|7:addr?1|
|000005f0| 35 3d 30 0d 01 ea 1c 61 | 64 64 72 21 31 36 3d 77 |5=0....a|ddr!16=w|
|00000600| 69 64 74 68 3a 61 64 64 | 72 21 32 30 3d 34 38 0d |idth:add|r!20=48.|
|00000610| 01 f4 17 61 64 64 72 21 | 32 34 3d 30 3a 63 3d 61 |...addr!|24=0:c=a|
|00000620| 64 64 72 2b 32 38 0d 01 | fe 05 f5 0d 02 08 24 73 |ddr+28..|......$s|
|00000630| 65 70 24 3d c0 69 74 24 | 2c a7 69 74 24 2c 22 2c |ep$=.it$|,.it$,",|
|00000640| 22 29 29 3a 73 65 70 3d | a9 28 73 65 70 24 29 0d |")):sep=|.(sep$).|
|00000650| 02 12 16 e7 20 73 65 70 | 24 3d 22 2a 2c 22 20 e5 |.... sep|$="*," .|
|00000660| 20 8d 44 4e 42 0d 02 1c | 0a 63 21 34 3d 2d 31 0d | .DNB...|.c!4=-1.|
|00000670| 02 26 3b 21 63 3d 30 3a | e7 20 97 28 73 65 70 24 |.&;!c=0:|. .(sep$|
|00000680| 29 3d 97 28 22 5b 22 29 | 20 8c 20 21 63 3d a4 64 |)=.("[")| . !c=.d|
|00000690| 65 6d 3a 73 65 70 24 3d | c2 73 65 70 24 2c a9 28 |em:sep$=|.sep$,.(|
|000006a0| 73 65 70 24 29 2d 63 6f | 64 29 0d 02 30 28 63 21 |sep$)-co|d)..0(c!|
|000006b0| 38 3d 26 30 37 30 31 30 | 30 32 31 3a 24 28 63 2b |8=&07010|021:$(c+|
|000006c0| 31 32 29 3d c0 73 65 70 | 24 2c a9 73 65 70 24 2d |12)=.sep|$,.sep$-|
|000006d0| 31 29 0d 02 3a 09 63 2b | 3d 32 34 0d 02 44 18 69 |1)..:.c+|=24..D.i|
|000006e0| 74 24 3d c2 69 74 24 2c | a9 28 69 74 24 29 2d 73 |t$=.it$,|.(it$)-s|
|000006f0| 65 70 29 0d 02 4e 0f fd | 20 73 65 70 24 3d 22 2a |ep)..N..| sep$="*|
|00000700| 2c 22 0d 02 58 18 63 3d | 63 2d 32 34 3a 21 63 3d |,"..X.c=|c-24:!c=|
|00000710| 28 21 63 29 20 84 20 32 | 5e 37 0d 02 62 2f e7 20 |(!c) . 2|^7..b/. |
|00000720| 64 65 70 74 68 3d 30 20 | 8c 20 c8 99 20 22 57 69 |depth=0 |. .. "Wi|
|00000730| 6d 70 5f 43 72 65 61 74 | 65 4d 65 6e 75 22 2c 2c |mp_Creat|eMenu",,|
|00000740| 6d 65 6e 75 25 2c 78 2c | 79 0d 02 6c 05 e1 0d 02 |menu%,x,|y..l....|
|00000750| 76 09 dd a4 64 65 6d 0d | 02 80 19 ea 20 63 6f 64 |v...dem.|.... cod|
|00000760| 24 2c 74 69 24 2c 77 69 | 24 2c 6d 65 6e 75 32 24 |$,ti$,wi|$,menu2$|
|00000770| 0d 02 8a 25 63 6f 64 24 | 3d c0 73 65 70 24 2c a7 |...%cod$|=.sep$,.|
|00000780| 69 74 24 2c 22 5d 22 29 | 29 3a 63 6f 64 3d a9 28 |it$,"]")|):cod=.(|
|00000790| 63 6f 64 24 29 0d 02 94 | 14 e7 20 a7 63 6f 64 24 |cod$)...|.. .cod$|
|000007a0| 2c 22 5c 22 29 3e 31 20 | 8c 0d 02 9e 49 63 6f 64 |,"\")>1 |....Icod|
|000007b0| 32 24 3d c2 63 6f 64 24 | 2c a9 28 63 6f 64 24 29 |2$=.cod$|,.(cod$)|
|000007c0| 2d a7 63 6f 64 24 2c 22 | 5c 22 29 29 3a 63 6f 64 |-.cod$,"|\")):cod|
|000007d0| 32 24 3d c0 63 6f 64 32 | 24 2c a9 28 63 6f 64 32 |2$=.cod2|$,.(cod2|
|000007e0| 24 29 2d 31 29 3a 63 21 | 34 3d a0 28 63 6f 64 32 |$)-1):c!|4=.(cod2|
|000007f0| 24 29 0d 02 a8 05 cd 0d | 02 b2 27 63 6f 64 24 3d |$)......|..'cod$=|
|00000800| c0 63 6f 64 24 2c 63 6f | 64 2d 31 29 3a 63 6f 64 |.cod$,co|d-1):cod|
|00000810| 24 3d c2 63 6f 64 24 2c | 63 6f 64 2d 32 29 0d 02 |$=.cod$,|cod-2)..|
|00000820| bc 0c 3d bb 28 63 6f 64 | 24 29 0d 02 c6 0b dd f2 |..=.(cod|$)......|
|00000830| 6d 65 6e 75 73 0d 02 d0 | 10 6d 65 6e 75 24 3d 22 |menus...|.menu$="|
|00000840| 4d 61 69 6e 22 0d 02 da | 0c c8 97 20 78 2c 79 2c |Main"...|... x,y,|
|00000850| 62 0d 02 e4 3f f2 6d 65 | 6e 75 28 22 43 6f 64 65 |b...?.me|nu("Code|
|00000860| 72 22 2c 31 35 30 2c 78 | 2d 37 35 2c 31 39 32 2c |r",150,x|-75,192,|
|00000870| 22 5b 30 5c 69 6e 66 6f | 25 5d 49 6e 66 6f 2c 51 |"[0\info|%]Info,Q|
|00000880| 75 69 74 2c 2a 2c 22 2c | 30 2c 6d 65 6e 75 25 29 |uit,*,",|0,menu%)|
|00000890| 0d 02 ee 05 e1 0d 02 f8 | 0c dd f2 64 65 63 6f 64 |........|...decod|
|000008a0| 65 0d 03 02 2b c8 99 20 | 22 57 69 6d 70 5f 44 65 |e...+.. |"Wimp_De|
|000008b0| 63 6f 64 65 4d 65 6e 75 | 22 2c 2c 6d 65 6e 75 25 |codeMenu|",,menu%|
|000008c0| 2c 62 6c 6f 63 6b 2c 69 | 63 6f 6e 64 0d 03 0c 1f |,block,i|cond....|
|000008d0| e7 20 24 69 63 6f 6e 64 | 3d 22 51 75 69 74 22 20 |. $icond|="Quit" |
|000008e0| 8c 20 65 6e 64 25 3d b9 | 3a ef 34 0d 03 16 23 c8 |. end%=.|:.4...#.|
|000008f0| 99 20 22 57 69 6d 70 5f | 47 65 74 50 6f 69 6e 74 |. "Wimp_|GetPoint|
|00000900| 65 72 49 6e 66 6f 22 2c | 2c 62 6c 6f 63 6b 0d 03 |erInfo",|,block..|
|00000910| 20 48 e7 20 62 6c 6f 63 | 6b 21 38 3d 31 20 8c 20 | H. bloc|k!8=1 . |
|00000920| c8 99 20 22 57 69 6d 70 | 5f 43 72 65 61 74 65 4d |.. "Wimp|_CreateM|
|00000930| 65 6e 75 22 2c 2c 6d 65 | 6e 75 25 20 8b 20 c8 99 |enu",,me|nu% . ..|
|00000940| 20 22 57 69 6d 70 5f 43 | 72 65 61 74 65 4d 65 6e | "Wimp_C|reateMen|
|00000950| 75 22 2c 2c 2d 31 0d 03 | 2a 05 e1 0d 03 34 0e dd |u",,-1..|*....4..|
|00000960| f2 74 65 6d 70 6c 61 74 | 65 0d 03 3e 33 c8 99 20 |.templat|e..>3.. |
|00000970| 22 57 69 6d 70 5f 4f 70 | 65 6e 54 65 6d 70 6c 61 |"Wimp_Op|enTempla|
|00000980| 74 65 22 2c 2c 22 3c 43 | 6f 64 65 72 24 44 69 72 |te",,"<C|oder$Dir|
|00000990| 3e 2e 54 65 6d 70 6c 61 | 74 65 73 22 0d 03 48 11 |>.Templa|tes"..H.|
|000009a0| 69 6e 64 69 72 3d 63 75 | 72 62 75 66 25 0d 03 52 |indir=cu|rbuf%..R|
|000009b0| 1f 69 6e 66 6f 25 3d a4 | 74 65 6d 70 6c 61 74 65 |.info%=.|template|
|000009c0| 28 22 50 72 6f 67 49 6e | 66 6f 22 29 0d 03 5c 1d |("ProgIn|fo")..\.|
|000009d0| 63 6f 64 65 72 25 3d a4 | 74 65 6d 70 6c 61 74 65 |coder%=.|template|
|000009e0| 28 22 43 6f 64 65 72 22 | 29 0d 03 66 18 62 79 74 |("Coder"|)..f.byt|
|000009f0| 65 25 3d a4 74 61 64 28 | 63 6f 64 65 72 25 2c 34 |e%=.tad(|coder%,4|
|00000a00| 29 0d 03 70 18 77 6f 72 | 64 25 3d a4 74 61 64 28 |)..p.wor|d%=.tad(|
|00000a10| 63 6f 64 65 72 25 2c 35 | 29 0d 03 7a 18 74 65 78 |coder%,5|)..z.tex|
|00000a20| 74 25 3d a4 74 61 64 28 | 63 6f 64 65 72 25 2c 36 |t%=.tad(|coder%,6|
|00000a30| 29 0d 03 84 18 66 69 6c | 65 25 3d a4 74 61 64 28 |)....fil|e%=.tad(|
|00000a40| 63 6f 64 65 72 25 2c 38 | 29 0d 03 8e 1c 64 6f 75 |coder%,8|)....dou|
|00000a50| 62 6c 65 31 25 3d a4 74 | 61 64 28 63 6f 64 65 72 |ble1%=.t|ad(coder|
|00000a60| 25 2c 31 32 29 0d 03 98 | 1c 64 6f 75 62 6c 65 32 |%,12)...|.double2|
|00000a70| 25 3d a4 74 61 64 28 63 | 6f 64 65 72 25 2c 31 33 |%=.tad(c|oder%,13|
|00000a80| 29 0d 03 a2 1a 76 65 72 | 73 69 6f 6e 25 3d a4 74 |)....ver|sion%=.t|
|00000a90| 61 64 28 69 6e 66 6f 25 | 2c 34 29 0d 03 ac 1b c8 |ad(info%|,4).....|
|00000aa0| 99 20 22 57 69 6d 70 5f | 43 6c 6f 73 65 54 65 6d |. "Wimp_|CloseTem|
|00000ab0| 70 6c 61 74 65 22 0d 03 | b6 05 e1 0d 03 c0 12 dd |plate"..|........|
|00000ac0| a4 74 65 6d 70 6c 61 74 | 65 28 61 24 29 0d 03 ca |.templat|e(a$)...|
|00000ad0| 47 c8 99 20 22 57 69 6d | 70 5f 4c 6f 61 64 54 65 |G.. "Wim|p_LoadTe|
|00000ae0| 6d 70 6c 61 74 65 22 2c | 2c 62 6c 6f 63 6b 2c 69 |mplate",|,block,i|
|00000af0| 6e 64 69 72 2c 65 6e 64 | 62 75 66 25 2c 2d 31 2c |ndir,end|buf%,-1,|
|00000b00| 61 24 2c 30 20 b8 20 2c | 2c 69 6e 64 69 72 2c 2c |a$,0 . ,|,indir,,|
|00000b10| 2c 2c 63 25 0d 03 d4 2f | e7 20 63 25 3d 30 20 8c |,,c%.../|. c%=0 .|
|00000b20| 20 ef 37 3a f1 22 54 65 | 6d 70 6c 61 74 65 20 22 | .7:."Te|mplate "|
|00000b30| 3b 61 24 3b 22 20 6e 6f | 74 20 66 6f 75 6e 64 2e |;a$;" no|t found.|
|00000b40| 22 3a e0 0d 03 de 0e 62 | 6c 6f 63 6b 21 36 34 3d |":.....b|lock!64=|
|00000b50| 31 0d 03 e8 2a c8 99 20 | 22 57 69 6d 70 5f 43 72 |1...*.. |"Wimp_Cr|
|00000b60| 65 61 74 65 57 69 6e 64 | 6f 77 22 2c 2c 62 6c 6f |eateWind|ow",,blo|
|00000b70| 63 6b 20 b8 20 68 61 6e | 64 6c 65 0d 03 f2 0b 3d |ck . han|dle....=|
|00000b80| 68 61 6e 64 6c 65 0d 03 | fc 0e dd f2 6d 6f 61 6e |handle..|....moan|
|00000b90| 28 61 24 29 0d 04 06 1d | 21 69 63 6f 6e 64 3d 30 |(a$)....|!icond=0|
|00000ba0| 3a 24 28 69 63 6f 6e 64 | 2b 34 29 3d 61 24 2b bd |:$(icond|+4)=a$+.|
|00000bb0| 30 0d 04 10 2d c8 99 20 | 22 57 69 6d 70 5f 52 65 |0...-.. |"Wimp_Re|
|00000bc0| 70 6f 72 74 45 72 72 6f | 72 22 2c 69 63 6f 6e 64 |portErro|r",icond|
|00000bd0| 2c 31 2c 22 46 69 6c 65 | 4f 53 43 4c 49 22 0d 04 |,1,"File|OSCLI"..|
|00000be0| 1a 05 e1 0d 04 24 0a dd | f2 6d 65 73 73 0d 04 2e |.....$..|.mess...|
|00000bf0| 1c 74 61 73 6b 3d 62 6c | 6f 63 6b 21 34 3a 72 65 |.task=bl|ock!4:re|
|00000c00| 66 3d 62 6c 6f 63 6b 21 | 38 0d 04 38 11 c8 8e 20 |f=block!|8..8... |
|00000c10| 62 6c 6f 63 6b 21 31 36 | 20 ca 0d 04 42 0e c9 20 |block!16| ...B.. |
|00000c20| 30 3a 65 6e 64 25 3d b9 | 0d 04 4c 0e c9 20 34 3a |0:end%=.|..L.. 4:|
|00000c30| 61 63 6b 25 3d a3 0d 04 | 56 08 c9 20 33 3a 0d 04 |ack%=...|V.. 3:..|
|00000c40| 60 18 66 69 6c 65 24 3d | a4 73 74 72 28 62 6c 6f |`.file$=|.str(blo|
|00000c50| 63 6b 2b 34 34 29 0d 04 | 6a 0e 62 6c 6f 63 6b 21 |ck+44)..|j.block!|
|00000c60| 31 36 3d 34 0d 04 74 32 | c8 99 20 22 57 69 6d 70 |16=4..t2|.. "Wimp|
|00000c70| 5f 53 65 6e 64 4d 65 73 | 73 61 67 65 22 2c 65 76 |_SendMes|sage",ev|
|00000c80| 65 6e 74 63 6f 64 65 2c | 62 6c 6f 63 6b 2c 62 6c |entcode,|block,bl|
|00000c90| 6f 63 6b 21 31 32 0d 04 | 7e 1e 24 66 69 6c 65 25 |ock!12..|~.$file%|
|00000ca0| 3d 66 69 6c 65 24 3a f2 | 61 6c 74 65 72 28 38 2c |=file$:.|alter(8,|
|00000cb0| 30 2c 30 29 0d 04 88 05 | cb 0d 04 92 05 e1 0d 04 |0,0)....|........|
|00000cc0| 9c 0d dd a4 73 74 72 28 | 61 25 29 0d 04 a6 08 ea |....str(|a%).....|
|00000cd0| 20 62 24 0d 04 b0 0e c8 | 95 20 3f 61 25 3e 3d 33 | b$.....|. ?a%>=3|
|00000ce0| 32 0d 04 ba 0e 62 24 2b | 3d bd 28 3f 61 25 29 0d |2....b$+|=.(?a%).|
|00000cf0| 04 c4 09 61 25 2b 3d 31 | 0d 04 ce 05 ce 0d 04 d8 |...a%+=1|........|
|00000d00| 07 3d 62 24 0d 04 e2 16 | dd a4 74 61 64 28 68 61 |.=b$....|..tad(ha|
|00000d10| 6e 64 6c 65 2c 69 63 6f | 6e 29 0d 04 ec 15 f2 67 |ndle,ico|n).....g|
|00000d20| 69 69 28 68 61 6e 64 6c | 65 2c 69 63 6f 6e 29 0d |ii(handl|e,icon).|
|00000d30| 04 f6 0d 3d 69 63 6f 6e | 64 21 32 38 0d 05 00 16 |...=icon|d!28....|
|00000d40| dd f2 67 69 69 28 68 61 | 6e 64 6c 65 2c 69 63 6f |..gii(ha|ndle,ico|
|00000d50| 6e 29 0d 05 0a 1e 21 69 | 63 6f 6e 64 3d 68 61 6e |n)....!i|cond=han|
|00000d60| 64 6c 65 3a 69 63 6f 6e | 64 21 34 3d 69 63 6f 6e |dle:icon|d!4=icon|
|00000d70| 0d 05 14 21 c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |...!.. "|Wimp_Get|
|00000d80| 49 63 6f 6e 53 74 61 74 | 65 22 2c 2c 69 63 6f 6e |IconStat|e",,icon|
|00000d90| 64 0d 05 1e 05 e1 0d 05 | 28 1b dd f2 61 6c 74 65 |d.......|(...alte|
|00000da0| 72 28 69 63 6f 6e 2c 65 | 6f 72 2c 63 6c 65 61 72 |r(icon,e|or,clear|
|00000db0| 29 0d 05 32 1e 21 69 63 | 6f 6e 64 3d 63 6f 64 65 |)..2.!ic|ond=code|
|00000dc0| 72 25 3a 69 63 6f 6e 64 | 21 34 3d 69 63 6f 6e 0d |r%:icond|!4=icon.|
|00000dd0| 05 3c 1e 69 63 6f 6e 64 | 21 38 3d 65 6f 72 3a 69 |.<.icond|!8=eor:i|
|00000de0| 63 6f 6e 64 21 31 32 3d | 63 6c 65 61 72 0d 05 46 |cond!12=|clear..F|
|00000df0| 21 c8 99 20 22 57 69 6d | 70 5f 53 65 74 49 63 6f |!.. "Wim|p_SetIco|
|00000e00| 6e 53 74 61 74 65 22 2c | 2c 69 63 6f 6e 64 0d 05 |nState",|,icond..|
|00000e10| 50 05 e1 0d 05 5a 10 dd | f2 6f 70 65 6e 77 69 6e |P....Z..|.openwin|
|00000e20| 64 6f 77 0d 05 64 11 21 | 62 6c 6f 63 6b 3d 63 6f |dow..d.!|block=co|
|00000e30| 64 65 72 25 0d 05 6e 22 | c8 99 20 22 57 69 6d 70 |der%..n"|.. "Wimp|
|00000e40| 5f 47 65 74 57 69 6e 64 | 6f 77 49 6e 66 6f 22 2c |_GetWind|owInfo",|
|00000e50| 2c 62 6c 6f 63 6b 0d 05 | 78 1f c8 99 20 22 57 69 |,block..|x... "Wi|
|00000e60| 6d 70 5f 4f 70 65 6e 57 | 69 6e 64 6f 77 22 2c 2c |mp_OpenW|indow",,|
|00000e70| 62 6c 6f 63 6b 0d 05 82 | 05 e1 0d 05 8c 12 dd f2 |block...|........|
|00000e80| 73 74 61 74 65 28 77 69 | 2c 69 63 29 0d 05 96 18 |state(wi|,ic)....|
|00000e90| 21 62 6c 6f 63 6b 3d 77 | 69 3a 62 6c 6f 63 6b 21 |!block=w|i:block!|
|00000ea0| 34 3d 69 63 0d 05 a0 21 | c8 99 20 22 57 69 6d 70 |4=ic...!|.. "Wimp|
|00000eb0| 5f 47 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_GetIcon|State",,|
|00000ec0| 62 6c 6f 63 6b 0d 05 aa | 05 e1 0d 05 b4 13 dd a4 |block...|........|
|00000ed0| 73 65 6c 65 63 74 28 77 | 69 2c 69 63 29 0d 05 be |select(w|i,ic)...|
|00000ee0| 11 f2 73 74 61 74 65 28 | 77 69 2c 69 63 29 0d 05 |..state(|wi,ic)..|
|00000ef0| c8 22 e7 20 28 28 62 6c | 6f 63 6b 21 32 34 29 20 |.". ((bl|ock!24) |
|00000f00| 80 20 31 3c 3c 32 31 29 | 3e 30 20 8c 20 3d 2d 31 |. 1<<21)|>0 . =-1|
|00000f10| 0d 05 d2 06 3d 30 0d 05 | dc 1e dd f2 65 72 72 6f |....=0..|....erro|
|00000f20| 72 28 74 65 78 74 24 2c | 62 69 74 73 2c 74 69 74 |r(text$,|bits,tit|
|00000f30| 6c 65 24 29 0d 05 e6 21 | 21 62 6c 6f 63 6b 3d 30 |le$)...!|!block=0|
|00000f40| 3a 24 28 62 6c 6f 63 6b | 2b 34 29 3d 74 69 74 6c |:$(block|+4)=titl|
|00000f50| 65 24 2b bd 30 0d 05 f0 | 31 c8 99 20 22 57 69 6d |e$+.0...|1.. "Wim|
|00000f60| 70 5f 52 65 70 6f 72 74 | 45 72 72 6f 72 22 2c 62 |p_Report|Error",b|
|00000f70| 6c 6f 63 6b 2c 62 69 74 | 73 2c 74 65 78 74 24 20 |lock,bit|s,text$ |
|00000f80| b8 20 2c 6f 75 74 0d 05 | fa 0a 65 72 72 72 3d b9 |. ,out..|..errr=.|
|00000f90| 0d 06 04 05 e1 0d 06 0e | 0c dd f2 65 72 72 6f 72 |........|...error|
|00000fa0| 32 0d 06 18 3f f2 65 72 | 72 6f 72 28 22 46 69 6c |2...?.er|ror("Fil|
|00000fb0| 65 20 63 6f 64 65 72 22 | 2c 31 2c 22 49 6e 74 65 |e coder"|,1,"Inte|
|00000fc0| 72 6e 61 6c 20 65 72 72 | 6f 72 20 63 6f 64 65 20 |rnal err|or code |
|00000fd0| 22 2b c3 28 9f 29 2b 22 | 3a 22 2b c3 28 9e 29 29 |"+.(.)+"|:"+.(.))|
|00000fe0| 0d 06 22 18 c8 99 20 22 | 48 6f 75 72 67 6c 61 73 |.."... "|Hourglas|
|00000ff0| 73 5f 53 6d 61 73 68 22 | 0d 06 2c 05 e1 0d 06 36 |s_Smash"|..,....6|
|00001000| 08 dd f2 67 6f 0d 06 40 | 0a 65 72 72 72 3d 30 0d |...go..@|.errr=0.|
|00001010| 06 4a 33 e7 20 24 66 69 | 6c 65 25 3d 22 22 20 8c |.J3. $fi|le%="" .|
|00001020| 20 f2 65 72 72 6f 72 28 | 22 46 69 6c 65 20 63 6f | .error(|"File co|
|00001030| 64 65 72 22 2c 31 2c 22 | 42 61 64 20 6e 61 6d 65 |der",1,"|Bad name|
|00001040| 22 29 0d 06 54 12 6e 75 | 6d 3d 30 3a 77 6f 72 64 |")..T.nu|m=0:word|
|00001050| 24 3d 22 22 0d 06 5e 18 | 63 31 3d a4 73 65 6c 65 |$=""..^.|c1=.sele|
|00001060| 63 74 28 63 6f 64 65 72 | 25 2c 30 29 0d 06 68 18 |ct(coder|%,0)..h.|
|00001070| 63 32 3d a4 73 65 6c 65 | 63 74 28 63 6f 64 65 72 |c2=.sele|ct(coder|
|00001080| 25 2c 31 29 0d 06 72 18 | 63 33 3d a4 73 65 6c 65 |%,1)..r.|c3=.sele|
|00001090| 63 74 28 63 6f 64 65 72 | 25 2c 32 29 0d 06 7c 18 |ct(coder|%,2)..|.|
|000010a0| 63 34 3d a4 73 65 6c 65 | 63 74 28 63 6f 64 65 72 |c4=.sele|ct(coder|
|000010b0| 25 2c 33 29 0d 06 86 19 | 63 35 3d a4 73 65 6c 65 |%,3)....|c5=.sele|
|000010c0| 63 74 28 63 6f 64 65 72 | 25 2c 31 31 29 0d 06 90 |ct(coder|%,11)...|
|000010d0| 1e e7 20 24 62 79 74 65 | 25 3d 22 22 20 80 20 63 |.. $byte|%="" . c|
|000010e0| 31 3d 2d 31 20 8c 20 63 | 31 3d 30 0d 06 9a 1e e7 |1=-1 . c|1=0.....|
|000010f0| 20 24 77 6f 72 64 25 3d | 22 22 20 80 20 63 32 3d | $word%=|"" . c2=|
|00001100| 2d 31 20 8c 20 63 32 3d | 30 0d 06 a4 1e e7 20 24 |-1 . c2=|0..... $|
|00001110| 74 65 78 74 25 3d 22 22 | 20 80 20 63 33 3d 2d 31 |text%=""| . c3=-1|
|00001120| 20 8c 20 63 33 3d 30 0d | 06 ae 21 e7 20 24 64 6f | . c3=0.|..!. $do|
|00001130| 75 62 6c 65 31 25 3d 22 | 22 20 80 20 63 35 3d 2d |uble1%="|" . c5=-|
|00001140| 31 20 8c 20 63 35 3d 30 | 0d 06 b8 21 e7 20 24 64 |1 . c5=0|...!. $d|
|00001150| 6f 75 62 6c 65 32 25 3d | 22 22 20 80 20 63 35 3d |ouble2%=|"" . c5=|
|00001160| 2d 31 20 8c 20 63 35 3d | 30 0d 06 c2 75 e7 20 63 |-1 . c5=|0...u. c|
|00001170| 34 3d 2d 31 20 80 20 28 | 63 31 3d 2d 31 20 84 20 |4=-1 . (|c1=-1 . |
|00001180| 63 32 3d 2d 31 20 84 20 | 63 33 3d 2d 31 20 84 20 |c2=-1 . |c3=-1 . |
|00001190| 63 35 3d 2d 31 29 20 8c | 20 f2 65 72 72 6f 72 28 |c5=-1) .| .error(|
|000011a0| 22 46 69 6c 65 20 63 6f | 64 65 72 22 2c 31 2c 22 |"File co|der",1,"|
|000011b0| 42 69 74 20 72 65 76 65 | 72 73 61 6c 20 6d 61 79 |Bit reve|rsal may|
|000011c0| 20 62 65 20 6f 6e 6c 79 | 20 73 65 6c 65 63 74 65 | be only| selecte|
|000011d0| 64 20 6f 6e 20 69 74 73 | 20 6f 77 6e 22 29 0d 06 |d on its| own")..|
|000011e0| cc 54 e7 20 63 31 3d 30 | 20 80 20 63 32 3d 30 20 |.T. c1=0| . c2=0 |
|000011f0| 80 20 63 33 3d 30 20 80 | 20 63 34 3d 30 20 80 20 |. c3=0 .| c4=0 . |
|00001200| 63 35 3d 30 20 8c 20 f2 | 65 72 72 6f 72 28 22 46 |c5=0 . .|error("F|
|00001210| 69 6c 65 20 63 6f 64 65 | 72 22 2c 31 2c 22 4e 6f |ile code|r",1,"No|
|00001220| 20 63 6f 64 69 6e 67 20 | 73 65 6c 65 63 74 65 64 | coding |selected|
|00001230| 22 29 0d 06 d6 13 6e 75 | 6d 62 25 3d bb 28 24 62 |")....nu|mb%=.($b|
|00001240| 79 74 65 25 29 0d 06 e0 | 18 6e 75 6d 77 25 3d a0 |yte%)...|.numw%=.|
|00001250| 28 22 26 30 22 2b 24 77 | 6f 72 64 25 29 0d 06 ea |("&0"+$w|ord%)...|
|00001260| 40 e7 20 65 72 72 72 20 | f2 65 72 72 6f 72 28 22 |@. errr |.error("|
|00001270| 46 69 6c 65 20 63 6f 64 | 65 72 22 2c 31 2c 22 43 |File cod|er",1,"C|
|00001280| 6f 75 6c 64 6e 27 74 20 | 63 6f 64 65 20 66 69 6c |ouldn't |code fil|
|00001290| 65 20 22 2b 24 66 69 6c | 65 25 29 3a e1 0d 06 f4 |e "+$fil|e%):....|
|000012a0| 2b c8 99 20 22 58 4f 53 | 5f 46 69 6c 65 22 2c 31 |+.. "XOS|_File",1|
|000012b0| 33 2c 66 69 6c 65 25 20 | b8 20 74 79 70 65 2c 2c |3,file% |. type,,|
|000012c0| 2c 2c 6c 65 6e 67 74 68 | 0d 06 fe 3b e7 20 74 79 |,,length|...;. ty|
|000012d0| 70 65 3d 30 20 84 20 74 | 79 70 65 3d 32 20 f2 65 |pe=0 . t|ype=2 .e|
|000012e0| 72 72 6f 72 28 22 46 69 | 6c 65 20 63 6f 64 65 72 |rror("Fi|le coder|
|000012f0| 22 2c 31 2c 22 4e 6f 74 | 20 61 20 66 69 6c 65 22 |",1,"Not| a file"|
|00001300| 29 3a e1 0d 07 08 27 c8 | 99 20 22 57 69 6d 70 5f |):....'.|. "Wimp_|
|00001310| 53 6c 6f 74 53 69 7a 65 | 22 2c 2d 31 2c 2d 31 20 |SlotSize|",-1,-1 |
|00001320| b8 20 6f 72 69 67 73 69 | 7a 65 0d 07 12 26 c8 99 |. origsi|ze...&..|
|00001330| 20 22 57 69 6d 70 5f 53 | 6c 6f 74 53 69 7a 65 22 | "Wimp_S|lotSize"|
|00001340| 2c 2d 31 2c 2d 31 20 b8 | 20 63 75 72 73 69 7a 65 |,-1,-1 .| cursize|
|00001350| 0d 07 1c 20 62 75 66 66 | 65 72 3d 93 3a 62 75 66 |... buff|er=.:buf|
|00001360| 66 65 72 6c 65 6e 3d 63 | 75 72 73 69 7a 65 2d 93 |ferlen=c|ursize-.|
|00001370| 0d 07 26 1b e7 20 62 75 | 66 66 65 72 6c 65 6e 3c |..&.. bu|fferlen<|
|00001380| 6c 65 6e 67 74 68 2b 31 | 30 20 8c 0d 07 30 0b 61 |length+1|0 ...0.a|
|00001390| 6c 3d a4 61 64 64 0d 07 | 3a 11 e7 20 61 6c 20 8c |l=.add..|:.. al .|
|000013a0| 20 e5 20 8d 54 52 47 0d | 07 44 38 f2 65 72 72 6f | . .TRG.|.D8.erro|
|000013b0| 72 28 22 46 69 6c 65 20 | 63 6f 64 65 72 22 2c 31 |r("File |coder",1|
|000013c0| 2c 22 4e 6f 74 20 65 6e | 6f 75 67 68 20 6d 65 6d |,"Not en|ough mem|
|000013d0| 6f 72 79 20 61 76 61 69 | 6c 61 62 6c 65 22 29 0d |ory avai|lable").|
|000013e0| 07 4e 26 c8 99 20 22 57 | 69 6d 70 5f 53 6c 6f 74 |.N&.. "W|imp_Slot|
|000013f0| 53 69 7a 65 22 2c 2d 31 | 2c 2d 31 20 b8 20 63 75 |Size",-1|,-1 . cu|
|00001400| 72 73 69 7a 65 0d 07 58 | 21 41 3d a4 6d 65 6d 6f |rsize..X|!A=.memo|
|00001410| 72 79 28 6f 72 69 67 73 | 69 7a 65 2d 63 75 72 73 |ry(origs|ize-curs|
|00001420| 69 7a 65 29 3a e1 0d 07 | 62 05 cd 0d 07 6c 15 c8 |ize):...|b....l..|
|00001430| 99 20 22 48 6f 75 72 67 | 6c 61 73 73 5f 4f 6e 22 |. "Hourg|lass_On"|
|00001440| 0d 07 76 22 ff 28 22 4c | 4f 41 44 20 22 2b 24 66 |..v".("L|OAD "+$f|
|00001450| 69 6c 65 25 2b 22 20 22 | 2b c3 7e 62 75 66 66 65 |ile%+" "|+.~buffe|
|00001460| 72 29 0d 07 80 18 70 65 | 72 63 3d 39 39 2f 6c 65 |r)....pe|rc=99/le|
|00001470| 6e 67 74 68 3a 70 65 74 | 3d 30 0d 07 8a 10 e7 20 |ngth:pet|=0..... |
|00001480| 63 31 20 8c 20 f2 65 6f | 72 62 0d 07 94 10 e7 20 |c1 . .eo|rb..... |
|00001490| 63 32 20 8c 20 f2 65 6f | 72 77 0d 07 9e 1d e7 20 |c2 . .eo|rw..... |
|000014a0| 63 33 20 8c 20 77 6f 72 | 64 24 3d 24 74 65 78 74 |c3 . wor|d$=$text|
|000014b0| 25 3a f2 77 6f 72 64 0d | 07 a8 17 e7 20 63 34 20 |%:.word.|.... c4 |
|000014c0| 8c 20 f2 72 65 76 65 72 | 73 65 62 69 74 73 0d 07 |. .rever|sebits..|
|000014d0| b2 33 e7 20 63 35 20 8c | 20 77 6f 72 64 24 3d 24 |.3. c5 .| word$=$|
|000014e0| 64 6f 75 62 6c 65 31 25 | 3a 77 6f 72 64 32 24 3d |double1%|:word2$=|
|000014f0| 24 64 6f 75 62 6c 65 32 | 25 3a f2 64 6f 75 62 6c |$double2|%:.doubl|
|00001500| 65 0d 07 bc 2f ff 28 22 | 53 41 56 45 20 22 2b 24 |e.../.("|SAVE "+$|
|00001510| 66 69 6c 65 25 2b 22 20 | 22 2b c3 7e 62 75 66 66 |file%+" |"+.~buff|
|00001520| 65 72 2b 22 2b 22 2b c3 | 7e 6c 65 6e 67 74 68 29 |er+"+"+.|~length)|
|00001530| 0d 07 c6 27 ff 28 22 53 | 45 54 54 59 50 45 20 22 |...'.("S|ETTYPE "|
|00001540| 2b 24 66 69 6c 65 25 2b | 22 20 22 2b c3 7e 66 69 |+$file%+|" "+.~fi|
|00001550| 6c 65 74 79 70 65 29 0d | 07 d0 16 c8 99 20 22 48 |letype).|..... "H|
|00001560| 6f 75 72 67 6c 61 73 73 | 5f 4f 66 66 22 0d 07 da |ourglass|_Off"...|
|00001570| 26 c8 99 20 22 57 69 6d | 70 5f 53 6c 6f 74 53 69 |&.. "Wim|p_SlotSi|
|00001580| 7a 65 22 2c 2d 31 2c 2d | 31 20 b8 20 63 75 72 73 |ze",-1,-|1 . curs|
|00001590| 69 7a 65 0d 07 e4 1f 41 | 3d a4 6d 65 6d 6f 72 79 |ize....A|=.memory|
|000015a0| 28 6f 72 69 67 73 69 7a | 65 2d 63 75 72 73 69 7a |(origsiz|e-cursiz|
|000015b0| 65 29 0d 07 ee 05 e1 0d | 07 f8 11 dd f2 72 65 76 |e)......|.....rev|
|000015c0| 65 72 73 65 62 69 74 73 | 0d 08 02 12 e3 20 4c 3d |ersebits|..... L=|
|000015d0| 30 20 b8 20 6c 65 6e 67 | 74 68 0d 08 0c 12 61 3d |0 . leng|th....a=|
|000015e0| 62 75 66 66 65 72 3f 4c | 3a 63 3d 30 0d 08 16 12 |buffer?L|:c=0....|
|000015f0| e3 20 49 3d 37 20 b8 20 | 30 20 88 20 2d 31 0d 08 |. I=7 . |0 . -1..|
|00001600| 20 11 62 3d 28 61 20 80 | 20 28 32 5e 49 29 29 0d | .b=(a .| (2^I)).|
|00001610| 08 2a 18 e7 20 62 3e 30 | 20 8c 20 63 2b 3d 28 32 |.*.. b>0| . c+=(2|
|00001620| 5e 28 37 2d 49 29 29 0d | 08 34 05 ed 0d 08 3e 2b |^(7-I)).|.4....>+|
|00001630| c8 99 20 22 48 6f 75 72 | 67 6c 61 73 73 5f 50 65 |.. "Hour|glass_Pe|
|00001640| 72 63 65 6e 74 61 67 65 | 22 2c 70 65 74 3a 70 65 |rcentage|",pet:pe|
|00001650| 74 2b 3d 70 65 72 63 0d | 08 48 0e 62 75 66 66 65 |t+=perc.|.H.buffe|
|00001660| 72 3f 4c 3d 63 0d 08 52 | 05 ed 0d 08 5c 05 e1 0d |r?L=c..R|....\...|
|00001670| 08 66 0a dd f2 77 6f 72 | 64 0d 08 70 0f 77 6c 3d |.f...wor|d..p.wl=|
|00001680| a9 28 77 6f 72 64 24 29 | 0d 08 7a 12 e3 20 4c 3d |.(word$)|..z.. L=|
|00001690| 30 20 b8 20 6c 65 6e 67 | 74 68 0d 08 84 1c 61 3d |0 . leng|th....a=|
|000016a0| 62 75 66 66 65 72 3f 4c | 3a 62 3d 4c 20 83 20 77 |buffer?L|:b=L . w|
|000016b0| 6c 3a 62 2b 3d 31 0d 08 | 8e 14 62 3d 97 28 c1 77 |l:b+=1..|..b=.(.w|
|000016c0| 6f 72 64 24 2c 62 2c 31 | 29 29 0d 08 98 0b 61 3d |ord$,b,1|))....a=|
|000016d0| 61 20 82 20 62 0d 08 a2 | 0e 4c 3f 62 75 66 66 65 |a . b...|.L?buffe|
|000016e0| 72 3d 61 0d 08 ac 2b c8 | 99 20 22 48 6f 75 72 67 |r=a...+.|. "Hourg|
|000016f0| 6c 61 73 73 5f 50 65 72 | 63 65 6e 74 61 67 65 22 |lass_Per|centage"|
|00001700| 2c 70 65 74 3a 70 65 74 | 2b 3d 70 65 72 63 0d 08 |,pet:pet|+=perc..|
|00001710| b6 05 ed 0d 08 c0 05 e1 | 0d 08 ca 0a dd f2 65 6f |........|......eo|
|00001720| 72 62 0d 08 d4 12 e3 20 | 4c 3d 30 20 b8 20 6c 65 |rb..... |L=0 . le|
|00001730| 6e 67 74 68 0d 08 de 21 | 61 3d 62 75 66 66 65 72 |ngth...!|a=buffer|
|00001740| 3f 4c 3a 4c 3f 62 75 66 | 66 65 72 3d 61 20 82 20 |?L:L?buf|fer=a . |
|00001750| 6e 75 6d 62 25 0d 08 e8 | 2b c8 99 20 22 48 6f 75 |numb%...|+.. "Hou|
|00001760| 72 67 6c 61 73 73 5f 50 | 65 72 63 65 6e 74 61 67 |rglass_P|ercentag|
|00001770| 65 22 2c 70 65 74 3a 70 | 65 74 2b 3d 70 65 72 63 |e",pet:p|et+=perc|
|00001780| 0d 08 f2 05 ed 0d 08 fc | 05 e1 0d 09 06 0a dd f2 |........|........|
|00001790| 65 6f 72 77 0d 09 10 15 | 4c 31 3d 28 6c 65 6e 67 |eorw....|L1=(leng|
|000017a0| 74 68 20 81 20 34 29 2a | 34 0d 09 1a 0b 4c 31 3d |th . 4)*|4....L1=|
|000017b0| 4c 31 2d 34 0d 09 24 12 | e3 20 4c 3d 30 20 b8 20 |L1-4..$.|. L=0 . |
|000017c0| 4c 31 20 88 20 34 0d 09 | 2e 21 61 3d 62 75 66 66 |L1 . 4..|.!a=buff|
|000017d0| 65 72 21 4c 3a 4c 21 62 | 75 66 66 65 72 3d 61 20 |er!L:L!b|uffer=a |
|000017e0| 82 20 6e 75 6d 77 25 0d | 09 38 2b c8 99 20 22 48 |. numw%.|.8+.. "H|
|000017f0| 6f 75 72 67 6c 61 73 73 | 5f 50 65 72 63 65 6e 74 |ourglass|_Percent|
|00001800| 61 67 65 22 2c 70 65 74 | 3a 70 65 74 2b 3d 70 65 |age",pet|:pet+=pe|
|00001810| 72 63 0d 09 42 05 ed 0d | 09 4c 05 e1 0d 09 56 12 |rc..B...|.L....V.|
|00001820| dd a4 6d 65 6d 6f 72 79 | 28 70 6c 75 73 29 0d 09 |..memory|(plus)..|
|00001830| 60 26 c8 99 20 22 57 69 | 6d 70 5f 53 6c 6f 74 53 |`&.. "Wi|mp_SlotS|
|00001840| 69 7a 65 22 2c 2d 31 2c | 2d 31 20 b8 20 63 75 72 |ize",-1,|-1 . cur|
|00001850| 73 69 7a 65 0d 09 6a 26 | c8 99 20 22 57 69 6d 70 |size..j&|.. "Wimp|
|00001860| 5f 53 6c 6f 74 53 69 7a | 65 22 2c 63 75 72 73 69 |_SlotSiz|e",cursi|
|00001870| 7a 65 2b 70 6c 75 73 2c | 2d 31 0d 09 74 26 c8 99 |ze+plus,|-1..t&..|
|00001880| 20 22 57 69 6d 70 5f 53 | 6c 6f 74 53 69 7a 65 22 | "Wimp_S|lotSize"|
|00001890| 2c 2d 31 2c 2d 31 20 b8 | 20 6e 65 77 73 69 7a 65 |,-1,-1 .| newsize|
|000018a0| 0d 09 7e 20 e7 20 6e 65 | 77 73 69 7a 65 3c 3e 63 |..~ . ne|wsize<>c|
|000018b0| 75 72 73 69 7a 65 2b 70 | 6c 75 73 20 8c 20 3d 30 |ursize+p|lus . =0|
|000018c0| 0d 09 88 07 3d 2d 31 0d | 09 92 09 dd a4 61 64 64 |....=-1.|.....add|
|000018d0| 0d 09 9c 16 41 3d a4 6d | 65 6d 6f 72 79 28 31 36 |....A=.m|emory(16|
|000018e0| 2a 31 30 32 34 29 0d 09 | a6 0e e7 20 41 3d 30 20 |*1024)..|... A=0 |
|000018f0| 8c 20 3d 30 0d 09 b0 07 | 3d 2d 31 0d 09 ba 0c dd |. =0....|=-1.....|
|00001900| f2 64 6f 75 62 6c 65 0d | 09 c4 0f 77 6c 3d a9 28 |.double.|...wl=.(|
|00001910| 77 6f 72 64 24 29 0d 09 | ce 11 77 6c 32 3d a9 28 |word$)..|..wl2=.(|
|00001920| 77 6f 72 64 32 24 29 0d | 09 d8 12 e3 20 4c 3d 30 |word2$).|.... L=0|
|00001930| 20 b8 20 6c 65 6e 67 74 | 68 0d 09 e2 1c 61 3d 62 | . lengt|h....a=b|
|00001940| 75 66 66 65 72 3f 4c 3a | 62 3d 4c 20 83 20 77 6c |uffer?L:|b=L . wl|
|00001950| 3a 62 2b 3d 31 0d 09 ec | 14 62 3d 97 28 c1 77 6f |:b+=1...|.b=.(.wo|
|00001960| 72 64 24 2c 62 2c 31 29 | 29 0d 09 f6 14 62 32 3d |rd$,b,1)|)....b2=|
|00001970| 4c 20 83 20 77 6c 32 3a | 62 32 2b 3d 31 0d 0a 00 |L . wl2:|b2+=1...|
|00001980| 17 62 32 3d 97 28 c1 77 | 6f 72 64 32 24 2c 62 32 |.b2=.(.w|ord2$,b2|
|00001990| 2c 31 29 29 0d 0a 0a 0b | 61 3d 61 20 82 20 62 0d |,1))....|a=a . b.|
|000019a0| 0a 14 0c 61 3d 61 20 82 | 20 62 32 0d 0a 1e 0e 4c |...a=a .| b2....L|
|000019b0| 3f 62 75 66 66 65 72 3d | 61 0d 0a 28 2b c8 99 20 |?buffer=|a..(+.. |
|000019c0| 22 48 6f 75 72 67 6c 61 | 73 73 5f 50 65 72 63 65 |"Hourgla|ss_Perce|
|000019d0| 6e 74 61 67 65 22 2c 70 | 65 74 3a 70 65 74 2b 3d |ntage",p|et:pet+=|
|000019e0| 70 65 72 63 0d 0a 32 05 | ed 0d 0a 3c 05 e1 0d ff |perc..2.|...<....|
+--------+-------------------------+-------------------------+--------+--------+