!� King Albert Patience Loader
� by Albert Gardner
� (c) The Micro User
(�7
27�prt("KING ALBERT PATIENCE",5,1,1):�prt("by",8,3,0)
<!�prt("Albert Gardner",10,6,1)
F�vdu:�assemble
P'�11,14);�133;"Deal Number ";:�""M%
Z0�M%=0 L%=0 � �15,16);�133;"Redeals ";:�""L%
d� �>&1100 � �=&1100
n�"KING2"
x	��vdu
�$�23,224,15,7,6,6,130,206,241,200
�'�23,225,248,240,16,177,19,83,35,223
�)�23,226,196,227,208,200,200,200,200,0
�!�23,227,11,243,3,7,11,19,19,0
��23,228,31,15,4,5,8,6,68,99
�'�23,229,248,241,115,83,89,93,161,25
�(�23,230,95,114,137,144,160,192,160,0
� �23,231,15,117,147,9,5,5,5,0
�+�23,232,255,255,255,255,255,255,255,255
�)�23,233,206,219,219,219,219,219,206,0
�#�23,234,80,216,248,112,32,0,0,0
�#�23,235,32,112,248,112,32,0,0,0
�#�23,236,32,112,248,248,32,0,0,0

$�23,237,112,168,248,168,32,0,0,0

#�23,238,32,112,248,216,80,0,0,0

#�23,239,32,112,248,112,32,0,0,0

"#�23,240,32,248,248,112,32,0,0,0

,$�23,241,32,168,248,168,112,0,0,0

6$�23,242,34,119,127,127,62,28,8,0

@!�23,243,8,28,62,127,62,28,8,0

J"�23,244,8,28,62,127,127,42,8,0

T#�23,245,28,28,107,127,107,8,8,0

^�23,246,1,1,3,3,7,15,31,63

h+�23,247,128,128,192,192,224,240,248,252

r$�23,248,127,127,127,127,61,1,1,3

|+�23,249,254,254,254,254,188,128,128,192

� �23,252,7,4,6,12,21,18,21,56

�'�23,253,252,120,176,50,37,82,138,15

