�**POKER SQUARE***
	�init
�7:�title(0)
(	�inst
2
�title(1)
<� �>&1100 � �=&1100
F�"SQUARE2"
P�
Z
��init
d��1,3,6,4,6,2,0,0,126,0,0,-126,126,126:�2,0,0,0,0,0,0,0,126,-4,-1,-1,126,10:�3,5,1,2,80,15,0,0,126,0,0,-126,126,126:�4,2,0,0,0,1,1,1,127,-5,-1,-1,126,126
n��23,224,8,28,28,107,127,107,8,28,23,225,8,28,62,127,62,28,8,0,23,226,54,127,127,127,62,28,8,0,23,227,8,28,62,127,127,127,28,62
x��23,228,76,210,82,82,82,82,82,236,23,255,255,255,255,255,255,255,255,255,23,229,192,240,252,63,63,252,240,192,23,230,3,15,63,252,252,63,15,3,23,231,14,14,6,7,3,3,1,1,23,232,112,112,96,224,192,192,128,128
�E�23,233,1,1,3,3,7,6,14,14,23,234,128,128,192,192,224,96,112,112:�
�
��inst
�<�a=11�12:�4,a)�129�141"Do you require instructions ?":�
�*� �"YyNn",�)� �tj@,�tj@,�TDA,�TDA��t`@
�/�:�a=1�2:�10,a)�141�131"POKER SQUARE":�:�'
���'�134"  You will be dealt twenty five cards"'�134"one at a time. After you are dealt"'�134"each card you have to place it in a"'�134"five by five grid."''
���133" Once positioned it cannot be moved."'�133"The placing of each card is crucial"'�133"as the grid is scored both vertically"'�133"and horizontally."
�S�''�130" Normal poker hands score points"'�130"  i.e. pairs, runs and flushes."
�+�5,22)"Press any key to continue.":A=�
�'�:�a=1�2:�12,a)�141�131"SCORING":�
��''�5)"One pair...............20"''�4)�129"Two pair..............100"''�4)�130"Three of a kind.......200"''�4)�132"Flush.................300"''�4)�131"Run...................350"'
�k�4)�133"Full house............500"''�4)�134"Four of a kind........750"''�5)"Running flush........1000"
�+�5,22)"Press any key to continue.":A=�

�

��title(flag):�:col=129

�23;11,0;0;0;0

"�e=4 � 20 �4:�f=e � (e+1)

,4�10,f)�135�157�(col)�141"POKER SQUARE   "�156:�

6col=col+1:�1,2,e*10,3:�

@� flag=1 �28,9,24,31,20:�:�

JA=�(400):�

T �e=4�5:�17,e)�141�129"BY":�

^%col=130:�e=8 � 20 �4:�f=e � (e+1)

h2�11,f)�135�157�(col)�141"Joe Rhodes   "�156:�

rcol=col+1:�0,2,e*10,3:�

|A=�(400):�:�
�

00000000  0d 00 0a 16 f4 2a 2a 50  4f 4b 45 52 20 53 51 55  |.....**POKER SQU|
00000010  41 52 45 2a 2a 2a 0d 00  14 09 f2 69 6e 69 74 0d  |ARE***.....init.|
00000020  00 1e 10 eb 37 3a f2 74  69 74 6c 65 28 30 29 0d  |....7:.title(0).|
00000030  00 28 09 f2 69 6e 73 74  0d 00 32 0d f2 74 69 74  |.(..inst..2..tit|
00000040  6c 65 28 31 29 0d 00 3c  17 e7 20 90 3e 26 31 31  |le(1)..<.. .>&11|
00000050  30 30 20 8c 20 d0 3d 26  31 31 30 30 0d 00 46 0e  |00 . .=&1100..F.|
00000060  d7 22 53 51 55 41 52 45  32 22 0d 00 50 05 e0 0d  |."SQUARE2"..P...|
00000070  00 5a 0a dd f2 69 6e 69  74 0d 00 64 9c e2 31 2c  |.Z...init..d..1,|
00000080  33 2c 36 2c 34 2c 36 2c  32 2c 30 2c 30 2c 31 32  |3,6,4,6,2,0,0,12|
00000090  36 2c 30 2c 30 2c 2d 31  32 36 2c 31 32 36 2c 31  |6,0,0,-126,126,1|
000000a0  32 36 3a e2 32 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |26:.2,0,0,0,0,0,|
000000b0  30 2c 30 2c 31 32 36 2c  2d 34 2c 2d 31 2c 2d 31  |0,0,126,-4,-1,-1|
000000c0  2c 31 32 36 2c 31 30 3a  e2 33 2c 35 2c 31 2c 32  |,126,10:.3,5,1,2|
000000d0  2c 38 30 2c 31 35 2c 30  2c 30 2c 31 32 36 2c 30  |,80,15,0,0,126,0|
000000e0  2c 30 2c 2d 31 32 36 2c  31 32 36 2c 31 32 36 3a  |,0,-126,126,126:|
000000f0  e2 34 2c 32 2c 30 2c 30  2c 30 2c 31 2c 31 2c 31  |.4,2,0,0,0,1,1,1|
00000100  2c 31 32 37 2c 2d 35 2c  2d 31 2c 2d 31 2c 31 32  |,127,-5,-1,-1,12|
00000110  36 2c 31 32 36 0d 00 6e  82 ef 32 33 2c 32 32 34  |6,126..n..23,224|
00000120  2c 38 2c 32 38 2c 32 38  2c 31 30 37 2c 31 32 37  |,8,28,28,107,127|
00000130  2c 31 30 37 2c 38 2c 32  38 2c 32 33 2c 32 32 35  |,107,8,28,23,225|
00000140  2c 38 2c 32 38 2c 36 32  2c 31 32 37 2c 36 32 2c  |,8,28,62,127,62,|
00000150  32 38 2c 38 2c 30 2c 32  33 2c 32 32 36 2c 35 34  |28,8,0,23,226,54|
00000160  2c 31 32 37 2c 31 32 37  2c 31 32 37 2c 36 32 2c  |,127,127,127,62,|
00000170  32 38 2c 38 2c 30 2c 32  33 2c 32 32 37 2c 38 2c  |28,8,0,23,227,8,|
00000180  32 38 2c 36 32 2c 31 32  37 2c 31 32 37 2c 31 32  |28,62,127,127,12|
00000190  37 2c 32 38 2c 36 32 0d  00 78 cf ef 32 33 2c 32  |7,28,62..x..23,2|
000001a0  32 38 2c 37 36 2c 32 31  30 2c 38 32 2c 38 32 2c  |28,76,210,82,82,|
000001b0  38 32 2c 38 32 2c 38 32  2c 32 33 36 2c 32 33 2c  |82,82,82,236,23,|
000001c0  32 35 35 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |255,255,255,255,|
*
000001e0  32 35 35 2c 32 33 2c 32  32 39 2c 31 39 32 2c 32  |255,23,229,192,2|
000001f0  34 30 2c 32 35 32 2c 36  33 2c 36 33 2c 32 35 32  |40,252,63,63,252|
00000200  2c 32 34 30 2c 31 39 32  2c 32 33 2c 32 33 30 2c  |,240,192,23,230,|
00000210  33 2c 31 35 2c 36 33 2c  32 35 32 2c 32 35 32 2c  |3,15,63,252,252,|
00000220  36 33 2c 31 35 2c 33 2c  32 33 2c 32 33 31 2c 31  |63,15,3,23,231,1|
00000230  34 2c 31 34 2c 36 2c 37  2c 33 2c 33 2c 31 2c 31  |4,14,6,7,3,3,1,1|
00000240  2c 32 33 2c 32 33 32 2c  31 31 32 2c 31 31 32 2c  |,23,232,112,112,|
00000250  39 36 2c 32 32 34 2c 31  39 32 2c 31 39 32 2c 31  |96,224,192,192,1|
00000260  32 38 2c 31 32 38 0d 00  82 45 ef 32 33 2c 32 33  |28,128...E.23,23|
00000270  33 2c 31 2c 31 2c 33 2c  33 2c 37 2c 36 2c 31 34  |3,1,1,3,3,7,6,14|
00000280  2c 31 34 2c 32 33 2c 32  33 34 2c 31 32 38 2c 31  |,14,23,234,128,1|
00000290  32 38 2c 31 39 32 2c 31  39 32 2c 32 32 34 2c 39  |28,192,192,224,9|
000002a0  36 2c 31 31 32 2c 31 31  32 3a e1 0d 00 8c 0a dd  |6,112,112:......|
000002b0  f2 69 6e 73 74 0d 00 96  3c e3 61 3d 31 31 b8 31  |.inst...<.a=11.1|
000002c0  32 3a f1 8a 34 2c 61 29  bd 31 32 39 bd 31 34 31  |2:..4,a).129.141|
000002d0  22 44 6f 20 79 6f 75 20  72 65 71 75 69 72 65 20  |"Do you require |
000002e0  69 6e 73 74 72 75 63 74  69 6f 6e 73 20 3f 22 3a  |instructions ?":|
000002f0  ed 0d 00 a0 2a ee 20 a7  22 59 79 4e 6e 22 2c be  |....*. ."YyNn",.|
00000300  29 e5 20 8d 74 6a 40 2c  8d 74 6a 40 2c 8d 54 44  |). .tj@,.tj@,.TD|
00000310  41 2c 8d 54 44 41 8b 8d  74 60 40 0d 00 aa 2f db  |A,.TDA..t`@.../.|
00000320  3a e3 61 3d 31 b8 32 3a  f1 8a 31 30 2c 61 29 bd  |:.a=1.2:..10,a).|
00000330  31 34 31 bd 31 33 31 22  50 4f 4b 45 52 20 53 51  |141.131"POKER SQ|
00000340  55 41 52 45 22 3a ed 3a  f1 27 0d 00 b4 9f f1 27  |UARE":.:.'.....'|
00000350  bd 31 33 34 22 20 20 59  6f 75 20 77 69 6c 6c 20  |.134"  You will |
00000360  62 65 20 64 65 61 6c 74  20 74 77 65 6e 74 79 20  |be dealt twenty |
00000370  66 69 76 65 20 63 61 72  64 73 22 27 bd 31 33 34  |five cards"'.134|
00000380  22 6f 6e 65 20 61 74 20  61 20 74 69 6d 65 2e 20  |"one at a time. |
00000390  41 66 74 65 72 20 79 6f  75 20 61 72 65 20 64 65  |After you are de|
000003a0  61 6c 74 22 27 bd 31 33  34 22 65 61 63 68 20 63  |alt"'.134"each c|
000003b0  61 72 64 20 79 6f 75 20  68 61 76 65 20 74 6f 20  |ard you have to |
000003c0  70 6c 61 63 65 20 69 74  20 69 6e 20 61 22 27 bd  |place it in a"'.|
000003d0  31 33 34 22 66 69 76 65  20 62 79 20 66 69 76 65  |134"five by five|
000003e0  20 67 72 69 64 2e 22 27  27 0d 00 be 9d f1 bd 31  | grid."''......1|
000003f0  33 33 22 20 4f 6e 63 65  20 70 6f 73 69 74 69 6f  |33" Once positio|
00000400  6e 65 64 20 69 74 20 63  61 6e 6e 6f 74 20 62 65  |ned it cannot be|
00000410  20 6d 6f 76 65 64 2e 22  27 bd 31 33 33 22 54 68  | moved."'.133"Th|
00000420  65 20 70 6c 61 63 69 6e  67 20 6f 66 20 65 61 63  |e placing of eac|
00000430  68 20 63 61 72 64 20 69  73 20 63 72 75 63 69 61  |h card is crucia|
00000440  6c 22 27 bd 31 33 33 22  61 73 20 74 68 65 20 67  |l"'.133"as the g|
00000450  72 69 64 20 69 73 20 73  63 6f 72 65 64 20 62 6f  |rid is scored bo|
00000460  74 68 20 76 65 72 74 69  63 61 6c 6c 79 22 27 bd  |th vertically"'.|
00000470  31 33 33 22 61 6e 64 20  68 6f 72 69 7a 6f 6e 74  |133"and horizont|
00000480  61 6c 6c 79 2e 22 0d 00  c8 53 f1 27 27 bd 31 33  |ally."...S.''.13|
00000490  30 22 20 4e 6f 72 6d 61  6c 20 70 6f 6b 65 72 20  |0" Normal poker |
000004a0  68 61 6e 64 73 20 73 63  6f 72 65 20 70 6f 69 6e  |hands score poin|
000004b0  74 73 22 27 bd 31 33 30  22 20 20 69 2e 65 2e 20  |ts"'.130"  i.e. |
000004c0  70 61 69 72 73 2c 20 72  75 6e 73 20 61 6e 64 20  |pairs, runs and |
000004d0  66 6c 75 73 68 65 73 2e  22 0d 00 d2 2b f1 8a 35  |flushes."...+..5|
000004e0  2c 32 32 29 22 50 72 65  73 73 20 61 6e 79 20 6b  |,22)"Press any k|
000004f0  65 79 20 74 6f 20 63 6f  6e 74 69 6e 75 65 2e 22  |ey to continue."|
00000500  3a 41 3d a5 0d 00 dc 27  db 3a e3 61 3d 31 b8 32  |:A=....'.:.a=1.2|
00000510  3a f1 8a 31 32 2c 61 29  bd 31 34 31 bd 31 33 31  |:..12,a).141.131|
00000520  22 53 43 4f 52 49 4e 47  22 3a ed 0d 00 e6 b6 f1  |"SCORING":......|
00000530  27 27 8a 35 29 22 4f 6e  65 20 70 61 69 72 2e 2e  |''.5)"One pair..|
00000540  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 32 30 22  |.............20"|
00000550  27 27 8a 34 29 bd 31 32  39 22 54 77 6f 20 70 61  |''.4).129"Two pa|
00000560  69 72 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |ir..............|
00000570  31 30 30 22 27 27 8a 34  29 bd 31 33 30 22 54 68  |100"''.4).130"Th|
00000580  72 65 65 20 6f 66 20 61  20 6b 69 6e 64 2e 2e 2e  |ree of a kind...|
00000590  2e 2e 2e 2e 32 30 30 22  27 27 8a 34 29 bd 31 33  |....200"''.4).13|
000005a0  32 22 46 6c 75 73 68 2e  2e 2e 2e 2e 2e 2e 2e 2e  |2"Flush.........|
000005b0  2e 2e 2e 2e 2e 2e 2e 2e  33 30 30 22 27 27 8a 34  |........300"''.4|
000005c0  29 bd 31 33 31 22 52 75  6e 2e 2e 2e 2e 2e 2e 2e  |).131"Run.......|
000005d0  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 33 35 30 22  |............350"|
000005e0  27 0d 00 f0 6b f1 8a 34  29 bd 31 33 33 22 46 75  |'...k..4).133"Fu|
000005f0  6c 6c 20 68 6f 75 73 65  2e 2e 2e 2e 2e 2e 2e 2e  |ll house........|
00000600  2e 2e 2e 2e 35 30 30 22  27 27 8a 34 29 bd 31 33  |....500"''.4).13|
00000610  34 22 46 6f 75 72 20 6f  66 20 61 20 6b 69 6e 64  |4"Four of a kind|
00000620  2e 2e 2e 2e 2e 2e 2e 2e  37 35 30 22 27 27 8a 35  |........750"''.5|
00000630  29 22 52 75 6e 6e 69 6e  67 20 66 6c 75 73 68 2e  |)"Running flush.|
00000640  2e 2e 2e 2e 2e 2e 2e 31  30 30 30 22 0d 00 fa 2b  |.......1000"...+|
00000650  f1 8a 35 2c 32 32 29 22  50 72 65 73 73 20 61 6e  |..5,22)"Press an|
00000660  79 20 6b 65 79 20 74 6f  20 63 6f 6e 74 69 6e 75  |y key to continu|
00000670  65 2e 22 3a 41 3d a5 0d  01 04 05 e1 0d 01 0e 1b  |e.":A=..........|
00000680  dd f2 74 69 74 6c 65 28  66 6c 61 67 29 3a db 3a  |..title(flag):.:|
00000690  63 6f 6c 3d 31 32 39 0d  01 18 12 ef 32 33 3b 31  |col=129.....23;1|
000006a0  31 2c 30 3b 30 3b 30 3b  30 0d 01 22 1d e3 65 3d  |1,0;0;0;0.."..e=|
000006b0  34 20 b8 20 32 30 20 88  34 3a e3 66 3d 65 20 b8  |4 . 20 .4:.f=e .|
000006c0  20 28 65 2b 31 29 0d 01  2c 34 f1 8a 31 30 2c 66  | (e+1)..,4..10,f|
000006d0  29 bd 31 33 35 bd 31 35  37 bd 28 63 6f 6c 29 bd  |).135.157.(col).|
000006e0  31 34 31 22 50 4f 4b 45  52 20 53 51 55 41 52 45  |141"POKER SQUARE|
000006f0  20 20 20 22 bd 31 35 36  3a ed 0d 01 36 1b 63 6f  |   ".156:...6.co|
00000700  6c 3d 63 6f 6c 2b 31 3a  d4 31 2c 32 2c 65 2a 31  |l=col+1:.1,2,e*1|
00000710  30 2c 33 3a ed 0d 01 40  1f e7 20 66 6c 61 67 3d  |0,3:...@.. flag=|
00000720  31 20 ef 32 38 2c 39 2c  32 34 2c 33 31 2c 32 30  |1 .28,9,24,31,20|
00000730  3a db 3a e1 0d 01 4a 0e  41 3d a6 28 34 30 30 29  |:.:...J.A=.(400)|
00000740  3a db 0d 01 54 20 e3 65  3d 34 b8 35 3a f1 8a 31  |:...T .e=4.5:..1|
00000750  37 2c 65 29 bd 31 34 31  bd 31 32 39 22 42 59 22  |7,e).141.129"BY"|
00000760  3a ed 0d 01 5e 25 63 6f  6c 3d 31 33 30 3a e3 65  |:...^%col=130:.e|
00000770  3d 38 20 b8 20 32 30 20  88 34 3a e3 66 3d 65 20  |=8 . 20 .4:.f=e |
00000780  b8 20 28 65 2b 31 29 0d  01 68 32 f1 8a 31 31 2c  |. (e+1)..h2..11,|
00000790  66 29 bd 31 33 35 bd 31  35 37 bd 28 63 6f 6c 29  |f).135.157.(col)|
000007a0  bd 31 34 31 22 4a 6f 65  20 52 68 6f 64 65 73 20  |.141"Joe Rhodes |
000007b0  20 20 22 bd 31 35 36 3a  ed 0d 01 72 1b 63 6f 6c  |  ".156:...r.col|
000007c0  3d 63 6f 6c 2b 31 3a d4  30 2c 32 2c 65 2a 31 30  |=col+1:.0,2,e*10|
000007d0  2c 33 3a ed 0d 01 7c 10  41 3d a6 28 34 30 30 29  |,3:...|.A=.(400)|
000007e0  3a db 3a e1 0d ff                                 |:.:...|
000007e6