Home » Archimedes archive » Acorn Computing » 1994 02 subscription disc.adf » 9402s » BeebDisk/HEXLOAD

BeebDisk/HEXLOAD

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Archimedes archive » Acorn Computing » 1994 02 subscription disc.adf » 9402s
Filename: BeebDisk/HEXLOAD
Read OK:
File size: 07E1 bytes
Load address: 0000
Exec address: 0000
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10REM Hex! Loader
   20REM By Adrian Jackson
   30REM (c) The Micro User
   40MODE1
   50VDU23;8202;0;0;0;
   60RESTORE 300
   70REPEAT:READZ$,R
   80COLOURR
   90IFZ$="?"READZ$:PRINTTAB((40-LENZ$)/2,VPOS);
  100IFZ$="*" PRINTTAB(14,30);:PROCtext("Press Space"):REPEATUNTILGET$=" ":CLS:UNTIL0
  110IFZ$="@"GOTO140
  120PROCtext(Z$)
  130PRINT
  140UNTILZ$="@"
  150PAGE=&1700:CHAIN"HEX"
  160DEFPROCtext(A$)
  170IFLENA$=0 ENDPROC
  180A%=10:X%=&70:Y%=0
  190FORB%=1TOLENA$
  200?&70=ASC(MID$(A$,B%,1))
  210IF?&70=32 VDU32:NEXT:ENDPROC
  220CALL&FFF1
  230FORN%=0TO7:N%?&71=N%?&71 OR2*N%?&71:NEXT
  240IF R=1 ?&78=255
  250VDU23,255
  260FORN%=0TO7:VDUN%?&71:NEXT
  270VDU255
  280NEXT
  290ENDPROC
  300DATA?,1,"Welcome to HEX!","",1,"Welcome to HEX!, a game of strategy,",2,"skill, and hexcitement for two players",2,"who will need all their intelligence",2,"and hexperience to win the game.",2,"",3
  310DATA"The rules are simple enough. You take itin turns to fill in hexagons on the HEX!grid, and the winner is the first to",3,"complete a line.",3,"",2,"Player one plays with blue hexagons, andmust complete a line between the blue",2
  320DATA"sides of the HEX! grid. Player two playswith pink hexagons, and must complete a line between the pink sides.",2
  330DATA"",2,"Despite the seeming simplicity of the",3,"game, it is hextremely difficult to win all the time. It has been proved that a strategy exists, but nobody has ever",3,"managed to find it.",3
  340DATA"",2,"It isn't much of an hexaggeration to saythat this is probably the best puzzle",2,"game for two players since noughts and",2,"crosses, and it certainly has more",2,"lasting appeal.",2
  350DATA"*",3
  360DATA?,1,"Some Hints on Strategy","",1,"If you have two of your hexes arranged",2,"so that two empty spaces touch both of",2,"them, this is a safe joint, as if your",2,"opponent fills one, you can immediately fill the other.",2
  370DATA"",1,"Make sure you don't concentrate just on making your own line, or your opponent",3,"will have plenty of time to make theirs.Stick your hexes in the way.",3,*,2
  380DATA?,1,Keys,"",2,"",2,?,2,"A   *","",2,?,3,x,"",2,?,2,"Z   ?","",2,""
  390DATA3,"",2,"",2,"Now press space to load HEX! and start  playing.",2,"",1,"",1,"Good Luck! - You'll need it.",3,*,2,@,2

