home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1990-06-21 | 12.8 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1f f4 3e 20 3c | 43 72 69 62 62 61 67 65 |.....> <|Cribbage|
|00000010| 24 44 69 72 3e 2e 21 52 | 75 6e 49 6d 61 67 65 0d |$Dir>.!R|unImage.|
|00000020| 00 14 19 f4 20 28 43 29 | 20 50 2e 42 2e 46 61 69 |.... (C)| P.B.Fai|
|00000030| 72 62 72 6f 74 68 65 72 | 0d 00 1e 26 f4 20 4f 72 |rbrother|...&. Or|
|00000040| 69 67 69 6e 61 6c 79 20 | 77 72 69 74 74 65 6e 20 |iginaly |written |
|00000050| 66 6f 72 20 42 42 43 20 | 42 20 31 39 38 34 0d 00 |for BBC |B 1984..|
|00000060| 28 24 f4 20 52 65 2d 77 | 72 69 74 74 65 6e 20 66 |($. Re-w|ritten f|
|00000070| 6f 72 20 41 33 30 30 30 | 20 4a 61 6e 2e 20 31 39 |or A3000| Jan. 19|
|00000080| 39 30 0d 00 32 2f ee 85 | 20 ef 32 33 2c 35 38 2c |90..2/..| .23,58,|
|00000090| 30 2c 30 2c 26 31 38 2c | 26 31 38 2c 30 2c 26 31 |0,0,&18,|&18,0,&1|
|000000a0| 38 2c 26 31 38 2c 30 3a | eb 33 3a f6 3a f1 9e 3a |8,&18,0:|.3:.:..:|
|000000b0| e0 0d 00 3c 09 eb 31 35 | 3a 87 0d 00 46 15 ef 31 |...<..15|:...F..1|
|000000c0| 39 2c 31 2c 32 34 2c 33 | 32 2c 39 36 2c 33 32 0d |9,1,24,3|2,96,32.|
|000000d0| 00 50 19 de 20 73 70 26 | 32 30 30 30 30 3a 21 73 |.P.. sp&|20000:!s|
|000000e0| 70 3d 26 32 30 30 30 30 | 0d 00 5a 0e de 20 73 63 |p=&20000|..Z.. sc|
|000000f0| 61 6c 65 20 31 36 0d 00 | 64 1b 73 70 21 34 3d 30 |ale 16..|d.sp!4=0|
|00000100| 3a 73 70 21 38 3d 31 36 | 3a 73 70 21 31 32 3d 31 |:sp!8=16|:sp!12=1|
|00000110| 36 0d 00 6e 1e fb 31 35 | 3a f1 8a 33 30 2c 31 35 |6..n..15|:..30,15|
|00000120| 29 22 4c 6f 61 64 69 6e | 67 20 44 61 74 61 22 0d |)"Loadin|g Data".|
|00000130| 00 78 36 c8 99 20 22 4f | 53 5f 53 70 72 69 74 65 |.x6.. "O|S_Sprite|
|00000140| 4f 70 22 2c 32 36 36 2c | 73 70 2c 22 3c 43 72 69 |Op",266,|sp,"<Cri|
|00000150| 62 62 61 67 65 24 44 69 | 72 3e 2e 63 72 69 62 63 |bbage$Di|r>.cribc|
|00000160| 61 72 64 73 22 0d 00 82 | 10 fb 31 33 32 20 c8 9c |ards"...|..132 ..|
|00000170| 31 32 38 3a db 0d 00 8c | 10 ef 35 3a f2 62 6f 61 |128:....|..5:.boa|
|00000180| 72 64 3a ef 34 0d 00 96 | 14 f2 70 6f 69 6e 74 65 |rd:.4...|..pointe|
|00000190| 72 28 22 48 41 4e 44 22 | 29 0d 00 a0 28 ef 32 33 |r("HAND"|)...(.23|
|000001a0| 2c 35 38 2c 30 2c 26 34 | 36 2c 26 43 39 2c 26 34 |,58,0,&4|6,&C9,&4|
|000001b0| 39 2c 26 34 39 2c 26 34 | 39 2c 26 34 39 2c 26 45 |9,&49,&4|9,&49,&E|
|000001c0| 36 0d 00 aa 18 ef 31 39 | 2c 31 2c 32 35 2c 32 35 |6.....19|,1,25,25|
|000001d0| 35 2c 31 39 32 2c 31 39 | 32 0d 00 b4 18 ef 31 39 |5,192,19|2.....19|
|000001e0| 2c 32 2c 32 35 2c 31 32 | 38 2c 31 32 38 2c 31 32 |,2,25,12|8,128,12|
|000001f0| 38 0d 00 be 18 ef 31 39 | 2c 33 2c 32 35 2c 32 35 |8.....19|,3,25,25|
|00000200| 35 2c 32 35 35 2c 32 35 | 35 0d 00 c8 4b de 53 24 |5,255,25|5...K.S$|
|00000210| 28 33 29 2c 50 24 28 33 | 29 3a 53 24 28 29 3d 22 |(3),P$(3|):S$()="|
|00000220| 68 65 61 72 74 22 2c 22 | 63 6c 75 62 22 2c 22 64 |heart","|club","d|
|00000230| 69 61 6d 6f 6e 64 22 2c | 22 73 70 61 64 65 22 3a |iamond",|"spade":|
|00000240| 50 24 28 29 3d 22 4a 22 | 2c 22 51 22 2c 22 4b 22 |P$()="J"|,"Q","K"|
|00000250| 2c 22 41 22 0d 00 d2 4a | de 50 25 28 35 32 29 2c |,"A"...J|.P%(52),|
|00000260| 52 25 28 35 32 29 2c 44 | 25 28 35 2c 32 29 2c 56 |R%(52),D|%(5,2),V|
|00000270| 25 28 35 2c 33 29 2c 4e | 25 28 35 2c 33 29 2c 53 |%(5,3),N|%(5,3),S|
|00000280| 25 28 35 2c 33 29 2c 54 | 25 28 36 29 2c 41 25 28 |%(5,3),T|%(6),A%(|
|00000290| 36 29 2c 55 25 28 36 29 | 2c 61 25 28 36 29 0d 00 |6),U%(6)|,a%(6)..|
|000002a0| dc 28 f2 70 6c 69 6e 74 | 68 28 30 2c 30 2c 37 31 |.(.plint|h(0,0,71|
|000002b0| 32 2c 31 30 32 30 2c 31 | 36 2c 34 2c 31 39 32 2c |2,1020,1|6,4,192,|
|000002c0| 30 2c 31 32 38 29 0d 00 | e6 28 f2 70 6c 69 6e 74 |0,128)..|.(.plint|
|000002d0| 68 28 33 32 2c 38 33 2c | 36 34 32 2c 35 36 39 2c |h(32,83,|642,569,|
|000002e0| 31 36 2c 34 2c 30 2c 31 | 39 32 2c 36 34 29 0d 00 |16,4,0,1|92,64)..|
|000002f0| f0 29 f2 70 6c 69 6e 74 | 68 28 35 32 2c 38 39 30 |.).plint|h(52,890|
|00000300| 2c 36 30 30 2c 31 30 30 | 2c 32 30 2c 34 2c 30 2c |,600,100|,20,4,0,|
|00000310| 31 39 32 2c 36 34 29 0d | 00 fa 59 fb 31 33 32 20 |192,64).|..Y.132 |
|00000320| c8 9c 31 32 38 3a fb 31 | 35 20 c8 9c 31 39 32 3a |..128:.1|5 ..192:|
|00000330| f1 8a 31 34 2c 32 29 3b | 22 43 20 52 20 49 20 42 |..14,2);|"C R I B|
|00000340| 20 42 20 41 20 47 20 45 | 22 3a f1 8a 37 2c 33 30 | B A G E|":..7,30|
|00000350| 29 3b 22 20 20 28 43 29 | 20 50 2e 42 2e 46 61 69 |);" (C)| P.B.Fai|
|00000360| 72 62 72 6f 74 68 65 72 | 20 31 39 39 30 20 22 3b |rbrother| 1990 ";|
|00000370| 0d 01 04 29 f2 70 6c 69 | 6e 74 68 28 33 32 2c 36 |...).pli|nth(32,6|
|00000380| 38 30 2c 36 34 32 2c 31 | 33 32 2c 31 32 2c 34 2c |80,642,1|32,12,4,|
|00000390| 30 2c 31 39 32 2c 36 34 | 29 0d 01 0e 2a f2 70 6c |0,192,64|)...*.pl|
|000003a0| 69 6e 74 68 28 38 34 2c | 37 31 30 2c 31 32 30 2c |inth(84,|710,120,|
|000003b0| 38 30 2c 32 30 2c 34 37 | 2c 31 39 32 2c 30 2c 31 |80,20,47|,192,0,1|
|000003c0| 32 38 29 0d 01 18 2b f2 | 70 6c 69 6e 74 68 28 33 |28)...+.|plinth(3|
|000003d0| 38 30 2c 37 31 30 2c 32 | 33 32 2c 38 30 2c 32 30 |80,710,2|32,80,20|
|000003e0| 2c 34 37 2c 31 39 32 2c | 30 2c 31 32 38 29 0d 01 |,47,192,|0,128)..|
|000003f0| 22 2e fb 31 37 35 3a fb | 30 3a f1 8a 37 2c 38 29 |"..175:.|0:..7,8)|
|00000400| 22 50 4c 41 59 22 3a f1 | 8a 32 35 2c 38 29 22 50 |"PLAY":.|.25,8)"P|
|00000410| 4c 41 59 20 26 20 4c 45 | 41 52 4e 22 0d 01 2c 1c |LAY & LE|ARN"..,.|
|00000420| fb 31 37 35 3a fb 30 3a | ef 32 38 2c 33 2c 32 38 |.175:.0:|.28,3,28|
|00000430| 2c 34 30 2c 31 32 3a db | 0d 01 36 09 f2 69 6e 66 |,40,12:.|..6..inf|
|00000440| 6f 0d 01 40 73 53 24 3d | 53 24 28 30 29 3a 4e 25 |o..@sS$=|S$(0):N%|
|00000450| 3d 31 33 3a 53 25 3d 30 | 3a f2 66 61 63 65 28 39 |=13:S%=0|:.face(9|
|00000460| 30 30 2c 35 30 30 29 3a | 53 24 3d 53 24 28 31 29 |00,500):|S$=S$(1)|
|00000470| 3a 4e 25 3d 31 33 3a 53 | 25 3d 31 3a f2 66 61 63 |:N%=13:S|%=1:.fac|
|00000480| 65 28 37 35 30 2c 32 38 | 30 29 3a 53 24 3d 53 24 |e(750,28|0):S$=S$|
|00000490| 28 30 29 3a 4e 25 3d 35 | 3a 53 25 3d 30 3a 43 25 |(0):N%=5|:S%=0:C%|
|000004a0| 3d 33 3a ef 35 3a f2 66 | 61 63 65 28 38 35 30 2c |=3:.5:.f|ace(850,|
|000004b0| 34 30 30 29 0d 01 4a 11 | 47 25 3d 30 3a f5 3a f2 |400)..J.|G%=0:.:.|
|000004c0| 6d 6f 75 73 65 0d 01 54 | 17 e7 20 59 25 3e 37 30 |mouse..T|.. Y%>70|
|000004d0| 30 20 80 20 59 25 3c 37 | 39 32 20 8c 0d 01 5e 0a |0 . Y%<7|92 ...^.|
|000004e0| c8 8e 20 b9 20 ca 0d 01 | 68 1d c9 20 a4 62 75 74 |.. . ...|h.. .but|
|000004f0| 28 38 34 2c 32 30 34 29 | 3a 54 46 25 3d a3 3a 47 |(84,204)|:TF%=.:G|
|00000500| 25 3d 31 0d 01 72 1e c9 | 20 a4 62 75 74 28 33 38 |%=1..r..| .but(38|
|00000510| 30 2c 36 31 36 29 3a 54 | 46 25 3d b9 3a 47 25 3d |0,616):T|F%=.:G%=|
|00000520| 32 0d 01 7c 05 cb 0d 01 | 86 05 cd 0d 01 90 0d fd |2..|....|........|
|00000530| 47 25 3e 30 3a ef 32 36 | 0d 01 9a 18 f2 72 65 63 |G%>0:.26|.....rec|
|00000540| 74 28 30 2c 30 2c 31 30 | 38 30 2c 31 30 32 34 29 |t(0,0,10|80,1024)|
|00000550| 0d 01 a4 18 f4 20 53 74 | 61 72 74 20 6f 66 20 6d |..... St|art of m|
|00000560| 61 69 6e 20 6c 6f 6f 70 | 0d 01 ae 31 f5 3a e3 49 |ain loop|...1.:.I|
|00000570| 25 3d 30 b8 33 3a e3 4a | 25 3d 31 b8 31 33 3a 50 |%=0.3:.J|%=1.13:P|
|00000580| 25 28 4a 25 2b 31 33 2a | 49 25 29 3d 28 4a 25 2a |%(J%+13*|I%)=(J%*|
|00000590| 31 30 29 2b 49 25 3a ed | 2c 0d 01 b8 2b 3a 4c 24 |10)+I%:.|,...+:L$|
|000005a0| 3d bd 38 2b bd 38 2b bd | 31 30 3a 50 24 3d bd 32 |=.8+.8+.|10:P$=.2|
|000005b0| 35 31 2b bd 32 35 32 2b | 4c 24 2b bd 32 35 34 2b |51+.252+|L$+.254+|
|000005c0| bd 32 35 33 0d 01 c2 0c | ef 35 3a f2 53 48 55 46 |.253....|.5:.SHUF|
|000005d0| 0d 01 cc 38 62 25 3d 33 | 3a 63 25 3d 33 3a 43 4f |...8b%=3|:c%=3:CO|
|000005e0| 4d 53 43 25 3d 30 3a 48 | 55 4d 53 43 25 3d 30 3a |MSC%=0:H|UMSC%=0:|
|000005f0| 42 43 25 3d 30 3a 70 73 | 25 3d 30 3a 70 61 73 73 |BC%=0:ps|%=0:pass|
|00000600| 25 3d 30 3a 46 25 3d 30 | 0d 01 d6 2f f5 3a f2 73 |%=0:F%=0|.../.:.s|
|00000610| 70 72 69 74 65 28 22 62 | 61 63 6b 22 2c 33 32 2c |prite("b|ack",32,|
|00000620| 33 39 39 29 3a 43 25 3d | 32 3a f2 4e 45 57 42 4f |399):C%=|2:.NEWBO|
|00000630| 58 3a f2 53 48 55 46 0d | 01 e0 11 f4 2e 2e 44 65 |X:.SHUF.|......De|
|00000640| 61 6c 20 68 61 6e 64 73 | 0d 01 ea 0b e3 4a 25 3d |al hands|.....J%=|
|00000650| 31 b8 35 0d 01 f4 15 50 | 25 3d 31 35 34 2b 28 4a |1.5....P|%=154+(J|
|00000660| 25 2d 31 29 2a 31 36 30 | 0d 01 fe 1e f2 76 61 6c |%-1)*160|.....val|
|00000670| 75 65 28 4a 25 29 3a 44 | 25 28 4a 25 2c 31 29 3d |ue(J%):D|%(J%,1)=|
|00000680| 52 25 28 4a 25 29 0d 02 | 08 46 f2 66 61 63 65 28 |R%(J%)..|.F.face(|
|00000690| 50 25 2c 34 33 29 3a f2 | 76 61 6c 75 65 28 4a 25 |P%,43):.|value(J%|
|000006a0| 2b 35 29 3a 44 25 28 4a | 25 2c 32 29 3d 52 25 28 |+5):D%(J|%,2)=R%(|
|000006b0| 4a 25 2b 35 29 3a f2 73 | 70 72 69 74 65 28 22 62 |J%+5):.s|prite("b|
|000006c0| 61 63 6b 22 2c 50 25 2c | 37 38 37 29 0d 02 12 05 |ack",P%,|787)....|
|000006d0| ed 0d 02 1c 40 55 25 3d | 41 25 3a 41 25 3d 30 3a |....@U%=|A%:A%=0:|
|000006e0| f2 67 65 74 62 6f 78 3a | 41 25 3d 55 25 3a 42 43 |.getbox:|A%=U%:BC|
|000006f0| 25 3d 30 3a ef 34 3a 87 | 3a f1 8a 33 2c 31 32 29 |%=0:.4:.|:..3,12)|
|00000700| 22 43 55 54 20 46 4f 52 | 20 54 55 52 4e 2d 55 50 |"CUT FOR| TURN-UP|
|00000710| 22 0d 02 26 36 f2 4d 53 | 42 4f 58 3a f1 8a 33 2c |"..&6.MS|BOX:..3,|
|00000720| 31 32 29 3b c4 31 36 2c | 22 20 22 29 3a ef 35 3a |12);.16,|" "):.5:|
|00000730| f2 76 61 6c 75 65 28 31 | 31 29 3a e7 4e 25 3c 3e |.value(1|1):.N%<>|
|00000740| 31 31 8c 8d 54 7a 42 0d | 02 30 32 73 75 6d 25 3d |11..TzB.|.02sum%=|
|00000750| 32 3a f2 73 63 6f 72 65 | 3a e6 30 2c 33 3a e7 41 |2:.score|:.0,3:.A|
|00000760| 25 3d 31 20 43 4f 4d 53 | 43 25 2b 3d 32 20 8b 20 |%=1 COMS|C%+=2 . |
|00000770| 48 55 4d 53 43 25 2b 3d | 32 0d 02 3a 56 e3 4a 25 |HUMSC%+=|2..:V.J%|
|00000780| 3d 31 b8 32 3a 4e 25 28 | 34 2c 4a 25 29 3d 4e 25 |=1.2:N%(|4,J%)=N%|
|00000790| 3a 53 25 28 34 2c 4a 25 | 29 3d 53 25 3a 56 25 28 |:S%(4,J%|)=S%:V%(|
|000007a0| 34 2c 4a 25 29 3d 76 61 | 6c 25 3a ed 3a 4e 25 28 |4,J%)=va|l%:.:N%(|
|000007b0| 35 2c 33 29 3d 4e 25 3a | 53 25 28 35 2c 33 29 3d |5,3)=N%:|S%(5,3)=|
|000007c0| 53 25 3a 56 25 28 35 2c | 33 29 3d 76 61 6c 25 0d |S%:V%(5,|3)=val%.|
|000007d0| 02 44 23 f2 63 75 74 28 | 31 36 2c 31 39 32 2c 2d |.D#.cut(|16,192,-|
|000007e0| 38 2c 38 2c 22 62 61 63 | 6b 22 2c 22 66 61 63 65 |8,8,"bac|k","face|
|000007f0| 22 29 0d 02 4e 5a 54 25 | 28 29 3d 30 3a 41 25 28 |")..NZT%|()=0:A%(|
|00000800| 29 3d 30 3a 55 25 28 29 | 3d 34 3a 57 25 3d 30 3a |)=0:U%()|=4:W%=0:|
|00000810| 4c 25 3d 30 3a 73 75 6d | 25 3d 30 3a 51 25 3d 30 |L%=0:sum|%=0:Q%=0|
|00000820| 3a 70 61 73 73 25 3d 30 | 3a 70 73 25 3d 30 3a f5 |:pass%=0|:ps%=0:.|
|00000830| 4c 25 3d 4c 25 2b 31 3a | 42 25 3d 30 3a 63 25 3d |L%=L%+1:|B%=0:c%=|
|00000840| 33 3a 41 25 3d 41 25 82 | 31 3a ef 35 0d 02 58 35 |3:A%=A%.|1:.5..X5|
|00000850| f2 77 69 70 65 3a e6 31 | 35 3a ec 36 30 38 2c 33 |.wipe:.1|5:.608,3|
|00000860| 34 38 2b 41 25 2a 33 35 | 30 3a ef 36 32 3a ec 38 |48+A%*35|0:.62:.8|
|00000870| 34 38 2c 33 34 38 2b 41 | 25 2a 33 35 30 3a ef 36 |48,348+A|%*350:.6|
|00000880| 30 0d 02 62 1b 48 25 3d | 33 33 3a 56 25 3d 32 31 |0..b.H%=|33:V%=21|
|00000890| 3a f2 73 65 6c 65 63 74 | 63 61 72 64 0d 02 6c 1d |:.select|card..l.|
|000008a0| e7 70 61 73 73 25 3e 30 | 20 f2 73 74 6f 72 65 70 |.pass%>0| .storep|
|000008b0| 61 73 73 3a e5 8d 74 7c | 42 0d 02 76 2c f2 61 64 |ass:..t||B..v,.ad|
|000008c0| 64 75 70 3a e7 42 25 3e | 33 31 ef 34 3a f1 8a 35 |dup:.B%>|31.4:..5|
|000008d0| 36 2c 31 37 29 22 54 4f | 4f 20 48 49 47 48 22 3a |6,17)"TO|O HIGH":|
|000008e0| e5 8d 44 62 42 0d 02 80 | 25 e7 41 25 3d 31 f2 64 |..DbB...|%.A%=1.d|
|000008f0| 65 6c 65 74 65 28 37 37 | 39 2c 32 29 8b f2 64 65 |elete(77|9,2)..de|
|00000900| 6c 65 74 65 28 34 33 2c | 31 29 0d 02 8a 1b 43 25 |lete(43,|1)....C%|
|00000910| 3d 33 2d 28 53 25 83 32 | 29 2a 33 3a 53 24 3d 53 |=3-(S%.2|)*3:S$=S|
|00000920| 24 28 53 25 29 0d 02 94 | 1f f2 66 61 63 65 28 b3 |$(S%)...|..face(.|
|00000930| 28 34 30 29 2b 36 33 30 | 2c 32 39 35 2b 41 25 2a |(40)+630|,295+A%*|
|00000940| 32 35 36 29 0d 02 9e 2c | f2 73 63 6f 72 65 3a e7 |256)...,|.score:.|
|00000950| 41 25 3d 31 20 43 4f 4d | 53 43 25 2b 3d 73 75 6d |A%=1 COM|SC%+=sum|
|00000960| 25 20 8b 20 48 55 4d 53 | 43 25 2b 3d 73 75 6d 25 |% . HUMS|C%+=sum%|
|00000970| 0d 02 a8 4c ef 34 3a f1 | 8a 35 36 2c 31 35 29 22 |...L.4:.|.56,15)"|
|00000980| 43 4f 55 4e 54 20 22 3b | 42 25 3b 22 20 22 3a e7 |COUNT ";|B%;" ":.|
|00000990| 73 75 6d 25 3e 30 20 f1 | 8a 35 36 2c 31 37 29 22 |sum%>0 .|.56,17)"|
|000009a0| 46 4f 52 20 22 3b 73 75 | 6d 25 20 8b f1 8a 35 36 |FOR ";su|m% ...56|
|000009b0| 2c 31 37 29 3b c4 36 2c | 22 20 22 29 0d 02 b2 10 |,17);.6,|" ")....|
|000009c0| e7 41 25 3d 30 20 41 3d | a6 31 30 30 0d 02 bc 35 |.A%=0 A=|.100...5|
|000009d0| fd 28 51 25 3d 32 20 84 | 20 42 25 3d 33 31 20 84 |.(Q%=2 .| B%=31 .|
|000009e0| 20 4c 25 3d 36 20 84 20 | 63 25 3c 33 29 3a 44 4c | L%=6 . |c%<3):DL|
|000009f0| 3d a6 32 30 30 3a e7 63 | 25 3c 33 20 8c 8d 74 4e |=.200:.c|%<3 ..tN|
|00000a00| 43 0d 02 c6 0f e7 42 25 | 3d 33 31 8c 8d 64 78 42 |C.....B%|=31..dxB|
|00000a10| 0d 02 d0 16 ef 34 3a f1 | 8a 35 36 2c 31 32 29 22 |.....4:.|.56,12)"|
|00000a20| 20 20 20 20 20 22 0d 02 | da 41 73 75 6d 25 3d 31 | "..|.Asum%=1|
|00000a30| 3a ef 35 3a e7 70 73 25 | 3d 31 20 41 25 3d 31 3a |:.5:.ps%|=1 A%=1:|
|00000a40| f2 73 63 6f 72 65 3a 43 | 4f 4d 53 43 25 2b 3d 31 |.score:C|OMSC%+=1|
|00000a50| 20 8b 41 25 3d 30 3a f2 | 73 63 6f 72 65 3a 48 55 | .A%=0:.|score:HU|
|00000a60| 4d 53 43 25 2b 3d 31 0d | 02 e4 0b 44 4c 3d a6 32 |MSC%+=1.|...DL=.2|
|00000a70| 30 30 0d 02 ee 0f e7 63 | 25 3c 3e 33 8c 8d 74 4e |00.....c|%<>3..tN|
|00000a80| 43 0d 02 f8 b0 ef 35 3a | f2 77 69 70 65 3a 4e 25 |C.....5:|.wipe:N%|
|00000a90| 3d 30 3a 53 25 3d 30 3a | e3 4a 25 3d 31 b8 35 3a |=0:S%=0:|.J%=1.5:|
|00000aa0| 44 25 28 4a 25 2c 31 29 | 3d 30 3a 44 25 28 4a 25 |D%(J%,1)|=0:D%(J%|
|00000ab0| 2c 32 29 3d 30 3a ed 3a | f2 64 65 6c 65 74 65 28 |,2)=0:.:|.delete(|
|00000ac0| 37 37 39 2c 32 29 3a f2 | 64 65 6c 65 74 65 28 34 |779,2):.|delete(4|
|00000ad0| 33 2c 31 29 3a ef 34 3a | e3 4a 25 3d 31 35 b8 31 |3,1):.4:|.J%=15.1|
|00000ae0| 37 88 32 3a f1 8a 35 36 | 2c 4a 25 29 3b c4 38 2c |7.2:..56|,J%);.8,|
|00000af0| 22 20 22 29 3a ed 3a ef | 35 3a e3 4a 25 3d 30 20 |" "):.:.|5:.J%=0 |
|00000b00| b8 20 34 30 88 32 30 3a | f2 57 50 43 41 52 44 28 |. 40.20:|.WPCARD(|
|00000b10| 36 33 30 2b 4a 25 2c 32 | 39 35 29 3a f2 57 50 43 |630+J%,2|95):.WPC|
|00000b20| 41 52 44 28 36 33 30 2b | 4a 25 2c 35 35 31 29 3a |ARD(630+|J%,551):|
|00000b30| ed 0d 03 02 28 e3 4a 25 | 3d 31 b8 36 3a 54 25 28 |....(.J%|=1.6:T%(|
|00000b40| 4a 25 29 3d 30 3a 41 25 | 28 4a 25 29 3d 30 3a 55 |J%)=0:A%|(J%)=0:U|
|00000b50| 25 28 4a 25 29 3d 34 3a | ed 0d 03 0c 0d e7 54 46 |%(J%)=4:|......TF|
|00000b60| 25 20 46 25 3d b9 0d 03 | 16 0b e7 62 25 3d 31 20 |% F%=...|...b%=1 |
|00000b70| 8c 0d 03 20 12 f2 64 69 | 73 70 6c 61 79 28 31 2c |... ..di|splay(1,|
|00000b80| 34 33 29 0d 03 2a 17 44 | 6c 3d a6 32 30 30 3a e7 |43)..*.D|l=.200:.|
|00000b90| 20 46 25 20 f2 6d 6f 75 | 73 65 0d 03 34 1f f2 64 | F% .mou|se..4..d|
|00000ba0| 69 73 70 6c 61 79 28 32 | 2c 37 37 39 29 3a e7 20 |isplay(2|,779):. |
|00000bb0| 46 25 20 f2 6d 6f 75 73 | 65 0d 03 3e 05 cd 0d 03 |F% .mous|e..>....|
|00000bc0| 48 0b e7 62 25 3d 30 20 | 8c 0d 03 52 13 f2 64 69 |H..b%=0 |...R..di|
|00000bd0| 73 70 6c 61 79 28 32 2c | 37 37 39 29 0d 03 5c 17 |splay(2,|779)..\.|
|00000be0| 44 6c 3d a6 32 30 30 3a | e7 20 46 25 20 f2 6d 6f |Dl=.200:|. F% .mo|
|00000bf0| 75 73 65 0d 03 66 1e f2 | 64 69 73 70 6c 61 79 28 |use..f..|display(|
|00000c00| 31 2c 34 33 29 3a e7 20 | 46 25 20 f2 6d 6f 75 73 |1,43):. |F% .mous|
|00000c10| 65 0d 03 70 05 cd 0d 03 | 7a 1f 41 3d a6 32 30 30 |e..p....|z.A=.200|
|00000c20| 3a f2 64 69 73 70 6c 61 | 79 28 33 2c 33 39 35 29 |:.displa|y(3,395)|
|00000c30| 3a 46 25 3d a3 0d 03 84 | 2c f2 6d 6f 75 73 65 3a |:F%=....|,.mouse:|
|00000c40| e7 63 25 3c 33 8c 8d 74 | 4e 43 20 8b 20 f2 72 65 |.c%<3..t|NC . .re|
|00000c50| 63 74 28 30 2c 30 2c 31 | 30 37 30 2c 31 30 32 33 |ct(0,0,1|070,1023|
|00000c60| 29 0d 03 8e 1c fd 28 48 | 55 4d 53 43 25 3e 3d 36 |).....(H|UMSC%>=6|
|00000c70| 31 84 43 4f 4d 53 43 25 | 3e 3d 36 31 29 0d 03 98 |1.COMSC%|>=61)...|
|00000c80| 2d f2 72 65 63 74 28 30 | 2c 30 2c 31 30 37 30 2c |-.rect(0|,0,1070,|
|00000c90| 31 30 32 33 29 3a e7 63 | 25 3d 31 57 24 3d 22 49 |1023):.c|%=1W$="I|
|00000ca0| 22 8b 57 24 3d 22 59 4f | 55 22 0d 03 a2 6d ef 34 |".W$="YO|U"...m.4|
|00000cb0| 3a f1 8a 33 30 2c 31 32 | 29 3b 57 24 3b 22 20 57 |:..30,12|);W$;" W|
|00000cc0| 49 4e 22 3a f1 8a 32 32 | 2c 31 34 29 22 63 6c 69 |IN":..22|,14)"cli|
|00000cd0| 63 6b 20 6d 6f 75 73 65 | 20 66 6f 72 20 6e 65 77 |ck mouse| for new|
|00000ce0| 20 67 61 6d 65 22 3a 44 | 4c 3d a6 31 30 30 3a f2 | game":D|L=.100:.|
|00000cf0| 6d 6f 75 73 65 3a ef 35 | 3a f2 72 65 63 74 28 30 |mouse:.5|:.rect(0|
|00000d00| 2c 30 2c 31 30 30 30 2c | 31 30 30 30 29 3a f2 62 |,0,1000,|1000):.b|
|00000d10| 6f 61 72 64 3a fd a3 0d | 03 ac 05 e0 0d 03 b6 29 |oard:...|.......)|
|00000d20| dd a4 62 75 74 28 41 25 | 2c 42 25 29 3a e7 58 25 |..but(A%|,B%):.X%|
|00000d30| 3e 41 25 20 80 20 58 25 | 3c 42 25 20 8c 20 3d b9 |>A% . X%|<B% . =.|
|00000d40| 20 8b 20 3d a3 0d 03 c0 | 49 dd f2 77 69 70 65 3a | . =....|I..wipe:|
|00000d50| e6 34 20 c8 9c 31 32 38 | 3a ec 36 30 38 2c 33 34 |.4 ..128|:.608,34|
|00000d60| 38 3a ef 36 32 3a ec 36 | 30 38 2c 36 39 38 3a ef |8:.62:.6|08,698:.|
|00000d70| 36 32 3a ec 38 34 38 2c | 33 34 38 3a ef 36 30 3a |62:.848,|348:.60:|
|00000d80| ec 38 34 38 2c 36 39 38 | 3a ef 36 30 3a e1 0d 03 |.848,698|:.60:...|
|00000d90| ca 11 dd f2 66 61 63 65 | 28 58 25 2c 59 25 29 0d |....face|(X%,Y%).|
|00000da0| 03 d4 20 e6 34 20 c8 9c | 30 3a c8 93 c8 90 58 25 |.. .4 ..|0:....X%|
|00000db0| 2d 38 2c 59 25 2d 38 2c | 31 34 30 2c 31 39 30 0d |-8,Y%-8,|140,190.|
|00000dc0| 03 de 07 ea 4a 25 0d 03 | e8 1d e6 43 25 3a e7 4e |....J%..|...C%:.N|
|00000dd0| 25 3d 31 84 4e 25 3e 31 | 30 f2 50 49 43 54 55 52 |%=1.N%>1|0.PICTUR|
|00000de0| 45 3a e1 0d 03 f2 16 e7 | 4e 25 3c 31 31 20 43 24 |E:......|N%<11 C$|
|00000df0| 3d bd 28 34 38 2b 4e 25 | 29 0d 03 fc 19 e7 20 4e |=.(48+N%|)..... N|
|00000e00| 25 3e 31 30 20 20 43 24 | 3d 50 24 28 4e 25 2d 31 |%>10 C$|=P$(N%-1|
|00000e10| 31 29 0d 04 06 0f e7 4e | 25 3d 31 43 24 3d 22 41 |1).....N|%=1C$="A|
|00000e20| 22 0d 04 10 44 f2 73 70 | 72 69 74 65 28 22 66 61 |"...D.sp|rite("fa|
|00000e30| 63 65 22 2c 58 25 2c 59 | 25 29 3a ec 58 25 2c 59 |ce",X%,Y|%):.X%,Y|
|00000e40| 25 3a f0 30 2c 34 2c 31 | 38 38 3a f1 3b 43 24 3a |%:.0,4,1|88:.;C$:|
|00000e50| ec 58 25 2c 59 25 3a f0 | 30 2c 31 31 32 2c 33 32 |.X%,Y%:.|0,112,32|
|00000e60| 3a f1 3b 43 24 0d 04 1a | 48 f2 73 63 61 6c 65 28 |:.;C$...|H.scale(|
|00000e70| 58 25 2b 34 2c 59 25 2b | 31 34 34 2c 31 2c 31 2c |X%+4,Y%+|144,1,1,|
|00000e80| 32 2c 32 29 3a f2 46 4c | 49 50 3a f2 73 63 61 6c |2,2):.FL|IP:.scal|
|00000e90| 65 28 58 25 2b 31 31 32 | 2c 59 25 2b 34 32 2c 31 |e(X%+112|,Y%+42,1|
|00000ea0| 2c 31 2c 32 2c 32 29 3a | f2 46 4c 49 50 0d 04 24 |,1,2,2):|.FLIP..$|
|00000eb0| 11 e7 4e 25 3e 31 30 84 | 4e 25 3d 31 20 e1 0d 04 |..N%>10.|N%=1 ...|
|00000ec0| 2e 13 e4 28 4e 25 2a 33 | 30 29 2b 31 30 35 30 3a |...(N%*3|0)+1050:|
|00000ed0| e1 0d 04 38 05 3a 0d 04 | 42 05 3a 0d 04 4c 05 3a |...8.:..|B.:..L.:|
|00000ee0| 0d 04 56 38 f7 2b 31 3a | e3 4a 25 3d 31 b8 32 3a |..V8.+1:|.J%=1.2:|
|00000ef0| f3 48 25 2c 56 25 3a f2 | 73 70 72 69 74 65 28 53 |.H%,V%:.|sprite(S|
|00000f00| 24 2c 58 25 2b 48 25 2c | 59 25 2b 56 25 29 3a f2 |$,X%+H%,|Y%+V%):.|
|00000f10| 46 4c 49 50 3a ed 3a f8 | 0d 04 60 11 dc 35 32 2c |FLIP:.:.|..`..52,|
|00000f20| 31 34 34 2c 35 32 2c 32 | 34 0d 04 6a 05 3a 0d 04 |144,52,2|4..j.:..|
|00000f30| 74 5d f7 2b 31 3a e3 4a | 25 3d 31 b8 32 3a f3 48 |t].+1:.J|%=1.2:.H|
|00000f40| 25 2c 56 25 3a f2 73 70 | 72 69 74 65 28 53 24 2c |%,V%:.sp|rite(S$,|
|00000f50| 58 25 2b 48 25 2c 59 25 | 2b 56 25 29 3a ed 3a f2 |X%+H%,Y%|+V%):.:.|
|00000f60| 46 4c 49 50 3a f3 48 25 | 2c 56 25 3a f2 73 70 72 |FLIP:.H%|,V%:.spr|
|00000f70| 69 74 65 28 53 24 2c 58 | 25 2b 48 25 2c 59 25 2b |ite(S$,X|%+H%,Y%+|
|00000f80| 56 25 29 3a f2 46 4c 49 | 50 3a f8 0d 04 7e 17 dc |V%):.FLI|P:...~..|
|00000f90| 35 32 2c 31 34 34 2c 35 | 32 2c 38 34 2c 35 32 2c |52,144,5|2,84,52,|
|00000fa0| 32 34 0d 04 88 05 3a 0d | 04 92 42 f7 2b 31 3a e3 |24....:.|..B.+1:.|
|00000fb0| 4a 25 3d 31 b8 32 3a e3 | 4b 25 3d 31 b8 32 3a f3 |J%=1.2:.|K%=1.2:.|
|00000fc0| 48 25 2c 56 25 3a f2 73 | 70 72 69 74 65 28 53 24 |H%,V%:.s|prite(S$|
|00000fd0| 2c 58 25 2b 48 25 2c 59 | 25 2b 56 25 29 3a ed 3a |,X%+H%,Y|%+V%):.:|
|00000fe0| f2 46 4c 49 50 3a ed 3a | f8 0d 04 9c 1e dc 32 30 |.FLIP:.:|......20|
|00000ff0| 2c 31 34 34 2c 38 34 2c | 31 34 34 2c 32 30 2c 32 |,144,84,|144,20,2|
|00001000| 34 2c 38 34 2c 32 34 0d | 04 a6 05 3a 0d 04 b0 23 |4,84,24.|...:...#|
|00001010| f2 73 70 72 69 74 65 28 | 53 24 2c 58 25 2b 35 32 |.sprite(|S$,X%+52|
|00001020| 2c 59 25 2b 38 34 29 3a | e4 8d 74 52 44 3a f8 0d |,Y%+84):|..tRD:..|
|00001030| 04 ba 05 3a 0d 04 c4 05 | 3a 0d 04 ce 38 f7 2b 31 |...:....|:...8.+1|
|00001040| 3a e3 4a 25 3d 31 b8 32 | 3a f3 48 25 2c 56 25 3a |:.J%=1.2|:.H%,V%:|
|00001050| f2 73 70 72 69 74 65 28 | 53 24 2c 58 25 2b 48 25 |.sprite(|S$,X%+H%|
|00001060| 2c 59 25 2b 56 25 29 3a | ed 3a e4 8d 74 52 44 3a |,Y%+V%):|.:..tRD:|
|00001070| f8 0d 04 d8 10 dc 32 30 | 2c 38 34 2c 38 34 2c 38 |......20|,84,84,8|
|00001080| 34 0d 04 e2 05 3a 0d 04 | ec 24 f2 73 70 72 69 74 |4....:..|.$.sprit|
|00001090| 65 28 53 24 2c 58 25 2b | 35 32 2c 59 25 2b 31 31 |e(S$,X%+|52,Y%+11|
|000010a0| 34 29 3a e4 8d 64 4e 44 | 3a f8 0d 04 f6 05 3a 0d |4):..dND|:.....:.|
|000010b0| 05 00 05 3a 0d 05 0a 2f | e4 8d 64 6c 44 3a f2 46 |...:.../|..dlD:.F|
|000010c0| 4c 49 50 3a f2 73 70 72 | 69 74 65 28 53 24 2c 58 |LIP:.spr|ite(S$,X|
|000010d0| 25 2b 35 32 2c 59 25 2b | 35 34 29 3a f2 46 4c 49 |%+52,Y%+|54):.FLI|
|000010e0| 50 3a f8 0d 05 14 05 3a | 0d 05 1e 05 3a 0d 05 28 |P:.....:|....:..(|
|000010f0| 71 f7 2b 31 3a e3 4a 25 | 3d 31 b8 33 3a f3 48 25 |q.+1:.J%|=1.3:.H%|
|00001100| 2c 56 25 3a f2 73 70 72 | 69 74 65 28 53 24 2c 58 |,V%:.spr|ite(S$,X|
|00001110| 25 2b 48 25 2c 59 25 2b | 56 25 29 3a ed 3a e4 8d |%+H%,Y%+|V%):.:..|
|00001120| 74 52 44 3a f7 2b 32 3a | f2 46 4c 49 50 3a e3 4a |tRD:.+2:|.FLIP:.J|
|00001130| 25 3d 31 b8 32 3a f3 48 | 25 2c 56 25 3a f2 73 70 |%=1.2:.H|%,V%:.sp|
|00001140| 72 69 74 65 28 53 24 2c | 58 25 2b 48 25 2c 59 25 |rite(S$,|X%+H%,Y%|
|00001150| 2b 56 25 29 3a ed 3a f2 | 46 4c 49 50 3a f8 0d 05 |+V%):.:.|FLIP:...|
|00001160| 32 18 dc 32 30 2c 31 30 | 34 2c 38 34 2c 31 30 34 |2..20,10|4,84,104|
|00001170| 2c 35 32 2c 38 34 0d 05 | 3c 10 dc 32 30 2c 36 34 |,52,84..|<..20,64|
|00001180| 2c 38 34 2c 36 34 0d 05 | 46 48 e4 8d 74 52 44 3a |,84,64..|FH..tRD:|
|00001190| f7 2b 31 3a e3 4a 25 3d | 31 b8 32 3a e3 4b 25 3d |.+1:.J%=|1.2:.K%=|
|000011a0| 31 b8 33 3a f3 48 25 2c | 56 25 3a f2 73 70 72 69 |1.3:.H%,|V%:.spri|
|000011b0| 74 65 28 53 24 2c 58 25 | 2b 48 25 2c 59 25 2b 56 |te(S$,X%|+H%,Y%+V|
|000011c0| 25 29 3a ed 3a f2 46 4c | 49 50 3a ed 3a f8 0d 05 |%):.:.FL|IP:.:...|
|000011d0| 50 2b dc 32 30 2c 31 30 | 34 2c 38 34 2c 31 30 34 |P+.20,10|4,84,104|
|000011e0| 2c 35 32 2c 31 32 34 2c | 32 30 2c 36 34 2c 38 34 |,52,124,|20,64,84|
|000011f0| 2c 36 34 2c 35 32 2c 34 | 34 0d 05 5a 0f dd f2 76 |,64,52,4|4..Z...v|
|00001200| 61 6c 75 65 28 44 25 29 | 0d 05 64 1e 53 25 3d 52 |alue(D%)|..d.S%=R|
|00001210| 25 28 44 25 29 83 31 30 | 3a 43 25 3d 33 2d 28 53 |%(D%).10|:C%=3-(S|
|00001220| 25 83 32 29 2a 33 0d 05 | 6e 0d 53 24 3d 53 24 28 |%.2)*3..|n.S$=S$(|
|00001230| 53 25 29 0d 05 78 1a 4e | 25 3d 52 25 28 44 25 29 |S%)..x.N|%=R%(D%)|
|00001240| 81 31 30 3a 76 61 6c 25 | 3d a4 76 61 6c 0d 05 82 |.10:val%|=.val...|
|00001250| 05 e1 0d 05 8c 1d dd f2 | 4e 45 57 42 4f 58 3a e7 |........|NEWBOX:.|
|00001260| 62 25 3c 3e 33 41 25 3d | 94 28 62 25 2d 31 29 0d |b%<>3A%=|.(b%-1).|
|00001270| 05 96 0b e7 62 25 3d 33 | 20 8c 0d 05 a0 bc ef 34 |....b%=3| ......4|
|00001280| 3a 87 3a fb 31 33 32 20 | c8 9c 31 32 38 3a fb 34 |:.:.132 |..128:.4|
|00001290| 37 3a f1 8a 33 2c 31 32 | 29 22 43 55 54 20 46 4f |7:..3,12|)"CUT FO|
|000012a0| 52 20 42 4f 58 22 3a f2 | 4d 53 42 4f 58 3a f2 76 |R BOX":.|MSBOX:.v|
|000012b0| 61 6c 75 65 28 b3 28 38 | 29 2b 31 30 29 3a 41 25 |alue(.(8|)+10):A%|
|000012c0| 3d 4e 25 3a f2 63 75 74 | 28 31 36 2c 31 39 32 2c |=N%:.cut|(16,192,|
|000012d0| 2d 38 2c 38 2c 22 62 61 | 63 6b 22 2c 22 66 61 63 |-8,8,"ba|ck","fac|
|000012e0| 65 22 29 3a 44 4c 3d a6 | 32 30 30 3a f2 76 61 6c |e"):DL=.|200:.val|
|000012f0| 75 65 28 b3 28 38 29 2b | 33 30 29 3a 42 25 3d 4e |ue(.(8)+|30):B%=N|
|00001300| 25 3a f2 63 75 74 28 31 | 39 32 2c 31 36 2c 31 33 |%:.cut(1|92,16,13|
|00001310| 36 2c 2d 38 2c 22 62 61 | 63 6b 22 2c 22 66 61 63 |6,-8,"ba|ck","fac|
|00001320| 65 22 29 3a e7 41 25 3e | 42 25 20 41 25 3d 30 20 |e"):.A%>|B% A%=0 |
|00001330| 8b 20 41 25 3d 31 0d 05 | aa 3b 44 4c 3d a6 31 30 |. A%=1..|.;DL=.10|
|00001340| 30 3a f2 63 75 74 28 31 | 36 2c 31 36 2c 2d 38 2c |0:.cut(1|6,16,-8,|
|00001350| 31 2c 22 66 61 63 65 22 | 2c 22 62 61 63 6b 22 29 |1,"face"|,"back")|
|00001360| 3a f1 8a 33 2c 31 32 29 | 3b c4 31 31 2c 22 20 22 |:..3,12)|;.11," "|
|00001370| 29 0d 05 b4 05 cd 0d 05 | be 29 e7 41 25 3d 30 20 |).......|.).A%=0 |
|00001380| 59 24 3d 22 59 4f 55 52 | 20 22 3a 62 25 3d 30 20 |Y$="YOUR| ":b%=0 |
|00001390| 8b 20 59 24 3d 22 4d 59 | 20 22 3a 62 25 3d 31 0d |. Y$="MY| ":b%=1.|
|000013a0| 05 c8 20 ef 34 3a f1 8a | 38 2c 32 31 2d 31 30 2a |.. .4:..|8,21-10*|
|000013b0| 41 25 29 3b 59 24 3b 22 | 42 4f 58 22 3a ef 35 0d |A%);Y$;"|BOX":.5.|
|000013c0| 05 d2 05 e1 0d 05 dc 0a | dd f2 53 48 55 46 0d 05 |........|..SHUF..|
|000013d0| e6 7c e3 49 25 3d 30 b8 | 33 3a e3 4a 25 3d 31 b8 |.|.I%=0.|3:.J%=1.|
|000013e0| 31 33 3a 50 25 28 4a 25 | 2b 31 33 2a 49 25 29 3d |13:P%(J%|+13*I%)=|
|000013f0| 28 4a 25 2a 31 30 29 2b | 49 25 3a ed 2c 3a e3 4a |(J%*10)+|I%:.,:.J|
|00001400| 25 3d 31 b8 35 32 3a f5 | 52 25 3d b3 28 31 30 29 |%=1.52:.|R%=.(10)|
|00001410| 3a fd 28 91 20 83 39 29 | 3d 30 3a f5 52 25 3d b3 |:.(. .9)|=0:.R%=.|
|00001420| 28 35 32 29 3a 50 25 3d | 50 25 28 52 25 29 3a fd |(52):P%=|P%(R%):.|
|00001430| 50 25 3c 3e 30 3a 52 25 | 28 4a 25 29 3d 50 25 3a |P%<>0:R%|(J%)=P%:|
|00001440| 50 25 28 52 25 29 3d 30 | 3a ed 0d 05 f0 05 e1 0d |P%(R%)=0|:.......|
|00001450| 05 fa 0d dd f2 50 49 43 | 54 55 52 45 0d 06 04 11 |.....PIC|TURE....|
|00001460| 41 24 3d c0 53 24 28 53 | 25 29 2c 31 29 0d 06 0e |A$=.S$(S|%),1)...|
|00001470| 0b c8 8e 20 4e 25 20 ca | 0d 06 18 12 c9 20 31 31 |... N% .|..... 11|
|00001480| 3a 4e 24 3d 22 6a 22 2b | 41 24 0d 06 22 12 c9 20 |:N$="j"+|A$..".. |
|00001490| 31 32 3a 4e 24 3d 22 71 | 22 2b 41 24 0d 06 2c 12 |12:N$="q|"+A$..,.|
|000014a0| c9 20 31 33 3a 4e 24 3d | 22 6b 22 2b 41 24 0d 06 |. 13:N$=|"k"+A$..|
|000014b0| 36 12 c9 20 20 31 3a 4e | 24 3d 22 61 22 2b 41 24 |6.. 1:N|$="a"+A$|
|000014c0| 0d 06 40 05 cb 0d 06 4a | 15 f2 73 70 72 69 74 65 |..@....J|..sprite|
|000014d0| 28 4e 24 2c 58 25 2c 59 | 25 29 0d 06 54 05 e1 0d |(N$,X%,Y|%)..T...|
|000014e0| 06 5e 0c dd f2 67 65 74 | 62 6f 78 0d 06 68 2b ef |.^...get|box..h+.|
|000014f0| 34 3a f1 8a 32 34 2c 31 | 37 29 22 45 4e 54 45 52 |4:..24,1|7)"ENTER|
|00001500| 20 42 4f 58 20 20 22 3a | ef 35 3a 48 25 3d 31 37 | BOX ":|.5:H%=17|
|00001510| 3a 56 25 3d 31 37 0d 06 | 72 0c e3 42 43 25 3d 31 |:V%=17..|r..BC%=1|
|00001520| b8 32 0d 06 7c 46 f2 73 | 65 6c 65 63 74 63 61 72 |.2..|F.s|electcar|
|00001530| 64 3a 56 25 28 42 43 25 | 2c 33 29 3d 76 61 6c 25 |d:V%(BC%|,3)=val%|
|00001540| 3a 4e 25 28 42 43 25 2c | 33 29 3d 4e 25 3a 53 25 |:N%(BC%,|3)=N%:S%|
|00001550| 28 42 43 25 2c 33 29 3d | 53 25 3a f2 64 65 6c 65 |(BC%,3)=|S%:.dele|
|00001560| 74 65 28 34 33 2c 31 29 | 0d 06 86 16 44 25 3d 30 |te(43,1)|....D%=0|
|00001570| 3a f2 62 6f 78 63 61 72 | 64 28 42 43 25 29 0d 06 |:.boxcar|d(BC%)..|
|00001580| 90 05 ed 0d 06 9a 1d ef | 34 3a f1 8a 32 30 2c 31 |........|4:..20,1|
|00001590| 30 29 22 44 45 43 49 44 | 49 4e 47 20 22 3a ef 35 |0)"DECID|ING ":.5|
|000015a0| 0d 06 a4 3c f2 63 6f 6d | 69 6e 62 6f 78 3a e3 42 |...<.com|inbox:.B|
|000015b0| 43 25 3d 33 b8 34 3a 4e | 25 3d 50 25 28 42 43 25 |C%=3.4:N|%=P%(BC%|
|000015c0| 29 81 31 30 3a 53 25 3d | 50 25 28 42 43 25 29 83 |).10:S%=|P%(BC%).|
|000015d0| 31 30 3a 76 61 6c 25 3d | a4 76 61 6c 0d 06 ae 4b |10:val%=|.val...K|
|000015e0| 56 25 28 42 43 25 2c 33 | 29 3d 76 61 6c 25 3a 4e |V%(BC%,3|)=val%:N|
|000015f0| 25 28 42 43 25 2c 33 29 | 3d 4e 25 3a 53 25 28 42 |%(BC%,3)|=N%:S%(B|
|00001600| 43 25 2c 33 29 3d 53 25 | 3a f2 64 65 6c 65 74 65 |C%,3)=S%|:.delete|
|00001610| 28 37 37 39 2c 32 29 3a | f2 62 6f 78 63 61 72 64 |(779,2):|.boxcard|
|00001620| 28 42 43 25 29 3a ed 0d | 06 b8 5b e3 49 25 3d 31 |(BC%):..|..[.I%=1|
|00001630| b8 32 3a 52 25 3d 30 3a | e3 4a 25 3d 31 b8 35 3a |.2:R%=0:|.J%=1.5:|
|00001640| e7 44 25 28 4a 25 2c 49 | 25 29 3c 3e 30 52 25 3d |.D%(J%,I|%)<>0R%=|
|00001650| 52 25 2b 31 3a 4e 25 28 | 52 25 2c 49 25 29 3d 44 |R%+1:N%(|R%,I%)=D|
|00001660| 25 28 4a 25 2c 49 25 29 | 81 31 30 3a 53 25 28 52 |%(J%,I%)|.10:S%(R|
|00001670| 25 2c 49 25 29 3d 44 25 | 28 4a 25 2c 49 25 29 83 |%,I%)=D%|(J%,I%).|
|00001680| 31 30 0d 06 c2 32 e7 4e | 25 28 52 25 2c 49 25 29 |10...2.N|%(R%,I%)|
|00001690| 3e 31 30 20 56 25 28 52 | 25 2c 49 25 29 3d 31 30 |>10 V%(R|%,I%)=10|
|000016a0| 8b 56 25 28 52 25 2c 49 | 25 29 3d 4e 25 28 52 25 |.V%(R%,I|%)=N%(R%|
|000016b0| 2c 49 25 29 0d 06 cc 06 | ed 2c 0d 06 d6 30 e3 4a |,I%)....|.,...0.J|
|000016c0| 25 3d 31 b8 32 3a 56 25 | 28 35 2c 4a 25 29 3d 31 |%=1.2:V%|(5,J%)=1|
|000016d0| 36 3a 4e 25 28 35 2c 4a | 25 29 3d 31 36 3a 53 25 |6:N%(5,J|%)=16:S%|
|000016e0| 28 35 2c 4a 25 29 3d 34 | 3a ed 0d 06 e0 1a ef 34 |(5,J%)=4|:......4|
|000016f0| 3a f1 8a 32 30 2c 31 30 | 29 3b c4 39 2c 22 20 22 |:..20,10|);.9," "|
|00001700| 29 3a ef 35 0d 06 ea 05 | e1 0d 06 f4 11 dd f2 62 |):.5....|.......b|
|00001710| 6f 78 63 61 72 64 28 58 | 25 29 0d 06 fe 28 e7 44 |oxcard(X|%)...(.D|
|00001720| 25 3d 36 20 f2 57 50 43 | 41 52 44 28 33 35 30 2b |%=6 .WPC|ARD(350+|
|00001730| 58 25 2a 32 30 2c 33 34 | 30 2b 58 25 2a 32 30 29 |X%*20,34|0+X%*20)|
|00001740| 3a e1 0d 07 08 27 f2 73 | 70 72 69 74 65 28 22 62 |:....'.s|prite("b|
|00001750| 61 63 6b 22 2c 33 35 30 | 2b 58 25 2a 32 30 2c 33 |ack",350|+X%*20,3|
|00001760| 34 30 2b 58 25 2a 32 30 | 29 0d 07 12 05 e1 0d 07 |40+X%*20|).......|
|00001770| 1c 0e dd f2 63 6f 6d 69 | 6e 62 6f 78 0d 07 26 1b |....comi|nbox..&.|
|00001780| 47 25 3d 30 3a e3 64 25 | 3d 31 b8 34 3a e3 65 25 |G%=0:.d%|=1.4:.e%|
|00001790| 3d 64 25 2b 31 b8 35 0d | 07 30 23 6d 61 73 6b 31 |=d%+1.5.|.0#mask1|
|000017a0| 25 3d 44 25 28 64 25 2c | 32 29 3a 6d 61 73 6b 32 |%=D%(d%,|2):mask2|
|000017b0| 25 3d 44 25 28 65 25 2c | 32 29 0d 07 3a 0c e7 20 |%=D%(e%,|2)..:.. |
|000017c0| 62 25 3d 30 20 8c 0d 07 | 44 28 e7 6d 61 73 6b 31 |b%=0 ...|D(.mask1|
|000017d0| 25 20 81 31 30 20 3d 35 | 20 84 20 6d 61 73 6b 32 |% .10 =5| . mask2|
|000017e0| 25 20 81 31 30 20 3d 35 | 20 8c 8d 44 62 47 0d 07 |% .10 =5| ..DbG..|
|000017f0| 4e 05 cd 0d 07 58 22 44 | 25 28 64 25 2c 32 29 3d |N....X"D|%(d%,2)=|
|00001800| 30 3a 44 25 28 65 25 2c | 32 29 3d 30 3a f2 63 6f |0:D%(e%,|2)=0:.co|
|00001810| 6d 62 65 73 74 0d 07 62 | 06 ed 2c 0d 07 6c 15 50 |mbest..b|..,..l.P|
|00001820| 25 28 33 29 3d 68 25 3a | 50 25 28 34 29 3d 69 25 |%(3)=h%:|P%(4)=i%|
|00001830| 0d 07 76 05 e1 0d 07 80 | 0d dd f2 63 6f 6d 62 65 |..v.....|...combe|
|00001840| 73 74 0d 07 8a 4d 52 25 | 3d 30 3a e3 4b 25 3d 31 |st...MR%|=0:.K%=1|
|00001850| b8 35 3a e7 44 25 28 4b | 25 2c 32 29 3c 3e 30 20 |.5:.D%(K|%,2)<>0 |
|00001860| 52 25 2b 3d 31 3a 4e 25 | 28 52 25 2c 32 29 3d 44 |R%+=1:N%|(R%,2)=D|
|00001870| 25 28 4b 25 2c 32 29 81 | 31 30 3a 53 25 28 52 25 |%(K%,2).|10:S%(R%|
|00001880| 2c 32 29 3d 44 25 28 4b | 25 2c 32 29 83 31 30 0d |,2)=D%(K|%,2).10.|
|00001890| 07 94 2d e7 4e 25 28 52 | 25 2c 32 29 3e 31 30 56 |..-.N%(R|%,2)>10V|
|000018a0| 25 28 52 25 2c 32 29 3d | 31 30 8b 56 25 28 52 25 |%(R%,2)=|10.V%(R%|
|000018b0| 2c 32 29 3d 4e 25 28 52 | 25 2c 32 29 0d 07 9e 25 |,2)=N%(R|%,2)...%|
|000018c0| ed 3a 44 25 28 64 25 2c | 32 29 3d 6d 61 73 6b 31 |.:D%(d%,|2)=mask1|
|000018d0| 25 3a 44 25 28 65 25 2c | 32 29 3d 6d 61 73 6b 32 |%:D%(e%,|2)=mask2|
|000018e0| 25 0d 07 a8 32 f2 68 61 | 6e 64 28 32 29 3a e7 73 |%...2.ha|nd(2):.s|
|000018f0| 75 6d 25 3e 3d 47 25 20 | 47 25 3d 73 75 6d 25 3a |um%>=G% |G%=sum%:|
|00001900| 68 25 3d 6d 61 73 6b 31 | 25 3a 69 25 3d 6d 61 73 |h%=mask1|%:i%=mas|
|00001910| 6b 32 25 0d 07 b2 05 e1 | 0d 07 bc 10 dd f2 73 65 |k2%.....|......se|
|00001920| 6c 65 63 74 63 61 72 64 | 0d 07 c6 16 e7 41 25 3d |lectcard|.....A%=|
|00001930| 31 f2 43 4f 4d 3a 41 3d | a6 31 30 30 3a e1 0d 07 |1.COM:A=|.100:...|
|00001940| d0 5e 4e 25 3d 30 3a 53 | 25 3d 30 3a f5 3a f5 3a |.^N%=0:S|%=0:.:.:|
|00001950| ef 34 3a 87 3a e3 4a 25 | 3d 48 25 b8 48 25 2b 34 |.4:.:.J%|=H%.H%+4|
|00001960| 3a f1 8a 4a 25 2c 56 25 | 29 3b 22 20 3e 22 3a 44 |:..J%,V%|);" >":D|
|00001970| 4c 3d a6 31 30 3a ed 3a | c8 97 58 25 2c 59 25 2c |L=.10:.:|..X%,Y%,|
|00001980| 42 54 25 3a fd 42 54 25 | 3c 3e 30 3a f1 8a 48 25 |BT%:.BT%|<>0:..H%|
|00001990| 2b 35 2c 56 25 29 22 20 | 22 3a ef 35 0d 07 da 14 |+5,V%)" |":.5....|
|000019a0| e7 42 54 25 3d 32 20 70 | 61 73 73 25 3d 31 3a e1 |.BT%=2 p|ass%=1:.|
|000019b0| 0d 07 e4 1a e3 4a 25 3d | 30 b8 34 3a 58 58 25 3d |.....J%=|0.4:XX%=|
|000019c0| 31 35 34 2b 4a 25 2a 31 | 36 30 0d 07 ee 47 e7 58 |154+J%*1|60...G.X|
|000019d0| 25 3e 58 58 25 e7 58 25 | 3c 58 58 25 2b 31 34 34 |%>XX%.X%|<XX%+144|
|000019e0| 20 e7 59 25 3e 34 34 20 | e7 59 25 3c 32 34 34 20 | .Y%>44 |.Y%<244 |
|000019f0| 4e 25 3d 44 25 28 4a 25 | 2b 31 2c 31 29 81 31 30 |N%=D%(J%|+1,1).10|
|00001a00| 3a 53 25 3d 44 25 28 4a | 25 2b 31 2c 31 29 83 31 |:S%=D%(J|%+1,1).1|
|00001a10| 30 0d 07 f8 05 ed 0d 08 | 02 0a fd 4e 25 3c 3e 30 |0.......|...N%<>0|
|00001a20| 0d 08 0c 0d 76 61 6c 25 | 3d a4 76 61 6c 0d 08 16 |....val%|=.val...|
|00001a30| 05 e1 0d 08 20 13 dd f2 | 64 65 6c 65 74 65 28 44 |.... ...|delete(D|
|00001a40| 25 2c 45 25 29 0d 08 2a | 58 e3 4a 25 3d 31 b8 35 |%,E%)..*|X.J%=1.5|
|00001a50| 3a e7 44 25 28 4a 25 2c | 45 25 29 81 31 30 3d 4e |:.D%(J%,|E%).10=N|
|00001a60| 25 e7 44 25 28 4a 25 2c | 45 25 29 83 31 30 3d 53 |%.D%(J%,|E%).10=S|
|00001a70| 25 50 25 3d 31 35 34 2b | 28 4a 25 2d 31 29 2a 31 |%P%=154+|(J%-1)*1|
|00001a80| 36 30 3a f2 57 50 43 41 | 52 44 28 50 25 2c 44 25 |60:.WPCA|RD(P%,D%|
|00001a90| 29 3a 44 25 28 4a 25 2c | 45 25 29 3d 30 0d 08 34 |):D%(J%,|E%)=0..4|
|00001aa0| 05 ed 0d 08 3e 05 e1 0d | 08 48 0b dd f2 61 64 64 |....>...|.H...add|
|00001ab0| 75 70 0d 08 52 19 ea 52 | 25 2c 59 25 2c 4f 25 3a |up..R..R|%,Y%,O%:|
|00001ac0| 42 25 3d 30 3a 73 75 6d | 25 3d 30 0d 08 5c 23 54 |B%=0:sum|%=0..\#T|
|00001ad0| 25 28 4c 25 29 3d 76 61 | 6c 25 3a 41 25 28 4c 25 |%(L%)=va|l%:A%(L%|
|00001ae0| 29 3d 4e 25 3a 55 25 28 | 4c 25 29 3d 53 25 0d 08 |)=N%:U%(|L%)=S%..|
|00001af0| 66 19 e3 4a 25 3d 31 b8 | 4c 25 3a 42 25 2b 3d 54 |f..J%=1.|L%:B%+=T|
|00001b00| 25 28 4a 25 29 3a ed 0d | 08 70 0a e7 4c 25 3c 32 |%(J%):..|.p..L%<2|
|00001b10| e1 0d 08 7a 18 e7 42 25 | 3d 31 35 84 42 25 3d 33 |...z..B%|=15.B%=3|
|00001b20| 31 20 73 75 6d 25 2b 3d | 32 0d 08 84 14 52 25 3d |1 sum%+=|2....R%=|
|00001b30| 30 3a e3 4a 25 3d 4c 25 | b8 32 88 2d 31 0d 08 8e |0:.J%=L%|.2.-1...|
|00001b40| 2b e7 41 25 28 4a 25 29 | 3d 41 25 28 4a 25 2d 31 |+.A%(J%)|=A%(J%-1|
|00001b50| 29 52 25 2b 3d 31 3a 73 | 75 6d 25 2b 3d 32 2a 52 |)R%+=1:s|um%+=2*R|
|00001b60| 25 20 8b 20 4a 25 3d 32 | 0d 08 98 05 ed 0d 08 a2 |% . J%=2|........|
|00001b70| 0d 61 25 28 29 3d 41 25 | 28 29 0d 08 ac 0a e7 4c |.a%()=A%|().....L|
|00001b80| 25 3c 33 e1 0d 08 b6 0b | f2 72 75 6e 28 31 29 0d |%<3.....|.run(1).|
|00001b90| 08 c0 10 e7 4c 25 3e 33 | f2 72 75 6e 28 32 29 0d |....L%>3|.run(2).|
|00001ba0| 08 ca 10 e7 4c 25 3e 34 | f2 72 75 6e 28 33 29 0d |....L%>4|.run(3).|
|00001bb0| 08 d4 0c 73 75 6d 25 2b | 3d 4f 25 0d 08 de 0d 41 |...sum%+|=O%....A|
|00001bc0| 25 28 29 3d 61 25 28 29 | 0d 08 e8 05 e1 0d 08 f2 |%()=a%()|........|
|00001bd0| 0d dd f2 72 75 6e 28 58 | 25 29 0d 08 fc 3e e3 49 |...run(X|%)...>.I|
|00001be0| 25 3d 31 b8 36 3a e3 4a | 25 3d 4c 25 b8 4c 25 2d |%=1.6:.J|%=L%.L%-|
|00001bf0| 58 25 88 2d 31 3a e7 41 | 25 28 4a 25 29 3c 41 25 |X%.-1:.A|%(J%)<A%|
|00001c00| 28 4a 25 2d 31 29 20 c8 | 94 41 25 28 4a 25 29 2c |(J%-1) .|.A%(J%),|
|00001c10| 41 25 28 4a 25 2d 31 29 | 0d 09 06 06 ed 2c 0d 09 |A%(J%-1)|.....,..|
|00001c20| 10 30 4d 25 3d 30 3a e3 | 4a 25 3d 4c 25 b8 4c 25 |.0M%=0:.|J%=L%.L%|
|00001c30| 2d 58 25 88 2d 31 3a e7 | 41 25 28 4a 25 29 2d 31 |-X%.-1:.|A%(J%)-1|
|00001c40| 3c 3e 41 25 28 4a 25 2d | 31 29 4d 25 3d 31 0d 09 |<>A%(J%-|1)M%=1..|
|00001c50| 1a 13 ed 3a e7 4d 25 3d | 30 20 4f 25 3d 58 25 2b |...:.M%=|0 O%=X%+|
|00001c60| 32 0d 09 24 05 e1 0d 09 | 2e 0b dd f2 62 6f 61 72 |2..$....|....boar|
|00001c70| 64 0d 09 38 42 e6 34 20 | c8 9c 30 3a ec 31 32 34 |d..8B.4 |..0:.124|
|00001c80| 30 2c 33 30 3a ec 31 30 | 38 30 2c 33 30 3a f0 38 |0,30:.10|80,30:.8|
|00001c90| 35 2c 31 32 36 30 2c 35 | 30 3a f0 38 35 2c 31 30 |5,1260,5|0:.85,10|
|00001ca0| 38 30 2c 39 37 30 3a f0 | 38 35 2c 31 31 30 30 2c |80,970:.|85,1100,|
|00001cb0| 39 39 30 0d 09 42 2b f2 | 70 6c 69 6e 74 68 28 31 |990..B+.|plinth(1|
|00001cc0| 31 30 30 2c 35 30 2c 31 | 36 30 2c 39 34 33 2c 32 |100,50,1|60,943,2|
|00001cd0| 30 2c 31 2c 31 39 32 2c | 30 2c 31 32 38 29 0d 09 |0,1,192,|0,128)..|
|00001ce0| 4c 47 e6 30 3a e3 4b 25 | 3d 30 b8 31 3a e3 49 25 |LG.0:.K%|=0.1:.I%|
|00001cf0| 3d 30 b8 31 3a e3 4a 25 | 3d 30 b8 32 39 3a ec 31 |=0.1:.J%|=0.29:.1|
|00001d00| 31 32 30 2b 28 49 25 2a | 32 30 29 2b 28 4b 25 2a |120+(I%*|20)+(K%*|
|00001d10| 37 30 29 2c 31 35 30 2b | 4a 25 2a 32 37 3a ef 34 |70),150+|J%*27:.4|
|00001d20| 36 3a ed 2c 2c 0d 09 56 | 1f ec 31 31 37 30 2c 31 |6:.,,..V|..1170,1|
|00001d30| 30 30 3a ef 34 36 3a ec | 31 31 37 30 2c 39 37 30 |00:.46:.|1170,970|
|00001d40| 3a ef 34 36 0d 09 60 05 | e1 0d 09 6a 1b dd a4 76 |:.46..`.|...j...v|
|00001d50| 61 6c 3a e7 4e 25 3e 31 | 30 20 8c 20 3d 31 30 20 |al:.N%>1|0 . =10 |
|00001d60| 8b 3d 4e 25 0d 09 74 09 | dd f2 43 4f 4d 0d 09 7e |.=N%..t.|..COM..~|
|00001d70| 0d 47 25 3d 30 3a 67 25 | 3d 30 0d 09 88 0b e7 4c |.G%=0:g%|=0.....L|
|00001d80| 25 3d 31 20 8c 0d 09 92 | 13 e7 57 25 3d 33 20 70 |%=1 ....|..W%=3 p|
|00001d90| 61 73 73 25 3d 32 3a e1 | 0d 09 9c 1a e3 55 25 3d |ass%=2:.|.....U%=|
|00001da0| 31 b8 35 3a 4e 25 3d 44 | 25 28 55 25 2c 32 29 81 |1.5:N%=D|%(U%,2).|
|00001db0| 31 30 0d 09 a6 0b c8 8e | 20 4e 25 20 ca 0d 09 b0 |10......| N% ....|
|00001dc0| 0d c9 20 34 3a 67 25 3d | 55 25 0d 09 ba 1f c9 20 |.. 4:g%=|U%..... |
|00001dd0| 37 3a e7 20 a4 63 68 28 | 39 29 20 84 20 a4 63 68 |7:. .ch(|9) . .ch|
|00001de0| 28 36 29 20 67 25 3d 55 | 25 0d 09 c4 1f c9 20 38 |(6) g%=U|%..... 8|
|00001df0| 3a e7 20 a4 63 68 28 39 | 29 20 84 20 a4 63 68 28 |:. .ch(9|) . .ch(|
|00001e00| 36 29 20 67 25 3d 55 25 | 0d 09 ce 35 c9 20 35 3a |6) g%=U%|...5. 5:|
|00001e10| e3 6a 25 3d 31 b8 35 3a | e7 44 25 28 6a 25 2c 32 |.j%=1.5:|.D%(j%,2|
|00001e20| 29 3c 3e 30 20 80 20 28 | 44 25 28 6a 25 2c 32 29 |)<>0 . (|D%(j%,2)|
|00001e30| 81 31 30 29 3c 3e 35 20 | 67 25 3d 6a 25 0d 09 d8 |.10)<>5 |g%=j%...|
|00001e40| 05 ed 0d 09 e2 05 cb 0d | 09 ec 0f e7 4e 25 3e 30 |........|....N%>0|
|00001e50| 20 47 25 3d 55 25 0d 09 | f6 11 ed 3a e7 67 25 3e | G%=U%..|...:.g%>|
|00001e60| 30 20 47 25 3d 67 25 0d | 0a 00 0b f2 70 6c 61 79 |0 G%=g%.|....play|
|00001e70| 3a e1 0d 0a 0a 05 cd 0d | 0a 14 0c e7 20 4c 25 3d |:.......|.... L%=|
|00001e80| 32 20 8c 0d 0a 1e 55 e3 | 55 25 3d 31 b8 35 3a 4e |2 ....U.|U%=1.5:N|
|00001e90| 25 3d 44 25 28 55 25 2c | 32 29 81 31 30 3a 53 25 |%=D%(U%,|2).10:S%|
|00001ea0| 3d 44 25 28 55 25 2c 32 | 29 83 31 30 3a 76 61 6c |=D%(U%,2|).10:val|
|00001eb0| 25 3d a4 76 61 6c 3a f2 | 61 64 64 75 70 3a 54 25 |%=.val:.|addup:T%|
|00001ec0| 28 4c 25 29 3d 30 3a 41 | 25 28 4c 25 29 3d 30 3a |(L%)=0:A|%(L%)=0:|
|00001ed0| 55 25 28 4c 25 29 3d 34 | 0d 0a 28 0a c8 8e 20 b9 |U%(L%)=4|..(... .|
|00001ee0| 20 ca 0d 0a 32 19 c9 20 | 42 25 3d 31 35 3a 47 25 | ...2.. |B%=15:G%|
|00001ef0| 3d 55 25 3a f2 70 6c 61 | 79 3a e1 0d 0a 3c 1f c9 |=U%:.pla|y:...<..|
|00001f00| 20 54 25 28 31 29 3d 54 | 25 28 32 29 3a 47 25 3d | T%(1)=T|%(2):G%=|
|00001f10| 55 25 3a f2 70 6c 61 79 | 3a e1 0d 0a 46 19 c9 20 |U%:.play|:...F.. |
|00001f20| 54 25 28 31 29 3d 34 3a | e7 4e 25 3e 36 20 67 25 |T%(1)=4:|.N%>6 g%|
|00001f30| 3d 55 25 0d 0a 50 29 c9 | 20 54 25 28 31 29 3d 35 |=U%..P).| T%(1)=5|
|00001f40| 3a e7 4e 25 3e 30 20 80 | 20 4e 25 3c 3e 34 20 80 |:.N%>0 .| N%<>4 .|
|00001f50| 20 4e 25 3c 3e 36 20 67 | 25 3d 55 25 0d 0a 5a 29 | N%<>6 g|%=U%..Z)|
|00001f60| c9 20 54 25 28 31 29 3d | 36 3a e7 4e 25 3e 30 20 |. T%(1)=|6:.N%>0 |
|00001f70| 80 20 4e 25 3c 3e 34 20 | 80 20 4e 25 3c 3e 35 20 |. N%<>4 |. N%<>5 |
|00001f80| 67 25 3d 55 25 0d 0a 64 | 19 c9 20 54 25 28 31 29 |g%=U%..d|.. T%(1)|
|00001f90| 3d 31 3a e7 4e 25 3e 34 | 20 67 25 3d 55 25 0d 0a |=1:.N%>4| g%=U%..|
|00001fa0| 6e 05 cb 0d 0a 78 0f e7 | 4e 25 3e 30 20 47 25 3d |n....x..|N%>0 G%=|
|00001fb0| 55 25 0d 0a 82 11 ed 3a | e7 67 25 3e 30 20 47 25 |U%.....:|.g%>0 G%|
|00001fc0| 3d 67 25 0d 0a 8c 0b f2 | 70 6c 61 79 3a e1 0d 0a |=g%.....|play:...|
|00001fd0| 96 05 cd 0d 0a a0 38 7a | 25 3d 30 3a e3 55 25 3d |......8z|%=0:.U%=|
|00001fe0| 31 b8 35 3a 4e 25 3d 44 | 25 28 55 25 2c 32 29 81 |1.5:N%=D|%(U%,2).|
|00001ff0| 31 30 3a 53 25 3d 44 25 | 28 55 25 2c 32 29 83 31 |10:S%=D%|(U%,2).1|
|00002000| 30 3a 76 61 6c 25 3d a4 | 76 61 6c 0d 0a aa 0e e7 |0:val%=.|val.....|
|00002010| 4e 25 3d 30 8c 8d 64 48 | 4a 0d 0a b4 31 f2 61 64 |N%=0..dH|J...1.ad|
|00002020| 64 75 70 3a 54 25 28 4c | 25 29 3d 30 3a 41 25 28 |dup:T%(L|%)=0:A%(|
|00002030| 4c 25 29 3d 30 3a 55 25 | 28 4c 25 29 3d 34 3a e7 |L%)=0:U%|(L%)=4:.|
|00002040| 42 25 3e 33 31 8c 8d 64 | 48 4a 0d 0a be 20 47 25 |B%>31..d|HJ... G%|
|00002050| 3d 55 25 3a e7 73 75 6d | 25 3e 7a 25 20 7a 25 3d |=U%:.sum|%>z% z%=|
|00002060| 73 75 6d 25 3a 67 25 3d | 55 25 0d 0a c8 11 ed 3a |sum%:g%=|U%.....:|
|00002070| e7 67 25 3e 30 20 47 25 | 3d 67 25 0d 0a d2 13 e7 |.g%>0 G%|=g%.....|
|00002080| 47 25 3d 30 20 70 61 73 | 73 25 3d 32 3a e1 0d 0a |G%=0 pas|s%=2:...|
|00002090| dc 09 f2 70 6c 61 79 0d | 0a e6 05 e1 0d 0a f0 3c |...play.|.......<|
|000020a0| dd f2 70 6c 61 79 3a 57 | 25 3d 57 25 2b 31 3a 4e |..play:W|%=W%+1:N|
|000020b0| 25 3d 44 25 28 47 25 2c | 32 29 81 31 30 3a 53 25 |%=D%(G%,|2).10:S%|
|000020c0| 3d 44 25 28 47 25 2c 32 | 29 83 31 30 3a 76 61 6c |=D%(G%,2|).10:val|
|000020d0| 25 3d a4 76 61 6c 3a e1 | 0d 0a fa 2e dd a4 63 68 |%=.val:.|......ch|
|000020e0| 28 58 29 3a e3 6a 25 3d | 30 b8 35 3a e7 44 25 28 |(X):.j%=|0.5:.D%(|
|000020f0| 6a 25 2c 32 29 81 31 30 | 3d 58 20 7a 25 3d b9 20 |j%,2).10|=X z%=. |
|00002100| 8b 20 7a 25 3d a3 0d 0b | 04 09 ed 3a 3d 7a 25 0d |. z%=...|...:=z%.|
|00002110| 0b 0e 0b dd f2 73 63 6f | 72 65 0d 0b 18 0d ea 43 |.....sco|re.....C|
|00002120| 25 2c 58 25 2c 47 25 0d | 0b 22 0d e7 73 75 6d 25 |%,X%,G%.|."..sum%|
|00002130| 3d 30 20 e1 0d 0b 2c 0b | e7 63 25 3c 3e 33 e1 0d |=0 ...,.|.c%<>3..|
|00002140| 0b 36 24 e6 31 35 3a e7 | 41 25 3d 31 58 25 3d 43 |.6$.15:.|A%=1X%=C|
|00002150| 4f 4d 53 43 25 2b 31 8b | 58 25 3d 48 55 4d 53 43 |OMSC%+1.|X%=HUMSC|
|00002160| 25 2b 31 0d 0b 40 46 e3 | 4a 25 3d 58 25 b8 58 25 |%+1..@F.|J%=X%.X%|
|00002170| 2b 73 75 6d 25 2d 31 3a | ef 37 3a e7 41 25 3d 31 |+sum%-1:|.7:.A%=1|
|00002180| e7 4a 25 3e 33 30 43 25 | 3d 31 31 39 30 3a 59 25 |.J%>30C%|=1190:Y%|
|00002190| 3d 33 31 2d 28 4a 25 2d | 33 30 29 8b 43 25 3d 31 |=31-(J%-|30).C%=1|
|000021a0| 32 31 30 3a 59 25 3d 4a | 25 0d 0b 4a 31 e7 4a 25 |210:Y%=J|%..J1.J%|
|000021b0| 3e 3d 36 31 ec 31 31 37 | 30 2c 31 30 30 3a ef 34 |>=61.117|0,100:.4|
|000021c0| 36 2c 37 3a 63 25 3d 41 | 25 3a 4a 25 3d 58 25 2b |6,7:c%=A|%:J%=X%+|
|000021d0| 73 75 6d 25 3a e5 8d 44 | 72 4b 0d 0b 54 0e e7 41 |sum%:..D|rK..T..A|
|000021e0| 25 3d 31 8c 8d 44 68 4b | 0d 0b 5e 2d e7 4a 25 3e |%=1..DhK|..^-.J%>|
|000021f0| 33 30 43 25 3d 31 31 34 | 30 3a 59 25 3d 33 31 2d |30C%=114|0:Y%=31-|
|00002200| 28 4a 25 2d 33 30 29 8b | 43 25 3d 31 31 32 30 3a |(J%-30).|C%=1120:|
|00002210| 59 25 3d 4a 25 0d 0b 68 | 1d ec 43 25 2c 31 32 33 |Y%=J%..h|..C%,123|
|00002220| 2b 59 25 2a 32 37 3a ef | 34 36 3a 41 3d a6 28 33 |+Y%*27:.|46:A=.(3|
|00002230| 30 29 0d 0b 72 05 ed 0d | 0b 7c 05 e1 0d 0b 86 14 |0)..r...|.|......|
|00002240| dd f2 64 69 73 70 6c 61 | 79 28 44 25 2c 45 25 29 |..displa|y(D%,E%)|
|00002250| 0d 0b 90 0b e7 44 25 3d | 33 20 8c 0d 0b 9a 29 44 |.....D%=|3 ....)D|
|00002260| 25 3d 36 3a e3 4a 25 3d | 31 b8 34 3a f2 62 6f 78 |%=6:.J%=|1.4:.box|
|00002270| 63 61 72 64 28 4a 25 29 | 3a ed 3a 42 25 3d 34 3a |card(J%)|:.:B%=4:|
|00002280| 44 25 3d 33 0d 0b a4 33 | e3 4a 25 3d 30 b8 31 3a |D%=3...3|.J%=0.1:|
|00002290| e3 49 25 3d 31 b8 32 3a | 50 25 3d 33 35 34 2b 28 |.I%=1.2:|P%=354+(|
|000022a0| 49 25 2d 31 29 2a 31 36 | 30 3a 45 25 3d 35 31 35 |I%-1)*16|0:E%=515|
|000022b0| 2d 4a 25 2a 32 31 36 0d | 0b ae 59 4e 25 3d 4e 25 |-J%*216.|..YN%=N%|
|000022c0| 28 49 25 2b 4a 25 2a 32 | 2c 44 25 29 3a 53 25 3d |(I%+J%*2|,D%):S%=|
|000022d0| 53 25 28 49 25 2b 4a 25 | 2a 32 2c 44 25 29 3a 76 |S%(I%+J%|*2,D%):v|
|000022e0| 61 6c 25 3d a4 76 61 6c | 3a 43 25 3d 33 2d 28 53 |al%=.val|:C%=3-(S|
|000022f0| 25 83 32 29 2a 33 3a 53 | 24 3d 53 24 28 53 25 29 |%.2)*3:S|$=S$(S%)|
|00002300| 3a f2 66 61 63 65 28 50 | 25 2c 45 25 29 3a ed 2c |:.face(P|%,E%):.,|
|00002310| 0d 0b b8 05 cd 0d 0b c2 | 0c e7 44 25 3c 3e 33 20 |........|..D%<>3 |
|00002320| 8c 0d 0b cc 22 42 25 3d | 33 3a e3 4a 25 3d 31 b8 |...."B%=|3:.J%=1.|
|00002330| 42 25 3a 50 25 3d 36 34 | 2b 28 4a 25 2d 31 29 2a |B%:P%=64|+(J%-1)*|
|00002340| 31 36 30 0d 0b d6 27 4e | 25 3d 4e 25 28 4a 25 2c |160...'N|%=N%(J%,|
|00002350| 44 25 29 3a 53 25 3d 53 | 25 28 4a 25 2c 44 25 29 |D%):S%=S|%(J%,D%)|
|00002360| 3a 76 61 6c 25 3d a4 76 | 61 6c 0d 0b e0 1b 53 24 |:val%=.v|al....S$|
|00002370| 3d 53 24 28 53 25 29 3a | 43 25 3d 33 2d 28 53 25 |=S$(S%):|C%=3-(S%|
|00002380| 83 32 29 2a 33 0d 0b ea | 12 f2 66 61 63 65 28 50 |.2)*3...|..face(P|
|00002390| 25 2c 45 25 29 3a ed 0d | 0b f4 05 cd 0d 0b fe 0d |%,E%):..|........|
|000023a0| f2 68 61 6e 64 28 44 25 | 29 0d 0c 08 0b c8 8e 20 |.hand(D%|)...... |
|000023b0| 44 25 20 ca 0d 0c 12 20 | c9 20 31 3a 41 25 3d 30 |D% .... |. 1:A%=0|
|000023c0| 3a f2 73 63 6f 72 65 3a | 48 55 4d 53 43 25 2b 3d |:.score:|HUMSC%+=|
|000023d0| 73 75 6d 25 0d 0c 1c 20 | c9 20 32 3a 41 25 3d 31 |sum%... |. 2:A%=1|
|000023e0| 3a f2 73 63 6f 72 65 3a | 43 4f 4d 53 43 25 2b 3d |:.score:|COMSC%+=|
|000023f0| 73 75 6d 25 0d 0c 26 46 | c9 20 33 3a e7 62 25 3d |sum%..&F|. 3:.b%=|
|00002400| 30 20 41 25 3d 30 3a f2 | 73 63 6f 72 65 3a 48 55 |0 A%=0:.|score:HU|
|00002410| 4d 53 43 25 2b 3d 73 75 | 6d 25 20 8b 20 41 25 3d |MSC%+=su|m% . A%=|
|00002420| 31 3a f2 73 63 6f 72 65 | 3a 43 4f 4d 53 43 25 2b |1:.score|:COMSC%+|
|00002430| 3d 73 75 6d 25 3a 41 25 | 3d 31 0d 0c 30 05 cb 0d |=sum%:A%|=1..0...|
|00002440| 0c 3a 40 ef 34 3a e7 44 | 25 3d 33 f1 8a 31 36 2c |.:@.4:.D|%=3..16,|
|00002450| 32 31 2d 31 30 2a 41 25 | 29 3b 22 3d 22 3b 73 75 |21-10*A%|);"=";su|
|00002460| 6d 25 8b f1 8a 33 33 2c | 32 37 2d 32 32 2a 41 25 |m%...33,|27-22*A%|
|00002470| 29 3b 22 54 4f 54 41 4c | 3d 22 3b 73 75 6d 25 0d |);"TOTAL|=";sum%.|
|00002480| 0c 44 08 ef 35 3a e1 0d | 0c 4e 20 dd f2 73 74 6f |.D..5:..|.N ..sto|
|00002490| 72 65 70 61 73 73 3a e7 | 70 73 25 3d 30 20 70 73 |repass:.|ps%=0 ps|
|000024a0| 25 3d 70 61 73 73 25 0d | 0c 58 13 51 25 3d 51 25 |%=pass%.|.X.Q%=Q%|
|000024b0| 2b 31 3a 4c 25 3d 4c 25 | 2d 31 0d 0c 62 1f e7 70 |+1:L%=L%|-1..b..p|
|000024c0| 61 73 73 25 3d 32 20 ef | 34 3a f1 8a 35 36 2c 31 |ass%=2 .|4:..56,1|
|000024d0| 32 29 22 50 41 53 53 21 | 22 0d 0c 6c 0b 70 61 73 |2)"PASS!|"..l.pas|
|000024e0| 73 25 3d 30 0d 0c 76 05 | e1 0d 0c 80 0b dd f2 4d |s%=0..v.|.......M|
|000024f0| 53 42 4f 58 0d 0c 8a 3e | f5 3a c8 97 58 25 2c 59 |SBOX...>|.:..X%,Y|
|00002500| 25 2c 42 54 25 3a fd 28 | 58 25 3c 31 37 36 20 80 |%,BT%:.(|X%<176 .|
|00002510| 20 58 25 3e 33 32 20 80 | 59 25 3c 35 39 30 20 80 | X%>32 .|Y%<590 .|
|00002520| 20 59 25 3e 33 39 30 20 | 80 42 54 25 3c 3e 30 29 | Y%>390 |.BT%<>0)|
|00002530| 3a e1 0d 0c 94 2b dd f2 | 6d 6f 75 73 65 3a f5 3a |:....+..|mouse:.:|
|00002540| c8 97 20 58 25 2c 59 25 | 2c 42 54 25 3a fd 42 54 |.. X%,Y%|,BT%:.BT|
|00002550| 25 3c 3e 30 3a 44 4c 3d | a6 31 30 3a e1 0d 0c 9e |%<>0:DL=|.10:....|
|00002560| 13 dd f2 57 50 43 41 52 | 44 28 58 25 2c 59 25 29 |...WPCAR|D(X%,Y%)|
|00002570| 0d 0c a8 1e f2 72 65 63 | 74 28 58 25 2d 38 2c 59 |.....rec|t(X%-8,Y|
|00002580| 25 2d 38 2c 31 35 34 2c | 32 31 34 29 3a e1 0d 0c |%-8,154,|214):...|
|00002590| b2 16 dd f2 73 70 72 69 | 74 65 28 4e 24 2c 58 25 |....spri|te(N$,X%|
|000025a0| 2c 59 25 29 0d 0c bc 2a | c8 99 22 4f 53 5f 53 70 |,Y%)...*|.."OS_Sp|
|000025b0| 72 69 74 65 4f 70 22 2c | 32 39 30 2c 73 70 2c 4e |riteOp",|290,sp,N|
|000025c0| 24 2c 58 25 2c 59 25 2c | 20 2c 20 2c 26 38 0d 0c |$,X%,Y%,| , ,&8..|
|000025d0| c6 05 e1 0d 0c d0 26 dd | f2 73 63 61 6c 65 28 58 |......&.|.scale(X|
|000025e0| 25 2c 59 25 2c 55 50 57 | 25 2c 55 50 48 25 2c 44 |%,Y%,UPW|%,UPH%,D|
|000025f0| 4e 57 25 2c 44 4e 48 25 | 29 0d 0c da 0f 21 73 63 |NW%,DNH%|)....!sc|
|00002600| 61 6c 65 3d 55 50 57 25 | 0d 0c e4 10 73 63 61 6c |ale=UPW%|....scal|
|00002610| 65 21 34 3d 55 50 48 25 | 0d 0c ee 10 73 63 61 6c |e!4=UPH%|....scal|
|00002620| 65 21 38 3d 44 4e 57 25 | 0d 0c f8 11 73 63 61 6c |e!8=DNW%|....scal|
|00002630| 65 21 31 32 3d 44 4e 48 | 25 0d 0d 02 2c c8 99 20 |e!12=DNH|%...,.. |
|00002640| 22 4f 53 5f 53 70 72 69 | 74 65 4f 70 22 2c 33 30 |"OS_Spri|teOp",30|
|00002650| 38 2c 73 70 2c 53 24 2c | 58 25 2c 59 25 2c 30 2c |8,sp,S$,|X%,Y%,0,|
|00002660| 73 63 61 6c 65 0d 0d 0c | 05 e1 0d 0d 16 0a dd f2 |scale...|........|
|00002670| 46 4c 49 50 0d 0d 20 1e | c8 99 20 22 4f 53 5f 53 |FLIP.. .|.. "OS_S|
|00002680| 70 72 69 74 65 4f 70 22 | 2c 32 38 39 2c 73 70 2c |priteOp"|,289,sp,|
|00002690| 53 24 0d 0d 2a 05 e1 0d | 0d 34 28 dd f2 70 6c 69 |S$..*...|.4(..pli|
|000026a0| 6e 74 68 28 58 25 2c 59 | 25 2c 57 25 2c 48 25 2c |nth(X%,Y|%,W%,H%,|
|000026b0| 45 25 2c 43 25 2c 54 31 | 2c 54 32 2c 54 33 29 0d |E%,C%,T1|,T2,T3).|
|000026c0| 0d 3e 1e e6 20 43 25 20 | c8 9c 20 54 31 3a c8 93 |.>.. C% |.. T1:..|
|000026d0| c8 90 58 25 2c 59 25 2c | 57 25 2c 48 25 0d 0d 48 |..X%,Y%,|W%,H%..H|
|000026e0| 0e e6 20 43 25 20 c8 9c | 20 54 32 0d 0d 52 6d ec |.. C% ..| T2..Rm.|
|000026f0| 58 25 2c 59 25 2b 48 25 | 3a ec 58 25 2b 45 25 2c |X%,Y%+H%|:.X%+E%,|
|00002700| 59 25 2b 28 48 25 2d 45 | 25 29 3a f0 38 35 2c 58 |Y%+(H%-E|%):.85,X|
|00002710| 25 2c 59 25 2b 28 48 25 | 2d 45 25 29 3a f0 38 35 |%,Y%+(H%|-E%):.85|
|00002720| 2c 58 25 2b 45 25 2c 59 | 25 2b 45 25 3a f0 38 35 |,X%+E%,Y|%+E%:.85|
|00002730| 2c 58 25 2c 59 25 3a f0 | 38 35 2c 58 25 2b 28 57 |,X%,Y%:.|85,X%+(W|
|00002740| 25 2d 45 25 29 2c 59 25 | 2b 45 25 3a f0 38 35 2c |%-E%),Y%|+E%:.85,|
|00002750| 58 25 2b 57 25 2c 59 25 | 0d 0d 5c 2e e6 20 43 25 |X%+W%,Y%|..\.. C%|
|00002760| 20 c8 9c 20 54 33 3a c8 | 93 c8 90 58 25 2b 45 25 | .. T3:.|...X%+E%|
|00002770| 2c 59 25 2b 45 25 2c 57 | 25 2d 45 25 2a 32 2c 48 |,Y%+E%,W|%-E%*2,H|
|00002780| 25 2d 45 25 2a 32 0d 0d | 66 05 e1 0d 0d 70 0b eb |%-E%*2..|f....p..|
|00002790| 33 3a f6 3a f1 9e 0d 0d | 7a 20 e6 34 20 c8 9c 30 |3:.:....|z .4 ..0|
|000027a0| 3a c8 93 c8 90 58 25 2d | 38 2c 59 25 2d 38 2c 31 |:....X%-|8,Y%-8,1|
|000027b0| 34 34 2c 32 30 30 0d 0d | 84 12 dd f2 70 6f 69 6e |44,200..|....poin|
|000027c0| 74 65 72 28 50 4f 24 29 | 0d 0d 8e 0c 2a 50 4f 49 |ter(PO$)|....*POI|
|000027d0| 4e 54 45 52 0d 0d 98 0b | de 50 42 20 34 30 30 0d |NTER....|.PB 400.|
|000027e0| 0d a2 2f c8 99 20 22 4f | 53 5f 46 69 6c 65 22 2c |../.. "O|S_File",|
|000027f0| 32 35 35 2c 22 3c 43 72 | 69 62 62 61 67 65 24 44 |255,"<Cr|ibbage$D|
|00002800| 69 72 3e 2e 22 2b 50 4f | 24 2c 50 42 2c 30 0d 0d |ir>."+PO|$,PB,0..|
|00002810| ac 15 50 42 3f 31 3d 32 | 3a 50 42 21 36 3d 50 42 |..PB?1=2|:PB!6=PB|
|00002820| 2b 26 41 0d 0d b6 17 c8 | 99 20 22 4f 53 5f 57 6f |+&A.....|. "OS_Wo|
|00002830| 72 64 22 2c 26 31 35 2c | 50 42 0d 0d c0 0a c8 97 |rd",&15,|PB......|
|00002840| 20 ee 20 32 0d 0d ca 05 | e1 0d 0d d4 13 dd f2 72 | . 2....|.......r|
|00002850| 65 63 74 28 78 2c 79 2c | 68 2c 76 29 0d 0d de 18 |ect(x,y,|h,v)....|
|00002860| e6 34 20 c8 9c 31 32 38 | 3a c8 93 c8 90 78 2c 79 |.4 ..128|:....x,y|
|00002870| 2c 68 2c 76 0d 0d e8 05 | e1 0d 0d f2 0e dd f2 68 |,h,v....|.......h|
|00002880| 61 6e 64 28 50 25 29 0d | 0d fc 12 e7 50 25 3d 33 |and(P%).|....P%=3|
|00002890| 42 25 3d 34 8b 42 25 3d | 33 0d 0e 06 16 e3 4a 25 |B%=4.B%=|3.....J%|
|000028a0| 3d 31 b8 35 3a 50 25 28 | 4a 25 29 3d 30 3a ed 0d |=1.5:P%(|J%)=0:..|
|000028b0| 0e 10 12 ea 52 25 2c 54 | 25 2c 3a 73 75 6d 25 3d |....R%,T|%,:sum%=|
|000028c0| 30 0d 0e 1a 3e e3 4a 25 | 3d 31 b8 35 3a 54 25 28 |0...>.J%|=1.5:T%(|
|000028d0| 4a 25 29 3d 56 25 28 4a | 25 2c 50 25 29 3a 41 25 |J%)=V%(J|%,P%):A%|
|000028e0| 28 4a 25 29 3d 4e 25 28 | 4a 25 2c 50 25 29 3a 55 |(J%)=N%(|J%,P%):U|
|000028f0| 25 28 4a 25 29 3d 53 25 | 28 4a 25 2c 50 25 29 0d |%(J%)=S%|(J%,P%).|
|00002900| 0e 24 05 ed 0d 0e 2e 05 | 3a 0d 0e 38 15 f4 2e 2e |.$......|:..8....|
|00002910| 74 65 73 74 20 66 6f 72 | 20 66 6c 75 73 68 0d 0e |test for| flush..|
|00002920| 42 3c 46 4c 25 3d 30 3a | 52 25 3d 55 25 28 31 29 |B<FL%=0:|R%=U%(1)|
|00002930| 3a 54 25 3d 30 3a e3 4a | 25 3d 32 b8 42 25 3a e7 |:T%=0:.J|%=2.B%:.|
|00002940| 52 25 3c 3e 55 25 28 4a | 25 29 20 84 20 41 25 28 |R%<>U%(J|%) . A%(|
|00002950| 4a 25 29 3d 30 20 54 25 | 3d 31 0d 0e 4c 05 ed 0d |J%)=0 T%|=1..L...|
|00002960| 0e 56 0b e7 54 25 3d 30 | 20 8c 0d 0e 60 24 73 75 |.V..T%=0| ...`$su|
|00002970| 6d 25 2b 3d 42 25 3a e7 | 55 25 28 31 29 3d 55 25 |m%+=B%:.|U%(1)=U%|
|00002980| 28 42 25 2b 31 29 20 73 | 75 6d 25 2b 3d 31 0d 0e |(B%+1) s|um%+=1..|
|00002990| 6a 0c 46 4c 25 3d 73 75 | 6d 25 0d 0e 74 05 cd 0d |j.FL%=su|m%..t...|
|000029a0| 0e 7e 05 3a 0d 0e 88 14 | f4 2e 2e 74 65 73 74 20 |.~.:....|...test |
|000029b0| 66 6f 72 20 6a 61 63 6b | 0d 0e 92 3b 4a 4b 25 3d |for jack|...;JK%=|
|000029c0| 30 3a e3 4a 25 3d 31 b8 | 42 25 3a e7 41 25 28 4a |0:.J%=1.|B%:.A%(J|
|000029d0| 25 29 3d 31 31 e7 55 25 | 28 4a 25 29 3d 55 25 28 |%)=11.U%|(J%)=U%(|
|000029e0| 42 25 2b 31 29 20 73 75 | 6d 25 2b 3d 31 3a 4a 4b |B%+1) su|m%+=1:JK|
|000029f0| 25 3d 31 0d 0e 9c 05 ed | 0d 0e a6 5d e3 4a 25 3d |%=1.....|...].J%=|
|00002a00| 31 b8 35 3a e3 49 25 3d | 31 b8 42 25 3a e7 41 25 |1.5:.I%=|1.B%:.A%|
|00002a10| 28 49 25 29 3e 41 25 28 | 49 25 2b 31 29 20 c8 94 |(I%)>A%(|I%+1) ..|
|00002a20| 20 41 25 28 49 25 29 2c | 41 25 28 49 25 2b 31 29 | A%(I%),|A%(I%+1)|
|00002a30| 3a c8 94 20 55 25 28 49 | 25 29 2c 55 25 28 49 25 |:.. U%(I|%),U%(I%|
|00002a40| 2b 31 29 3a c8 94 54 25 | 28 49 25 29 2c 54 25 28 |+1):..T%|(I%),T%(|
|00002a50| 49 25 2b 31 29 0d 0e b0 | 06 ed 2c 0d 0e ba 0a e7 |I%+1)...|..,.....|
|00002a60| 20 46 25 20 8c 0d 0e c4 | 29 f2 70 6c 69 6e 74 68 | F% ....|).plinth|
|00002a70| 28 36 37 30 2c 38 30 2c | 34 30 30 2c 38 39 36 2c |(670,80,|400,896,|
|00002a80| 31 36 2c 34 2c 30 2c 31 | 39 32 2c 36 34 29 0d 0e |16,4,0,1|92,64)..|
|00002a90| ce 22 ef 34 2c 32 38 2c | 34 33 2c 32 38 2c 36 35 |.".4,28,|43,28,65|
|00002aa0| 2c 32 3a fb 31 37 35 20 | c8 9c 30 3a db 3a fb 30 |,2:.175 |..0:.:.0|
|00002ab0| 0d 0e d8 17 f1 27 8a 36 | 29 22 31 35 20 46 4f 52 |.....'.6|)"15 FOR|
|00002ac0| 20 32 27 73 22 3a f1 0d | 0e e2 05 cd 0d 0e ec 15 | 2's":..|........|
|00002ad0| f4 2e 2e 74 65 73 74 20 | 31 35 20 66 72 6f 6d 20 |...test |15 from |
|00002ae0| 32 0d 0e f6 16 e3 4a 25 | 3d 31 b8 34 3a e3 49 25 |2.....J%|=1.4:.I%|
|00002af0| 3d 4a 25 2b 31 b8 35 0d | 0f 00 17 e7 54 25 28 4a |=J%+1.5.|....T%(J|
|00002b00| 25 29 2b 54 25 28 49 25 | 29 3d 31 35 20 8c 0d 0f |%)+T%(I%|)=15 ...|
|00002b10| 0a 34 73 75 6d 25 2b 3d | 32 3a e7 20 46 25 20 f2 |.4sum%+=|2:. F% .|
|00002b20| 70 72 69 6e 74 69 74 28 | 4a 25 29 3a f2 70 72 69 |printit(|J%):.pri|
|00002b30| 6e 74 69 74 28 49 25 29 | 3a f2 65 6e 64 69 74 28 |ntit(I%)|:.endit(|
|00002b40| 32 29 0d 0f 14 05 cd 0d | 0f 1e 06 ed 2c 0d 0f 28 |2)......|....,..(|
|00002b50| 21 e3 4a 25 3d 31 b8 33 | 3a e3 49 25 3d 4a 25 2b |!.J%=1.3|:.I%=J%+|
|00002b60| 31 b8 34 3a e3 4b 25 3d | 49 25 2b 31 b8 35 0d 0f |1.4:.K%=|I%+1.5..|
|00002b70| 32 29 e7 54 25 28 4a 25 | 29 3e 30 20 80 20 54 25 |2).T%(J%|)>0 . T%|
|00002b80| 28 4a 25 29 2b 54 25 28 | 49 25 29 2b 54 25 28 4b |(J%)+T%(|I%)+T%(K|
|00002b90| 25 29 3d 31 35 20 8c 0d | 0f 3c 41 73 75 6d 25 2b |%)=15 ..|.<Asum%+|
|00002ba0| 3d 32 3a e7 20 46 25 20 | f2 70 72 69 6e 74 69 74 |=2:. F% |.printit|
|00002bb0| 28 4a 25 29 3a f2 70 72 | 69 6e 74 69 74 28 49 25 |(J%):.pr|intit(I%|
|00002bc0| 29 3a f2 70 72 69 6e 74 | 69 74 28 4b 25 29 3a f2 |):.print|it(K%):.|
|00002bd0| 65 6e 64 69 74 28 32 29 | 0d 0f 46 05 cd 0d 0f 50 |endit(2)|..F....P|
|00002be0| 07 ed 2c 2c 0d 0f 5a 10 | e3 4a 25 3d 31 b8 35 3a |..,,..Z.|.J%=1.5:|
|00002bf0| 54 25 3d 30 0d 0f 64 15 | e3 49 25 3d 31 b8 35 3a |T%=0..d.|.I%=1.5:|
|00002c00| e7 49 25 3c 3e 4a 25 20 | 8c 0d 0f 6e 22 e7 20 54 |.I%<>J% |...n". T|
|00002c10| 25 28 49 25 29 3d 30 20 | 54 25 2b 3d 31 35 20 8b |%(I%)=0 |T%+=15 .|
|00002c20| 20 54 25 2b 3d 54 25 28 | 49 25 29 0d 0f 78 05 cd | T%+=T%(|I%)..x..|
|00002c30| 0d 0f 82 0f ed 3a e7 20 | 54 25 3d 31 35 20 8c 0d |.....:. |T%=15 ..|
|00002c40| 0f 8c 12 73 75 6d 25 2b | 3d 32 3a e7 20 46 25 20 |...sum%+|=2:. F% |
|00002c50| 8c 0d 0f 96 20 e3 4b 25 | 3d 31 b8 35 3a e7 4b 25 |.... .K%|=1.5:.K%|
|00002c60| 3c 3e 4a 25 20 f2 70 72 | 69 6e 74 69 74 28 4b 25 |<>J% .pr|intit(K%|
|00002c70| 29 0d 0f a0 0f ed 3a f2 | 65 6e 64 69 74 28 32 29 |).....:.|endit(2)|
|00002c80| 0d 0f aa 05 cd 0d 0f b4 | 05 cd 0d 0f be 05 ed 0d |........|........|
|00002c90| 0f c8 17 e7 20 46 25 20 | f1 27 8a 38 29 22 50 61 |.... F% |.'.8)"Pa|
|00002ca0| 69 72 73 22 3a f1 0d 0f | d2 0c f4 2e 2e 70 61 69 |irs":...|.....pai|
|00002cb0| 72 73 0d 0f dc 32 e3 4a | 25 3d 31 b8 34 3a e3 49 |rs...2.J|%=1.4:.I|
|00002cc0| 25 3d 4a 25 2b 31 b8 35 | 3a e7 41 25 28 4a 25 29 |%=J%+1.5|:.A%(J%)|
|00002cd0| 3e 30 20 80 20 41 25 28 | 4a 25 29 3d 41 25 28 49 |>0 . A%(|J%)=A%(I|
|00002ce0| 25 29 20 8c 0d 0f e6 34 | 73 75 6d 25 2b 3d 32 3a |%) ....4|sum%+=2:|
|00002cf0| e7 20 46 25 20 f2 70 72 | 69 6e 74 69 74 28 4a 25 |. F% .pr|intit(J%|
|00002d00| 29 3a f2 70 72 69 6e 74 | 69 74 28 49 25 29 3a f2 |):.print|it(I%):.|
|00002d10| 65 6e 64 69 74 28 32 29 | 0d 0f f0 05 cd 0d 0f fa |endit(2)|........|
|00002d20| 06 ed 2c 0d 10 04 16 e7 | 20 46 25 20 f1 27 8a 38 |..,.....| F% .'.8|
|00002d30| 29 22 52 75 6e 73 22 3a | f1 0d 10 0e 08 54 25 3d |)"Runs":|.....T%=|
|00002d40| 30 0d 10 18 0b e7 50 25 | 3d 33 20 8c 0d 10 22 2b |0.....P%|=3 ..."+|
|00002d50| 54 54 25 3d 30 3a e3 4a | 25 3d 31 b8 34 3a e7 41 |TT%=0:.J|%=1.4:.A|
|00002d60| 25 28 4a 25 29 3c 3e 41 | 25 28 4a 25 2b 31 29 2d |%(J%)<>A|%(J%+1)-|
|00002d70| 31 20 54 54 25 3d 31 0d | 10 2c 05 ed 0d 10 36 0c |1 TT%=1.|.,....6.|
|00002d80| e7 54 54 25 3d 30 20 8c | 0d 10 40 08 54 25 3d 31 |.TT%=0 .|..@.T%=1|
|00002d90| 0d 10 4a 31 73 75 6d 25 | 2b 3d 35 3a e7 20 46 25 |..J1sum%|+=5:. F%|
|00002da0| 20 e3 4b 25 3d 31 b8 35 | 3a f2 70 72 69 6e 74 69 | .K%=1.5|:.printi|
|00002db0| 74 28 4b 25 29 3a ed 3a | f2 65 6e 64 69 74 28 35 |t(K%):.:|.endit(5|
|00002dc0| 29 0d 10 54 05 cd 0d 10 | 5e 05 cd 0d 10 68 0c e7 |)..T....|^....h..|
|00002dd0| 20 54 25 3d 30 20 8c 0d | 10 72 3a e3 4a 25 3d 31 | T%=0 ..|.r:.J%=1|
|00002de0| b8 35 3a 54 54 25 3d 30 | 3a 52 25 3d 30 3a e3 49 |.5:TT%=0|:R%=0:.I|
|00002df0| 25 3d 31 b8 35 3a e7 49 | 25 3c 3e 4a 25 20 52 25 |%=1.5:.I|%<>J% R%|
|00002e00| 2b 3d 31 3a 50 25 28 52 | 25 29 3d 41 25 28 49 25 |+=1:P%(R|%)=A%(I%|
|00002e10| 29 0d 10 7c 27 ed 3a e3 | 4b 25 3d 31 b8 33 3a e7 |)..|'.:.|K%=1.3:.|
|00002e20| 50 25 28 4b 25 29 3c 3e | 50 25 28 4b 25 2b 31 29 |P%(K%)<>|P%(K%+1)|
|00002e30| 2d 31 20 54 54 25 3d 31 | 0d 10 86 0e ed 3a e7 54 |-1 TT%=1|.....:.T|
|00002e40| 54 25 3d 30 20 8c 0d 10 | 90 08 54 25 3d 31 0d 10 |T%=0 ...|..T%=1..|
|00002e50| 9a 12 73 75 6d 25 2b 3d | 34 3a e7 20 46 25 20 8c |..sum%+=|4:. F% .|
|00002e60| 0d 10 a4 20 e3 4b 25 3d | 31 b8 35 3a e7 4b 25 3c |... .K%=|1.5:.K%<|
|00002e70| 3e 4a 25 20 f2 70 72 69 | 6e 74 69 74 28 4b 25 29 |>J% .pri|ntit(K%)|
|00002e80| 0d 10 ae 0f ed 3a f2 65 | 6e 64 69 74 28 34 29 0d |.....:.e|ndit(4).|
|00002e90| 10 b8 05 cd 0d 10 c2 05 | cd 0d 10 cc 05 ed 0d 10 |........|........|
|00002ea0| d6 05 cd 0d 10 e0 0c e7 | 20 54 25 3d 30 20 8c 0d |........| T%=0 ..|
|00002eb0| 10 ea 45 e3 4a 25 3d 31 | b8 33 3a e3 49 25 3d 4a |..E.J%=1|.3:.I%=J|
|00002ec0| 25 2b 31 b8 34 3a e3 4b | 25 3d 49 25 2b 31 b8 35 |%+1.4:.K|%=I%+1.5|
|00002ed0| 3a e7 41 25 28 4a 25 29 | 3d 41 25 28 49 25 29 2d |:.A%(J%)|=A%(I%)-|
|00002ee0| 31 20 80 41 25 28 49 25 | 29 3d 41 25 28 4b 25 29 |1 .A%(I%|)=A%(K%)|
|00002ef0| 2d 31 20 8c 0d 10 f4 41 | 73 75 6d 25 2b 3d 33 3a |-1 ....A|sum%+=3:|
|00002f00| e7 20 46 25 20 f2 70 72 | 69 6e 74 69 74 28 4a 25 |. F% .pr|intit(J%|
|00002f10| 29 3a f2 70 72 69 6e 74 | 69 74 28 49 25 29 3a f2 |):.print|it(I%):.|
|00002f20| 70 72 69 6e 74 69 74 28 | 4b 25 29 3a f2 65 6e 64 |printit(|K%):.end|
|00002f30| 69 74 28 33 29 0d 10 fe | 05 cd 0d 11 08 07 ed 2c |it(3)...|.......,|
|00002f40| 2c 0d 11 12 05 cd 0d 11 | 1c 0a e7 20 46 25 20 8c |,.......|... F% .|
|00002f50| 0d 11 26 2c e7 20 46 4c | 25 3e 30 20 f1 27 3b 46 |..&,. FL|%>0 .';F|
|00002f60| 4c 25 3b 22 20 63 61 72 | 64 20 66 6c 75 73 68 20 |L%;" car|d flush |
|00002f70| 20 20 20 20 20 3d 20 22 | 3b 46 4c 25 0d 11 30 25 | = "|;FL%..0%|
|00002f80| e7 20 4a 4b 25 3e 30 20 | f1 27 22 4f 6e 65 20 66 |. JK%>0 |.'"One f|
|00002f90| 6f 72 20 74 68 65 20 6a | 61 63 6b 20 20 3d 20 31 |or the j|ack = 1|
|00002fa0| 22 0d 11 3a 23 f1 27 8a | 31 32 2b 28 73 75 6d 25 |"..:#.'.|12+(sum%|
|00002fb0| 3e 31 30 29 29 22 54 4f | 54 41 4c 20 3d 20 22 3b |>10))"TO|TAL = ";|
|00002fc0| 73 75 6d 25 0d 11 44 16 | f1 27 8a 36 29 22 63 6c |sum%..D.|.'.6)"cl|
|00002fd0| 69 63 6b 20 6d 6f 75 73 | 65 22 0d 11 4e 05 cd 0d |ick mous|e"..N...|
|00002fe0| 11 58 18 fb 31 33 32 20 | c8 9c 31 32 38 3a fb 34 |.X..132 |..128:.4|
|00002ff0| 37 3a ef 32 36 2c 35 0d | 11 62 05 e1 0d 11 6c 11 |7:.26,5.|.b....l.|
|00003000| dd f2 70 72 69 6e 74 69 | 74 28 6c 25 29 0d 11 76 |..printi|t(l%)..v|
|00003010| 0f c8 8e 20 41 25 28 6c | 25 29 20 ca 0d 11 80 0f |... A%(l|%) .....|
|00003020| c9 20 31 31 3a 50 24 3d | 22 4a 22 0d 11 8a 0f c9 |. 11:P$=|"J".....|
|00003030| 20 31 32 3a 50 24 3d 22 | 51 22 0d 11 94 0f c9 20 | 12:P$="|Q"..... |
|00003040| 31 33 3a 50 24 3d 22 4b | 22 0d 11 9e 0e c9 20 31 |13:P$="K|"..... 1|
|00003050| 3a 50 24 3d 22 41 22 0d | 11 a8 12 7f 20 50 24 3d |:P$="A".|.... P$=|
|00003060| c3 28 41 25 28 6c 25 29 | 29 0d 11 b2 05 cb 0d 11 |.(A%(l%)|).......|
|00003070| bc 1e f1 3b 50 24 3b c0 | 53 24 28 55 25 28 6c 25 |...;P$;.|S$(U%(l%|
|00003080| 29 29 2c 31 29 3b 22 20 | 2b 20 22 3b 0d 11 c6 05 |)),1);" |+ ";....|
|00003090| e1 0d 11 d0 2d dd f2 65 | 6e 64 69 74 28 65 25 29 |....-..e|ndit(e%)|
|000030a0| 3a ef 31 32 37 2c 31 32 | 37 2c 31 32 37 3a f1 8a |:.127,12|7,127:..|
|000030b0| 32 30 29 3b 22 20 3d 20 | 22 3b 65 25 3a e1 0d 11 |20);" = |";e%:...|
|000030c0| da 0a dd f2 69 6e 66 6f | 0d 11 e4 2d f1 27 22 20 |....info|...-.'" |
|000030d0| 54 68 65 20 63 75 74 74 | 69 6e 67 20 6f 66 20 74 |The cutt|ing of t|
|000030e0| 68 65 20 70 61 63 6b 20 | 61 6e 64 20 63 68 6f 6f |he pack |and choo|
|000030f0| 73 69 6e 67 22 0d 11 ee | 2c f1 22 20 6f 66 20 63 |sing"...|,." of c|
|00003100| 61 72 64 73 20 69 73 20 | 64 6f 6e 65 20 62 79 20 |ards is |done by |
|00003110| 70 6c 61 63 69 6e 67 20 | 74 68 65 20 68 61 6e 64 |placing |the hand|
|00003120| 22 0d 11 f8 2a f1 22 20 | 70 6f 69 6e 74 65 72 20 |"...*." |pointer |
|00003130| 6f 76 65 72 20 74 68 65 | 20 63 61 72 64 20 61 6e |over the| card an|
|00003140| 64 20 70 72 65 73 73 69 | 6e 67 22 0d 12 02 2b f1 |d pressi|ng"...+.|
|00003150| 22 20 73 65 6c 65 63 74 | 20 62 75 74 74 6f 6e 20 |" select| button |
|00003160| 6f 6e 20 6d 6f 75 73 65 | 2e 55 73 65 20 74 68 65 |on mouse|.Use the|
|00003170| 20 6d 65 6e 75 22 0d 12 | 0c 17 f1 22 20 62 75 74 | menu"..|..." but|
|00003180| 74 6f 6e 20 74 6f 20 70 | 61 73 73 2e 22 0d 12 16 |ton to p|ass."...|
|00003190| 22 f1 27 22 20 4f 6e 65 | 20 68 61 6e 64 20 6f 66 |".'" One| hand of|
|000031a0| 20 33 31 20 69 73 20 70 | 6c 61 79 65 64 2e 22 0d | 31 is p|layed.".|
|000031b0| 12 20 15 f1 27 22 20 41 | 63 65 20 63 6f 75 6e 74 |. ..'" A|ce count|
|000031c0| 73 20 31 22 0d 12 2a 23 | f1 27 22 20 41 6c 6c 20 |s 1"..*#|.'" All |
|000031d0| 70 69 63 74 75 72 65 20 | 63 61 72 64 73 20 63 6f |picture |cards co|
|000031e0| 75 6e 74 20 31 30 22 0d | 12 34 29 f1 27 22 20 4c |unt 10".|.4).'" L|
|000031f0| 45 41 52 4e 20 77 69 6c | 6c 20 64 69 73 70 6c 61 |EARN wil|l displa|
|00003200| 79 20 63 61 72 64 20 63 | 6f 75 6e 74 69 6e 67 22 |y card c|ounting"|
|00003210| 0d 12 3e 05 e1 0d 12 48 | 18 dd f2 63 75 74 28 61 |..>....H|...cut(a|
|00003220| 2c 62 2c 63 2c 64 2c 61 | 24 2c 62 24 29 0d 12 52 |,b,c,d,a|$,b$)..R|
|00003230| 06 ef 35 0d 12 5c 55 e3 | 4a 25 3d 61 20 b8 20 62 |..5..\U.|J%=a . b|
|00003240| 20 88 64 3a f2 73 70 72 | 69 74 65 28 22 62 61 63 | .d:.spr|ite("bac|
|00003250| 6b 22 2c 61 2c 33 39 39 | 29 3a f2 73 70 72 69 74 |k",a,399|):.sprit|
|00003260| 65 28 22 62 61 63 6b 22 | 2c 4a 25 2c 33 39 39 29 |e("back"|,J%,399)|
|00003270| 3a f2 72 65 63 74 28 4a | 25 2b 63 2c 33 39 30 2c |:.rect(J|%+c,390,|
|00003280| 38 2c 32 31 34 29 3a ed | 0d 12 66 3f e3 4a 25 3d |8,214):.|..f?.J%=|
|00003290| 61 20 b8 20 62 20 88 64 | 3a f2 73 70 72 69 74 65 |a . b .d|:.sprite|
|000032a0| 28 22 62 61 63 6b 22 2c | 4a 25 2c 33 39 39 29 3a |("back",|J%,399):|
|000032b0| f2 72 65 63 74 28 4a 25 | 2b 63 2c 33 39 30 2c 38 |.rect(J%|+c,390,8|
|000032c0| 2c 32 31 34 29 3a ed 0d | 12 70 36 53 24 3d 61 24 |,214):..|.p6S$=a$|
|000032d0| 3a e3 4a 25 3d 39 b8 30 | 88 2d 31 3a f2 73 63 61 |:.J%=9.0|.-1:.sca|
|000032e0| 6c 65 28 62 2b 38 30 2d | 4a 25 2a 38 2c 33 39 39 |le(b+80-|J%*8,399|
|000032f0| 2c 4a 25 2c 31 2c 31 30 | 2c 31 29 3a ed 0d 12 7a |,J%,1,10|,1):...z|
|00003300| 33 53 24 3d 62 24 3a e3 | 4a 25 3d 30 b8 39 3a f2 |3S$=b$:.|J%=0.9:.|
|00003310| 73 63 61 6c 65 28 62 2b | 38 30 2d 4a 25 2a 38 2c |scale(b+|80-J%*8,|
|00003320| 33 39 39 2c 4a 25 2c 31 | 2c 31 30 2c 31 29 3a ed |399,J%,1|,10,1):.|
|00003330| 0d 12 84 25 e7 62 24 3d | 22 66 61 63 65 22 20 53 |...%.b$=|"face" S|
|00003340| 24 3d 53 24 28 53 25 29 | 3a f2 66 61 63 65 28 62 |$=S$(S%)|:.face(b|
|00003350| 2c 33 39 39 29 0d 12 8e | 08 ef 34 3a 87 0d 12 98 |,399)...|..4:....|
|00003360| 05 e1 0d ff | |.... | |
+--------+-------------------------+-------------------------+--------+--------+
