� HEXPLODE
�5
(� 19,1,3,0,0,0
2� 19,2,2,0,0,0
<� 19,3,1,0,0,0
F#� PLAYC%(4,4),MAXC%(4,4),SC%(2)
P�:� �t`@
Z� X%=0�4
d
� Y%=0�4 
nPLAYC%(X%,Y%)=0 
x� MAXC%(X%,Y%)
��:�
�
PLAYER%=1
�SC%(0)=0:SC%(2)=0
�� 2,4,4,4,3
�� 4,6,6,6,4
�� 4,6,6,6,4
�� 4,6,6,6,4
�� 3,4,4,4,2
�
�DRAWGRID
��
�PLAYER%=PLAYER%*-1
��0,PLAYER%+2
�� PLAYER%+2

�

�

�0,3);�(19)

"�0,3)"Your Move ",SHEX$

,X%=�(�SHEX$,1))-65

6Y%=�(�SHEX$,1))-49

@� �RANGEOK(X%,Y%)

J� �CHECKOWN(X%,Y%)

T#SC%(PLAYER%+1)=SC%(PLAYER%+1)+1

^� �EXPLODE(X%,Y%)

h7�0,3) "You Win           "'"Another Game (Y/N) "Y$

r
� Y$<>"Y"

|�6

��

�� �RANGEOK(X%,Y%)

�" =�(X%<0 � X%>4 � Y%<0 � Y%>4)

�� �CHECKOWN(X%,Y%)

�=PLAYC%(X%,Y%)*PLAYER%>=0

�� �EXPLODE(X%,Y%)

�� � �RANGEOK(X%,Y%) � =�

�~� � �CHECKOWN(X%,Y%) � SC%(PLAYER%+1)=SC%(PLAYER%+1)+�(PLAYC%(X%,Y%)):SC%(PLAYER%*-1+1)=SC%(PLAYER%*-1+1)-�(PLAYC%(X%,Y%))

�.PLAYC%(X%,Y%)=(�(PLAYC%(X%,Y%))+1)*PLAYER%
5� �(PLAYC%(X%,Y%))<MAXC%(X%,Y%) � �PHEX(X%,Y%):=�
PLAYC%(X%,Y%)=0
�PHEX(X%,Y%)
0� �EXPLODE(X%,Y%-1) � =�
:� �EXPLODE(X%,Y%+1) � =�
D� �EXPLODE(X%+1,Y%-1) � =� 
N� �EXPLODE(X%+1,Y%) � =�
X� �EXPLODE(X%-1,Y%) � =�
b� �EXPLODE(X%-1,Y%+1) � =�
l!� SC%((PLAYER%*-1)+1)<=0 � =�
v=�
�� �DRAWGRID
��
��0,2
��2
��14,7);"SCORE"
�� X%=0�4
�� Y%=0�4
�%� X%*96+224+Y%*96,Y%*64+288-X%*64
�� 1,-32,64
�
� 1,32,64
�� 1,64,0
�� 1,32,-64
� 1,-32,-64

� 1,-64,0
�:�
 �5
*� Y%=0�1
4� X%=0�4
>&� X%*96+704-Y%*576,Y%*384+X%*64+48
H
�65+X%
R,� X%*96+704-Y%*576,(Y%� 1)*384-X%*64+304
\� 49+X%
f�:�
p
� 160,992
z�"H E X P L O D E"
��4
��
�� �PHEX(X%,Y%) 
�@%=1
��5
�"�(X%+Y%)*96+288,(X%-Y%)*64+368
��127
�-� PLAYC%(X%,Y%)<>0 � � �(PLAYC%(X%,Y%))  
��4
�@%=2
��1
��16,9);SC%(0);"  "
�3 
�16,11);SC%(2);"  "
� PLAYER%+2 
$�
�

00000000  0d 00 0a 0f 20 f4 20 48  45 58 50 4c 4f 44 45 0d  |.... . HEXPLODE.|
00000010  00 1e 06 eb 35 0d 00 28  12 ef 20 31 39 2c 31 2c  |....5..(.. 19,1,|
00000020  33 2c 30 2c 30 2c 30 0d  00 32 12 ef 20 31 39 2c  |3,0,0,0..2.. 19,|
00000030  32 2c 32 2c 30 2c 30 2c  30 0d 00 3c 12 ef 20 31  |2,2,0,0,0..<.. 1|
00000040  39 2c 33 2c 31 2c 30 2c  30 2c 30 0d 00 46 23 de  |9,3,1,0,0,0..F#.|
00000050  20 50 4c 41 59 43 25 28  34 2c 34 29 2c 4d 41 58  | PLAYC%(4,4),MAX|
00000060  43 25 28 34 2c 34 29 2c  53 43 25 28 32 29 0d 00  |C%(4,4),SC%(2)..|
00000070  50 0c f5 3a f7 20 8d 74  60 40 0d 00 5a 0c e3 20  |P..:. .t`@..Z.. |
00000080  58 25 3d 30 b8 34 0d 00  64 0d e3 20 59 25 3d 30  |X%=0.4..d.. Y%=0|
00000090  b8 34 20 0d 00 6e 14 50  4c 41 59 43 25 28 58 25  |.4 ..n.PLAYC%(X%|
000000a0  2c 59 25 29 3d 30 20 0d  00 78 12 f3 20 4d 41 58  |,Y%)=0 ..x.. MAX|
000000b0  43 25 28 58 25 2c 59 25  29 0d 00 82 07 ed 3a ed  |C%(X%,Y%).....:.|
000000c0  0d 00 8c 0d 50 4c 41 59  45 52 25 3d 31 0d 00 96  |....PLAYER%=1...|
000000d0  15 53 43 25 28 30 29 3d  30 3a 53 43 25 28 32 29  |.SC%(0)=0:SC%(2)|
000000e0  3d 30 0d 00 a0 0f dc 20  32 2c 34 2c 34 2c 34 2c  |=0..... 2,4,4,4,|
000000f0  33 0d 00 aa 0f dc 20 34  2c 36 2c 36 2c 36 2c 34  |3..... 4,6,6,6,4|
00000100  0d 00 b4 0f dc 20 34 2c  36 2c 36 2c 36 2c 34 0d  |..... 4,6,6,6,4.|
00000110  00 be 0f dc 20 34 2c 36  2c 36 2c 36 2c 34 0d 00  |.... 4,6,6,6,4..|
00000120  c8 0f dc 20 33 2c 34 2c  34 2c 34 2c 32 0d 00 d2  |... 3,4,4,4,2...|
00000130  0d f2 44 52 41 57 47 52  49 44 0d 00 dc 05 f5 0d  |..DRAWGRID......|
00000140  00 e6 16 50 4c 41 59 45  52 25 3d 50 4c 41 59 45  |...PLAYER%=PLAYE|
00000150  52 25 2a 2d 31 0d 00 f0  10 e6 30 2c 50 4c 41 59  |R%*-1.....0,PLAY|
00000160  45 52 25 2b 32 0d 00 fa  0f fb 20 50 4c 41 59 45  |ER%+2..... PLAYE|
00000170  52 25 2b 32 0d 01 04 05  f5 0d 01 0e 05 f5 0d 01  |R%+2............|
00000180  18 10 f1 8a 30 2c 33 29  3b 89 28 31 39 29 0d 01  |....0,3);.(19)..|
00000190  22 1c e8 8a 30 2c 33 29  22 59 6f 75 72 20 4d 6f  |"...0,3)"Your Mo|
000001a0  76 65 20 22 2c 53 48 45  58 24 0d 01 2c 16 58 25  |ve ",SHEX$..,.X%|
000001b0  3d 97 28 c0 53 48 45 58  24 2c 31 29 29 2d 36 35  |=.(.SHEX$,1))-65|
000001c0  0d 01 36 16 59 25 3d 97  28 c2 53 48 45 58 24 2c  |..6.Y%=.(.SHEX$,|
000001d0  31 29 29 2d 34 39 0d 01  40 15 fd 20 a4 52 41 4e  |1))-49..@.. .RAN|
000001e0  47 45 4f 4b 28 58 25 2c  59 25 29 0d 01 4a 16 fd  |GEOK(X%,Y%)..J..|
000001f0  20 a4 43 48 45 43 4b 4f  57 4e 28 58 25 2c 59 25  | .CHECKOWN(X%,Y%|
00000200  29 0d 01 54 23 53 43 25  28 50 4c 41 59 45 52 25  |)..T#SC%(PLAYER%|
00000210  2b 31 29 3d 53 43 25 28  50 4c 41 59 45 52 25 2b  |+1)=SC%(PLAYER%+|
00000220  31 29 2b 31 0d 01 5e 15  fd 20 a4 45 58 50 4c 4f  |1)+1..^.. .EXPLO|
00000230  44 45 28 58 25 2c 59 25  29 0d 01 68 37 e8 8a 30  |DE(X%,Y%)..h7..0|
00000240  2c 33 29 20 22 59 6f 75  20 57 69 6e 20 20 20 20  |,3) "You Win    |
00000250  20 20 20 20 20 20 20 22  27 22 41 6e 6f 74 68 65  |       "'"Anothe|
00000260  72 20 47 61 6d 65 20 28  59 2f 4e 29 20 22 59 24  |r Game (Y/N) "Y$|
00000270  0d 01 72 0d fd 20 59 24  3c 3e 22 59 22 0d 01 7c  |..r.. Y$<>"Y"..||
00000280  06 eb 36 0d 01 86 05 e0  0d 01 9a 15 dd 20 a4 52  |..6.......... .R|
00000290  41 4e 47 45 4f 4b 28 58  25 2c 59 25 29 0d 01 a4  |ANGEOK(X%,Y%)...|
000002a0  22 20 3d ac 28 58 25 3c  30 20 84 20 58 25 3e 34  |" =.(X%<0 . X%>4|
000002b0  20 84 20 59 25 3c 30 20  84 20 59 25 3e 34 29 0d  | . Y%<0 . Y%>4).|
000002c0  01 b8 16 dd 20 a4 43 48  45 43 4b 4f 57 4e 28 58  |.... .CHECKOWN(X|
000002d0  25 2c 59 25 29 0d 01 c2  1d 3d 50 4c 41 59 43 25  |%,Y%)....=PLAYC%|
000002e0  28 58 25 2c 59 25 29 2a  50 4c 41 59 45 52 25 3e  |(X%,Y%)*PLAYER%>|
000002f0  3d 30 0d 01 e0 15 dd 20  a4 45 58 50 4c 4f 44 45  |=0..... .EXPLODE|
00000300  28 58 25 2c 59 25 29 0d  01 ea 1c e7 20 ac 20 a4  |(X%,Y%)..... . .|
00000310  52 41 4e 47 45 4f 4b 28  58 25 2c 59 25 29 20 8c  |RANGEOK(X%,Y%) .|
00000320  20 3d a3 0d 01 f4 7e e7  20 ac 20 a4 43 48 45 43  | =....~. . .CHEC|
00000330  4b 4f 57 4e 28 58 25 2c  59 25 29 20 8c 20 53 43  |KOWN(X%,Y%) . SC|
00000340  25 28 50 4c 41 59 45 52  25 2b 31 29 3d 53 43 25  |%(PLAYER%+1)=SC%|
00000350  28 50 4c 41 59 45 52 25  2b 31 29 2b 94 28 50 4c  |(PLAYER%+1)+.(PL|
00000360  41 59 43 25 28 58 25 2c  59 25 29 29 3a 53 43 25  |AYC%(X%,Y%)):SC%|
00000370  28 50 4c 41 59 45 52 25  2a 2d 31 2b 31 29 3d 53  |(PLAYER%*-1+1)=S|
00000380  43 25 28 50 4c 41 59 45  52 25 2a 2d 31 2b 31 29  |C%(PLAYER%*-1+1)|
00000390  2d 94 28 50 4c 41 59 43  25 28 58 25 2c 59 25 29  |-.(PLAYC%(X%,Y%)|
000003a0  29 0d 01 fe 2e 50 4c 41  59 43 25 28 58 25 2c 59  |)....PLAYC%(X%,Y|
000003b0  25 29 3d 28 94 28 50 4c  41 59 43 25 28 58 25 2c  |%)=(.(PLAYC%(X%,|
000003c0  59 25 29 29 2b 31 29 2a  50 4c 41 59 45 52 25 0d  |Y%))+1)*PLAYER%.|
000003d0  02 08 35 e7 20 94 28 50  4c 41 59 43 25 28 58 25  |..5. .(PLAYC%(X%|
000003e0  2c 59 25 29 29 3c 4d 41  58 43 25 28 58 25 2c 59  |,Y%))<MAXC%(X%,Y|
000003f0  25 29 20 8c 20 f2 50 48  45 58 28 58 25 2c 59 25  |%) . .PHEX(X%,Y%|
00000400  29 3a 3d a3 0d 02 12 13  50 4c 41 59 43 25 28 58  |):=.....PLAYC%(X|
00000410  25 2c 59 25 29 3d 30 0d  02 1c 10 f2 50 48 45 58  |%,Y%)=0.....PHEX|
00000420  28 58 25 2c 59 25 29 0d  02 30 1c e7 20 a4 45 58  |(X%,Y%)..0.. .EX|
00000430  50 4c 4f 44 45 28 58 25  2c 59 25 2d 31 29 20 8c  |PLODE(X%,Y%-1) .|
00000440  20 3d b9 0d 02 3a 1c e7  20 a4 45 58 50 4c 4f 44  | =...:.. .EXPLOD|
00000450  45 28 58 25 2c 59 25 2b  31 29 20 8c 20 3d b9 0d  |E(X%,Y%+1) . =..|
00000460  02 44 1f e7 20 a4 45 58  50 4c 4f 44 45 28 58 25  |.D.. .EXPLODE(X%|
00000470  2b 31 2c 59 25 2d 31 29  20 8c 20 3d b9 20 0d 02  |+1,Y%-1) . =. ..|
00000480  4e 1c e7 20 a4 45 58 50  4c 4f 44 45 28 58 25 2b  |N.. .EXPLODE(X%+|
00000490  31 2c 59 25 29 20 8c 20  3d b9 0d 02 58 1c e7 20  |1,Y%) . =...X.. |
000004a0  a4 45 58 50 4c 4f 44 45  28 58 25 2d 31 2c 59 25  |.EXPLODE(X%-1,Y%|
000004b0  29 20 8c 20 3d b9 0d 02  62 1e e7 20 a4 45 58 50  |) . =...b.. .EXP|
000004c0  4c 4f 44 45 28 58 25 2d  31 2c 59 25 2b 31 29 20  |LODE(X%-1,Y%+1) |
000004d0  8c 20 3d b9 0d 02 6c 21  e7 20 53 43 25 28 28 50  |. =...l!. SC%((P|
000004e0  4c 41 59 45 52 25 2a 2d  31 29 2b 31 29 3c 3d 30  |LAYER%*-1)+1)<=0|
000004f0  20 8c 20 3d b9 0d 02 76  06 3d a3 0d 02 80 0f dd  | . =...v.=......|
00000500  20 f2 44 52 41 57 47 52  49 44 0d 02 94 05 da 0d  | .DRAWGRID......|
00000510  02 9e 08 e6 30 2c 32 0d  02 a8 06 fb 32 0d 02 b2  |....0,2.....2...|
00000520  13 f1 8a 31 34 2c 37 29  3b 22 53 43 4f 52 45 22  |...14,7);"SCORE"|
00000530  0d 02 bc 0c e3 20 58 25  3d 30 b8 34 0d 02 c6 0c  |..... X%=0.4....|
00000540  e3 20 59 25 3d 30 b8 34  0d 02 d0 25 ec 20 58 25  |. Y%=0.4...%. X%|
00000550  2a 39 36 2b 32 32 34 2b  59 25 2a 39 36 2c 59 25  |*96+224+Y%*96,Y%|
00000560  2a 36 34 2b 32 38 38 2d  58 25 2a 36 34 0d 02 da  |*64+288-X%*64...|
00000570  0e f0 20 31 2c 2d 33 32  2c 36 34 0d 02 e4 0d f0  |.. 1,-32,64.....|
00000580  20 31 2c 33 32 2c 36 34  0d 02 ee 0c f0 20 31 2c  | 1,32,64..... 1,|
00000590  36 34 2c 30 0d 02 f8 0e  f0 20 31 2c 33 32 2c 2d  |64,0..... 1,32,-|
000005a0  36 34 0d 03 02 0f f0 20  31 2c 2d 33 32 2c 2d 36  |64..... 1,-32,-6|
000005b0  34 0d 03 0c 0d f0 20 31  2c 2d 36 34 2c 30 0d 03  |4..... 1,-64,0..|
000005c0  16 07 ed 3a ed 0d 03 20  06 ef 35 0d 03 2a 0c e3  |...:... ..5..*..|
000005d0  20 59 25 3d 30 b8 31 0d  03 34 0c e3 20 58 25 3d  | Y%=0.1..4.. X%=|
000005e0  30 b8 34 0d 03 3e 26 ec  20 58 25 2a 39 36 2b 37  |0.4..>&. X%*96+7|
000005f0  30 34 2d 59 25 2a 35 37  36 2c 59 25 2a 33 38 34  |04-Y%*576,Y%*384|
00000600  2b 58 25 2a 36 34 2b 34  38 0d 03 48 0a ef 36 35  |+X%*64+48..H..65|
00000610  2b 58 25 0d 03 52 2c ec  20 58 25 2a 39 36 2b 37  |+X%..R,. X%*96+7|
00000620  30 34 2d 59 25 2a 35 37  36 2c 28 59 25 82 20 31  |04-Y%*576,(Y%. 1|
00000630  29 2a 33 38 34 2d 58 25  2a 36 34 2b 33 30 34 0d  |)*384-X%*64+304.|
00000640  03 5c 0b ef 20 34 39 2b  58 25 0d 03 66 07 ed 3a  |.\.. 49+X%..f..:|
00000650  ed 0d 03 70 0d ec 20 31  36 30 2c 39 39 32 0d 03  |...p.. 160,992..|
00000660  7a 16 f1 22 48 20 45 20  58 20 50 20 4c 20 4f 20  |z.."H E X P L O |
00000670  44 20 45 22 0d 03 84 06  ef 34 0d 03 8e 05 e1 0d  |D E".....4......|
00000680  03 98 13 dd 20 f2 50 48  45 58 28 58 25 2c 59 25  |.... .PHEX(X%,Y%|
00000690  29 20 0d 03 ac 08 40 25  3d 31 0d 03 b6 06 ef 35  |) ....@%=1.....5|
000006a0  0d 03 c0 22 ec 28 58 25  2b 59 25 29 2a 39 36 2b  |...".(X%+Y%)*96+|
000006b0  32 38 38 2c 28 58 25 2d  59 25 29 2a 36 34 2b 33  |288,(X%-Y%)*64+3|
000006c0  36 38 0d 03 ca 08 ef 31  32 37 0d 03 d4 2d e7 20  |68.....127...-. |
000006d0  50 4c 41 59 43 25 28 58  25 2c 59 25 29 3c 3e 30  |PLAYC%(X%,Y%)<>0|
000006e0  20 8c 20 f1 20 94 28 50  4c 41 59 43 25 28 58 25  | . . .(PLAYC%(X%|
000006f0  2c 59 25 29 29 20 20 0d  03 de 06 ef 34 0d 03 e8  |,Y%))  .....4...|
00000700  08 40 25 3d 32 0d 03 f2  06 fb 31 0d 03 fc 17 f1  |.@%=2.....1.....|
00000710  8a 31 36 2c 39 29 3b 53  43 25 28 30 29 3b 22 20  |.16,9);SC%(0);" |
00000720  20 22 0d 04 06 07 fb 33  20 0d 04 10 18 f1 8a 31  | ".....3 ......1|
00000730  36 2c 31 31 29 3b 53 43  25 28 32 29 3b 22 20 20  |6,11);SC%(2);"  |
00000740  22 0d 04 1a 10 fb 20 50  4c 41 59 45 52 25 2b 32  |"..... PLAYER%+2|
00000750  20 0d 04 24 05 e1 0d ff                           | ..$....|
00000758