/ Really Useful CD 1 / ReallyUsefulCD1.iso / extras / games / _yahtzee / _runimage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 00 11 f4 20 3e 20 | 21 52 75 6e 49 6d 61 67 |..... > |!RunImag|
|00000010| 65 0d 00 0a 17 f4 20 59 | 61 68 74 7a 65 65 20 44 |e..... Y|ahtzee D|
|00000020| 69 63 65 20 47 61 6d 65 | 0d 00 14 24 f4 20 69 6e |ice Game|...$. in|
|00000030| 20 41 72 63 68 69 6d 65 | 64 65 73 20 57 69 6d 70 | Archime|des Wimp|
|00000040| 20 45 6e 76 69 72 6f 6e | 6d 65 6e 74 0d 00 1e 2b | Environ|ment...+|
|00000050| f4 20 41 64 61 70 74 65 | 64 20 66 72 6f 6d 20 61 |. Adapte|d from a|
|00000060| 20 42 72 69 61 6e 20 4b | 69 6c 62 79 20 42 42 43 | Brian K|ilby BBC|
|00000070| 20 42 20 67 61 6d 65 0d | 00 28 12 f4 20 56 65 72 | B game.|.(.. Ver|
|00000080| 73 69 6f 6e 20 31 2e 33 | 30 0d 00 32 20 f4 20 28 |sion 1.3|0..2 . (|
|00000090| 63 29 20 41 6c 65 78 20 | 48 6f 70 6b 69 6e 73 20 |c) Alex |Hopkins |
|000000a0| 4a 75 6e 65 20 31 39 38 | 39 0d 00 3c 05 3a 0d 00 |June 198|9..<.:..|
|000000b0| 46 34 ee 20 85 20 c8 99 | 20 22 57 69 6d 70 5f 43 |F4. . ..| "Wimp_C|
|000000c0| 6c 6f 73 65 44 6f 77 6e | 22 20 3a 20 eb 31 32 20 |loseDown|" : .12 |
|000000d0| 3a 20 f1 20 f6 24 3b 22 | 20 40 20 22 3b 9e 20 3a |: . .$;"| @ ";. :|
|000000e0| 20 e0 0d 00 50 39 c8 99 | 20 22 57 69 6d 70 5f 49 | ...P9..| "Wimp_I|
|000000f0| 6e 69 74 69 61 6c 69 73 | 65 22 2c 32 30 30 2c 26 |nitialis|e",200,&|
|00000100| 34 42 35 33 34 31 35 34 | 2c 22 59 61 68 74 7a 65 |4B534154|,"Yahtze|
|00000110| 65 21 22 20 b8 20 2c 74 | 61 73 6b 0d 00 5a 0a f2 |e!" . ,t|ask..Z..|
|00000120| 73 65 74 75 70 0d 00 64 | 17 ee 20 85 20 f2 65 72 |setup..d|.. . .er|
|00000130| 72 6f 72 20 3a 20 51 75 | 69 74 3d b9 0d 00 6e 05 |ror : Qu|it=...n.|
|00000140| 3a 0d 00 78 05 f5 0d 00 | 82 13 f2 70 6f 6c 6c 28 |:..x....|...poll(|
|00000150| a4 70 6f 6c 6c 28 30 29 | 29 0d 00 8c 0a fd 20 51 |.poll(0)|)..... Q|
|00000160| 75 69 74 0d 00 96 17 c8 | 99 20 22 57 69 6d 70 5f |uit.....|. "Wimp_|
|00000170| 43 6c 6f 73 65 44 6f 77 | 6e 22 0d 00 a0 05 e0 0d |CloseDow|n"......|
|00000180| 00 aa 05 3a 0d 00 b4 0c | dd 20 f2 73 65 74 75 70 |...:....|. .setup|
|00000190| 0d 00 be 2b de 20 62 6c | 6f 63 6b 20 26 31 32 30 |...+. bl|ock &120|
|000001a0| 30 2c 74 65 6d 70 6c 61 | 74 65 25 20 26 31 32 30 |0,templa|te% &120|
|000001b0| 30 2c 6d 65 6e 75 20 26 | 31 35 30 0d 00 c8 2b de |0,menu &|150...+.|
|000001c0| 20 53 70 72 69 74 65 73 | 20 26 38 30 30 30 2c 66 | Sprites| &8000,f|
|000001d0| 61 63 74 6f 72 25 20 31 | 36 2c 70 69 78 74 72 61 |actor% 1|6,pixtra|
|000001e0| 6e 73 25 20 31 36 0d 00 | d2 25 de 20 53 70 69 6e |ns% 16..|.%. Spin|
|000001f0| 25 28 35 29 2c 44 69 63 | 65 25 28 35 29 2c 43 61 |%(5),Dic|e%(5),Ca|
|00000200| 74 65 67 6f 72 79 25 28 | 31 33 29 0d 00 dc 3e 21 |tegory%(|13)...>!|
|00000210| 53 70 72 69 74 65 73 3d | 26 38 30 30 30 20 3a 20 |Sprites=|&8000 : |
|00000220| 53 70 72 69 74 65 73 21 | 34 3d 30 20 3a 20 53 70 |Sprites!|4=0 : Sp|
|00000230| 72 69 74 65 73 21 38 3d | 31 36 20 3a 20 53 70 72 |rites!8=|16 : Spr|
|00000240| 69 74 65 73 21 31 32 3d | 30 0d 00 e6 38 c8 99 20 |ites!12=|0...8.. |
|00000250| 22 4f 53 5f 53 70 72 69 | 74 65 4f 70 22 2c 32 36 |"OS_Spri|teOp",26|
|00000260| 36 2c 53 70 72 69 74 65 | 73 2c 22 3c 59 61 68 74 |6,Sprite|s,"<Yaht|
|00000270| 7a 65 65 24 44 69 72 3e | 2e 53 70 72 69 74 65 73 |zee$Dir>|.Sprites|
|00000280| 22 0d 00 f0 2e 51 75 69 | 74 3d a3 20 3a 20 42 65 |"....Qui|t=. : Be|
|00000290| 73 74 25 3d 30 20 3a 20 | 49 63 6f 6e 3d a4 69 63 |st%=0 : |Icon=.ic|
|000002a0| 6f 6e 62 61 72 20 3a 20 | 69 6e 69 74 25 3d a3 0d |onbar : |init%=..|
|000002b0| 00 fa 26 d4 20 ee 20 3a | 20 c8 a0 20 31 20 3a 20 |..&. . :| .. 1 : |
|000002c0| c8 a1 20 31 2c 22 57 61 | 76 65 53 79 6e 74 68 2d |.. 1,"Wa|veSynth-|
|000002d0| 42 65 65 70 22 0d 01 04 | 21 f2 67 65 74 4d 6f 64 |Beep"...|!.getMod|
|000002e0| 65 49 6e 66 6f 20 3a 20 | f2 6c 6f 61 64 54 65 6d |eInfo : |.loadTem|
|000002f0| 70 6c 61 74 65 73 0d 01 | 0e 05 e1 0d 01 18 05 3a |plates..|.......:|
|00000300| 0d 01 22 0e dd 20 f2 7a | 65 72 6f 69 73 65 0d 01 |..".. .z|eroise..|
|00000310| 2c 30 74 65 78 74 24 3d | 22 72 6f 6c 6c 22 20 3a |,0text$=|"roll" :|
|00000320| 20 f2 72 65 49 6e 69 74 | 49 63 6f 6e 28 59 61 68 | .reInit|Icon(Yah|
|00000330| 74 7a 65 65 25 2c 31 2c | 74 65 78 74 24 29 0d 01 |tzee%,1,|text$)..|
|00000340| 36 43 74 65 78 74 24 3d | 22 6b 65 65 70 22 20 3a |6Ctext$=|"keep" :|
|00000350| 20 e3 20 61 25 3d 38 20 | b8 20 31 32 20 3a 20 f2 | . a%=8 |. 12 : .|
|00000360| 72 65 49 6e 69 74 49 63 | 6f 6e 28 59 61 68 74 7a |reInitIc|on(Yahtz|
|00000370| 65 65 25 2c 61 25 2c 74 | 65 78 74 24 29 20 3a 20 |ee%,a%,t|ext$) : |
|00000380| ed 0d 01 40 43 74 65 78 | 74 24 3d 22 30 22 20 20 |...@Ctex|t$="0"  |
|00000390| 20 20 3a 20 e3 20 61 25 | 3d 33 20 b8 20 37 20 20 |  : . a%|=3 . 7  |
|000003a0| 3a 20 f2 72 65 49 6e 69 | 74 49 63 6f 6e 28 59 61 |: .reIni|tIcon(Ya|
|000003b0| 68 74 7a 65 65 25 2c 61 | 25 2c 74 65 78 74 24 29 |htzee%,a|%,text$)|
|000003c0| 20 3a 20 ed 0d 01 4a 43 | 74 65 78 74 24 3d 22 73 | : ...JC|text$="s|
|000003d0| 30 22 20 20 3a 20 e3 20 | 61 25 3d 31 34 20 b8 20 |0"  : . |a%=14 . |
|000003e0| 37 38 20 3a 20 f2 72 65 | 49 6e 69 74 49 63 6f 6e |78 : .re|InitIcon|
|000003f0| 28 59 61 68 74 7a 65 65 | 25 2c 61 25 2c 74 65 78 |(Yahtzee|%,a%,tex|
|00000400| 74 24 29 20 3a 20 ed 0d | 01 54 43 74 65 78 74 24 |t$) : ..|.TCtext$|
|00000410| 3d 22 22 20 20 20 20 3a | 20 e3 20 61 25 3d 37 39 |=""    :| . a%=79|
|00000420| 20 b8 20 39 31 20 3a 20 | f2 72 65 49 6e 69 74 49 | . 91 : |.reInitI|
|00000430| 63 6f 6e 28 59 61 68 74 | 7a 65 65 25 2c 61 25 2c |con(Yaht|zee%,a%,|
|00000440| 74 65 78 74 24 29 20 3a | 20 ed 0d 01 5e 43 f2 72 |text$) :| ...^C.r|
|00000450| 65 49 6e 69 74 49 63 6f | 6e 28 59 61 68 74 7a 65 |eInitIco|n(Yahtze|
|00000460| 65 25 2c 39 34 2c 74 65 | 78 74 24 29 20 3a 20 f2 |e%,94,te|xt$) : .|
|00000470| 72 65 49 6e 69 74 49 63 | 6f 6e 28 59 61 68 74 7a |reInitIc|on(Yahtz|
|00000480| 65 65 25 2c 39 36 2c 74 | 65 78 74 24 29 0d 01 68 |ee%,96,t|ext$)..h|
|00000490| 22 f2 72 65 49 6e 69 74 | 49 63 6f 6e 28 59 61 68 |".reInit|Icon(Yah|
|000004a0| 74 7a 65 65 25 2c 31 31 | 30 2c 22 5b 5d 22 29 0d |tzee%,11|0,"[]").|
|000004b0| 01 72 05 e1 0d 01 7c 05 | 3a 0d 01 86 0f dd 20 f2 |.r....|.|:..... .|
|000004c0| 69 6e 69 74 47 61 6d 65 | 0d 01 90 3c 53 70 69 6e |initGame|...<Spin|
|000004d0| 25 28 29 3d b9 20 3a 20 | 43 61 74 65 67 6f 72 79 |%()=. : |Category|
|000004e0| 25 28 29 3d a3 20 3a 20 | 54 75 72 6e 25 3d 30 20 |%()=. : |Turn%=0 |
|000004f0| 3a 20 42 6f 6e 75 73 25 | 3d 30 20 3a 20 69 6e 69 |: Bonus%|=0 : ini|
|00000500| 74 25 3d b9 0d 01 9a 38 | 41 6c 6c 25 3d 30 20 3a |t%=....8|All%=0 :|
|00000510| 20 54 6f 74 61 6c 25 3d | 30 20 3a 20 53 75 62 54 | Total%=|0 : SubT|
|00000520| 6f 74 61 6c 25 3d 30 20 | 3a 20 47 6f 74 25 3d 30 |otal%=0 |: Got%=0|
|00000530| 20 3a 20 47 61 6d 65 6f | 6e 25 3d a3 0d 01 a4 05 | : Gameo|n%=.....|
|00000540| e1 0d 01 ae 05 3a 0d 01 | b8 12 dd 20 f2 67 65 74 |.....:..|... .get|
|00000550| 4d 6f 64 65 49 6e 66 6f | 0d 01 c2 3f c8 99 20 22 |ModeInfo|...?.. "|
|00000560| 57 69 6d 70 5f 52 65 61 | 64 50 69 78 54 72 61 6e |Wimp_Rea|dPixTran|
|00000570| 73 22 2c 32 35 36 2c 53 | 70 72 69 74 65 73 2c 22 |s",256,S|prites,"|
|00000580| 30 22 2c 2c 2c 2c 66 61 | 63 74 6f 72 25 2c 70 69 |0",,,,fa|ctor%,pi|
|00000590| 78 74 72 61 6e 73 25 0d | 01 cc 05 e1 0d 01 d6 05 |xtrans%.|........|
|000005a0| 3a 0d 01 e0 14 dd 20 f2 | 6c 6f 61 64 54 65 6d 70 |:..... .|loadTemp|
|000005b0| 6c 61 74 65 73 0d 01 ea | 35 c8 99 20 22 57 69 6d |lates...|5.. "Wim|
|000005c0| 70 5f 4f 70 65 6e 54 65 | 6d 70 6c 61 74 65 22 2c |p_OpenTe|mplate",|
|000005d0| 2c 22 3c 59 61 68 74 7a | 65 65 24 44 69 72 3e 2e |,"<Yahtz|ee$Dir>.|
|000005e0| 54 65 6d 70 6c 61 74 65 | 73 22 0d 01 f4 19 49 6e |Template|s"....In|
|000005f0| 66 6f 25 3d a4 77 69 6e | 64 6f 77 28 22 49 6e 66 |fo%=.win|dow("Inf|
|00000600| 6f 22 29 0d 01 fe 1f 59 | 61 68 74 7a 65 65 25 3d |o")....Y|ahtzee%=|
|00000610| a4 77 69 6e 64 6f 77 28 | 22 59 61 68 74 7a 65 65 |.window(|"Yahtzee|
|00000620| 22 29 0d 02 08 1b c8 99 | 20 22 57 69 6d 70 5f 43 |")......| "Wimp_C|
|00000630| 6c 6f 73 65 54 65 6d 70 | 6c 61 74 65 22 0d 02 12 |loseTemp|late"...|
|00000640| 05 e1 0d 02 1c 05 3a 0d | 02 26 11 dd 20 a4 77 69 |......:.|.&.. .wi|
|00000650| 6e 64 6f 77 28 61 24 29 | 0d 02 30 21 ea 20 65 6e |ndow(a$)|..0!. en|
|00000660| 64 25 20 3a 20 65 6e 64 | 25 3d 74 65 6d 70 6c 61 |d% : end|%=templa|
|00000670| 74 65 25 2b 26 31 32 30 | 30 0d 02 3a 4c c8 99 20 |te%+&120|0..:L.. |
|00000680| 22 57 69 6d 70 5f 4c 6f | 61 64 54 65 6d 70 6c 61 |"Wimp_Lo|adTempla|
|00000690| 74 65 22 2c 2c 62 6c 6f | 63 6b 2c 74 65 6d 70 6c |te",,blo|ck,templ|
|000006a0| 61 74 65 25 2c 65 6e 64 | 25 2c 2d 31 2c 61 24 2c |ate%,end|%,-1,a$,|
|000006b0| 30 20 b8 20 2c 2c 74 65 | 6d 70 6c 61 74 65 25 2c |0 . ,,te|mplate%,|
|000006c0| 2c 2c 2c 63 25 0d 02 44 | 14 62 6c 6f 63 6b 21 36 |,,,c%..D|.block!6|
|000006d0| 34 3d 53 70 72 69 74 65 | 73 0d 02 4e 26 c8 99 20 |4=Sprite|s..N&.. |
|000006e0| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 57 69 6e 64 |"Wimp_Cr|eateWind|
|000006f0| 6f 77 22 2c 2c 62 6c 6f | 63 6b 20 b8 20 63 25 0d |ow",,blo|ck . c%.|
|00000700| 02 58 07 3d 63 25 0d 02 | 62 05 3a 0d 02 6c 12 dd |.X.=c%..|b.:..l..|
|00000710| 20 a4 70 6f 6c 6c 28 6d | 61 73 6b 25 29 0d 02 76 | .poll(m|ask%)..v|
|00000720| 08 ea 20 61 25 0d 02 80 | 11 62 6c 6f 63 6b 21 30 |.. a%...|.block!0|
|00000730| 3d 6d 61 73 6b 25 0d 02 | 8a 1f c8 99 20 22 57 69 |=mask%..|.... "Wi|
|00000740| 6d 70 5f 50 6f 6c 6c 22 | 2c 30 2c 62 6c 6f 63 6b |mp_Poll"|,0,block|
|00000750| 20 b8 20 61 25 0d 02 94 | 07 3d 61 25 0d 02 9e 05 | . a%...|.=a%....|
|00000760| 3a 0d 02 a8 14 dd 20 f2 | 70 6f 6c 6c 28 72 65 61 |:..... .|poll(rea|
|00000770| 73 6f 6e 25 29 0d 02 b2 | 10 c8 8e 20 72 65 61 73 |son%)...|... reas|
|00000780| 6f 6e 25 20 ca 0d 02 bc | 20 c9 20 31 20 3a 20 f2 |on% ....| . 1 : .|
|00000790| 72 65 64 72 61 77 57 69 | 6e 64 6f 77 28 62 6c 6f |redrawWi|ndow(blo|
|000007a0| 63 6b 21 30 29 0d 02 c6 | 20 c9 20 32 20 3a 20 f2 |ck!0)...| . 2 : .|
|000007b0| 6f 70 65 6e 57 69 6e 64 | 6f 77 28 62 6c 6f 63 6b |openWind|ow(block|
|000007c0| 21 30 2c b9 29 0d 02 d0 | 1f c9 20 33 20 3a 20 f2 |!0,.)...|.. 3 : .|
|000007d0| 63 6c 6f 73 65 57 69 6e | 64 6f 77 28 62 6c 6f 63 |closeWin|dow(bloc|
|000007e0| 6b 21 30 29 0d 02 da 28 | c9 20 34 20 3a 20 e7 20 |k!0)...(|. 4 : . |
|000007f0| 28 62 6c 6f 63 6b 21 30 | 3d 49 6e 66 6f 25 29 20 |(block!0|=Info%) |
|00000800| 8c 20 f2 63 6c 6f 73 65 | 4d 65 6e 75 0d 02 e4 1d |. .close|Menu....|
|00000810| c9 20 36 20 3a 20 f2 62 | 75 74 74 6f 6e 43 6c 69 |. 6 : .b|uttonCli|
|00000820| 63 6b 28 62 6c 6f 63 6b | 29 0d 02 ee 1c c9 20 39 |ck(block|)..... 9|
|00000830| 20 3a 20 f2 6d 65 6e 75 | 53 65 6c 65 63 74 28 62 | : .menu|Select(b|
|00000840| 6c 6f 63 6b 29 0d 02 f8 | 1d c9 20 31 37 2c 31 38 |lock)...|.. 17,18|
|00000850| 20 3a 20 f2 6d 65 73 73 | 61 67 65 28 62 6c 6f 63 | : .mess|age(bloc|
|00000860| 6b 29 0d 03 02 05 cb 0d | 03 0c 05 e1 0d 03 16 05 |k)......|........|
|00000870| 3a 0d 03 20 17 dd 20 f2 | 6d 65 73 73 61 67 65 28 |:.. .. .|message(|
|00000880| 68 61 6e 64 6c 65 25 29 | 0d 03 2a 13 c8 8e 20 68 |handle%)|..*... h|
|00000890| 61 6e 64 6c 65 25 21 31 | 36 20 ca 0d 03 34 15 c9 |andle%!1|6 ...4..|
|000008a0| 20 30 20 20 20 20 20 20 | 3a 20 51 75 69 74 3d b9 | 0      |: Quit=.|
|000008b0| 0d 03 3e 1b c9 20 26 34 | 30 30 43 31 20 3a 20 f2 |..>.. &4|00C1 : .|
|000008c0| 67 65 74 4d 6f 64 65 49 | 6e 66 6f 0d 03 48 05 cb |getModeI|nfo..H..|
|000008d0| 0d 03 52 05 e1 0d 03 5c | 05 3a 0d 03 66 20 dd 20 |..R....\|.:..f . |
|000008e0| f2 6f 70 65 6e 57 69 6e | 64 6f 77 28 68 61 6e 64 |.openWin|dow(hand|
|000008f0| 6c 65 25 2c 66 75 6c 6c | 25 29 0d 03 70 13 62 6c |le%,full|%)..p.bl|
|00000900| 6f 63 6b 21 30 3d 68 61 | 6e 64 6c 65 25 0d 03 7a |ock!0=ha|ndle%..z|
|00000910| 3e e7 20 ac 20 66 75 6c | 6c 25 20 8c 20 c8 99 20 |>. . ful|l% . .. |
|00000920| 22 57 69 6d 70 5f 47 65 | 74 57 69 6e 64 6f 77 53 |"Wimp_Ge|tWindowS|
|00000930| 74 61 74 65 22 2c 30 2c | 62 6c 6f 63 6b 20 3a 20 |tate",0,|block : |
|00000940| 62 6c 6f 63 6b 21 32 38 | 3d 2d 31 0d 03 84 20 c8 |block!28|=-1... .|
|00000950| 99 20 22 57 69 6d 70 5f | 4f 70 65 6e 57 69 6e 64 |. "Wimp_|OpenWind|
|00000960| 6f 77 22 2c 30 2c 62 6c | 6f 63 6b 0d 03 8e 05 e1 |ow",0,bl|ock.....|
|00000970| 0d 03 98 05 3a 0d 03 a2 | 1c dd 20 f2 72 65 64 72 |....:...|.. .redr|
|00000980| 61 77 57 69 6e 64 6f 77 | 28 68 61 6e 64 6c 65 25 |awWindow|(handle%|
|00000990| 29 0d 03 ac 1d ea 20 6d | 6f 72 65 25 20 3a 20 62 |)..... m|ore% : b|
|000009a0| 6c 6f 63 6b 21 30 3d 68 | 61 6e 64 6c 65 25 0d 03 |lock!0=h|andle%..|
|000009b0| b6 2a c8 99 20 22 57 69 | 6d 70 5f 52 65 64 72 61 |.*.. "Wi|mp_Redra|
|000009c0| 77 57 69 6e 64 6f 77 22 | 2c 30 2c 62 6c 6f 63 6b |wWindow"|,0,block|
|000009d0| 20 b8 20 6d 6f 72 65 25 | 0d 03 c0 1d 78 30 25 3d | . more%|....x0%=|
|000009e0| 62 6c 6f 63 6b 21 34 20 | 3a 20 79 30 25 3d 62 6c |block!4 |: y0%=bl|
|000009f0| 6f 63 6b 21 38 0d 03 ca | 0c c8 95 20 6d 6f 72 65 |ock!8...|... more|
|00000a00| 25 0d 03 d4 29 c8 99 20 | 22 57 69 6d 70 5f 47 65 |%...).. |"Wimp_Ge|
|00000a10| 74 52 65 63 74 61 6e 67 | 6c 65 22 2c 2c 62 6c 6f |tRectang|le",,blo|
|00000a20| 63 6b 20 b8 20 6d 6f 72 | 65 25 0d 03 de 05 ce 0d |ck . mor|e%......|
|00000a30| 03 e8 05 e1 0d 03 f2 05 | 3a 0d 03 fc 1b dd 20 f2 |........|:..... .|
|00000a40| 63 6c 6f 73 65 57 69 6e | 64 6f 77 28 68 61 6e 64 |closeWin|dow(hand|
|00000a50| 6c 65 25 29 0d 04 06 13 | 62 6c 6f 63 6b 21 30 3d |le%)....|block!0=|
|00000a60| 68 61 6e 64 6c 65 25 0d | 04 10 21 c8 99 20 22 57 |handle%.|..!.. "W|
|00000a70| 69 6d 70 5f 43 6c 6f 73 | 65 57 69 6e 64 6f 77 22 |imp_Clos|eWindow"|
|00000a80| 2c 30 2c 62 6c 6f 63 6b | 0d 04 1a 05 e1 0d 04 24 |,0,block|.......$|
|00000a90| 05 3a 0d 04 2e 19 dd 20 | f2 62 75 74 74 6f 6e 43 |.:..... |.buttonC|
|00000aa0| 6c 69 63 6b 28 62 6c 6f | 63 6b 29 0d 04 38 37 68 |lick(blo|ck)..87h|
|00000ab0| 61 6e 64 6c 65 25 3d 62 | 6c 6f 63 6b 21 31 32 20 |andle%=b|lock!12 |
|00000ac0| 3a 20 69 63 6f 6e 25 3d | 62 6c 6f 63 6b 21 31 36 |: icon%=|block!16|
|00000ad0| 20 3a 20 62 75 74 74 6f | 6e 25 3d 62 6c 6f 63 6b | : butto|n%=block|
|00000ae0| 21 38 0d 04 42 24 e7 20 | 62 75 74 74 6f 6e 25 20 |!8..B$. |button% |
|00000af0| 80 20 32 20 8c 20 f2 6d | 65 6e 75 28 62 6c 6f 63 |. 2 . .m|enu(bloc|
|00000b00| 6b 29 20 3a 20 e1 0d 04 | 4c 1f e7 20 68 61 6e 64 |k) : ...|L.. hand|
|00000b10| 6c 65 25 3d 2d 32 20 80 | 20 69 63 6f 6e 25 3d 49 |le%=-2 .| icon%=I|
|00000b20| 63 6f 6e 20 8c 0d 04 56 | 22 20 20 20 20 20 3a 20 |con ...V|"     : |
|00000b30| f2 6f 70 65 6e 57 69 6e | 64 6f 77 28 59 61 68 74 |.openWin|dow(Yaht|
|00000b40| 7a 65 65 25 2c a3 29 0d | 04 60 2b 20 20 20 20 20 |zee%,.).|.`+     |
|00000b50| 3a 20 e7 20 69 6e 69 74 | 25 3d a3 20 8c 20 f2 7a |: . init|%=. . .z|
|00000b60| 65 72 6f 69 73 65 20 3a | 20 f2 69 6e 69 74 47 61 |eroise :| .initGa|
|00000b70| 6d 65 0d 04 6a 0c 20 20 | 20 20 20 3a 20 e1 0d 04 |me..j.  |   : ...|
|00000b80| 74 05 cd 0d 04 7e 35 62 | 6c 6f 63 6b 21 30 3d 68 |t....~5b|lock!0=h|
|00000b90| 61 6e 64 6c 65 25 20 3a | 20 c8 99 20 22 57 69 6d |andle% :| .. "Wim|
|00000ba0| 70 5f 47 65 74 57 69 6e | 64 6f 77 49 6e 66 6f 22 |p_GetWin|dowInfo"|
|00000bb0| 2c 30 2c 62 6c 6f 63 6b | 0d 04 88 1d 78 30 25 3d |,0,block|....x0%=|
|00000bc0| 62 6c 6f 63 6b 21 34 20 | 3a 20 79 30 25 3d 62 6c |block!4 |: y0%=bl|
|00000bd0| 6f 63 6b 21 38 0d 04 92 | 10 c8 8e 20 68 61 6e 64 |ock!8...|... hand|
|00000be0| 6c 65 25 20 ca 0d 04 9c | 1b c9 20 59 61 68 74 7a |le% ....|.. Yahtz|
|00000bf0| 65 65 25 20 3a 20 c8 8e | 20 69 63 6f 6e 25 20 ca |ee% : ..| icon% .|
|00000c00| 0d 04 a6 49 c9 20 39 37 | 2c 39 38 2c 39 39 2c 31 |...I. 97|,98,99,1|
|00000c10| 30 30 2c 31 30 31 2c 31 | 30 32 2c 31 30 33 2c 31 |00,101,1|02,103,1|
|00000c20| 30 34 2c 31 30 35 2c 31 | 30 36 2c 31 30 37 2c 31 |04,105,1|06,107,1|
|00000c30| 30 38 2c 31 30 39 20 3a | 20 f2 63 68 65 63 6b 28 |08,109 :| .check(|
|00000c40| 69 63 6f 6e 25 2d 39 36 | 29 0d 04 b0 28 c9 20 31 |icon%-96|)...(. 1|
|00000c50| 20 3a 20 54 75 72 6e 25 | 2b 3d 31 20 3a 20 e7 20 | : Turn%|+=1 : . |
|00000c60| 54 75 72 6e 25 3e 33 20 | 8c 20 ef 20 37 20 3a 20 |Turn%>3 |. . 7 : |
|00000c70| e1 0d 04 ba 3a 20 20 20 | 20 20 20 20 3a 20 e7 20 |....:   |    : . |
|00000c80| 54 75 72 6e 25 3d 33 20 | 8c 20 f2 72 65 64 72 61 |Turn%=3 |. .redra|
|00000c90| 77 49 63 6f 6e 28 59 61 | 68 74 7a 65 65 25 2c 31 |wIcon(Ya|htzee%,1|
|00000ca0| 2c 22 72 6f 6c 6c 6f 66 | 66 22 29 0d 04 c4 20 20 |,"rollof|f")...  |
|00000cb0| 20 20 20 20 20 20 3a 20 | e7 20 47 6f 74 25 3d 31 |      : |. Got%=1|
|00000cc0| 33 20 8c 20 ef 20 37 20 | 3a 20 e1 0d 04 ce 23 20 |3 . . 7 |: ....# |
|00000cd0| 20 20 20 20 20 20 3a 20 | d4 20 31 2c 2d 31 32 2c |      : |. 1,-12,|
|00000ce0| 31 32 30 2c 36 20 3a 20 | f2 74 68 72 6f 77 0d 04 |120,6 : |.throw..|
|00000cf0| d8 1e c9 20 30 20 3a 20 | f2 7a 65 72 6f 69 73 65 |... 0 : |.zeroise|
|00000d00| 20 3a 20 f2 69 6e 69 74 | 47 61 6d 65 0d 04 e2 24 | : .init|Game...$|
|00000d10| 20 20 20 20 20 20 20 3a | 20 f2 72 65 64 72 61 77 |       :| .redraw|
|00000d20| 57 69 6e 64 6f 77 28 59 | 61 68 74 7a 65 65 25 29 |Window(Y|ahtzee%)|
|00000d30| 0d 04 ec 05 cb 0d 04 f6 | 0f e7 20 54 75 72 6e 25 |........|.. Turn%|
|00000d40| 3e 30 20 8c 0d 05 00 0e | c8 8e 20 69 63 6f 6e 25 |>0 .....|.. icon%|
|00000d50| 20 ca 0d 05 0a 29 c9 20 | 38 20 20 3a 20 d4 20 31 | ....). |8  : . 1|
|00000d60| 2c 2d 31 32 2c 31 38 30 | 2c 36 20 3a 20 e7 20 53 |,-12,180|,6 : . S|
|00000d70| 70 69 6e 25 28 31 29 3d | a3 20 8c 0d 05 14 3a 20 |pin%(1)=|. ....: |
|00000d80| 20 20 20 20 20 20 20 3a | 20 53 70 69 6e 25 28 31 |       :| Spin%(1|
|00000d90| 29 3d b9 20 20 3a 20 f2 | 72 65 64 72 61 77 49 63 |)=.  : .|redrawIc|
|00000da0| 6f 6e 28 59 61 68 74 7a | 65 65 25 2c 38 2c 22 6b |on(Yahtz|ee%,8,"k|
|00000db0| 65 65 70 22 29 0d 05 1e | 37 cc 20 20 20 20 3a 20 |eep")...|7.    : |
|00000dc0| 53 70 69 6e 25 28 31 29 | 3d a3 20 3a 20 f2 72 65 |Spin%(1)|=. : .re|
|00000dd0| 64 72 61 77 49 63 6f 6e | 28 59 61 68 74 7a 65 65 |drawIcon|(Yahtzee|
|00000de0| 25 2c 38 2c 22 6b 65 65 | 70 32 22 29 0d 05 28 05 |%,8,"kee|p2")..(.|
|00000df0| cd 0d 05 32 29 c9 20 39 | 20 20 3a 20 d4 20 31 2c |...2). 9|  : . 1,|
|00000e00| 2d 31 32 2c 31 37 30 2c | 36 20 3a 20 e7 20 53 70 |-12,170,|6 : . Sp|
|00000e10| 69 6e 25 28 32 29 3d a3 | 20 8c 0d 05 3c 3a 20 20 |in%(2)=.| ...<:  |
|00000e20| 20 20 20 20 20 20 3a 20 | 53 70 69 6e 25 28 32 29 |      : |Spin%(2)|
|00000e30| 3d b9 20 20 3a 20 f2 72 | 65 64 72 61 77 49 63 6f |=.  : .r|edrawIco|
|00000e40| 6e 28 59 61 68 74 7a 65 | 65 25 2c 39 2c 22 6b 65 |n(Yahtze|e%,9,"ke|
|00000e50| 65 70 22 29 0d 05 46 37 | cc 20 20 20 20 3a 20 53 |ep")..F7|.    : S|
|00000e60| 70 69 6e 25 28 32 29 3d | a3 20 3a 20 f2 72 65 64 |pin%(2)=|. : .red|
|00000e70| 72 61 77 49 63 6f 6e 28 | 59 61 68 74 7a 65 65 25 |rawIcon(|Yahtzee%|
|00000e80| 2c 39 2c 22 6b 65 65 70 | 32 22 29 0d 05 50 05 cd |,9,"keep|2")..P..|
|00000e90| 0d 05 5a 29 c9 20 31 30 | 20 3a 20 d4 20 31 2c 2d |..Z). 10| : . 1,-|
|00000ea0| 31 32 2c 31 36 30 2c 36 | 20 3a 20 e7 20 53 70 69 |12,160,6| : . Spi|
|00000eb0| 6e 25 28 33 29 3d a3 20 | 8c 0d 05 64 3b 20 20 20 |n%(3)=. |...d;   |
|00000ec0| 20 20 20 20 20 3a 20 53 | 70 69 6e 25 28 33 29 3d |     : S|pin%(3)=|
|00000ed0| b9 20 20 3a 20 f2 72 65 | 64 72 61 77 49 63 6f 6e |.  : .re|drawIcon|
|00000ee0| 28 59 61 68 74 7a 65 65 | 25 2c 31 30 2c 22 6b 65 |(Yahtzee|%,10,"ke|
|00000ef0| 65 70 22 29 0d 05 6e 38 | cc 20 20 20 20 3a 20 53 |ep")..n8|.    : S|
|00000f00| 70 69 6e 25 28 33 29 3d | a3 20 3a 20 f2 72 65 64 |pin%(3)=|. : .red|
|00000f10| 72 61 77 49 63 6f 6e 28 | 59 61 68 74 7a 65 65 25 |rawIcon(|Yahtzee%|
|00000f20| 2c 31 30 2c 22 6b 65 65 | 70 32 22 29 0d 05 78 05 |,10,"kee|p2")..x.|
|00000f30| cd 0d 05 82 29 c9 20 31 | 31 20 3a 20 d4 20 31 2c |....). 1|1 : . 1,|
|00000f40| 2d 31 32 2c 31 35 30 2c | 36 20 3a 20 e7 20 53 70 |-12,150,|6 : . Sp|
|00000f50| 69 6e 25 28 34 29 3d a3 | 20 8c 0d 05 8c 3b 20 20 |in%(4)=.| ....;  |
|00000f60| 20 20 20 20 20 20 3a 20 | 53 70 69 6e 25 28 34 29 |      : |Spin%(4)|
|00000f70| 3d b9 20 20 3a 20 f2 72 | 65 64 72 61 77 49 63 6f |=.  : .r|edrawIco|
|00000f80| 6e 28 59 61 68 74 7a 65 | 65 25 2c 31 31 2c 22 6b |n(Yahtze|e%,11,"k|
|00000f90| 65 65 70 22 29 0d 05 96 | 38 cc 20 20 20 20 3a 20 |eep")...|8.    : |
|00000fa0| 53 70 69 6e 25 28 34 29 | 3d a3 20 3a 20 f2 72 65 |Spin%(4)|=. : .re|
|00000fb0| 64 72 61 77 49 63 6f 6e | 28 59 61 68 74 7a 65 65 |drawIcon|(Yahtzee|
|00000fc0| 25 2c 31 31 2c 22 6b 65 | 65 70 32 22 29 0d 05 a0 |%,11,"ke|ep2")...|
|00000fd0| 05 cd 0d 05 aa 29 c9 20 | 31 32 20 3a 20 d4 20 31 |.....). |12 : . 1|
|00000fe0| 2c 2d 31 32 2c 31 34 30 | 2c 36 20 3a 20 e7 20 53 |,-12,140|,6 : . S|
|00000ff0| 70 69 6e 25 28 35 29 3d | a3 20 8c 0d 05 b4 3b 20 |pin%(5)=|. ....; |
|00001000| 20 20 20 20 20 20 20 3a | 20 53 70 69 6e 25 28 35 |       :| Spin%(5|
|00001010| 29 3d b9 20 20 3a 20 f2 | 72 65 64 72 61 77 49 63 |)=.  : .|redrawIc|
|00001020| 6f 6e 28 59 61 68 74 7a | 65 65 25 2c 31 32 2c 22 |on(Yahtz|ee%,12,"|
|00001030| 6b 65 65 70 22 29 0d 05 | be 38 cc 20 20 20 20 3a |keep")..|.8.    :|
|00001040| 20 53 70 69 6e 25 28 35 | 29 3d a3 20 3a 20 f2 72 | Spin%(5|)=. : .r|
|00001050| 65 64 72 61 77 49 63 6f | 6e 28 59 61 68 74 7a 65 |edrawIco|n(Yahtze|
|00001060| 65 25 2c 31 32 2c 22 6b | 65 65 70 32 22 29 0d 05 |e%,12,"k|eep2")..|
|00001070| c8 05 cd 0d 05 d2 05 cb | 0d 05 dc 05 cd 0d 05 e6 |........|........|
|00001080| 05 cb 0d 05 f0 05 e1 0d | 05 fa 05 3a 0d 06 04 12 |........|...:....|
|00001090| dd 20 f2 6d 65 6e 75 28 | 62 6c 6f 63 6b 29 0d 06 |. .menu(|block)..|
|000010a0| 0e 11 c8 8e 20 62 6c 6f | 63 6b 21 31 32 20 ca 0d |.... blo|ck!12 ..|
|000010b0| 06 18 2c c9 20 2d 32 20 | 3a 20 f2 64 72 61 77 4d |..,. -2 |: .drawM|
|000010c0| 65 6e 75 28 31 2c 22 59 | 61 68 74 7a 65 65 21 2c |enu(1,"Y|ahtzee!,|
|000010d0| 49 6e 66 6f 2c 51 75 69 | 74 22 29 0d 06 22 38 20 |Info,Qui|t").."8 |
|000010e0| 20 20 20 20 20 20 20 3a | 20 c8 99 20 22 57 69 6d |       :| .. "Wim|
|000010f0| 70 5f 43 72 65 61 74 65 | 4d 65 6e 75 22 2c 2c 6d |p_Create|Menu",,m|
|00001100| 65 6e 75 2b 34 2c 21 62 | 6c 6f 63 6b 2d 36 34 2c |enu+4,!b|lock-64,|
|00001110| 31 37 36 0d 06 2c 05 cb | 0d 06 36 05 e1 0d 06 40 |176..,..|..6....@|
|00001120| 05 3a 0d 06 4a 18 dd 20 | f2 6d 65 6e 75 53 65 6c |.:..J.. |.menuSel|
|00001130| 65 63 74 28 62 6c 6f 63 | 6b 29 0d 06 54 0e c8 8e |ect(bloc|k)..T...|
|00001140| 20 21 6d 65 6e 75 20 ca | 0d 06 5e 19 c9 20 31 20 | !menu .|..^.. 1 |
|00001150| 3a 20 f2 69 63 6f 6e 62 | 61 72 28 62 6c 6f 63 6b |: .iconb|ar(block|
|00001160| 29 0d 06 68 05 cb 0d 06 | 72 05 e1 0d 06 7c 05 3a |)..h....|r....|.:|
|00001170| 0d 06 86 15 dd 20 f2 69 | 63 6f 6e 62 61 72 28 62 |..... .i|conbar(b|
|00001180| 6c 6f 63 6b 29 0d 06 90 | 0f c8 8e 20 21 62 6c 6f |lock)...|... !blo|
|00001190| 63 6b 20 ca 0d 06 9a 10 | c9 20 31 20 3a 20 51 75 |ck .....|. 1 : Qu|
|000011a0| 69 74 3d b9 0d 06 a4 05 | cb 0d 06 ae 05 e1 0d 06 |it=.....|........|
|000011b0| b8 05 3a 0d 06 c2 10 dd | 20 f2 63 6c 6f 73 65 4d |..:.....| .closeM|
|000011c0| 65 6e 75 0d 06 cc 1b c8 | 99 20 22 57 69 6d 70 5f |enu.....|. "Wimp_|
|000011d0| 43 72 65 61 74 65 4d 65 | 6e 75 22 2c 2d 31 0d 06 |CreateMe|nu",-1..|
|000011e0| d6 17 f2 63 6c 6f 73 65 | 57 69 6e 64 6f 77 28 49 |...close|Window(I|
|000011f0| 6e 66 6f 25 29 0d 06 e0 | 05 e1 0d 06 ea 05 3a 0d |nfo%)...|......:.|
|00001200| 06 f4 21 dd 20 f2 67 65 | 74 49 63 6f 6e 49 6e 66 |..!. .ge|tIconInf|
|00001210| 6f 28 68 61 6e 64 6c 65 | 25 2c 69 63 6f 6e 25 29 |o(handle|%,icon%)|
|00001220| 0d 06 fe 23 62 6c 6f 63 | 6b 21 30 3d 68 61 6e 64 |...#bloc|k!0=hand|
|00001230| 6c 65 25 20 3a 20 62 6c | 6f 63 6b 21 34 3d 69 63 |le% : bl|ock!4=ic|
|00001240| 6f 6e 25 0d 07 08 21 c8 | 99 20 22 57 69 6d 70 5f |on%...!.|. "Wimp_|
|00001250| 47 65 74 49 63 6f 6e 53 | 74 61 74 65 22 2c 2c 62 |GetIconS|tate",,b|
|00001260| 6c 6f 63 6b 0d 07 12 40 | 69 78 30 25 3d 62 6c 6f |lock...@|ix0%=blo|
|00001270| 63 6b 21 38 20 3a 20 69 | 79 30 25 3d 62 6c 6f 63 |ck!8 : i|y0%=bloc|
|00001280| 6b 21 31 32 20 3a 20 69 | 78 31 25 3d 62 6c 6f 63 |k!12 : i|x1%=bloc|
|00001290| 6b 21 31 36 20 3a 20 69 | 79 31 25 3d 62 6c 6f 63 |k!16 : i|y1%=bloc|
|000012a0| 6b 21 32 30 0d 07 1c 13 | 66 6c 61 67 73 25 3d 62 |k!20....|flags%=b|
|000012b0| 6c 6f 63 6b 21 32 34 0d | 07 26 15 64 61 74 61 24 |lock!24.|.&.data$|
|000012c0| 3d 24 28 62 6c 6f 63 6b | 2b 32 38 29 0d 07 30 05 |=$(block|+28)..0.|
|000012d0| e1 0d 07 3a 05 3a 0d 07 | 44 20 dd 20 f2 64 65 6c |...:.:..|D . .del|
|000012e0| 65 74 65 49 63 6f 6e 28 | 68 61 6e 64 6c 65 25 2c |eteIcon(|handle%,|
|000012f0| 69 63 6f 6e 25 29 0d 07 | 4e 23 62 6c 6f 63 6b 21 |icon%)..|N#block!|
|00001300| 30 3d 68 61 6e 64 6c 65 | 25 20 3a 20 62 6c 6f 63 |0=handle|% : bloc|
|00001310| 6b 21 34 3d 69 63 6f 6e | 25 0d 07 58 1f c8 99 20 |k!4=icon|%..X... |
|00001320| 22 57 69 6d 70 5f 44 65 | 6c 65 74 65 49 63 6f 6e |"Wimp_De|leteIcon|
|00001330| 22 2c 2c 62 6c 6f 63 6b | 0d 07 62 05 e1 0d 07 6c |",,block|..b....l|
|00001340| 05 3a 0d 07 76 26 dd 20 | f2 72 65 64 72 61 77 49 |.:..v&. |.redrawI|
|00001350| 63 6f 6e 28 68 61 6e 64 | 6c 65 25 2c 69 63 6f 6e |con(hand|le%,icon|
|00001360| 25 2c 74 65 78 74 24 29 | 0d 07 80 3c f2 67 65 74 |%,text$)|...<.get|
|00001370| 49 63 6f 6e 49 6e 66 6f | 28 68 61 6e 64 6c 65 25 |IconInfo|(handle%|
|00001380| 2c 69 63 6f 6e 25 29 20 | 3a 20 f2 64 65 6c 65 74 |,icon%) |: .delet|
|00001390| 65 49 63 6f 6e 28 68 61 | 6e 64 6c 65 25 2c 69 63 |eIcon(ha|ndle%,ic|
|000013a0| 6f 6e 25 29 0d 07 8a 3c | 69 25 3d a4 63 72 65 61 |on%)...<|i%=.crea|
|000013b0| 74 65 49 63 6f 6e 28 68 | 61 6e 64 6c 65 25 2c 69 |teIcon(h|andle%,i|
|000013c0| 78 30 25 2c 69 79 30 25 | 2c 69 78 31 25 2c 69 79 |x0%,iy0%|,ix1%,iy|
|000013d0| 31 25 2c 66 6c 61 67 73 | 25 2c 74 65 78 74 24 29 |1%,flags|%,text$)|
|000013e0| 0d 07 94 35 c8 99 20 22 | 57 69 6d 70 5f 46 6f 72 |...5.. "|Wimp_For|
|000013f0| 63 65 52 65 64 72 61 77 | 22 2c 68 61 6e 64 6c 65 |ceRedraw|",handle|
|00001400| 25 2c 69 78 30 25 2c 69 | 79 30 25 2c 69 78 31 25 |%,ix0%,i|y0%,ix1%|
|00001410| 2c 69 79 31 25 0d 07 9e | 05 e1 0d 07 a8 05 3a 0d |,iy1%...|......:.|
|00001420| 07 b2 26 dd 20 f2 72 65 | 49 6e 69 74 49 63 6f 6e |..&. .re|InitIcon|
|00001430| 28 68 61 6e 64 6c 65 25 | 2c 69 63 6f 6e 25 2c 74 |(handle%|,icon%,t|
|00001440| 65 78 74 24 29 0d 07 bc | 3c f2 67 65 74 49 63 6f |ext$)...|<.getIco|
|00001450| 6e 49 6e 66 6f 28 68 61 | 6e 64 6c 65 25 2c 69 63 |nInfo(ha|ndle%,ic|
|00001460| 6f 6e 25 29 20 3a 20 f2 | 64 65 6c 65 74 65 49 63 |on%) : .|deleteIc|
|00001470| 6f 6e 28 68 61 6e 64 6c | 65 25 2c 69 63 6f 6e 25 |on(handl|e%,icon%|
|00001480| 29 0d 07 c6 3c 69 25 3d | a4 63 72 65 61 74 65 49 |)...<i%=|.createI|
|00001490| 63 6f 6e 28 68 61 6e 64 | 6c 65 25 2c 69 78 30 25 |con(hand|le%,ix0%|
|000014a0| 2c 69 79 30 25 2c 69 78 | 31 25 2c 69 79 31 25 2c |,iy0%,ix|1%,iy1%,|
|000014b0| 66 6c 61 67 73 25 2c 74 | 65 78 74 24 29 0d 07 d0 |flags%,t|ext$)...|
|000014c0| 05 e1 0d 07 da 05 3a 0d | 07 e4 16 dd 20 f2 75 70 |......:.|.... .up|
|000014d0| 64 61 74 65 54 6f 74 61 | 6c 28 74 25 29 0d 07 ee |dateTota|l(t%)...|
|000014e0| 2e 74 65 78 74 24 3d c3 | 28 74 25 29 20 3a 20 e7 |.text$=.|(t%) : .|
|000014f0| 20 a9 74 65 78 74 24 3c | 33 20 8c 20 74 65 78 74 | .text$<|3 . text|
|00001500| 24 3d 22 20 22 2b 74 65 | 78 74 24 0d 07 f8 20 e7 |$=" "+te|xt$... .|
|00001510| 20 a9 74 65 78 74 24 3c | 32 20 8c 20 74 65 78 74 | .text$<|2 . text|
|00001520| 24 3d 22 20 22 2b 74 65 | 78 74 24 0d 08 02 22 f2 |$=" "+te|xt$...".|
|00001530| 72 65 64 72 61 77 49 63 | 6f 6e 28 59 61 68 74 7a |redrawIc|on(Yahtz|
|00001540| 65 65 25 2c 39 34 2c 74 | 65 78 74 24 29 0d 08 0c |ee%,94,t|ext$)...|
|00001550| 45 e7 20 74 25 3e 42 65 | 73 74 25 20 8c 20 42 65 |E. t%>Be|st% . Be|
|00001560| 73 74 25 3d 74 25 20 3a | 20 f2 72 65 64 72 61 77 |st%=t% :| .redraw|
|00001570| 49 63 6f 6e 28 59 61 68 | 74 7a 65 65 25 2c 39 32 |Icon(Yah|tzee%,92|
|00001580| 2c 22 42 45 53 54 20 22 | 2b c3 28 42 65 73 74 25 |,"BEST "|+.(Best%|
|00001590| 29 29 0d 08 16 05 e1 0d | 08 20 05 3a 0d 08 2a 20 |))......|. .:..* |
|000015a0| dd 20 f2 75 70 64 61 74 | 65 50 6f 69 6e 74 73 28 |. .updat|ePoints(|
|000015b0| 70 6e 74 73 25 2c 69 63 | 6f 6e 25 29 0d 08 34 31 |pnts%,ic|on%)..41|
|000015c0| 74 65 78 74 24 3d c3 28 | 70 6e 74 73 25 29 20 3a |text$=.(|pnts%) :|
|000015d0| 20 e7 20 a9 74 65 78 74 | 24 3c 32 20 8c 20 74 65 | . .text|$<2 . te|
|000015e0| 78 74 24 3d 22 20 22 2b | 74 65 78 74 24 0d 08 3e |xt$=" "+|text$..>|
|000015f0| 25 f2 72 65 64 72 61 77 | 49 63 6f 6e 28 59 61 68 |%.redraw|Icon(Yah|
|00001600| 74 7a 65 65 25 2c 69 63 | 6f 6e 25 2c 74 65 78 74 |tzee%,ic|on%,text|
|00001610| 24 29 0d 08 48 1b e7 20 | 69 63 6f 6e 25 3e 37 38 |$)..H.. |icon%>78|
|00001620| 20 80 20 69 63 6f 6e 25 | 3c 38 35 20 8c 0d 08 52 | . icon%|<85 ...R|
|00001630| 1b 20 20 20 20 20 3a 20 | 53 75 62 54 6f 74 61 6c |.     : |SubTotal|
|00001640| 25 2b 3d 70 6e 74 73 25 | 0d 08 5c 25 20 20 20 20 |%+=pnts%|..\%    |
|00001650| 20 3a 20 74 65 78 74 24 | 3d 22 5b 22 2b c3 28 53 | : text$|="["+.(S|
|00001660| 75 62 54 6f 74 61 6c 25 | 29 2b 22 5d 22 0d 08 66 |ubTotal%|)+"]"..f|
|00001670| 2a 20 20 20 20 20 3a 20 | f2 72 65 64 72 61 77 49 |*     : |.redrawI|
|00001680| 63 6f 6e 28 59 61 68 74 | 7a 65 65 25 2c 31 31 30 |con(Yaht|zee%,110|
|00001690| 2c 74 65 78 74 24 29 0d | 08 70 05 cd 0d 08 7a 05 |,text$).|.p....z.|
|000016a0| e1 0d 08 84 05 3a 0d 08 | 8e 11 dd 20 f2 75 70 64 |.....:..|... .upd|
|000016b0| 61 74 65 53 70 69 6e 0d | 08 98 43 74 65 78 74 24 |ateSpin.|..Ctext$|
|000016c0| 3d 22 6b 65 65 70 22 20 | 3a 20 e3 20 61 25 3d 38 |="keep" |: . a%=8|
|000016d0| 20 b8 20 31 32 20 3a 20 | f2 72 65 64 72 61 77 49 | . 12 : |.redrawI|
|000016e0| 63 6f 6e 28 59 61 68 74 | 7a 65 65 25 2c 61 25 2c |con(Yaht|zee%,a%,|
|000016f0| 74 65 78 74 24 29 20 3a | 20 ed 0d 08 a2 3f 74 65 |text$) :| ....?te|
|00001700| 78 74 24 3d 22 30 22 20 | 3a 20 e3 20 61 25 3d 33 |xt$="0" |: . a%=3|
|00001710| 20 b8 20 37 20 3a 20 f2 | 72 65 64 72 61 77 49 63 | . 7 : .|redrawIc|
|00001720| 6f 6e 28 59 61 68 74 7a | 65 65 25 2c 61 25 2c 74 |on(Yahtz|ee%,a%,t|
|00001730| 65 78 74 24 29 20 3a 20 | ed 0d 08 ac 22 f2 72 65 |ext$) : |....".re|
|00001740| 64 72 61 77 49 63 6f 6e | 28 59 61 68 74 7a 65 65 |drawIcon|(Yahtzee|
|00001750| 25 2c 31 2c 22 72 6f 6c | 6c 22 29 0d 08 b6 05 e1 |%,1,"rol|l").....|
|00001760| 0d 08 c0 05 3a 0d 08 ca | 0c dd 20 f2 74 68 72 6f |....:...|.. .thro|
|00001770| 77 0d 08 d4 20 e3 20 61 | 25 3d 31 20 b8 20 b3 28 |w... . a|%=1 . .(|
|00001780| 35 29 2b 35 20 3a 20 e3 | 20 62 25 3d 31 20 b8 20 |5)+5 : .| b%=1 . |
|00001790| 35 0d 08 de 22 e7 20 53 | 70 69 6e 25 28 62 25 29 |5...". S|pin%(b%)|
|000017a0| 3d b9 20 8c 20 44 69 63 | 65 25 28 62 25 29 3d b3 |=. . Dic|e%(b%)=.|
|000017b0| 28 36 29 0d 08 e8 09 ed | 20 3a 20 ed 0d 08 f2 0e |(6).....| : .....|
|000017c0| e3 20 61 25 3d 31 20 b8 | 20 35 0d 08 fc 2b f2 72 |. a%=1 .| 5...+.r|
|000017d0| 65 64 72 61 77 49 63 6f | 6e 28 59 61 68 74 7a 65 |edrawIco|n(Yahtze|
|000017e0| 65 25 2c 32 2b 61 25 2c | c3 28 44 69 63 65 25 28 |e%,2+a%,|.(Dice%(|
|000017f0| 61 25 29 29 29 0d 09 06 | 05 ed 0d 09 10 05 e1 0d |a%)))...|........|
|00001800| 09 1a 05 3a 0d 09 24 12 | dd 20 f2 63 68 65 63 6b |...:..$.|. .check|
|00001810| 28 43 61 74 25 29 0d 09 | 2e 1f e7 20 43 61 74 65 |(Cat%)..|... Cate|
|00001820| 67 6f 72 79 25 28 43 61 | 74 25 29 20 8c 20 ef 20 |gory%(Ca|t%) . . |
|00001830| 37 20 3a 20 e1 0d 09 38 | 1a e7 20 44 69 63 65 25 |7 : ...8|.. Dice%|
|00001840| 28 31 29 3d 30 20 8c 20 | ef 20 37 20 3a 20 e1 0d |(1)=0 . |. 7 : ..|
|00001850| 09 42 0d c8 8e 20 43 61 | 74 25 20 ca 0d 09 4c 2a |.B... Ca|t% ...L*|
|00001860| c9 20 31 2c 32 2c 33 2c | 34 2c 35 2c 36 20 3a 20 |. 1,2,3,|4,5,6 : |
|00001870| 70 6f 69 6e 74 73 25 3d | a4 74 65 73 74 31 28 43 |points%=|.test1(C|
|00001880| 61 74 25 2c 31 29 0d 09 | 56 2d 20 20 20 20 20 20 |at%,1)..|V-      |
|00001890| 20 20 20 3a 20 f2 75 70 | 64 61 74 65 50 6f 69 6e |   : .up|datePoin|
|000018a0| 74 73 28 70 6f 69 6e 74 | 73 25 2c 37 38 2b 43 61 |ts(point|s%,78+Ca|
|000018b0| 74 25 29 0d 09 60 28 20 | 20 20 20 20 20 20 20 20 |t%)..`( |        |
|000018c0| 3a 20 41 6c 6c 25 2b 3d | 31 20 3a 20 42 6f 6e 75 |: All%+=|1 : Bonu|
|000018d0| 73 25 2b 3d 70 6f 69 6e | 74 73 25 0d 09 6a 20 20 |s%+=poin|ts%..j  |
|000018e0| 20 20 20 20 20 20 20 20 | 3a 20 e7 20 41 6c 6c 25 |        |: . All%|
|000018f0| 3d 36 20 8c 20 f2 62 6f | 6e 75 73 0d 09 74 20 20 |=6 . .bo|nus..t  |
|00001900| 20 20 20 20 20 20 20 20 | 3a 20 43 61 74 65 67 6f |        |: Catego|
|00001910| 72 79 25 28 43 61 74 25 | 29 3d b9 0d 09 7e 2a c9 |ry%(Cat%|)=...~*.|
|00001920| 20 37 2c 38 20 3a 20 70 | 6f 69 6e 74 73 25 3d 94 | 7,8 : p|oints%=.|
|00001930| 28 a4 74 65 73 74 37 28 | 43 61 74 25 2d 34 29 2a |(.test7(|Cat%-4)*|
|00001940| a4 61 64 64 29 0d 09 88 | 2f 20 20 20 20 20 20 20 |.add)...|/       |
|00001950| 20 20 3a 20 f2 73 6f 72 | 74 20 3a 20 e7 20 43 61 |  : .sor|t : . Ca|
|00001960| 74 25 3d 37 20 8c 20 62 | 25 3d 34 33 20 8b 20 62 |t%=7 . b|%=43 . b|
|00001970| 25 3d 34 38 0d 09 92 2d | 20 20 20 20 20 20 20 20 |%=48...-|        |
|00001980| 20 3a 20 43 61 74 65 67 | 6f 72 79 25 28 43 61 74 | : Categ|ory%(Cat|
|00001990| 25 29 3d b9 20 3a 20 e3 | 20 61 25 3d 31 20 b8 20 |%)=. : .| a%=1 . |
|000019a0| 35 0d 09 9c 3b 20 20 20 | 20 20 20 20 20 20 3a 20 |5...;   |      : |
|000019b0| f2 72 65 64 72 61 77 49 | 63 6f 6e 28 59 61 68 74 |.redrawI|con(Yaht|
|000019c0| 7a 65 65 25 2c 62 25 2b | 61 25 2c 22 73 22 2b c3 |zee%,b%+|a%,"s"+.|
|000019d0| 28 44 69 63 65 25 28 61 | 25 29 29 29 0d 09 a6 31 |(Dice%(a|%)))...1|
|000019e0| 20 20 20 20 20 20 20 20 | 20 3a 20 ed 20 3a 20 f2 |        | : . : .|
|000019f0| 75 70 64 61 74 65 50 6f | 69 6e 74 73 28 70 6f 69 |updatePo|ints(poi|
|00001a00| 6e 74 73 25 2c 37 38 2b | 43 61 74 25 29 0d 09 b0 |nts%,78+|Cat%)...|
|00001a10| 2b c9 20 39 20 20 20 3a | 20 70 6f 69 6e 74 73 25 |+. 9   :| points%|
|00001a20| 3d a4 74 65 73 74 39 20 | 3a 20 43 61 74 65 67 6f |=.test9 |: Catego|
|00001a30| 72 79 25 28 39 29 3d b9 | 0d 09 ba 21 20 20 20 20 |ry%(9)=.|...!    |
|00001a40| 20 20 20 20 20 3a 20 f2 | 73 6f 72 74 20 3a 20 e3 |     : .|sort : .|
|00001a50| 20 61 25 3d 31 20 b8 20 | 35 0d 09 c4 3b 20 20 20 | a%=1 . |5...;   |
|00001a60| 20 20 20 20 20 20 3a 20 | f2 72 65 64 72 61 77 49 |      : |.redrawI|
|00001a70| 63 6f 6e 28 59 61 68 74 | 7a 65 65 25 2c 35 33 2b |con(Yaht|zee%,53+|
|00001a80| 61 25 2c 22 73 22 2b c3 | 28 44 69 63 65 25 28 61 |a%,"s"+.|(Dice%(a|
|00001a90| 25 29 29 29 0d 09 ce 2c | 20 20 20 20 20 20 20 20 |%)))...,|        |
|00001aa0| 20 3a 20 ed 20 3a 20 f2 | 75 70 64 61 74 65 50 6f | : . : .|updatePo|
|00001ab0| 69 6e 74 73 28 70 6f 69 | 6e 74 73 25 2c 38 37 29 |ints(poi|nts%,87)|
|00001ac0| 0d 09 d8 2d c9 20 31 30 | 20 20 3a 20 70 6f 69 6e |...-. 10|  : poin|
|00001ad0| 74 73 25 3d a4 74 65 73 | 74 31 30 20 3a 20 43 61 |ts%=.tes|t10 : Ca|
|00001ae0| 74 65 67 6f 72 79 25 28 | 31 30 29 3d b9 0d 09 e2 |tegory%(|10)=....|
|00001af0| 28 20 20 20 20 20 20 20 | 20 20 3a 20 f2 75 70 64 |(       |  : .upd|
|00001b00| 61 74 65 50 6f 69 6e 74 | 73 28 70 6f 69 6e 74 73 |atePoint|s(points|
|00001b10| 25 2c 38 38 29 0d 09 ec | 2d c9 20 31 31 20 20 3a |%,88)...|-. 11  :|
|00001b20| 20 70 6f 69 6e 74 73 25 | 3d a4 74 65 73 74 31 31 | points%|=.test11|
|00001b30| 20 3a 20 43 61 74 65 67 | 6f 72 79 25 28 31 31 29 | : Categ|ory%(11)|
|00001b40| 3d b9 0d 09 f6 28 20 20 | 20 20 20 20 20 20 20 3a |=....(  |       :|
|00001b50| 20 f2 75 70 64 61 74 65 | 50 6f 69 6e 74 73 28 70 | .update|Points(p|
|00001b60| 6f 69 6e 74 73 25 2c 38 | 39 29 0d 0a 00 3a c9 20 |oints%,8|9)...:. |
|00001b70| 31 32 20 20 3a 20 70 6f | 69 6e 74 73 25 3d 94 28 |12  : po|ints%=.(|
|00001b80| a4 74 65 73 74 37 28 43 | 61 74 25 2d 37 29 2a 35 |.test7(C|at%-7)*5|
|00001b90| 30 29 20 3a 20 43 61 74 | 65 67 6f 72 79 25 28 31 |0) : Cat|egory%(1|
|00001ba0| 32 29 3d b9 0d 0a 0a 21 | 20 20 20 20 20 20 20 20 |2)=....!|        |
|00001bb0| 20 3a 20 f2 73 6f 72 74 | 20 3a 20 e3 20 61 25 3d | : .sort| : . a%=|
|00001bc0| 31 20 b8 20 35 0d 0a 14 | 3b 20 20 20 20 20 20 20 |1 . 5...|;       |
|00001bd0| 20 20 3a 20 f2 72 65 64 | 72 61 77 49 63 6f 6e 28 |  : .red|rawIcon(|
|00001be0| 59 61 68 74 7a 65 65 25 | 2c 36 38 2b 61 25 2c 22 |Yahtzee%|,68+a%,"|
|00001bf0| 73 22 2b c3 28 44 69 63 | 65 25 28 61 25 29 29 29 |s"+.(Dic|e%(a%)))|
|00001c00| 0d 0a 1e 2c 20 20 20 20 | 20 20 20 20 20 3a 20 ed |...,    |     : .|
|00001c10| 20 3a 20 f2 75 70 64 61 | 74 65 50 6f 69 6e 74 73 | : .upda|tePoints|
|00001c20| 28 70 6f 69 6e 74 73 25 | 2c 39 30 29 0d 0a 28 2a |(points%|,90)..(*|
|00001c30| c9 20 31 33 20 20 3a 20 | 70 6f 69 6e 74 73 25 3d |. 13  : |points%=|
|00001c40| a4 61 64 64 20 3a 20 43 | 61 74 65 67 6f 72 79 25 |.add : C|ategory%|
|00001c50| 28 31 33 29 3d b9 0d 0a | 32 19 20 20 20 20 20 20 |(13)=...|2.      |
|00001c60| 20 20 20 3a 20 e3 20 61 | 25 3d 31 20 b8 20 35 0d |   : . a|%=1 . 5.|
|00001c70| 0a 3c 3b 20 20 20 20 20 | 20 20 20 20 3a 20 f2 72 |.<;     |    : .r|
|00001c80| 65 64 72 61 77 49 63 6f | 6e 28 59 61 68 74 7a 65 |edrawIco|n(Yahtze|
|00001c90| 65 25 2c 37 33 2b 61 25 | 2c 22 73 22 2b c3 28 44 |e%,73+a%|,"s"+.(D|
|00001ca0| 69 63 65 25 28 61 25 29 | 29 29 0d 0a 46 2c 20 20 |ice%(a%)|))..F,  |
|00001cb0| 20 20 20 20 20 20 20 3a | 20 ed 20 3a 20 f2 75 70 |       :| . : .up|
|00001cc0| 64 61 74 65 50 6f 69 6e | 74 73 28 70 6f 69 6e 74 |datePoin|ts(point|
|00001cd0| 73 25 2c 39 31 29 0d 0a | 50 05 cb 0d 0a 5a 2a 54 |s%,91)..|P....Z*T|
|00001ce0| 6f 74 61 6c 25 2b 3d 70 | 6f 69 6e 74 73 25 20 3a |otal%+=p|oints% :|
|00001cf0| 20 f2 75 70 64 61 74 65 | 54 6f 74 61 6c 28 54 6f | .update|Total(To|
|00001d00| 74 61 6c 25 29 0d 0a 64 | 31 54 75 72 6e 25 3d 30 |tal%)..d|1Turn%=0|
|00001d10| 20 3a 20 53 70 69 6e 25 | 28 29 3d b9 20 3a 20 44 | : Spin%|()=. : D|
|00001d20| 69 63 65 25 28 29 3d a3 | 20 3a 20 f2 75 70 64 61 |ice%()=.| : .upda|
|00001d30| 74 65 53 70 69 6e 0d 0a | 6e 19 47 6f 74 25 2b 3d |teSpin..|n.Got%+=|
|00001d40| 31 20 3a 20 e7 20 47 6f | 74 25 3d 31 33 20 8c 0d |1 : . Go|t%=13 ..|
|00001d50| 0a 78 38 20 20 20 20 20 | 3a 20 47 61 6d 65 6f 6e |.x8     |: Gameon|
|00001d60| 25 3d b9 20 3a 20 f2 72 | 65 64 72 61 77 49 63 6f |%=. : .r|edrawIco|
|00001d70| 6e 28 59 61 68 74 7a 65 | 65 25 2c 31 2c 22 72 6f |n(Yahtze|e%,1,"ro|
|00001d80| 6c 6c 6f 66 66 22 29 0d | 0a 82 05 cd 0d 0a 8c 05 |lloff").|........|
|00001d90| e1 0d 0a 96 05 3a 0d 0a | a0 0c dd 20 f2 62 6f 6e |.....:..|... .bon|
|00001da0| 75 73 0d 0a aa 12 e7 20 | 42 6f 6e 75 73 25 3e 3d |us..... |Bonus%>=|
|00001db0| 36 33 20 8c 0d 0a b4 28 | 20 20 20 20 20 3a 20 f2 |63 ....(|     : .|
|00001dc0| 75 70 64 61 74 65 50 6f | 69 6e 74 73 28 33 30 2c |updatePo|ints(30,|
|00001dd0| 39 36 29 20 3a 20 41 6c | 6c 25 3d 30 0d 0a be 2c |96) : Al|l%=0...,|
|00001de0| 20 20 20 20 20 3a 20 54 | 6f 74 61 6c 25 2b 3d 33 |     : T|otal%+=3|
|00001df0| 30 20 3a 20 f2 75 70 64 | 61 74 65 54 6f 74 61 6c |0 : .upd|ateTotal|
|00001e00| 28 54 6f 74 61 6c 25 29 | 0d 0a c8 24 cc 20 3a 20 |(Total%)|...$. : |
|00001e10| f2 75 70 64 61 74 65 50 | 6f 69 6e 74 73 28 30 2c |.updateP|oints(0,|
|00001e20| 39 36 29 20 3a 20 41 6c | 6c 25 3d 30 0d 0a d2 05 |96) : Al|l%=0....|
|00001e30| cd 0d 0a dc 05 e1 0d 0a | e6 05 3a 0d 0a f0 1d dd |........|..:.....|
|00001e40| 20 f2 64 72 61 77 4d 65 | 6e 75 28 68 61 6e 64 6c | .drawMe|nu(handl|
|00001e50| 65 2c 6d 65 6e 75 24 29 | 0d 0a fa 10 21 6d 65 6e |e,menu$)|....!men|
|00001e60| 75 3d 68 61 6e 64 6c 65 | 0d 0b 04 31 6d 65 6e 75 |u=handle|...1menu|
|00001e70| 3f 31 36 3d 37 20 3a 20 | 6d 65 6e 75 3f 31 37 3d |?16=7 : |menu?17=|
|00001e80| 32 20 3a 20 6d 65 6e 75 | 3f 31 38 3d 37 20 3a 20 |2 : menu|?18=7 : |
|00001e90| 6d 65 6e 75 3f 31 39 3d | 30 0d 0b 0e 28 6d 65 6e |menu?19=|0...(men|
|00001ea0| 75 21 32 30 3d 31 35 36 | 20 3a 20 6d 65 6e 75 21 |u!20=156| : menu!|
|00001eb0| 32 34 3d 34 30 20 3a 20 | 6d 65 6e 75 21 32 38 3d |24=40 : |menu!28=|
|00001ec0| 30 0d 0b 18 0f 70 74 72 | 3d 6d 65 6e 75 2b 33 32 |0....ptr|=menu+32|
|00001ed0| 0d 0b 22 23 24 28 6d 65 | 6e 75 2b 34 29 3d c0 6d |.."#$(me|nu+4)=.m|
|00001ee0| 65 6e 75 24 2c a7 6d 65 | 6e 75 24 2c 22 2c 22 29 |enu$,.me|nu$,",")|
|00001ef0| 2d 31 29 0d 0b 2c 1d 6d | 65 6e 75 24 2b 3d 22 2c |-1)..,.m|enu$+=",|
|00001f00| 22 20 3a 20 c8 95 20 6d | 65 6e 75 24 3c 3e 22 22 |" : .. m|enu$<>""|
|00001f10| 0d 0b 36 1f 6d 65 6e 75 | 24 3d c1 6d 65 6e 75 24 |..6.menu|$=.menu$|
|00001f20| 2c a7 6d 65 6e 75 24 2c | 22 2c 22 29 2b 31 29 0d |,.menu$,|",")+1).|
|00001f30| 0b 40 11 e7 20 6d 65 6e | 75 24 3c 3e 22 22 20 8c |.@.. men|u$<>"" .|
|00001f40| 0d 0b 4a 2d 20 20 20 20 | 20 3a 20 21 70 74 72 3d |..J-    | : !ptr=|
|00001f50| 30 20 3a 20 70 74 72 21 | 34 3d 2d 31 20 3a 20 70 |0 : ptr!|4=-1 : p|
|00001f60| 74 72 21 38 3d 26 37 30 | 30 30 30 32 31 0d 0b 54 |tr!8=&70|00021..T|
|00001f70| 2a 20 20 20 20 20 3a 20 | 24 28 70 74 72 2b 31 32 |*     : |$(ptr+12|
|00001f80| 29 3d c0 6d 65 6e 75 24 | 2c a7 6d 65 6e 75 24 2c |)=.menu$|,.menu$,|
|00001f90| 22 2c 22 29 2d 31 29 0d | 0b 5e 19 20 20 20 20 20 |",")-1).|.^.     |
|00001fa0| 3a 20 c8 8e 20 c0 6d 65 | 6e 75 24 2c 34 29 20 ca |: .. .me|nu$,4) .|
|00001fb0| 0d 0b 68 1a c9 20 22 49 | 6e 66 6f 22 20 3a 20 70 |..h.. "I|nfo" : p|
|00001fc0| 74 72 21 34 3d 49 6e 66 | 6f 25 0d 0b 72 05 cb 0d |tr!4=Inf|o%..r...|
|00001fd0| 0b 7c 12 20 20 20 20 20 | 3a 20 70 74 72 2b 3d 32 |.|.     |: ptr+=2|
|00001fe0| 34 0d 0b 86 05 cd 0d 0b | 90 05 ce 0d 0b 9a 19 70 |4.......|.......p|
|00001ff0| 74 72 21 2d 32 34 3d 70 | 74 72 21 2d 32 34 20 84 |tr!-24=p|tr!-24 .|
|00002000| 20 26 38 30 0d 0b a4 05 | e1 0d 0b ae 05 3a 0d 0b | &80....|.....:..|
|00002010| b8 3b dd 20 a4 63 72 65 | 61 74 65 49 63 6f 6e 28 |.;. .cre|ateIcon(|
|00002020| 68 61 6e 64 6c 65 25 2c | 69 78 30 25 2c 69 79 30 |handle%,|ix0%,iy0|
|00002030| 25 2c 69 78 31 25 2c 69 | 79 31 25 2c 66 6c 61 67 |%,ix1%,i|y1%,flag|
|00002040| 73 25 2c 64 61 74 61 24 | 29 0d 0b c2 31 62 6c 6f |s%,data$|)...1blo|
|00002050| 63 6b 21 30 3d 68 61 6e | 64 6c 65 25 20 3a 20 62 |ck!0=han|dle% : b|
|00002060| 6c 6f 63 6b 21 34 3d 69 | 78 30 25 20 3a 20 62 6c |lock!4=i|x0% : bl|
|00002070| 6f 63 6b 21 38 3d 69 79 | 30 25 0d 0b cc 33 62 6c |ock!8=iy|0%...3bl|
|00002080| 6f 63 6b 21 31 32 3d 69 | 78 31 25 20 3a 20 62 6c |ock!12=i|x1% : bl|
|00002090| 6f 63 6b 21 31 36 3d 69 | 79 31 25 20 3a 20 62 6c |ock!16=i|y1% : bl|
|000020a0| 6f 63 6b 21 32 30 3d 66 | 6c 61 67 73 25 0d 0b d6 |ock!20=f|lags%...|
|000020b0| 15 24 28 62 6c 6f 63 6b | 2b 32 34 29 3d 64 61 74 |.$(block|+24)=dat|
|000020c0| 61 24 0d 0b e0 27 c8 99 | 20 22 57 69 6d 70 5f 43 |a$...'..| "Wimp_C|
|000020d0| 72 65 61 74 65 49 63 6f | 6e 22 2c 2c 62 6c 6f 63 |reateIco|n",,bloc|
|000020e0| 6b 20 b8 20 69 63 6f 6e | 25 0d 0b ea 0a 3d 69 63 |k . icon|%....=ic|
|000020f0| 6f 6e 25 0d 0b f4 05 3a | 0d 0b fe 0e dd 20 a4 69 |on%....:|..... .i|
|00002100| 63 6f 6e 62 61 72 0d 0c | 08 52 21 62 6c 6f 63 6b |conbar..|.R!block|
|00002110| 3d 2d 31 20 3a 20 62 6c | 6f 63 6b 21 34 3d 30 20 |=-1 : bl|ock!4=0 |
|00002120| 3a 20 62 6c 6f 63 6b 21 | 38 3d 30 20 3a 20 62 6c |: block!|8=0 : bl|
|00002130| 6f 63 6b 21 31 32 3d 36 | 38 20 3a 20 62 6c 6f 63 |ock!12=6|8 : bloc|
|00002140| 6b 21 31 36 3d 36 38 20 | 3a 20 62 6c 6f 63 6b 21 |k!16=68 |: block!|
|00002150| 32 30 3d 26 33 31 30 32 | 0d 0c 12 14 64 61 74 61 |20=&3102|....data|
|00002160| 24 3d 22 21 79 61 68 74 | 7a 65 65 22 0d 0c 1c 2e |$="!yaht|zee"....|
|00002170| de 20 62 6c 6f 63 6b 21 | 32 34 20 28 a9 20 64 61 |. block!|24 (. da|
|00002180| 74 61 24 2b 31 29 20 3a | 20 24 28 62 6c 6f 63 6b |ta$+1) :| $(block|
|00002190| 21 32 34 29 3d 64 61 74 | 61 24 0d 0c 26 23 62 6c |!24)=dat|a$..&#bl|
|000021a0| 6f 63 6b 21 32 38 3d 31 | 20 3a 20 62 6c 6f 63 6b |ock!28=1| : block|
|000021b0| 21 33 32 3d a9 20 64 61 | 74 61 24 2b 31 0d 0c 30 |!32=. da|ta$+1..0|
|000021c0| 26 c8 99 20 22 57 69 6d | 70 5f 43 72 65 61 74 65 |&.. "Wim|p_Create|
|000021d0| 49 63 6f 6e 22 2c 2c 62 | 6c 6f 63 6b 20 b8 20 69 |Icon",,b|lock . i|
|000021e0| 63 6f 6e 0d 0c 3a 09 3d | 69 63 6f 6e 0d 0c 44 05 |con..:.=|icon..D.|
|000021f0| 3a 0d 0c 4e 0c dd 20 f2 | 65 72 72 6f 72 0d 0c 58 |:..N.. .|error..X|
|00002200| 19 c8 99 20 22 57 69 6d | 70 5f 44 72 61 67 42 6f |... "Wim|p_DragBo|
|00002210| 78 22 2c 2c 2d 31 0d 0c | 62 2e 21 62 6c 6f 63 6b |x",,-1..|b.!block|
|00002220| 3d 9f 20 3a 20 24 28 62 | 6c 6f 63 6b 2b 34 29 3d |=. : $(b|lock+4)=|
|00002230| f6 24 2b 22 20 61 74 20 | 6c 69 6e 65 20 22 2b c3 |.$+" at |line "+.|
|00002240| 9e 2b bd 30 0d 0c 6c 2c | c8 99 20 22 57 69 6d 70 |.+.0..l,|.. "Wimp|
|00002250| 5f 52 65 70 6f 72 74 45 | 72 72 6f 72 22 2c 62 6c |_ReportE|rror",bl|
|00002260| 6f 63 6b 2c 31 2c 22 59 | 61 68 74 7a 65 65 21 22 |ock,1,"Y|ahtzee!"|
|00002270| 0d 0c 76 05 e1 0d 0c 80 | 05 3a 0d 0c 8a 1b dd 20 |..v.....|.:..... |
|00002280| a4 74 65 73 74 31 28 6e | 75 6d 62 65 72 25 2c 74 |.test1(n|umber%,t|
|00002290| 79 70 65 25 29 0d 0c 94 | 11 70 6e 74 25 3d 30 20 |ype%)...|.pnt%=0 |
|000022a0| 3a 20 62 25 3d 30 0d 0c | 9e 0e e3 20 61 25 3d 31 |: b%=0..|... a%=1|
|000022b0| 20 b8 20 35 0d 0c a8 0f | e7 20 74 79 70 65 25 3d | . 5....|. type%=|
|000022c0| 31 20 8c 0d 0c b2 10 c8 | 8e 20 6e 75 6d 62 65 72 |1 ......|. number|
|000022d0| 25 20 ca 0d 0c bc 1f c9 | 20 31 20 3a 20 e7 20 44 |% ......| 1 : . D|
|000022e0| 69 63 65 25 28 61 25 29 | 3d 6e 75 6d 62 65 72 25 |ice%(a%)|=number%|
|000022f0| 20 8c 0d 0c c6 39 20 20 | 20 20 20 20 20 3a 20 f2 | ....9  |     : .|
|00002300| 72 65 64 72 61 77 49 63 | 6f 6e 28 59 61 68 74 7a |redrawIc|on(Yahtz|
|00002310| 65 65 25 2c 31 34 2b 62 | 25 2c 22 73 22 2b c3 28 |ee%,14+b|%,"s"+.(|
|00002320| 44 69 63 65 25 28 61 25 | 29 29 29 0d 0c d0 12 20 |Dice%(a%|))).... |
|00002330| 20 20 20 20 20 20 3a 20 | 62 25 2b 3d 31 0d 0c da |      : |b%+=1...|
|00002340| 05 cd 0d 0c e4 1f c9 20 | 32 20 3a 20 e7 20 44 69 |....... |2 : . Di|
|00002350| 63 65 25 28 61 25 29 3d | 6e 75 6d 62 65 72 25 20 |ce%(a%)=|number% |
|00002360| 8c 0d 0c ee 39 20 20 20 | 20 20 20 20 3a 20 f2 72 |....9   |    : .r|
|00002370| 65 64 72 61 77 49 63 6f | 6e 28 59 61 68 74 7a 65 |edrawIco|n(Yahtze|
|00002380| 65 25 2c 31 39 2b 62 25 | 2c 22 73 22 2b c3 28 44 |e%,19+b%|,"s"+.(D|
|00002390| 69 63 65 25 28 61 25 29 | 29 29 0d 0c f8 12 20 20 |ice%(a%)|))....  |
|000023a0| 20 20 20 20 20 3a 20 62 | 25 2b 3d 31 0d 0d 02 05 |     : b|%+=1....|
|000023b0| cd 0d 0d 0c 1f c9 20 33 | 20 3a 20 e7 20 44 69 63 |...... 3| : . Dic|
|000023c0| 65 25 28 61 25 29 3d 6e | 75 6d 62 65 72 25 20 8c |e%(a%)=n|umber% .|
|000023d0| 0d 0d 16 39 20 20 20 20 | 20 20 20 3a 20 f2 72 65 |...9    |   : .re|
|000023e0| 64 72 61 77 49 63 6f 6e | 28 59 61 68 74 7a 65 65 |drawIcon|(Yahtzee|
|000023f0| 25 2c 32 34 2b 62 25 2c | 22 73 22 2b c3 28 44 69 |%,24+b%,|"s"+.(Di|
|00002400| 63 65 25 28 61 25 29 29 | 29 0d 0d 20 12 20 20 20 |ce%(a%))|).. .   |
|00002410| 20 20 20 20 3a 20 62 25 | 2b 3d 31 0d 0d 2a 05 cd |    : b%|+=1..*..|
|00002420| 0d 0d 34 1f c9 20 34 20 | 3a 20 e7 20 44 69 63 65 |..4.. 4 |: . Dice|
|00002430| 25 28 61 25 29 3d 6e 75 | 6d 62 65 72 25 20 8c 0d |%(a%)=nu|mber% ..|
|00002440| 0d 3e 39 20 20 20 20 20 | 20 20 3a 20 f2 72 65 64 |.>9     |  : .red|
|00002450| 72 61 77 49 63 6f 6e 28 | 59 61 68 74 7a 65 65 25 |rawIcon(|Yahtzee%|
|00002460| 2c 32 39 2b 62 25 2c 22 | 73 22 2b c3 28 44 69 63 |,29+b%,"|s"+.(Dic|
|00002470| 65 25 28 61 25 29 29 29 | 0d 0d 48 12 20 20 20 20 |e%(a%)))|..H.    |
|00002480| 20 20 20 3a 20 62 25 2b | 3d 31 0d 0d 52 05 cd 0d |   : b%+|=1..R...|
|00002490| 0d 5c 1f c9 20 35 20 3a | 20 e7 20 44 69 63 65 25 |.\.. 5 :| . Dice%|
|000024a0| 28 61 25 29 3d 6e 75 6d | 62 65 72 25 20 8c 0d 0d |(a%)=num|ber% ...|
|000024b0| 66 39 20 20 20 20 20 20 | 20 3a 20 f2 72 65 64 72 |f9      | : .redr|
|000024c0| 61 77 49 63 6f 6e 28 59 | 61 68 74 7a 65 65 25 2c |awIcon(Y|ahtzee%,|
|000024d0| 33 34 2b 62 25 2c 22 73 | 22 2b c3 28 44 69 63 65 |34+b%,"s|"+.(Dice|
|000024e0| 25 28 61 25 29 29 29 0d | 0d 70 12 20 20 20 20 20 |%(a%))).|.p.     |
|000024f0| 20 20 3a 20 62 25 2b 3d | 31 0d 0d 7a 05 cd 0d 0d |  : b%+=|1..z....|
|00002500| 84 1f c9 20 36 20 3a 20 | e7 20 44 69 63 65 25 28 |... 6 : |. Dice%(|
|00002510| 61 25 29 3d 6e 75 6d 62 | 65 72 25 20 8c 0d 0d 8e |a%)=numb|er% ....|
|00002520| 39 20 20 20 20 20 20 20 | 3a 20 f2 72 65 64 72 61 |9       |: .redra|
|00002530| 77 49 63 6f 6e 28 59 61 | 68 74 7a 65 65 25 2c 33 |wIcon(Ya|htzee%,3|
|00002540| 39 2b 62 25 2c 22 73 22 | 2b c3 28 44 69 63 65 25 |9+b%,"s"|+.(Dice%|
|00002550| 28 61 25 29 29 29 0d 0d | 98 12 20 20 20 20 20 20 |(a%)))..|..      |
|00002560| 20 3a 20 62 25 2b 3d 31 | 0d 0d a2 05 cd 0d 0d ac | : b%+=1|........|
|00002570| 05 cb 0d 0d b6 05 cd 0d | 0d c0 21 70 6e 74 25 2b |........|..!pnt%+|
|00002580| 3d 28 44 69 63 65 25 28 | 61 25 29 3d 6e 75 6d 62 |=(Dice%(|a%)=numb|
|00002590| 65 72 25 29 20 3a 20 ed | 0d 0d ca 14 3d 94 28 70 |er%) : .|....=.(p|
|000025a0| 6e 74 25 29 2a 6e 75 6d | 62 65 72 25 0d 0d d4 05 |nt%)*num|ber%....|
|000025b0| 3a 0d 0d de 0d dd 20 a4 | 74 65 73 74 31 31 0d 0d |:..... .|test11..|
|000025c0| e8 14 74 65 78 74 24 3d | 22 22 20 3a 20 f2 73 6f |..text$=|"" : .so|
|000025d0| 72 74 0d 0d f2 24 e3 20 | 61 25 3d 31 20 b8 20 35 |rt...$. |a%=1 . 5|
|000025e0| 20 3a 20 74 65 78 74 24 | 2b 3d c3 28 44 69 63 65 | : text$|+=.(Dice|
|000025f0| 25 28 61 25 29 29 0d 0d | fc 30 f2 72 65 64 72 61 |%(a%))..|.0.redra|
|00002600| 77 49 63 6f 6e 28 59 61 | 68 74 7a 65 65 25 2c 36 |wIcon(Ya|htzee%,6|
|00002610| 33 2b 61 25 2c 22 73 22 | 2b c3 28 44 69 63 65 25 |3+a%,"s"|+.(Dice%|
|00002620| 28 61 25 29 29 29 0d 0e | 06 05 ed 0d 0e 10 2e e7 |(a%)))..|........|
|00002630| 20 74 65 78 74 24 3d 22 | 31 32 33 34 35 22 20 84 | text$="|12345" .|
|00002640| 20 74 65 78 74 24 3d 22 | 32 33 34 35 36 22 20 8c | text$="|23456" .|
|00002650| 20 3d 34 30 20 8b 20 3d | 30 0d 0e 1a 05 3a 0d 0e | =40 . =|0....:..|
|00002660| 24 0d dd 20 a4 74 65 73 | 74 31 30 0d 0e 2e 93 e7 |$.. .tes|t10.....|
|00002670| 20 28 a4 74 65 73 74 31 | 28 33 2c 30 29 3e 3d 33 | (.test1|(3,0)>=3|
|00002680| 20 80 20 a4 74 65 73 74 | 31 28 34 2c 30 29 3e 3d | . .test|1(4,0)>=|
|00002690| 34 29 20 80 20 28 28 a4 | 74 65 73 74 31 28 32 2c |4) . ((.|test1(2,|
|000026a0| 30 29 3e 3d 32 20 80 20 | 28 a4 74 65 73 74 31 28 |0)>=2 . |(.test1(|
|000026b0| 31 2c 30 29 3e 3d 31 20 | 84 20 a4 74 65 73 74 31 |1,0)>=1 |. .test1|
|000026c0| 28 35 2c 30 29 3e 3d 35 | 29 29 20 84 20 28 a4 74 |(5,0)>=5|)) . (.t|
|000026d0| 65 73 74 31 28 35 2c 30 | 29 3e 3d 35 20 80 20 a4 |est1(5,0|)>=5 . .|
|000026e0| 74 65 73 74 31 28 36 2c | 30 29 3e 3d 36 29 29 20 |test1(6,|0)>=6)) |
|000026f0| 8c 20 63 25 3d 33 30 20 | 8b 20 63 25 3d 30 0d 0e |. c%=30 |. c%=0..|
|00002700| 38 16 f2 73 6f 72 74 20 | 3a 20 e3 20 61 25 3d 31 |8..sort |: . a%=1|
|00002710| 20 b8 20 35 0d 0e 42 30 | f2 72 65 64 72 61 77 49 | . 5..B0|.redrawI|
|00002720| 63 6f 6e 28 59 61 68 74 | 7a 65 65 25 2c 35 38 2b |con(Yaht|zee%,58+|
|00002730| 61 25 2c 22 73 22 2b c3 | 28 44 69 63 65 25 28 61 |a%,"s"+.|(Dice%(a|
|00002740| 25 29 29 29 0d 0e 4c 05 | ed 0d 0e 56 07 3d 63 25 |%)))..L.|...V.=c%|
|00002750| 0d 0e 60 05 3a 0d 0e 6a | 0c dd 20 a4 74 65 73 74 |..`.:..j|.. .test|
|00002760| 39 0d 0e 74 09 f2 73 6f | 72 74 0d 0e 7e 8f 66 6c |9..t..so|rt..~.fl|
|00002770| 61 67 25 3d 28 28 44 69 | 63 65 25 28 31 29 3d 44 |ag%=((Di|ce%(1)=D|
|00002780| 69 63 65 25 28 32 29 29 | 20 80 20 28 44 69 63 65 |ice%(2))| . (Dice|
|00002790| 25 28 32 29 3d 44 69 63 | 65 25 28 33 29 29 29 20 |%(2)=Dic|e%(3))) |
|000027a0| 80 20 28 44 69 63 65 25 | 28 34 29 3d 44 69 63 65 |. (Dice%|(4)=Dice|
|000027b0| 25 28 35 29 29 20 84 20 | 28 28 44 69 63 65 25 28 |%(5)) . |((Dice%(|
|000027c0| 31 29 3d 44 69 63 65 25 | 28 32 29 29 20 80 20 28 |1)=Dice%|(2)) . (|
|000027d0| 44 69 63 65 25 28 33 29 | 3d 44 69 63 65 25 28 34 |Dice%(3)|=Dice%(4|
|000027e0| 29 29 20 80 20 28 44 69 | 63 65 25 28 34 29 3d 44 |)) . (Di|ce%(4)=D|
|000027f0| 69 63 65 25 28 35 29 29 | 29 0d 0e 88 21 e7 20 66 |ice%(5))|)...!. f|
|00002800| 6c 61 67 25 3c 3e a4 74 | 65 73 74 37 28 35 29 20 |lag%<>.t|est7(5) |
|00002810| 8c 20 3d 32 35 20 8b 20 | 3d 30 0d 0e 92 05 3a 0d |. =25 . |=0....:.|
|00002820| 0e 9c 15 dd 20 a4 74 65 | 73 74 37 28 6e 75 6d 62 |.... .te|st7(numb|
|00002830| 65 72 25 29 0d 0e a6 25 | e3 20 61 25 3d 31 20 b8 |er%)...%|. a%=1 .|
|00002840| 20 36 20 3a 20 70 6e 74 | 73 25 3d 30 20 3a 20 e3 | 6 : pnt|s%=0 : .|
|00002850| 20 62 25 3d 31 20 b8 20 | 35 0d 0e b0 1d e7 20 44 | b%=1 . |5..... D|
|00002860| 69 63 65 25 28 62 25 29 | 3d 61 25 20 8c 20 70 6e |ice%(b%)|=a% . pn|
|00002870| 74 73 25 2b 3d 31 0d 0e | ba 05 ed 0d 0e c4 19 e7 |ts%+=1..|........|
|00002880| 20 70 6e 74 73 25 3e 3d | 6e 75 6d 62 65 72 25 20 | pnts%>=|number% |
|00002890| 8c 20 3d b9 0d 0e ce 0a | ed 20 3a 20 3d a3 0d 0e |. =.....|. : =...|
|000028a0| d8 05 3a 0d 0e e2 0a dd | 20 a4 61 64 64 0d 0e ec |..:.....| .add...|
|000028b0| 0b 70 6e 74 73 25 3d 30 | 0d 0e f6 25 e3 20 61 25 |.pnts%=0|...%. a%|
|000028c0| 3d 31 20 b8 20 35 20 3a | 20 70 6e 74 73 25 2b 3d |=1 . 5 :| pnts%+=|
|000028d0| 44 69 63 65 25 28 61 25 | 29 20 3a 20 ed 0d 0f 00 |Dice%(a%|) : ....|
|000028e0| 0a 3d 70 6e 74 73 25 0d | 0f 0a 05 3a 0d 0f 14 0b |.=pnts%.|...:....|
|000028f0| dd 20 f2 73 6f 72 74 0d | 0f 1e 1e e3 20 61 25 3d |. .sort.|.... a%=|
|00002900| 31 20 b8 20 34 20 3a 20 | e3 20 62 25 3d 61 25 2b |1 . 4 : |. b%=a%+|
|00002910| 31 20 b8 20 35 0d 0f 28 | 1c e7 20 44 69 63 65 25 |1 . 5..(|.. Dice%|
|00002920| 28 61 25 29 3c 3d 44 69 | 63 65 25 28 62 25 29 20 |(a%)<=Di|ce%(b%) |
|00002930| 8c 0d 0f 32 11 20 20 20 | 20 20 3a 20 e5 20 8d 44 |...2.   |  : . .D|
|00002940| 50 4f 0d 0f 3c 1e cc 20 | 3a 20 c8 94 20 44 69 63 |PO..<.. |: .. Dic|
|00002950| 65 25 28 61 25 29 2c 44 | 69 63 65 25 28 62 25 29 |e%(a%),D|ice%(b%)|
|00002960| 0d 0f 46 05 cd 0d 0f 50 | 09 ed 3a ed 3a e1 0d ff |..F....P|..:.:...|
+--------+-------------------------+-------------------------+--------+--------+