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:
- Archimedes archive » Acorn Computing » 1994 02 subscription disc.adf » 9402s » BeebDisk/HEXLOAD
- AEW website » mu » mu_5_25_discs_Micro_User_11_13_D-MU11_13.ssd » HEXLOAD
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