�(�23,254,68,139,136,144,144,144,144,0

��23,255,19,229,5,9,9,9,9,0

��

���prt(A$,L%,C%,D%)

�� D% A$=�141+A$

�X%=(40-(�A$))� 2 -1

�(�Y%=L%�L%+D%:�X%,Y%);�(128+C%);A$:�

��

���assemble

��I%=0�2 �2:P%=&900:[OPT I%

�=STA&70:STX&80:STY&81:LDA#10:LDX#&70:LDY#0:JSR&FFF1:LDA#23
#JSR&FFEE:LDA#250:JSR&FFEE:LDX#8
.lpx LDY#8:LDA#0
!.lpy LSR&70,X:ROLA:DEY:BNElpy
&JSR&FFEE:DEX:BNElpx
0&LDA#250:JSR&FFEE:LDX&80:LDY&81:RTS
:]:�
D�
�

00000000  0d 00 0a 21 f4 20 4b 69  6e 67 20 41 6c 62 65 72  |...!. King Alber|
00000010  74 20 50 61 74 69 65 6e  63 65 20 4c 6f 61 64 65  |t Patience Loade|
00000020  72 0d 00 14 17 f4 20 62  79 20 41 6c 62 65 72 74  |r..... by Albert|
00000030  20 47 61 72 64 6e 65 72  0d 00 1e 18 f4 20 28 63  | Gardner..... (c|
00000040  29 20 54 68 65 20 4d 69  63 72 6f 20 55 73 65 72  |) The Micro User|
00000050  0d 00 28 06 eb 37 0d 00  32 37 f2 70 72 74 28 22  |..(..7..27.prt("|
00000060  4b 49 4e 47 20 41 4c 42  45 52 54 20 50 41 54 49  |KING ALBERT PATI|
00000070  45 4e 43 45 22 2c 35 2c  31 2c 31 29 3a f2 70 72  |ENCE",5,1,1):.pr|
00000080  74 28 22 62 79 22 2c 38  2c 33 2c 30 29 0d 00 3c  |t("by",8,3,0)..<|
00000090  21 f2 70 72 74 28 22 41  6c 62 65 72 74 20 47 61  |!.prt("Albert Ga|
000000a0  72 64 6e 65 72 22 2c 31  30 2c 36 2c 31 29 0d 00  |rdner",10,6,1)..|
000000b0  46 12 f2 76 64 75 3a f2  61 73 73 65 6d 62 6c 65  |F..vdu:.assemble|
000000c0  0d 00 50 27 f1 8a 31 31  2c 31 34 29 3b bd 31 33  |..P'..11,14);.13|
000000d0  33 3b 22 44 65 61 6c 20  4e 75 6d 62 65 72 20 22  |3;"Deal Number "|
000000e0  3b 3a e8 22 22 4d 25 0d  00 5a 30 e7 4d 25 3d 30  |;:.""M%..Z0.M%=0|
000000f0  20 4c 25 3d 30 20 8b 20  f1 8a 31 35 2c 31 36 29  | L%=0 . ..15,16)|
00000100  3b bd 31 33 33 3b 22 52  65 64 65 61 6c 73 20 22  |;.133;"Redeals "|
00000110  3b 3a e8 22 22 4c 25 0d  00 64 17 e7 20 90 3e 26  |;:.""L%..d.. .>&|
00000120  31 31 30 30 20 8c 20 d0  3d 26 31 31 30 30 0d 00  |1100 . .=&1100..|
00000130  6e 0c d7 22 4b 49 4e 47  32 22 0d 00 78 09 dd f2  |n.."KING2"..x...|
00000140  76 64 75 0d 00 82 24 ef  32 33 2c 32 32 34 2c 31  |vdu...$.23,224,1|
00000150  35 2c 37 2c 36 2c 36 2c  31 33 30 2c 32 30 36 2c  |5,7,6,6,130,206,|
00000160  32 34 31 2c 32 30 30 0d  00 8c 27 ef 32 33 2c 32  |241,200...'.23,2|
00000170  32 35 2c 32 34 38 2c 32  34 30 2c 31 36 2c 31 37  |25,248,240,16,17|
00000180  37 2c 31 39 2c 38 33 2c  33 35 2c 32 32 33 0d 00  |7,19,83,35,223..|
00000190  96 29 ef 32 33 2c 32 32  36 2c 31 39 36 2c 32 32  |.).23,226,196,22|
000001a0  37 2c 32 30 38 2c 32 30  30 2c 32 30 30 2c 32 30  |7,208,200,200,20|
000001b0  30 2c 32 30 30 2c 30 0d  00 a0 21 ef 32 33 2c 32  |0,200,0...!.23,2|
000001c0  32 37 2c 31 31 2c 32 34  33 2c 33 2c 37 2c 31 31  |27,11,243,3,7,11|
000001d0  2c 31 39 2c 31 39 2c 30  0d 00 aa 1f ef 32 33 2c  |,19,19,0.....23,|
000001e0  32 32 38 2c 33 31 2c 31  35 2c 34 2c 35 2c 38 2c  |228,31,15,4,5,8,|
000001f0  36 2c 36 38 2c 39 39 0d  00 b4 27 ef 32 33 2c 32  |6,68,99...'.23,2|
00000200  32 39 2c 32 34 38 2c 32  34 31 2c 31 31 35 2c 38  |29,248,241,115,8|
00000210  33 2c 38 39 2c 39 33 2c  31 36 31 2c 32 35 0d 00  |3,89,93,161,25..|
00000220  be 28 ef 32 33 2c 32 33  30 2c 39 35 2c 31 31 34  |.(.23,230,95,114|
00000230  2c 31 33 37 2c 31 34 34  2c 31 36 30 2c 31 39 32  |,137,144,160,192|
00000240  2c 31 36 30 2c 30 0d 00  c8 20 ef 32 33 2c 32 33  |,160,0... .23,23|
00000250  31 2c 31 35 2c 31 31 37  2c 31 34 37 2c 39 2c 35  |1,15,117,147,9,5|
00000260  2c 35 2c 35 2c 30 0d 00  d2 2b ef 32 33 2c 32 33  |,5,5,0...+.23,23|
00000270  32 2c 32 35 35 2c 32 35  35 2c 32 35 35 2c 32 35  |2,255,255,255,25|
00000280  35 2c 32 35 35 2c 32 35  35 2c 32 35 35 2c 32 35  |5,255,255,255,25|
00000290  35 0d 00 dc 29 ef 32 33  2c 32 33 33 2c 32 30 36  |5...).23,233,206|
000002a0  2c 32 31 39 2c 32 31 39  2c 32 31 39 2c 32 31 39  |,219,219,219,219|
000002b0  2c 32 31 39 2c 32 30 36  2c 30 0d 00 e6 23 ef 32  |,219,206,0...#.2|
000002c0  33 2c 32 33 34 2c 38 30  2c 32 31 36 2c 32 34 38  |3,234,80,216,248|
000002d0  2c 31 31 32 2c 33 32 2c  30 2c 30 2c 30 0d 00 f0  |,112,32,0,0,0...|
000002e0  23 ef 32 33 2c 32 33 35  2c 33 32 2c 31 31 32 2c  |#.23,235,32,112,|
000002f0  32 34 38 2c 31 31 32 2c  33 32 2c 30 2c 30 2c 30  |248,112,32,0,0,0|
00000300  0d 00 fa 23 ef 32 33 2c  32 33 36 2c 33 32 2c 31  |...#.23,236,32,1|
00000310  31 32 2c 32 34 38 2c 32  34 38 2c 33 32 2c 30 2c  |12,248,248,32,0,|
00000320  30 2c 30 0d 01 04 24 ef  32 33 2c 32 33 37 2c 31  |0,0...$.23,237,1|
00000330  31 32 2c 31 36 38 2c 32  34 38 2c 31 36 38 2c 33  |12,168,248,168,3|
00000340  32 2c 30 2c 30 2c 30 0d  01 0e 23 ef 32 33 2c 32  |2,0,0,0...#.23,2|
00000350  33 38 2c 33 32 2c 31 31  32 2c 32 34 38 2c 32 31  |38,32,112,248,21|
00000360  36 2c 38 30 2c 30 2c 30  2c 30 0d 01 18 23 ef 32  |6,80,0,0,0...#.2|
00000370  33 2c 32 33 39 2c 33 32  2c 31 31 32 2c 32 34 38  |3,239,32,112,248|
00000380  2c 31 31 32 2c 33 32 2c  30 2c 30 2c 30 0d 01 22  |,112,32,0,0,0.."|
00000390  23 ef 32 33 2c 32 34 30  2c 33 32 2c 32 34 38 2c  |#.23,240,32,248,|
000003a0  32 34 38 2c 31 31 32 2c  33 32 2c 30 2c 30 2c 30  |248,112,32,0,0,0|
000003b0  0d 01 2c 24 ef 32 33 2c  32 34 31 2c 33 32 2c 31  |..,$.23,241,32,1|
000003c0  36 38 2c 32 34 38 2c 31  36 38 2c 31 31 32 2c 30  |68,248,168,112,0|
000003d0  2c 30 2c 30 0d 01 36 24  ef 32 33 2c 32 34 32 2c  |,0,0..6$.23,242,|
000003e0  33 34 2c 31 31 39 2c 31  32 37 2c 31 32 37 2c 36  |34,119,127,127,6|
000003f0  32 2c 32 38 2c 38 2c 30  0d 01 40 21 ef 32 33 2c  |2,28,8,0..@!.23,|
00000400  32 34 33 2c 38 2c 32 38  2c 36 32 2c 31 32 37 2c  |243,8,28,62,127,|
00000410  36 32 2c 32 38 2c 38 2c  30 0d 01 4a 22 ef 32 33  |62,28,8,0..J".23|
00000420  2c 32 34 34 2c 38 2c 32  38 2c 36 32 2c 31 32 37  |,244,8,28,62,127|
00000430  2c 31 32 37 2c 34 32 2c  38 2c 30 0d 01 54 23 ef  |,127,42,8,0..T#.|
00000440  32 33 2c 32 34 35 2c 32  38 2c 32 38 2c 31 30 37  |23,245,28,28,107|
00000450  2c 31 32 37 2c 31 30 37  2c 38 2c 38 2c 30 0d 01  |,127,107,8,8,0..|
00000460  5e 1e ef 32 33 2c 32 34  36 2c 31 2c 31 2c 33 2c  |^..23,246,1,1,3,|
00000470  33 2c 37 2c 31 35 2c 33  31 2c 36 33 0d 01 68 2b  |3,7,15,31,63..h+|
00000480  ef 32 33 2c 32 34 37 2c  31 32 38 2c 31 32 38 2c  |.23,247,128,128,|
00000490  31 39 32 2c 31 39 32 2c  32 32 34 2c 32 34 30 2c  |192,192,224,240,|
000004a0  32 34 38 2c 32 35 32 0d  01 72 24 ef 32 33 2c 32  |248,252..r$.23,2|
000004b0  34 38 2c 31 32 37 2c 31  32 37 2c 31 32 37 2c 31  |48,127,127,127,1|
000004c0  32 37 2c 36 31 2c 31 2c  31 2c 33 0d 01 7c 2b ef  |27,61,1,1,3..|+.|
000004d0  32 33 2c 32 34 39 2c 32  35 34 2c 32 35 34 2c 32  |23,249,254,254,2|
000004e0  35 34 2c 32 35 34 2c 31  38 38 2c 31 32 38 2c 31  |54,254,188,128,1|
000004f0  32 38 2c 31 39 32 0d 01  86 20 ef 32 33 2c 32 35  |28,192... .23,25|
00000500  32 2c 37 2c 34 2c 36 2c  31 32 2c 32 31 2c 31 38  |2,7,4,6,12,21,18|
00000510  2c 32 31 2c 35 36 0d 01  90 27 ef 32 33 2c 32 35  |,21,56...'.23,25|
00000520  33 2c 32 35 32 2c 31 32  30 2c 31 37 36 2c 35 30  |3,252,120,176,50|
00000530  2c 33 37 2c 38 32 2c 31  33 38 2c 31 35 0d 01 9a  |,37,82,138,15...|
00000540  28 ef 32 33 2c 32 35 34  2c 36 38 2c 31 33 39 2c  |(.23,254,68,139,|
00000550  31 33 36 2c 31 34 34 2c  31 34 34 2c 31 34 34 2c  |136,144,144,144,|
00000560  31 34 34 2c 30 0d 01 a4  1e ef 32 33 2c 32 35 35  |144,0.....23,255|
00000570  2c 31 39 2c 32 32 39 2c  35 2c 39 2c 39 2c 39 2c  |,19,229,5,9,9,9,|
00000580  39 2c 30 0d 01 ae 05 e1  0d 01 b8 16 dd f2 70 72  |9,0...........pr|
00000590  74 28 41 24 2c 4c 25 2c  43 25 2c 44 25 29 0d 01  |t(A$,L%,C%,D%)..|
000005a0  c2 13 e7 20 44 25 20 41  24 3d bd 31 34 31 2b 41  |... D% A$=.141+A|
000005b0  24 0d 01 cc 17 58 25 3d  28 34 30 2d 28 a9 41 24  |$....X%=(40-(.A$|
000005c0  29 29 81 20 32 20 2d 31  0d 01 d6 28 e3 59 25 3d  |)). 2 -1...(.Y%=|
000005d0  4c 25 b8 4c 25 2b 44 25  3a f1 8a 58 25 2c 59 25  |L%.L%+D%:..X%,Y%|
000005e0  29 3b bd 28 31 32 38 2b  43 25 29 3b 41 24 3a ed  |);.(128+C%);A$:.|
000005f0  0d 01 e0 05 e1 0d 01 ea  0e dd f2 61 73 73 65 6d  |...........assem|
00000600  62 6c 65 0d 01 f4 1e e3  49 25 3d 30 b8 32 20 88  |ble.....I%=0.2 .|
00000610  32 3a 50 25 3d 26 39 30  30 3a 5b 4f 50 54 20 49  |2:P%=&900:[OPT I|
00000620  25 0d 01 fe 3d 53 54 41  26 37 30 3a 53 54 58 26  |%...=STA&70:STX&|
00000630  38 30 3a 53 54 59 26 38  31 3a 4c 44 41 23 31 30  |80:STY&81:LDA#10|
00000640  3a 4c 44 58 23 26 37 30  3a 4c 44 59 23 30 3a 4a  |:LDX#&70:LDY#0:J|
00000650  53 52 26 46 46 46 31 3a  4c 44 41 23 32 33 0d 02  |SR&FFF1:LDA#23..|
00000660  08 23 4a 53 52 26 46 46  45 45 3a 4c 44 41 23 32  |.#JSR&FFEE:LDA#2|
00000670  35 30 3a 4a 53 52 26 46  46 45 45 3a 4c 44 58 23  |50:JSR&FFEE:LDX#|
00000680  38 0d 02 12 14 2e 6c 70  78 20 4c 44 59 23 38 3a  |8.....lpx LDY#8:|
00000690  4c 44 41 23 30 0d 02 1c  21 2e 6c 70 79 20 4c 53  |LDA#0...!.lpy LS|
000006a0  52 26 37 30 2c 58 3a 52  4f 4c 41 3a 44 45 59 3a  |R&70,X:ROLA:DEY:|
000006b0  42 4e 45 6c 70 79 0d 02  26 17 4a 53 52 26 46 46  |BNElpy..&.JSR&FF|
000006c0  45 45 3a 44 45 58 3a 42  4e 45 6c 70 78 0d 02 30  |EE:DEX:BNElpx..0|
000006d0  26 4c 44 41 23 32 35 30  3a 4a 53 52 26 46 46 45  |&LDA#250:JSR&FFE|
000006e0  45 3a 4c 44 58 26 38 30  3a 4c 44 59 26 38 31 3a  |E:LDX&80:LDY&81:|
000006f0  52 54 53 0d 02 3a 07 5d  3a ed 0d 02 44 05 e1 0d  |RTS..:.]:...D...|
00000700  ff                                                |.|
00000701