� Hex! Loader
� By Adrian Jackson
� (c) The Micro User
(�1
2�23;8202;0;0;0;
<
� �TlA
F�:�Z$,R
P�R
Z�Z$="?"�Z$:�(40-�Z$)/2,�);
d7�Z$="*" �14,30);:�text("Press Space"):���=" ":�:�0
n�Z$="@"�tL@
x
�text(Z$)
��
��Z$="@"
��=&1700:�"HEX"
���text(A$)
��A$=0 �
�A%=10:X%=&70:Y%=0
�
�B%=1��A$
�?&70=�(�A$,B%,1))
��?&70=32 �32:�:�
�
�&FFF1
�%�N%=0�7:N%?&71=N%?&71 �2*N%?&71:�
�� R=1 ?&78=255
��23,255
�N%=0�7:�N%?&71:�
�255
�
"�
,��?,1,"Welcome to HEX!","",1,"Welcome to HEX!, a game of strategy,",2,"skill, and hexcitement for two players",2,"who will need all their intelligence",2,"and hexperience to win the game.",2,"",3
6��"The rules are simple enough. You take itin turns to fill in hexagons on the HEX!grid, and the winner is the first to",3,"complete a line.",3,"",2,"Player one plays with blue hexagons, andmust complete a line between the blue",2
@u�"sides of the HEX! grid. Player two playswith pink hexagons, and must complete a line between the pink sides.",2
J��"",2,"Despite the seeming simplicity of the",3,"game, it is hextremely difficult to win all the time. It has been proved that a strategy exists, but nobody has ever",3,"managed to find it.",3
T��"",2,"It isn't much of an hexaggeration to saythat this is probably the best puzzle",2,"game for two players since noughts and",2,"crosses, and it certainly has more",2,"lasting appeal.",2
^
�"*",3
h��?,1,"Some Hints on Strategy","",1,"If you have two of your hexes arranged",2,"so that two empty spaces touch both of",2,"them, this is a safe joint, as if your",2,"opponent fills one, you can immediately fill the other.",2
r��"",1,"Make sure you don't concentrate just on making your own line, or your opponent",3,"will have plenty of time to make theirs.Stick your hexes in the way.",3,*,2
|G�?,1,Keys,"",2,"",2,?,2,"A   *","",2,?,3,x,"",2,?,2,"Z   ?","",2,""
�x�3,"",2,"",2,"Now press space to load HEX! and start  playing.",2,"",1,"",1,"Good Luck! - You'll need it.",3,*,2,@,2
�
00000000  0d 00 0a 11 f4 20 48 65  78 21 20 4c 6f 61 64 65  |..... Hex! Loade|
00000010  72 0d 00 14 17 f4 20 42  79 20 41 64 72 69 61 6e  |r..... By Adrian|
00000020  20 4a 61 63 6b 73 6f 6e  0d 00 1e 18 f4 20 28 63  | Jackson..... (c|
00000030  29 20 54 68 65 20 4d 69  63 72 6f 20 55 73 65 72  |) The Micro User|
00000040  0d 00 28 06 eb 31 0d 00  32 13 ef 32 33 3b 38 32  |..(..1..2..23;82|
00000050  30 32 3b 30 3b 30 3b 30  3b 0d 00 3c 0a f7 20 8d  |02;0;0;0;..<.. .|
00000060  54 6c 41 0d 00 46 0b f5  3a f3 5a 24 2c 52 0d 00  |TlA..F..:.Z$,R..|
00000070  50 06 fb 52 0d 00 5a 1f  e7 5a 24 3d 22 3f 22 f3  |P..R..Z..Z$="?".|
00000080  5a 24 3a f1 8a 28 34 30  2d a9 5a 24 29 2f 32 2c  |Z$:..(40-.Z$)/2,|
00000090  bc 29 3b 0d 00 64 37 e7  5a 24 3d 22 2a 22 20 f1  |.);..d7.Z$="*" .|
000000a0  8a 31 34 2c 33 30 29 3b  3a f2 74 65 78 74 28 22  |.14,30);:.text("|
000000b0  50 72 65 73 73 20 53 70  61 63 65 22 29 3a f5 fd  |Press Space"):..|
000000c0  be 3d 22 20 22 3a db 3a  fd 30 0d 00 6e 10 e7 5a  |.=" ":.:.0..n..Z|
000000d0  24 3d 22 40 22 e5 8d 74  4c 40 0d 00 78 0d f2 74  |$="@"..tL@..x..t|
000000e0  65 78 74 28 5a 24 29 0d  00 82 05 f1 0d 00 8c 0b  |ext(Z$).........|
000000f0  fd 5a 24 3d 22 40 22 0d  00 96 12 d0 3d 26 31 37  |.Z$="@".....=&17|
00000100  30 30 3a d7 22 48 45 58  22 0d 00 a0 0e dd f2 74  |00:."HEX"......t|
00000110  65 78 74 28 41 24 29 0d  00 aa 0c e7 a9 41 24 3d  |ext(A$)......A$=|
00000120  30 20 e1 0d 00 b4 15 41  25 3d 31 30 3a 58 25 3d  |0 .....A%=10:X%=|
00000130  26 37 30 3a 59 25 3d 30  0d 00 be 0d e3 42 25 3d  |&70:Y%=0.....B%=|
00000140  31 b8 a9 41 24 0d 00 c8  15 3f 26 37 30 3d 97 28  |1..A$....?&70=.(|
00000150  c1 41 24 2c 42 25 2c 31  29 29 0d 00 d2 14 e7 3f  |.A$,B%,1)).....?|
00000160  26 37 30 3d 33 32 20 ef  33 32 3a ed 3a e1 0d 00  |&70=32 .32:.:...|
00000170  dc 0a d6 26 46 46 46 31  0d 00 e6 25 e3 4e 25 3d  |...&FFF1...%.N%=|
00000180  30 b8 37 3a 4e 25 3f 26  37 31 3d 4e 25 3f 26 37  |0.7:N%?&71=N%?&7|
00000190  31 20 84 32 2a 4e 25 3f  26 37 31 3a ed 0d 00 f0  |1 .2*N%?&71:....|
000001a0  12 e7 20 52 3d 31 20 3f  26 37 38 3d 32 35 35 0d  |.. R=1 ?&78=255.|
000001b0  00 fa 0b ef 32 33 2c 32  35 35 0d 01 04 15 e3 4e  |....23,255.....N|
000001c0  25 3d 30 b8 37 3a ef 4e  25 3f 26 37 31 3a ed 0d  |%=0.7:.N%?&71:..|
000001d0  01 0e 08 ef 32 35 35 0d  01 18 05 ed 0d 01 22 05  |....255.......".|
000001e0  e1 0d 01 2c c6 dc 3f 2c  31 2c 22 57 65 6c 63 6f  |...,..?,1,"Welco|
000001f0  6d 65 20 74 6f 20 48 45  58 21 22 2c 22 22 2c 31  |me to HEX!","",1|
00000200  2c 22 57 65 6c 63 6f 6d  65 20 74 6f 20 48 45 58  |,"Welcome to HEX|
00000210  21 2c 20 61 20 67 61 6d  65 20 6f 66 20 73 74 72  |!, a game of str|
00000220  61 74 65 67 79 2c 22 2c  32 2c 22 73 6b 69 6c 6c  |ategy,",2,"skill|
00000230  2c 20 61 6e 64 20 68 65  78 63 69 74 65 6d 65 6e  |, and hexcitemen|
00000240  74 20 66 6f 72 20 74 77  6f 20 70 6c 61 79 65 72  |t for two player|
00000250  73 22 2c 32 2c 22 77 68  6f 20 77 69 6c 6c 20 6e  |s",2,"who will n|
00000260  65 65 64 20 61 6c 6c 20  74 68 65 69 72 20 69 6e  |eed all their in|
00000270  74 65 6c 6c 69 67 65 6e  63 65 22 2c 32 2c 22 61  |telligence",2,"a|
00000280  6e 64 20 68 65 78 70 65  72 69 65 6e 63 65 20 74  |nd hexperience t|
00000290  6f 20 77 69 6e 20 74 68  65 20 67 61 6d 65 2e 22  |o win the game."|
000002a0  2c 32 2c 22 22 2c 33 0d  01 36 e9 dc 22 54 68 65  |,2,"",3..6.."The|
000002b0  20 72 75 6c 65 73 20 61  72 65 20 73 69 6d 70 6c  | rules are simpl|
000002c0  65 20 65 6e 6f 75 67 68  2e 20 59 6f 75 20 74 61  |e enough. You ta|
000002d0  6b 65 20 69 74 69 6e 20  74 75 72 6e 73 20 74 6f  |ke itin turns to|
000002e0  20 66 69 6c 6c 20 69 6e  20 68 65 78 61 67 6f 6e  | fill in hexagon|
000002f0  73 20 6f 6e 20 74 68 65  20 48 45 58 21 67 72 69  |s on the HEX!gri|
00000300  64 2c 20 61 6e 64 20 74  68 65 20 77 69 6e 6e 65  |d, and the winne|
00000310  72 20 69 73 20 74 68 65  20 66 69 72 73 74 20 74  |r is the first t|
00000320  6f 22 2c 33 2c 22 63 6f  6d 70 6c 65 74 65 20 61  |o",3,"complete a|
00000330  20 6c 69 6e 65 2e 22 2c  33 2c 22 22 2c 32 2c 22  | line.",3,"",2,"|
00000340  50 6c 61 79 65 72 20 6f  6e 65 20 70 6c 61 79 73  |Player one plays|
00000350  20 77 69 74 68 20 62 6c  75 65 20 68 65 78 61 67  | with blue hexag|
00000360  6f 6e 73 2c 20 61 6e 64  6d 75 73 74 20 63 6f 6d  |ons, andmust com|
00000370  70 6c 65 74 65 20 61 20  6c 69 6e 65 20 62 65 74  |plete a line bet|
00000380  77 65 65 6e 20 74 68 65  20 62 6c 75 65 22 2c 32  |ween the blue",2|
00000390  0d 01 40 75 dc 22 73 69  64 65 73 20 6f 66 20 74  |..@u."sides of t|
000003a0  68 65 20 48 45 58 21 20  67 72 69 64 2e 20 50 6c  |he HEX! grid. Pl|
000003b0  61 79 65 72 20 74 77 6f  20 70 6c 61 79 73 77 69  |ayer two playswi|
000003c0  74 68 20 70 69 6e 6b 20  68 65 78 61 67 6f 6e 73  |th pink hexagons|
000003d0  2c 20 61 6e 64 20 6d 75  73 74 20 63 6f 6d 70 6c  |, and must compl|
000003e0  65 74 65 20 61 20 6c 69  6e 65 20 62 65 74 77 65  |ete a line betwe|
000003f0  65 6e 20 74 68 65 20 70  69 6e 6b 20 73 69 64 65  |en the pink side|
00000400  73 2e 22 2c 32 0d 01 4a  c4 dc 22 22 2c 32 2c 22  |s.",2..J.."",2,"|
00000410  44 65 73 70 69 74 65 20  74 68 65 20 73 65 65 6d  |Despite the seem|
00000420  69 6e 67 20 73 69 6d 70  6c 69 63 69 74 79 20 6f  |ing simplicity o|
00000430  66 20 74 68 65 22 2c 33  2c 22 67 61 6d 65 2c 20  |f the",3,"game, |
00000440  69 74 20 69 73 20 68 65  78 74 72 65 6d 65 6c 79  |it is hextremely|
00000450  20 64 69 66 66 69 63 75  6c 74 20 74 6f 20 77 69  | difficult to wi|
00000460  6e 20 61 6c 6c 20 74 68  65 20 74 69 6d 65 2e 20  |n all the time. |
00000470  49 74 20 68 61 73 20 62  65 65 6e 20 70 72 6f 76  |It has been prov|
00000480  65 64 20 74 68 61 74 20  61 20 73 74 72 61 74 65  |ed that a strate|
00000490  67 79 20 65 78 69 73 74  73 2c 20 62 75 74 20 6e  |gy exists, but n|
000004a0  6f 62 6f 64 79 20 68 61  73 20 65 76 65 72 22 2c  |obody has ever",|
000004b0  33 2c 22 6d 61 6e 61 67  65 64 20 74 6f 20 66 69  |3,"managed to fi|
000004c0  6e 64 20 69 74 2e 22 2c  33 0d 01 54 c1 dc 22 22  |nd it.",3..T..""|
000004d0  2c 32 2c 22 49 74 20 69  73 6e 27 74 20 6d 75 63  |,2,"It isn't muc|
000004e0  68 20 6f 66 20 61 6e 20  68 65 78 61 67 67 65 72  |h of an hexagger|
000004f0  61 74 69 6f 6e 20 74 6f  20 73 61 79 74 68 61 74  |ation to saythat|
00000500  20 74 68 69 73 20 69 73  20 70 72 6f 62 61 62 6c  | this is probabl|
00000510  79 20 74 68 65 20 62 65  73 74 20 70 75 7a 7a 6c  |y the best puzzl|
00000520  65 22 2c 32 2c 22 67 61  6d 65 20 66 6f 72 20 74  |e",2,"game for t|
00000530  77 6f 20 70 6c 61 79 65  72 73 20 73 69 6e 63 65  |wo players since|
00000540  20 6e 6f 75 67 68 74 73  20 61 6e 64 22 2c 32 2c  | noughts and",2,|
00000550  22 63 72 6f 73 73 65 73  2c 20 61 6e 64 20 69 74  |"crosses, and it|
00000560  20 63 65 72 74 61 69 6e  6c 79 20 68 61 73 20 6d  | certainly has m|
00000570  6f 72 65 22 2c 32 2c 22  6c 61 73 74 69 6e 67 20  |ore",2,"lasting |
00000580  61 70 70 65 61 6c 2e 22  2c 32 0d 01 5e 0a dc 22  |appeal.",2..^.."|
00000590  2a 22 2c 33 0d 01 68 e3  dc 3f 2c 31 2c 22 53 6f  |*",3..h..?,1,"So|
000005a0  6d 65 20 48 69 6e 74 73  20 6f 6e 20 53 74 72 61  |me Hints on Stra|
000005b0  74 65 67 79 22 2c 22 22  2c 31 2c 22 49 66 20 79  |tegy","",1,"If y|
000005c0  6f 75 20 68 61 76 65 20  74 77 6f 20 6f 66 20 79  |ou have two of y|
000005d0  6f 75 72 20 68 65 78 65  73 20 61 72 72 61 6e 67  |our hexes arrang|
000005e0  65 64 22 2c 32 2c 22 73  6f 20 74 68 61 74 20 74  |ed",2,"so that t|
000005f0  77 6f 20 65 6d 70 74 79  20 73 70 61 63 65 73 20  |wo empty spaces |
00000600  74 6f 75 63 68 20 62 6f  74 68 20 6f 66 22 2c 32  |touch both of",2|
00000610  2c 22 74 68 65 6d 2c 20  74 68 69 73 20 69 73 20  |,"them, this is |
00000620  61 20 73 61 66 65 20 6a  6f 69 6e 74 2c 20 61 73  |a safe joint, as|
00000630  20 69 66 20 79 6f 75 72  22 2c 32 2c 22 6f 70 70  | if your",2,"opp|
00000640  6f 6e 65 6e 74 20 66 69  6c 6c 73 20 6f 6e 65 2c  |onent fills one,|
00000650  20 79 6f 75 20 63 61 6e  20 69 6d 6d 65 64 69 61  | you can immedia|
00000660  74 65 6c 79 20 66 69 6c  6c 20 74 68 65 20 6f 74  |tely fill the ot|
00000670  68 65 72 2e 22 2c 32 0d  01 72 a9 dc 22 22 2c 31  |her.",2..r.."",1|
00000680  2c 22 4d 61 6b 65 20 73  75 72 65 20 79 6f 75 20  |,"Make sure you |
00000690  64 6f 6e 27 74 20 63 6f  6e 63 65 6e 74 72 61 74  |don't concentrat|
000006a0  65 20 6a 75 73 74 20 6f  6e 20 6d 61 6b 69 6e 67  |e just on making|
000006b0  20 79 6f 75 72 20 6f 77  6e 20 6c 69 6e 65 2c 20  | your own line, |
000006c0  6f 72 20 79 6f 75 72 20  6f 70 70 6f 6e 65 6e 74  |or your opponent|
000006d0  22 2c 33 2c 22 77 69 6c  6c 20 68 61 76 65 20 70  |",3,"will have p|
000006e0  6c 65 6e 74 79 20 6f 66  20 74 69 6d 65 20 74 6f  |lenty of time to|
000006f0  20 6d 61 6b 65 20 74 68  65 69 72 73 2e 53 74 69  | make theirs.Sti|
00000700  63 6b 20 79 6f 75 72 20  68 65 78 65 73 20 69 6e  |ck your hexes in|
00000710  20 74 68 65 20 77 61 79  2e 22 2c 33 2c 2a 2c 32  | the way.",3,*,2|
00000720  0d 01 7c 47 dc 3f 2c 31  2c 4b 65 79 73 2c 22 22  |..|G.?,1,Keys,""|
00000730  2c 32 2c 22 22 2c 32 2c  3f 2c 32 2c 22 41 20 20  |,2,"",2,?,2,"A  |
00000740  20 2a 22 2c 22 22 2c 32  2c 3f 2c 33 2c 78 2c 22  | *","",2,?,3,x,"|
00000750  22 2c 32 2c 3f 2c 32 2c  22 5a 20 20 20 3f 22 2c  |",2,?,2,"Z   ?",|
00000760  22 22 2c 32 2c 22 22 0d  01 86 78 dc 33 2c 22 22  |"",2,""...x.3,""|
00000770  2c 32 2c 22 22 2c 32 2c  22 4e 6f 77 20 70 72 65  |,2,"",2,"Now pre|
00000780  73 73 20 73 70 61 63 65  20 74 6f 20 6c 6f 61 64  |ss space to load|
00000790  20 48 45 58 21 20 61 6e  64 20 73 74 61 72 74 20  | HEX! and start |
000007a0  20 70 6c 61 79 69 6e 67  2e 22 2c 32 2c 22 22 2c  | playing.",2,"",|
000007b0  31 2c 22 22 2c 31 2c 22  47 6f 6f 64 20 4c 75 63  |1,"",1,"Good Luc|
000007c0  6b 21 20 2d 20 59 6f 75  27 6c 6c 20 6e 65 65 64  |k! - You'll need|
000007d0  20 69 74 2e 22 2c 33 2c  2a 2c 32 2c 40 2c 32 0d  | it.",3,*,2,@,2.|
000007e0  ff                                                |.|
000007e1