� **************************
� Blackhole 1
� By R.A.Dimond
(� (c) March 2000
2 � **************************
<��6:�:�" at line ";�:�
F�1:�23;8202;0;0;0;
P�ass:�chars
Z�1:�db("BLACKHOLE",15,1)
d�15,3)"~~~~~~~~~"
n!�2:�11,5)"by Richard Dimond"
xa�'''"Build up the cards on the Ace of Spades - the Black Hole - in the centre of the display"
���'"You may play a card one higher or lower than the card in the centre, a King can be followed Ace or Queen and an Ace by  a King or two"
�I�'"To play a card, press the letter againstthe card you wish to play"
�M�'"You may enter a Deal number or Press    RETURN only for a randon deal"
�$�1:�10,26)"Press SPACE to Play"
����
�#�6:�23;8202;0;0;0;:�"G.BLKHOL2"
��
���chars
Ґ�23,224,108,254,254,254,124,56,16,0,23,225,16,56,56,214,254,214,16,56,23,226,16,56,124,254,254,124,56,16,23,227,16,56,124,254,254,254,56,124
ܩ�23,229,206,219,219,219,219,219,206,0,23,231,254,252,8,232,72,8,24,16,23,233,64,223,192,111,56,56,16,16,23,234,1,243,6,252,24,216,8,136,23,235,32,34,39,32,32,60,62,0
��23,236,132,36,116,4,4,28,60,0,23,239,16,19,48,47,32,59,196,223,23,240,31,28,159,225,7,188,65,241,23,241,12,12,51,51,204,204,51,51,23,242,204,204,51,51,204,204,48,48
��23,243,143,130,189,224,135,232,249,56,23,244,251,35,220,4,246,12,200,8,23,245,8,24,16,18,23,16,63,127,23,246,136,140,132,36,116,4,254,255,23,247,0,60,56,32,32,46,36,33
���23,248,0,124,60,4,4,228,68,4,23,249,17,16,27,24,63,96,207,128,23,250,8,8,156,28,246,3,152,2,23,252,153,102,102,153,153,102,102,153,23,253,255,127,32,46,36,33,49,17

�

��db(A$,X%,Y%)

�31,X%,Y%:A%=10:X%=&56:Y%=0

"%�N%=1� �A$:?&56=�(�A$,N%)):�&FFF1

,<�23,254,?&57,?&57,?&58,?&58,?&59,?&59,?&5A,?&5A,254,8,10

6:�23,254,?&5B,?&5B,?&5C,?&5C,?&5D,?&5D,?&5E,?&5E,254,11

@�:�

J	��ass

T�I=0�2�2:P%=&900:[OPTI

^!LDA#10:LDX#&56:LDY#0:JSR&FFF1

h"LDY#0:.lp1 LDA&57,Y:LDX#8:.lp2

rROR A:ROL&60:DEX:BNElp2

|$LDA&60:STA&61,Y:INY:CPY#8:BNElp1

�$LDA#23:JSR&FFEE:LDA#255:JSR&FFEE

�/LDX#7:.lp3 LDA&61,X:JSR&FFEE:DEX:BPLlp3:RTS

�	]:�:�

���inv(L%):?&56=L%:�&900:�

��
�

00000000  0d 00 0a 20 f4 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |... . **********|
00000010  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000020  0d 00 14 11 f4 20 42 6c  61 63 6b 68 6f 6c 65 20  |..... Blackhole |
00000030  31 0d 00 1e 13 f4 20 42  79 20 52 2e 41 2e 44 69  |1..... By R.A.Di|
00000040  6d 6f 6e 64 0d 00 28 14  f4 20 28 63 29 20 4d 61  |mond..(.. (c) Ma|
00000050  72 63 68 20 32 30 30 30  0d 00 32 20 f4 20 2a 2a  |rch 2000..2 . **|
00000060  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000070  2a 2a 2a 2a 2a 2a 2a 2a  0d 00 3c 1b ee 85 eb 36  |********..<....6|
00000080  3a f6 3a f1 22 20 61 74  20 6c 69 6e 65 20 22 3b  |:.:." at line ";|
00000090  9e 3a e0 0d 00 46 16 eb  31 3a ef 32 33 3b 38 32  |.:...F..1:.23;82|
000000a0  30 32 3b 30 3b 30 3b 30  3b 0d 00 50 0f f2 61 73  |02;0;0;0;..P..as|
000000b0  73 3a f2 63 68 61 72 73  0d 00 5a 1c fb 31 3a f2  |s:.chars..Z..1:.|
000000c0  64 62 28 22 42 4c 41 43  4b 48 4f 4c 45 22 2c 31  |db("BLACKHOLE",1|
000000d0  35 2c 31 29 0d 00 64 16  f1 8a 31 35 2c 33 29 22  |5,1)..d...15,3)"|
000000e0  7e 7e 7e 7e 7e 7e 7e 7e  7e 22 0d 00 6e 21 fb 32  |~~~~~~~~~"..n!.2|
000000f0  3a f1 8a 31 31 2c 35 29  22 62 79 20 52 69 63 68  |:..11,5)"by Rich|
00000100  61 72 64 20 44 69 6d 6f  6e 64 22 0d 00 78 61 f1  |ard Dimond"..xa.|
00000110  27 27 27 22 42 75 69 6c  64 20 75 70 20 74 68 65  |'''"Build up the|
00000120  20 63 61 72 64 73 20 6f  6e 20 74 68 65 20 41 63  | cards on the Ac|
00000130  65 20 6f 66 20 53 70 61  64 65 73 20 2d 20 74 68  |e of Spades - th|
00000140  65 20 42 6c 61 63 6b 20  48 6f 6c 65 20 2d 20 69  |e Black Hole - i|
00000150  6e 20 74 68 65 20 63 65  6e 74 72 65 20 6f 66 20  |n the centre of |
00000160  74 68 65 20 64 69 73 70  6c 61 79 22 0d 00 82 8d  |the display"....|
00000170  f1 27 22 59 6f 75 20 6d  61 79 20 70 6c 61 79 20  |.'"You may play |
00000180  61 20 63 61 72 64 20 6f  6e 65 20 68 69 67 68 65  |a card one highe|
00000190  72 20 6f 72 20 6c 6f 77  65 72 20 74 68 61 6e 20  |r or lower than |
000001a0  74 68 65 20 63 61 72 64  20 69 6e 20 74 68 65 20  |the card in the |
000001b0  63 65 6e 74 72 65 2c 20  61 20 4b 69 6e 67 20 63  |centre, a King c|
000001c0  61 6e 20 62 65 20 66 6f  6c 6c 6f 77 65 64 20 41  |an be followed A|
000001d0  63 65 20 6f 72 20 51 75  65 65 6e 20 61 6e 64 20  |ce or Queen and |
000001e0  61 6e 20 41 63 65 20 62  79 20 20 61 20 4b 69 6e  |an Ace by  a Kin|
000001f0  67 20 6f 72 20 74 77 6f  22 0d 00 8c 49 f1 27 22  |g or two"...I.'"|
00000200  54 6f 20 70 6c 61 79 20  61 20 63 61 72 64 2c 20  |To play a card, |
00000210  70 72 65 73 73 20 74 68  65 20 6c 65 74 74 65 72  |press the letter|
00000220  20 61 67 61 69 6e 73 74  74 68 65 20 63 61 72 64  | againstthe card|
00000230  20 79 6f 75 20 77 69 73  68 20 74 6f 20 70 6c 61  | you wish to pla|
00000240  79 22 0d 00 96 4d f1 27  22 59 6f 75 20 6d 61 79  |y"...M.'"You may|
00000250  20 65 6e 74 65 72 20 61  20 44 65 61 6c 20 6e 75  | enter a Deal nu|
00000260  6d 62 65 72 20 6f 72 20  50 72 65 73 73 20 20 20  |mber or Press   |
00000270  20 52 45 54 55 52 4e 20  6f 6e 6c 79 20 66 6f 72  | RETURN only for|
00000280  20 61 20 72 61 6e 64 6f  6e 20 64 65 61 6c 22 0d  | a randon deal".|
00000290  00 a0 24 fb 31 3a f1 8a  31 30 2c 32 36 29 22 50  |..$.1:..10,26)"P|
000002a0  72 65 73 73 20 53 50 41  43 45 20 74 6f 20 50 6c  |ress SPACE to Pl|
000002b0  61 79 22 0d 00 aa 07 f5  fd a5 0d 00 b4 23 eb 36  |ay"..........#.6|
000002c0  3a ef 32 33 3b 38 32 30  32 3b 30 3b 30 3b 30 3b  |:.23;8202;0;0;0;|
000002d0  3a d7 22 47 2e 42 4c 4b  48 4f 4c 32 22 0d 00 be  |:."G.BLKHOL2"...|
000002e0  05 e0 0d 00 c8 0b dd f2  63 68 61 72 73 0d 00 d2  |........chars...|
000002f0  90 ef 32 33 2c 32 32 34  2c 31 30 38 2c 32 35 34  |..23,224,108,254|
00000300  2c 32 35 34 2c 32 35 34  2c 31 32 34 2c 35 36 2c  |,254,254,124,56,|
00000310  31 36 2c 30 2c 32 33 2c  32 32 35 2c 31 36 2c 35  |16,0,23,225,16,5|
00000320  36 2c 35 36 2c 32 31 34  2c 32 35 34 2c 32 31 34  |6,56,214,254,214|
00000330  2c 31 36 2c 35 36 2c 32  33 2c 32 32 36 2c 31 36  |,16,56,23,226,16|
00000340  2c 35 36 2c 31 32 34 2c  32 35 34 2c 32 35 34 2c  |,56,124,254,254,|
00000350  31 32 34 2c 35 36 2c 31  36 2c 32 33 2c 32 32 37  |124,56,16,23,227|
00000360  2c 31 36 2c 35 36 2c 31  32 34 2c 32 35 34 2c 32  |,16,56,124,254,2|
00000370  35 34 2c 32 35 34 2c 35  36 2c 31 32 34 0d 00 dc  |54,254,56,124...|
00000380  a9 ef 32 33 2c 32 32 39  2c 32 30 36 2c 32 31 39  |..23,229,206,219|
00000390  2c 32 31 39 2c 32 31 39  2c 32 31 39 2c 32 31 39  |,219,219,219,219|
000003a0  2c 32 30 36 2c 30 2c 32  33 2c 32 33 31 2c 32 35  |,206,0,23,231,25|
000003b0  34 2c 32 35 32 2c 38 2c  32 33 32 2c 37 32 2c 38  |4,252,8,232,72,8|
000003c0  2c 32 34 2c 31 36 2c 32  33 2c 32 33 33 2c 36 34  |,24,16,23,233,64|
000003d0  2c 32 32 33 2c 31 39 32  2c 31 31 31 2c 35 36 2c  |,223,192,111,56,|
000003e0  35 36 2c 31 36 2c 31 36  2c 32 33 2c 32 33 34 2c  |56,16,16,23,234,|
000003f0  31 2c 32 34 33 2c 36 2c  32 35 32 2c 32 34 2c 32  |1,243,6,252,24,2|
00000400  31 36 2c 38 2c 31 33 36  2c 32 33 2c 32 33 35 2c  |16,8,136,23,235,|
00000410  33 32 2c 33 34 2c 33 39  2c 33 32 2c 33 32 2c 36  |32,34,39,32,32,6|
00000420  30 2c 36 32 2c 30 0d 00  e6 a9 ef 32 33 2c 32 33  |0,62,0.....23,23|
00000430  36 2c 31 33 32 2c 33 36  2c 31 31 36 2c 34 2c 34  |6,132,36,116,4,4|
00000440  2c 32 38 2c 36 30 2c 30  2c 32 33 2c 32 33 39 2c  |,28,60,0,23,239,|
00000450  31 36 2c 31 39 2c 34 38  2c 34 37 2c 33 32 2c 35  |16,19,48,47,32,5|
00000460  39 2c 31 39 36 2c 32 32  33 2c 32 33 2c 32 34 30  |9,196,223,23,240|
00000470  2c 33 31 2c 32 38 2c 31  35 39 2c 32 32 35 2c 37  |,31,28,159,225,7|
00000480  2c 31 38 38 2c 36 35 2c  32 34 31 2c 32 33 2c 32  |,188,65,241,23,2|
00000490  34 31 2c 31 32 2c 31 32  2c 35 31 2c 35 31 2c 32  |41,12,12,51,51,2|
000004a0  30 34 2c 32 30 34 2c 35  31 2c 35 31 2c 32 33 2c  |04,204,51,51,23,|
000004b0  32 34 32 2c 32 30 34 2c  32 30 34 2c 35 31 2c 35  |242,204,204,51,5|
000004c0  31 2c 32 30 34 2c 32 30  34 2c 34 38 2c 34 38 0d  |1,204,204,48,48.|
000004d0  00 f0 ac ef 32 33 2c 32  34 33 2c 31 34 33 2c 31  |....23,243,143,1|
000004e0  33 30 2c 31 38 39 2c 32  32 34 2c 31 33 35 2c 32  |30,189,224,135,2|
000004f0  33 32 2c 32 34 39 2c 35  36 2c 32 33 2c 32 34 34  |32,249,56,23,244|
00000500  2c 32 35 31 2c 33 35 2c  32 32 30 2c 34 2c 32 34  |,251,35,220,4,24|
00000510  36 2c 31 32 2c 32 30 30  2c 38 2c 32 33 2c 32 34  |6,12,200,8,23,24|
00000520  35 2c 38 2c 32 34 2c 31  36 2c 31 38 2c 32 33 2c  |5,8,24,16,18,23,|
00000530  31 36 2c 36 33 2c 31 32  37 2c 32 33 2c 32 34 36  |16,63,127,23,246|
00000540  2c 31 33 36 2c 31 34 30  2c 31 33 32 2c 33 36 2c  |,136,140,132,36,|
00000550  31 31 36 2c 34 2c 32 35  34 2c 32 35 35 2c 32 33  |116,4,254,255,23|
00000560  2c 32 34 37 2c 30 2c 36  30 2c 35 36 2c 33 32 2c  |,247,0,60,56,32,|
00000570  33 32 2c 34 36 2c 33 36  2c 33 33 0d 00 fa a8 ef  |32,46,36,33.....|
00000580  32 33 2c 32 34 38 2c 30  2c 31 32 34 2c 36 30 2c  |23,248,0,124,60,|
00000590  34 2c 34 2c 32 32 38 2c  36 38 2c 34 2c 32 33 2c  |4,4,228,68,4,23,|
000005a0  32 34 39 2c 31 37 2c 31  36 2c 32 37 2c 32 34 2c  |249,17,16,27,24,|
000005b0  36 33 2c 39 36 2c 32 30  37 2c 31 32 38 2c 32 33  |63,96,207,128,23|
000005c0  2c 32 35 30 2c 38 2c 38  2c 31 35 36 2c 32 38 2c  |,250,8,8,156,28,|
000005d0  32 34 36 2c 33 2c 31 35  32 2c 32 2c 32 33 2c 32  |246,3,152,2,23,2|
000005e0  35 32 2c 31 35 33 2c 31  30 32 2c 31 30 32 2c 31  |52,153,102,102,1|
000005f0  35 33 2c 31 35 33 2c 31  30 32 2c 31 30 32 2c 31  |53,153,102,102,1|
00000600  35 33 2c 32 33 2c 32 35  33 2c 32 35 35 2c 31 32  |53,23,253,255,12|
00000610  37 2c 33 32 2c 34 36 2c  33 36 2c 33 33 2c 34 39  |7,32,46,36,33,49|
00000620  2c 31 37 0d 01 04 05 e1  0d 01 0e 12 dd f2 64 62  |,17...........db|
00000630  28 41 24 2c 58 25 2c 59  25 29 0d 01 18 1f ef 33  |(A$,X%,Y%).....3|
00000640  31 2c 58 25 2c 59 25 3a  41 25 3d 31 30 3a 58 25  |1,X%,Y%:A%=10:X%|
00000650  3d 26 35 36 3a 59 25 3d  30 0d 01 22 25 e3 4e 25  |=&56:Y%=0.."%.N%|
00000660  3d 31 b8 20 a9 41 24 3a  3f 26 35 36 3d 97 28 c1  |=1. .A$:?&56=.(.|
00000670  41 24 2c 4e 25 29 29 3a  d6 26 46 46 46 31 0d 01  |A$,N%)):.&FFF1..|
00000680  2c 3c ef 32 33 2c 32 35  34 2c 3f 26 35 37 2c 3f  |,<.23,254,?&57,?|
00000690  26 35 37 2c 3f 26 35 38  2c 3f 26 35 38 2c 3f 26  |&57,?&58,?&58,?&|
000006a0  35 39 2c 3f 26 35 39 2c  3f 26 35 41 2c 3f 26 35  |59,?&59,?&5A,?&5|
000006b0  41 2c 32 35 34 2c 38 2c  31 30 0d 01 36 3a ef 32  |A,254,8,10..6:.2|
000006c0  33 2c 32 35 34 2c 3f 26  35 42 2c 3f 26 35 42 2c  |3,254,?&5B,?&5B,|
000006d0  3f 26 35 43 2c 3f 26 35  43 2c 3f 26 35 44 2c 3f  |?&5C,?&5C,?&5D,?|
000006e0  26 35 44 2c 3f 26 35 45  2c 3f 26 35 45 2c 32 35  |&5D,?&5E,?&5E,25|
000006f0  34 2c 31 31 0d 01 40 07  ed 3a e1 0d 01 4a 09 dd  |4,11..@..:...J..|
00000700  f2 61 73 73 0d 01 54 1a  e3 49 3d 30 b8 32 88 32  |.ass..T..I=0.2.2|
00000710  3a 50 25 3d 26 39 30 30  3a 5b 4f 50 54 49 0d 01  |:P%=&900:[OPTI..|
00000720  5e 21 4c 44 41 23 31 30  3a 4c 44 58 23 26 35 36  |^!LDA#10:LDX#&56|
00000730  3a 4c 44 59 23 30 3a 4a  53 52 26 46 46 46 31 0d  |:LDY#0:JSR&FFF1.|
00000740  01 68 22 4c 44 59 23 30  3a 2e 6c 70 31 20 4c 44  |.h"LDY#0:.lp1 LD|
00000750  41 26 35 37 2c 59 3a 4c  44 58 23 38 3a 2e 6c 70  |A&57,Y:LDX#8:.lp|
00000760  32 0d 01 72 1b 52 4f 52  20 41 3a 52 4f 4c 26 36  |2..r.ROR A:ROL&6|
00000770  30 3a 44 45 58 3a 42 4e  45 6c 70 32 0d 01 7c 24  |0:DEX:BNElp2..|$|
00000780  4c 44 41 26 36 30 3a 53  54 41 26 36 31 2c 59 3a  |LDA&60:STA&61,Y:|
00000790  49 4e 59 3a 43 50 59 23  38 3a 42 4e 45 6c 70 31  |INY:CPY#8:BNElp1|
000007a0  0d 01 86 24 4c 44 41 23  32 33 3a 4a 53 52 26 46  |...$LDA#23:JSR&F|
000007b0  46 45 45 3a 4c 44 41 23  32 35 35 3a 4a 53 52 26  |FEE:LDA#255:JSR&|
000007c0  46 46 45 45 0d 01 90 2f  4c 44 58 23 37 3a 2e 6c  |FFEE.../LDX#7:.l|
000007d0  70 33 20 4c 44 41 26 36  31 2c 58 3a 4a 53 52 26  |p3 LDA&61,X:JSR&|
000007e0  46 46 45 45 3a 44 45 58  3a 42 50 4c 6c 70 33 3a  |FFEE:DEX:BPLlp3:|
000007f0  52 54 53 0d 01 9a 09 5d  3a ed 3a e1 0d 01 a4 1d  |RTS....]:.:.....|
00000800  dd f2 69 6e 76 28 4c 25  29 3a 3f 26 35 36 3d 4c  |..inv(L%):?&56=L|
00000810  25 3a d6 26 39 30 30 3a  e1 0d 01 ae 05 e1 0d ff  |%:.&900:........|
00000820