ݤS="SOLIT"
	*FX21
(
�CLEAR
2L�6:�23;8202;0;0;0;:�INFOPRINT:�clear:�1:�INIT:�SETUP:X%=6:Y%=6:A%(B%)=25
<%�:�MOVE:�CHECK:�C%=�:�PRINT:�REGO
F:��INIT:�A%(2)::�23,255,255,255,255,255,255,255,255,255
P��D%(49):�23,251,0,0,0,1,7,15,15,31,23,252,0,0,0,128,224,240,240,248,23,253,31,15,15,7,1,0,0,0,23,254,248,240,240,224,128,0,0,0:�28,12,25,25,12:B%=1:�
ZH��INFOPRINT:��39,"*"):�'�7);"Solitaire by C.J.Richardson."''�39,"*")
d��'"The  object  of Solitaire is to remove"''"all the pegs from play except the last,"''"which must finish in the centre hole."''"To play, pick up a peg by moving the"
nW�'" cursor to the peg you wish to move."''"Press Space bar. Now move the cursor to"
xS�'"the position you wish to move the peg,"''"  then press the Space bar again."
�D��E%=1�8:�9+�(17),22)" ":�:�10,22);"SPACE BAR TO PLAY":��(-99)
��
���SETUP:�L%=0�49:�D%(L%):�
�h�9,0,0,1,1,1,0,0,0,0,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,0,0,1,1,1,0,0,0,0,1,1,1,0,0
���0,145:�:�5:�''"________________________________________"'"      *** Solitaire By Chris ***"'"________________________________________"'"     Left/Right Z/X    Up/Down */?"''"             E to Escape"
���'"      Space bar to";�27);"peg":�4,5:�610,700:�"Pick up":�4:�17,5:�L%=1�195:�255:�:�17,2,30:L%=1:�IL%=1�7:�IIL%=1�7:�D%(L%)=1��251,252,10,8,8,253,254,11��9,9
�L%=L%+1:�:�L%<45�10
��
�cC%=�:�23;8202;0;0;0;:�23,255,255,129,129,129,129,129,129,255,17,5,31,6,6,255,255,10,8,8,255,255
��
�
��MOVE
�G%=0
��(-35):�clear:�

�(-73)G%=-7:�D@A

�(-105)G%=7:�D@A

�(-98)G%=-1:�D@A

"�(-67)G%=1:�D@A

,1�(-83):�H%=1�49:D%(H%)=0:�:D%(24)=1:D%(23)=1

6�

@S%=A%(B%)+G%

JJ�11,8,8:�D%(A%(B%))=1��17,2,251,252,10,8,8,253,254��32,32,10,8,8,32,32

T^�S%<3�S%=6�S%=7�S%=8�S%=9�S%=13�S%=14�S%=36�S%=37�S%=41�S%=42�S%=43�S%=44�S%>47�G%=0:�dBA

^(�G%=-1:�S%=14�S%=21�S%=28�G%=0:�dBA

h'�G%=1:�S%=22�S%=29�S%=36�G%=0:�dBA

rA%(B%)=A%(B%)+G%

|�G%=-1X%=X%-2��G%=1�X%=X%+2

� �G%=-7�Y%=Y%-2��G%=7�Y%=Y%+2

�
�X%<0X%=0

��X%>12X%=12

�
�Y%<0Y%=0

��Y%>12Y%=12

�0�B%=2�31,X1%,Y1%,17,5,251,252,10,8,8,253,254

�
�31,X%,Y%

�K�D%(A%(B%))=1��17,5,251,252,10,8,8,253,254��17,5,255,255,10,8,8,255,255

��I%=1�250:�:�

���CHECK

�z�(-99):�B%=1�D%(A%(B%))=1B%=2:A%(B%)=A%(1):X1%=X%:Y1%=Y%:�5:�610,700:�"Pick up":�650,700:�"Drop":�4:�DELAY=1�1000:�:�

��(-99):�B%=2:�TRB

��
J%=A%(2)-A%(1)
;�J%=14�J%=-14�J%=2�J%=-2�J%=16�J%=-16�J%=12�J%=-12��DNB
&��31,X1%,Y1%,17,2,251,252,10,8,8,253,254:�D%(A%(2))=1�31,X%,Y%,17,5,251,252,10,8,8,253,254��31,X%,Y%,17,5,255,255,10,8,8,255,255
0P�DELAY=1�1000:�:B%=1:A%(B%)=A%(2):�5:�650,700:�"Drop":�610,700:�"Pick up":�4
:�
NJ%=J%/2
X�D%(A%(1)+J%)=1��DvB
b��31,X1%,Y1%,17,2,251,252,10,8,8,253,254:�D%(A%(2))=1�31,X%,Y%,17,5,251,252,10,8,8,253,254��31,X%,Y%,17,5,255,255,10,8,8,255,255
lR�DELAY=1�1000:�:B%=1:A%(B%)=A%(2):�5:�650,700:�"Drop":�610,700:�"Pick up":�4:�
��D%(A%(1)+(J%*2))=0��t^B
���31,X1%,Y1%,17,2,251,252,10,8,8,253,254:�D%(A%(2))=1�31,X%,Y%,17,5,251,252,10,8,8,253,254��31,X%,Y%,17,5,255,255,10,8,8,255,255
�R�DELAY=1�1000:�:B%=1:A%(B%)=A%(2):�5:�650,700:�"Drop":�610,700:�"Pick up":�4:�
�cD%(A%(1))=0:D%(A%(2))=1:�31,X1%,Y1%,17,2,32,32,10,8,8,32,32,31X%,Y%,17,5,251,252,10,8,8,253,254
�D%(A%(1)+J%)=0
�6K%=0:�TL%=1�49:K%=K%+D%(TL%):�:�K%=1:�D%(25)=1C%=�
�TH%=(A%(1)+J%)
�X2%=((TH%�7)-1)*2
�Y2%=((TH%�7))*2
��TH%=28X2%=12:Y2%=6
*�31,X2%,Y2%,17,2,32,32,10,8,8,32,32,11
gB%=1:�31,X%,Y%,17,5,251,252,10,8,8,253,254:�5:�650,700:�"Drop":�610,700:�"Pick up":�4:A%(1)=A%(2):�
��PRINT:�clear:*FX21
 "�L%=3�7:�2,L%);"YOU WON!!!":�
*�
4H��REGO:�2,9);:�"ANOTHER GO?":�:Q$=�:�Q$="Y"�Q$="N":�Q$="Y"��clear:�
>�!-4
H��CLEAR
Rscrn=&70:scrnhi=&72
\�pass=0�2�2
fP%=&900
p
[OPT pass
z
.clear
��LDA&355:CMP#3:BPL alpha:LDA#&30:STA scrnhi:JMP start:.alpha:CMP#3:BEQ three:CMP#6:BEQ six:CMP#7:BEQ seven:LDA#&58:STA scrnhi:JMP start:.three:LDA#&40:STA scrnhi:JMP start:.six:LDA#&60:STA scrnhi:JMP start:.seven
��LDA#&7C:STA scrnhi:.start:LDX#0:.start1:LDA#0:STA scrn:LDA scrnhi:STA scrn+1:.loop1:LDY#0:.loop2:LDA(scrn),Y:CLC:ROR A:STA(scrn),Y:INY:CPY#0:BNE loop2:INC scrn+1:LDA scrn+1:CMP#&80:BNE loop1
�JINX:CPX#8:BNE start1:LDA#31:JSR&FFEE:LDA#0:JSR&FFEE:LDA#0:JSR&FFEE:RTS
�]
��:�
�

00000000  0d 00 0a 0f dd a4 53 3d  22 53 4f 4c 49 54 22 0d  |......S="SOLIT".|
00000010  00 1e 09 2a 46 58 32 31  0d 00 28 0a f2 43 4c 45  |...*FX21..(..CLE|
00000020  41 52 0d 00 32 4c eb 36  3a ef 32 33 3b 38 32 30  |AR..2L.6:.23;820|
00000030  32 3b 30 3b 30 3b 30 3b  3a f2 49 4e 46 4f 50 52  |2;0;0;0;:.INFOPR|
00000040  49 4e 54 3a d6 63 6c 65  61 72 3a eb 31 3a f2 49  |INT:.clear:.1:.I|
00000050  4e 49 54 3a f2 53 45 54  55 50 3a 58 25 3d 36 3a  |NIT:.SETUP:X%=6:|
00000060  59 25 3d 36 3a 41 25 28  42 25 29 3d 32 35 0d 00  |Y%=6:A%(B%)=25..|
00000070  3c 25 f5 3a f2 4d 4f 56  45 3a f2 43 48 45 43 4b  |<%.:.MOVE:.CHECK|
00000080  3a fd 43 25 3d b9 3a f2  50 52 49 4e 54 3a f2 52  |:.C%=.:.PRINT:.R|
00000090  45 47 4f 0d 00 46 3a dd  f2 49 4e 49 54 3a de 41  |EGO..F:..INIT:.A|
000000a0  25 28 32 29 3a 3a ef 32  33 2c 32 35 35 2c 32 35  |%(2)::.23,255,25|
000000b0  35 2c 32 35 35 2c 32 35  35 2c 32 35 35 2c 32 35  |5,255,255,255,25|
000000c0  35 2c 32 35 35 2c 32 35  35 2c 32 35 35 0d 00 50  |5,255,255,255..P|
000000d0  99 de 44 25 28 34 39 29  3a ef 32 33 2c 32 35 31  |..D%(49):.23,251|
000000e0  2c 30 2c 30 2c 30 2c 31  2c 37 2c 31 35 2c 31 35  |,0,0,0,1,7,15,15|
000000f0  2c 33 31 2c 32 33 2c 32  35 32 2c 30 2c 30 2c 30  |,31,23,252,0,0,0|
00000100  2c 31 32 38 2c 32 32 34  2c 32 34 30 2c 32 34 30  |,128,224,240,240|
00000110  2c 32 34 38 2c 32 33 2c  32 35 33 2c 33 31 2c 31  |,248,23,253,31,1|
00000120  35 2c 31 35 2c 37 2c 31  2c 30 2c 30 2c 30 2c 32  |5,15,7,1,0,0,0,2|
00000130  33 2c 32 35 34 2c 32 34  38 2c 32 34 30 2c 32 34  |3,254,248,240,24|
00000140  30 2c 32 32 34 2c 31 32  38 2c 30 2c 30 2c 30 3a  |0,224,128,0,0,0:|
00000150  ef 32 38 2c 31 32 2c 32  35 2c 32 35 2c 31 32 3a  |.28,12,25,25,12:|
00000160  42 25 3d 31 3a e1 0d 00  5a 48 dd f2 49 4e 46 4f  |B%=1:...ZH..INFO|
00000170  50 52 49 4e 54 3a f1 c4  33 39 2c 22 2a 22 29 3a  |PRINT:..39,"*"):|
00000180  f1 27 8a 37 29 3b 22 53  6f 6c 69 74 61 69 72 65  |.'.7);"Solitaire|
00000190  20 62 79 20 43 2e 4a 2e  52 69 63 68 61 72 64 73  | by C.J.Richards|
000001a0  6f 6e 2e 22 27 27 c4 33  39 2c 22 2a 22 29 0d 00  |on."''.39,"*")..|
000001b0  64 aa f1 27 22 54 68 65  20 20 6f 62 6a 65 63 74  |d..'"The  object|
000001c0  20 20 6f 66 20 53 6f 6c  69 74 61 69 72 65 20 69  |  of Solitaire i|
000001d0  73 20 74 6f 20 72 65 6d  6f 76 65 22 27 27 22 61  |s to remove"''"a|
000001e0  6c 6c 20 74 68 65 20 70  65 67 73 20 66 72 6f 6d  |ll the pegs from|
000001f0  20 70 6c 61 79 20 65 78  63 65 70 74 20 74 68 65  | play except the|
00000200  20 6c 61 73 74 2c 22 27  27 22 77 68 69 63 68 20  | last,"''"which |
00000210  6d 75 73 74 20 66 69 6e  69 73 68 20 69 6e 20 74  |must finish in t|
00000220  68 65 20 63 65 6e 74 72  65 20 68 6f 6c 65 2e 22  |he centre hole."|
00000230  27 27 22 54 6f 20 70 6c  61 79 2c 20 70 69 63 6b  |''"To play, pick|
00000240  20 75 70 20 61 20 70 65  67 20 62 79 20 6d 6f 76  | up a peg by mov|
00000250  69 6e 67 20 74 68 65 22  0d 00 6e 57 f1 27 22 20  |ing the"..nW.'" |
00000260  63 75 72 73 6f 72 20 74  6f 20 74 68 65 20 70 65  |cursor to the pe|
00000270  67 20 79 6f 75 20 77 69  73 68 20 74 6f 20 6d 6f  |g you wish to mo|
00000280  76 65 2e 22 27 27 22 50  72 65 73 73 20 53 70 61  |ve."''"Press Spa|
00000290  63 65 20 62 61 72 2e 20  4e 6f 77 20 6d 6f 76 65  |ce bar. Now move|
000002a0  20 74 68 65 20 63 75 72  73 6f 72 20 74 6f 22 0d  | the cursor to".|
000002b0  00 78 53 f1 27 22 74 68  65 20 70 6f 73 69 74 69  |.xS.'"the positi|
000002c0  6f 6e 20 79 6f 75 20 77  69 73 68 20 74 6f 20 6d  |on you wish to m|
000002d0  6f 76 65 20 74 68 65 20  70 65 67 2c 22 27 27 22  |ove the peg,"''"|
000002e0  20 20 74 68 65 6e 20 70  72 65 73 73 20 74 68 65  |  then press the|
000002f0  20 53 70 61 63 65 20 62  61 72 20 61 67 61 69 6e  | Space bar again|
00000300  2e 22 0d 00 82 44 f5 e3  45 25 3d 31 b8 38 3a f1  |."...D..E%=1.8:.|
00000310  8a 39 2b b3 28 31 37 29  2c 32 32 29 22 20 22 3a  |.9+.(17),22)" ":|
00000320  ed 3a f1 8a 31 30 2c 32  32 29 3b 22 53 50 41 43  |.:..10,22);"SPAC|
00000330  45 20 42 41 52 20 54 4f  20 50 4c 41 59 22 3a fd  |E BAR TO PLAY":.|
00000340  a6 28 2d 39 39 29 0d 00  8c 05 e1 0d 00 96 1e dd  |.(-99)..........|
00000350  f2 53 45 54 55 50 3a e3  4c 25 3d 30 b8 34 39 3a  |.SETUP:.L%=0.49:|
00000360  f3 44 25 28 4c 25 29 3a  ed 0d 00 a0 68 dc 39 2c  |.D%(L%):....h.9,|
00000370  30 2c 30 2c 31 2c 31 2c  31 2c 30 2c 30 2c 30 2c  |0,0,1,1,1,0,0,0,|
00000380  30 2c 31 2c 31 2c 31 2c  30 2c 30 2c 31 2c 31 2c  |0,1,1,1,0,0,1,1,|
00000390  31 2c 31 2c 31 2c 31 2c  31 2c 31 2c 31 2c 31 2c  |1,1,1,1,1,1,1,1,|
000003a0  30 2c 31 2c 31 2c 31 2c  31 2c 31 2c 31 2c 31 2c  |0,1,1,1,1,1,1,1,|
000003b0  31 2c 31 2c 31 2c 30 2c  30 2c 31 2c 31 2c 31 2c  |1,1,1,0,0,1,1,1,|
000003c0  30 2c 30 2c 30 2c 30 2c  31 2c 31 2c 31 2c 30 2c  |0,0,0,0,1,1,1,0,|
000003d0  30 0d 00 aa cc e6 30 2c  31 34 35 3a da 3a ef 35  |0.....0,145:.:.5|
000003e0  3a f1 27 27 22 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |:.''"___________|
000003f0  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |________________|
00000400  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 22 27 22  |_____________"'"|
00000410  20 20 20 20 20 20 2a 2a  2a 20 53 6f 6c 69 74 61  |      *** Solita|
00000420  69 72 65 20 42 79 20 43  68 72 69 73 20 2a 2a 2a  |ire By Chris ***|
00000430  22 27 22 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |"'"_____________|
00000440  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |________________|
00000450  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 22 27 22 20 20  |___________"'"  |
00000460  20 20 20 4c 65 66 74 2f  52 69 67 68 74 20 5a 2f  |   Left/Right Z/|
00000470  58 20 20 20 20 55 70 2f  44 6f 77 6e 20 2a 2f 3f  |X    Up/Down */?|
00000480  22 27 27 22 20 20 20 20  20 20 20 20 20 20 20 20  |"''"            |
00000490  20 45 20 74 6f 20 45 73  63 61 70 65 22 0d 00 b4  | E to Escape"...|
000004a0  a3 f1 27 22 20 20 20 20  20 20 53 70 61 63 65 20  |..'"      Space |
000004b0  62 61 72 20 74 6f 22 3b  8a 32 37 29 3b 22 70 65  |bar to";.27);"pe|
000004c0  67 22 3a e6 34 2c 35 3a  ec 36 31 30 2c 37 30 30  |g":.4,5:.610,700|
000004d0  3a f1 22 50 69 63 6b 20  75 70 22 3a ef 34 3a ef  |:."Pick up":.4:.|
000004e0  31 37 2c 35 3a e3 4c 25  3d 31 b8 31 39 35 3a ef  |17,5:.L%=1.195:.|
000004f0  32 35 35 3a ed 3a ef 31  37 2c 32 2c 33 30 3a 4c  |255:.:.17,2,30:L|
00000500  25 3d 31 3a e3 49 4c 25  3d 31 b8 37 3a e3 49 49  |%=1:.IL%=1.7:.II|
00000510  4c 25 3d 31 b8 37 3a e7  44 25 28 4c 25 29 3d 31  |L%=1.7:.D%(L%)=1|
00000520  8c ef 32 35 31 2c 32 35  32 2c 31 30 2c 38 2c 38  |..251,252,10,8,8|
00000530  2c 32 35 33 2c 32 35 34  2c 31 31 8b ef 39 2c 39  |,253,254,11..9,9|
00000540  0d 00 be 17 4c 25 3d 4c  25 2b 31 3a ed 3a e7 4c  |....L%=L%+1:.:.L|
00000550  25 3c 34 35 ef 31 30 0d  00 c8 05 ed 0d 00 d2 63  |%<45.10........c|
00000560  43 25 3d a3 3a ef 32 33  3b 38 32 30 32 3b 30 3b  |C%=.:.23;8202;0;|
00000570  30 3b 30 3b 3a ef 32 33  2c 32 35 35 2c 32 35 35  |0;0;:.23,255,255|
00000580  2c 31 32 39 2c 31 32 39  2c 31 32 39 2c 31 32 39  |,129,129,129,129|
00000590  2c 31 32 39 2c 31 32 39  2c 32 35 35 2c 31 37 2c  |,129,129,255,17,|
000005a0  35 2c 33 31 2c 36 2c 36  2c 32 35 35 2c 32 35 35  |5,31,6,6,255,255|
000005b0  2c 31 30 2c 38 2c 38 2c  32 35 35 2c 32 35 35 0d  |,10,8,8,255,255.|
000005c0  00 dc 05 e1 0d 00 e6 0a  dd f2 4d 4f 56 45 0d 00  |..........MOVE..|
000005d0  f0 08 47 25 3d 30 0d 00  fa 14 e7 a6 28 2d 33 35  |..G%=0......(-35|
000005e0  29 3a d6 63 6c 65 61 72  3a f9 0d 01 04 16 e7 a6  |):.clear:.......|
000005f0  28 2d 37 33 29 47 25 3d  2d 37 3a e5 8d 44 40 41  |(-73)G%=-7:..D@A|
00000600  0d 01 0e 16 e7 a6 28 2d  31 30 35 29 47 25 3d 37  |......(-105)G%=7|
00000610  3a e5 8d 44 40 41 0d 01  18 16 e7 a6 28 2d 39 38  |:..D@A......(-98|
00000620  29 47 25 3d 2d 31 3a e5  8d 44 40 41 0d 01 22 15  |)G%=-1:..D@A..".|
00000630  e7 a6 28 2d 36 37 29 47  25 3d 31 3a e5 8d 44 40  |..(-67)G%=1:..D@|
00000640  41 0d 01 2c 31 e7 a6 28  2d 38 33 29 3a e3 48 25  |A..,1..(-83):.H%|
00000650  3d 31 b8 34 39 3a 44 25  28 48 25 29 3d 30 3a ed  |=1.49:D%(H%)=0:.|
00000660  3a 44 25 28 32 34 29 3d  31 3a 44 25 28 32 33 29  |:D%(24)=1:D%(23)|
00000670  3d 31 0d 01 36 05 e1 0d  01 40 10 53 25 3d 41 25  |=1..6....@.S%=A%|
00000680  28 42 25 29 2b 47 25 0d  01 4a 4a ef 31 31 2c 38  |(B%)+G%..JJ.11,8|
00000690  2c 38 3a e7 44 25 28 41  25 28 42 25 29 29 3d 31  |,8:.D%(A%(B%))=1|
000006a0  8c ef 31 37 2c 32 2c 32  35 31 2c 32 35 32 2c 31  |..17,2,251,252,1|
000006b0  30 2c 38 2c 38 2c 32 35  33 2c 32 35 34 8b ef 33  |0,8,8,253,254..3|
000006c0  32 2c 33 32 2c 31 30 2c  38 2c 38 2c 33 32 2c 33  |2,32,10,8,8,32,3|
000006d0  32 0d 01 54 5e e7 53 25  3c 33 84 53 25 3d 36 84  |2..T^.S%<3.S%=6.|
000006e0  53 25 3d 37 84 53 25 3d  38 84 53 25 3d 39 84 53  |S%=7.S%=8.S%=9.S|
000006f0  25 3d 31 33 84 53 25 3d  31 34 84 53 25 3d 33 36  |%=13.S%=14.S%=36|
00000700  84 53 25 3d 33 37 84 53  25 3d 34 31 84 53 25 3d  |.S%=37.S%=41.S%=|
00000710  34 32 84 53 25 3d 34 33  84 53 25 3d 34 34 84 53  |42.S%=43.S%=44.S|
00000720  25 3e 34 37 8c 47 25 3d  30 3a e5 8d 64 42 41 0d  |%>47.G%=0:..dBA.|
00000730  01 5e 28 e7 47 25 3d 2d  31 3a e7 53 25 3d 31 34  |.^(.G%=-1:.S%=14|
00000740  84 53 25 3d 32 31 84 53  25 3d 32 38 8c 47 25 3d  |.S%=21.S%=28.G%=|
00000750  30 3a e5 8d 64 42 41 0d  01 68 27 e7 47 25 3d 31  |0:..dBA..h'.G%=1|
00000760  3a e7 53 25 3d 32 32 84  53 25 3d 32 39 84 53 25  |:.S%=22.S%=29.S%|
00000770  3d 33 36 8c 47 25 3d 30  3a e5 8d 64 42 41 0d 01  |=36.G%=0:..dBA..|
00000780  72 14 41 25 28 42 25 29  3d 41 25 28 42 25 29 2b  |r.A%(B%)=A%(B%)+|
00000790  47 25 0d 01 7c 1f e7 47  25 3d 2d 31 58 25 3d 58  |G%..|..G%=-1X%=X|
000007a0  25 2d 32 8b e7 47 25 3d  31 8c 58 25 3d 58 25 2b  |%-2..G%=1.X%=X%+|
000007b0  32 0d 01 86 20 e7 47 25  3d 2d 37 8c 59 25 3d 59  |2... .G%=-7.Y%=Y|
000007c0  25 2d 32 8b e7 47 25 3d  37 8c 59 25 3d 59 25 2b  |%-2..G%=7.Y%=Y%+|
000007d0  32 0d 01 90 0d e7 58 25  3c 30 58 25 3d 30 0d 01  |2.....X%<0X%=0..|
000007e0  9a 0f e7 58 25 3e 31 32  58 25 3d 31 32 0d 01 a4  |...X%>12X%=12...|
000007f0  0d e7 59 25 3c 30 59 25  3d 30 0d 01 ae 0f e7 59  |..Y%<0Y%=0.....Y|
00000800  25 3e 31 32 59 25 3d 31  32 0d 01 b8 30 e7 42 25  |%>12Y%=12...0.B%|
00000810  3d 32 ef 33 31 2c 58 31  25 2c 59 31 25 2c 31 37  |=2.31,X1%,Y1%,17|
00000820  2c 35 2c 32 35 31 2c 32  35 32 2c 31 30 2c 38 2c  |,5,251,252,10,8,|
00000830  38 2c 32 35 33 2c 32 35  34 0d 01 c2 0d ef 33 31  |8,253,254.....31|
00000840  2c 58 25 2c 59 25 0d 01  cc 4b e7 44 25 28 41 25  |,X%,Y%...K.D%(A%|
00000850  28 42 25 29 29 3d 31 8c  ef 31 37 2c 35 2c 32 35  |(B%))=1..17,5,25|
00000860  31 2c 32 35 32 2c 31 30  2c 38 2c 38 2c 32 35 33  |1,252,10,8,8,253|
00000870  2c 32 35 34 8b ef 31 37  2c 35 2c 32 35 35 2c 32  |,254..17,5,255,2|
00000880  35 35 2c 31 30 2c 38 2c  38 2c 32 35 35 2c 32 35  |55,10,8,8,255,25|
00000890  35 0d 01 d6 11 e3 49 25  3d 31 b8 32 35 30 3a ed  |5.....I%=1.250:.|
000008a0  3a e1 0d 01 e0 0b dd f2  43 48 45 43 4b 0d 01 ea  |:.......CHECK...|
000008b0  7a e7 a6 28 2d 39 39 29  3a e7 42 25 3d 31 e7 44  |z..(-99):.B%=1.D|
000008c0  25 28 41 25 28 42 25 29  29 3d 31 42 25 3d 32 3a  |%(A%(B%))=1B%=2:|
000008d0  41 25 28 42 25 29 3d 41  25 28 31 29 3a 58 31 25  |A%(B%)=A%(1):X1%|
000008e0  3d 58 25 3a 59 31 25 3d  59 25 3a ef 35 3a ec 36  |=X%:Y1%=Y%:.5:.6|
000008f0  31 30 2c 37 30 30 3a f1  22 50 69 63 6b 20 75 70  |10,700:."Pick up|
00000900  22 3a ec 36 35 30 2c 37  30 30 3a f1 22 44 72 6f  |":.650,700:."Dro|
00000910  70 22 3a ef 34 3a e3 44  45 4c 41 59 3d 31 b8 31  |p":.4:.DELAY=1.1|
00000920  30 30 30 3a ed 3a e1 0d  01 f4 17 e7 a6 28 2d 39  |000:.:.......(-9|
00000930  39 29 3a e7 42 25 3d 32  3a e5 8d 54 52 42 0d 01  |9):.B%=2:..TRB..|
00000940  fe 05 e1 0d 02 12 12 4a  25 3d 41 25 28 32 29 2d  |.......J%=A%(2)-|
00000950  41 25 28 31 29 0d 02 1c  3b e7 4a 25 3d 31 34 84  |A%(1)...;.J%=14.|
00000960  4a 25 3d 2d 31 34 84 4a  25 3d 32 84 4a 25 3d 2d  |J%=-14.J%=2.J%=-|
00000970  32 84 4a 25 3d 31 36 84  4a 25 3d 2d 31 36 84 4a  |2.J%=16.J%=-16.J|
00000980  25 3d 31 32 84 4a 25 3d  2d 31 32 8c 8d 44 4e 42  |%=12.J%=-12..DNB|
00000990  0d 02 26 83 ef 33 31 2c  58 31 25 2c 59 31 25 2c  |..&..31,X1%,Y1%,|
000009a0  31 37 2c 32 2c 32 35 31  2c 32 35 32 2c 31 30 2c  |17,2,251,252,10,|
000009b0  38 2c 38 2c 32 35 33 2c  32 35 34 3a e7 44 25 28  |8,8,253,254:.D%(|
000009c0  41 25 28 32 29 29 3d 31  ef 33 31 2c 58 25 2c 59  |A%(2))=1.31,X%,Y|
000009d0  25 2c 31 37 2c 35 2c 32  35 31 2c 32 35 32 2c 31  |%,17,5,251,252,1|
000009e0  30 2c 38 2c 38 2c 32 35  33 2c 32 35 34 8b ef 33  |0,8,8,253,254..3|
000009f0  31 2c 58 25 2c 59 25 2c  31 37 2c 35 2c 32 35 35  |1,X%,Y%,17,5,255|
00000a00  2c 32 35 35 2c 31 30 2c  38 2c 38 2c 32 35 35 2c  |,255,10,8,8,255,|
00000a10  32 35 35 0d 02 30 50 e3  44 45 4c 41 59 3d 31 b8  |255..0P.DELAY=1.|
00000a20  31 30 30 30 3a ed 3a 42  25 3d 31 3a 41 25 28 42  |1000:.:B%=1:A%(B|
00000a30  25 29 3d 41 25 28 32 29  3a ef 35 3a ec 36 35 30  |%)=A%(2):.5:.650|
00000a40  2c 37 30 30 3a f1 22 44  72 6f 70 22 3a ec 36 31  |,700:."Drop":.61|
00000a50  30 2c 37 30 30 3a f1 22  50 69 63 6b 20 75 70 22  |0,700:."Pick up"|
00000a60  3a ef 34 0d 02 3a 05 e1  0d 02 4e 0b 4a 25 3d 4a  |:.4..:....N.J%=J|
00000a70  25 2f 32 0d 02 58 18 e7  44 25 28 41 25 28 31 29  |%/2..X..D%(A%(1)|
00000a80  2b 4a 25 29 3d 31 8c 8d  44 76 42 0d 02 62 83 ef  |+J%)=1..DvB..b..|
00000a90  33 31 2c 58 31 25 2c 59  31 25 2c 31 37 2c 32 2c  |31,X1%,Y1%,17,2,|
00000aa0  32 35 31 2c 32 35 32 2c  31 30 2c 38 2c 38 2c 32  |251,252,10,8,8,2|
00000ab0  35 33 2c 32 35 34 3a e7  44 25 28 41 25 28 32 29  |53,254:.D%(A%(2)|
00000ac0  29 3d 31 ef 33 31 2c 58  25 2c 59 25 2c 31 37 2c  |)=1.31,X%,Y%,17,|
00000ad0  35 2c 32 35 31 2c 32 35  32 2c 31 30 2c 38 2c 38  |5,251,252,10,8,8|
00000ae0  2c 32 35 33 2c 32 35 34  8b ef 33 31 2c 58 25 2c  |,253,254..31,X%,|
00000af0  59 25 2c 31 37 2c 35 2c  32 35 35 2c 32 35 35 2c  |Y%,17,5,255,255,|
00000b00  31 30 2c 38 2c 38 2c 32  35 35 2c 32 35 35 0d 02  |10,8,8,255,255..|
00000b10  6c 52 e3 44 45 4c 41 59  3d 31 b8 31 30 30 30 3a  |lR.DELAY=1.1000:|
00000b20  ed 3a 42 25 3d 31 3a 41  25 28 42 25 29 3d 41 25  |.:B%=1:A%(B%)=A%|
00000b30  28 32 29 3a ef 35 3a ec  36 35 30 2c 37 30 30 3a  |(2):.5:.650,700:|
00000b40  f1 22 44 72 6f 70 22 3a  ec 36 31 30 2c 37 30 30  |."Drop":.610,700|
00000b50  3a f1 22 50 69 63 6b 20  75 70 22 3a ef 34 3a e1  |:."Pick up":.4:.|
00000b60  0d 02 80 1c e7 44 25 28  41 25 28 31 29 2b 28 4a  |.....D%(A%(1)+(J|
00000b70  25 2a 32 29 29 3d 30 8c  8d 74 5e 42 0d 02 8a 83  |%*2))=0..t^B....|
00000b80  ef 33 31 2c 58 31 25 2c  59 31 25 2c 31 37 2c 32  |.31,X1%,Y1%,17,2|
00000b90  2c 32 35 31 2c 32 35 32  2c 31 30 2c 38 2c 38 2c  |,251,252,10,8,8,|
00000ba0  32 35 33 2c 32 35 34 3a  e7 44 25 28 41 25 28 32  |253,254:.D%(A%(2|
00000bb0  29 29 3d 31 ef 33 31 2c  58 25 2c 59 25 2c 31 37  |))=1.31,X%,Y%,17|
00000bc0  2c 35 2c 32 35 31 2c 32  35 32 2c 31 30 2c 38 2c  |,5,251,252,10,8,|
00000bd0  38 2c 32 35 33 2c 32 35  34 8b ef 33 31 2c 58 25  |8,253,254..31,X%|
00000be0  2c 59 25 2c 31 37 2c 35  2c 32 35 35 2c 32 35 35  |,Y%,17,5,255,255|
00000bf0  2c 31 30 2c 38 2c 38 2c  32 35 35 2c 32 35 35 0d  |,10,8,8,255,255.|
00000c00  02 94 52 e3 44 45 4c 41  59 3d 31 b8 31 30 30 30  |..R.DELAY=1.1000|
00000c10  3a ed 3a 42 25 3d 31 3a  41 25 28 42 25 29 3d 41  |:.:B%=1:A%(B%)=A|
00000c20  25 28 32 29 3a ef 35 3a  ec 36 35 30 2c 37 30 30  |%(2):.5:.650,700|
00000c30  3a f1 22 44 72 6f 70 22  3a ec 36 31 30 2c 37 30  |:."Drop":.610,70|
00000c40  30 3a f1 22 50 69 63 6b  20 75 70 22 3a ef 34 3a  |0:."Pick up":.4:|
00000c50  e1 0d 02 a8 63 44 25 28  41 25 28 31 29 29 3d 30  |....cD%(A%(1))=0|
00000c60  3a 44 25 28 41 25 28 32  29 29 3d 31 3a ef 33 31  |:D%(A%(2))=1:.31|
00000c70  2c 58 31 25 2c 59 31 25  2c 31 37 2c 32 2c 33 32  |,X1%,Y1%,17,2,32|
00000c80  2c 33 32 2c 31 30 2c 38  2c 38 2c 33 32 2c 33 32  |,32,10,8,8,32,32|
00000c90  2c 33 31 58 25 2c 59 25  2c 31 37 2c 35 2c 32 35  |,31X%,Y%,17,5,25|
00000ca0  31 2c 32 35 32 2c 31 30  2c 38 2c 38 2c 32 35 33  |1,252,10,8,8,253|
00000cb0  2c 32 35 34 0d 02 bc 12  44 25 28 41 25 28 31 29  |,254....D%(A%(1)|
00000cc0  2b 4a 25 29 3d 30 0d 02  d0 36 4b 25 3d 30 3a e3  |+J%)=0...6K%=0:.|
00000cd0  54 4c 25 3d 31 b8 34 39  3a 4b 25 3d 4b 25 2b 44  |TL%=1.49:K%=K%+D|
00000ce0  25 28 54 4c 25 29 3a ed  3a e7 4b 25 3d 31 3a e7  |%(TL%):.:.K%=1:.|
00000cf0  44 25 28 32 35 29 3d 31  43 25 3d b9 0d 02 da 12  |D%(25)=1C%=.....|
00000d00  54 48 25 3d 28 41 25 28  31 29 2b 4a 25 29 0d 02  |TH%=(A%(1)+J%)..|
00000d10  e4 15 58 32 25 3d 28 28  54 48 25 83 37 29 2d 31  |..X2%=((TH%.7)-1|
00000d20  29 2a 32 0d 02 ee 13 59  32 25 3d 28 28 54 48 25  |)*2....Y2%=((TH%|
00000d30  81 37 29 29 2a 32 0d 02  f8 17 e7 54 48 25 3d 32  |.7))*2.....TH%=2|
00000d40  38 58 32 25 3d 31 32 3a  59 32 25 3d 36 0d 03 02  |8X2%=12:Y2%=6...|
00000d50  2a ef 33 31 2c 58 32 25  2c 59 32 25 2c 31 37 2c  |*.31,X2%,Y2%,17,|
00000d60  32 2c 33 32 2c 33 32 2c  31 30 2c 38 2c 38 2c 33  |2,32,32,10,8,8,3|
00000d70  32 2c 33 32 2c 31 31 0d  03 0c 67 42 25 3d 31 3a  |2,32,11...gB%=1:|
00000d80  ef 33 31 2c 58 25 2c 59  25 2c 31 37 2c 35 2c 32  |.31,X%,Y%,17,5,2|
00000d90  35 31 2c 32 35 32 2c 31  30 2c 38 2c 38 2c 32 35  |51,252,10,8,8,25|
00000da0  33 2c 32 35 34 3a ef 35  3a ec 36 35 30 2c 37 30  |3,254:.5:.650,70|
00000db0  30 3a f1 22 44 72 6f 70  22 3a ec 36 31 30 2c 37  |0:."Drop":.610,7|
00000dc0  30 30 3a f1 22 50 69 63  6b 20 75 70 22 3a ef 34  |00:."Pick up":.4|
00000dd0  3a 41 25 28 31 29 3d 41  25 28 32 29 3a e1 0d 03  |:A%(1)=A%(2):...|
00000de0  16 18 dd f2 50 52 49 4e  54 3a d6 63 6c 65 61 72  |....PRINT:.clear|
00000df0  3a 2a 46 58 32 31 0d 03  20 22 e3 4c 25 3d 33 b8  |:*FX21.. ".L%=3.|
00000e00  37 3a f1 8a 32 2c 4c 25  29 3b 22 59 4f 55 20 57  |7:..2,L%);"YOU W|
00000e10  4f 4e 21 21 21 22 3a ed  0d 03 2a 05 e1 0d 03 34  |ON!!!":...*....4|
00000e20  48 dd f2 52 45 47 4f 3a  f1 8a 32 2c 39 29 3b 3a  |H..REGO:..2,9);:|
00000e30  f1 22 41 4e 4f 54 48 45  52 20 47 4f 3f 22 3a f5  |."ANOTHER GO?":.|
00000e40  3a 51 24 3d be 3a fd 51  24 3d 22 59 22 84 51 24  |:Q$=.:.Q$="Y".Q$|
00000e50  3d 22 4e 22 3a e7 51 24  3d 22 59 22 8c d6 63 6c  |="N":.Q$="Y"..cl|
00000e60  65 61 72 3a f9 0d 03 3e  08 d6 21 2d 34 0d 03 48  |ear:...>..!-4..H|
00000e70  0b dd f2 43 4c 45 41 52  0d 03 52 17 73 63 72 6e  |...CLEAR..R.scrn|
00000e80  3d 26 37 30 3a 73 63 72  6e 68 69 3d 26 37 32 0d  |=&70:scrnhi=&72.|
00000e90  03 5c 0f e3 70 61 73 73  3d 30 b8 32 88 32 0d 03  |.\..pass=0.2.2..|
00000ea0  66 0b 50 25 3d 26 39 30  30 0d 03 70 0d 5b 4f 50  |f.P%=&900..p.[OP|
00000eb0  54 20 70 61 73 73 0d 03  7a 0a 2e 63 6c 65 61 72  |T pass..z..clear|
00000ec0  0d 03 84 d7 4c 44 41 26  33 35 35 3a 43 4d 50 23  |....LDA&355:CMP#|
00000ed0  33 3a 42 50 4c 20 61 6c  70 68 61 3a 4c 44 41 23  |3:BPL alpha:LDA#|
00000ee0  26 33 30 3a 53 54 41 20  73 63 72 6e 68 69 3a 4a  |&30:STA scrnhi:J|
00000ef0  4d 50 20 73 74 61 72 74  3a 2e 61 6c 70 68 61 3a  |MP start:.alpha:|
00000f00  43 4d 50 23 33 3a 42 45  51 20 74 68 72 65 65 3a  |CMP#3:BEQ three:|
00000f10  43 4d 50 23 36 3a 42 45  51 20 73 69 78 3a 43 4d  |CMP#6:BEQ six:CM|
00000f20  50 23 37 3a 42 45 51 20  73 65 76 65 6e 3a 4c 44  |P#7:BEQ seven:LD|
00000f30  41 23 26 35 38 3a 53 54  41 20 73 63 72 6e 68 69  |A#&58:STA scrnhi|
00000f40  3a 4a 4d 50 20 73 74 61  72 74 3a 2e 74 68 72 65  |:JMP start:.thre|
00000f50  65 3a 4c 44 41 23 26 34  30 3a 53 54 41 20 73 63  |e:LDA#&40:STA sc|
00000f60  72 6e 68 69 3a 4a 4d 50  20 73 74 61 72 74 3a 2e  |rnhi:JMP start:.|
00000f70  73 69 78 3a 4c 44 41 23  26 36 30 3a 53 54 41 20  |six:LDA#&60:STA |
00000f80  73 63 72 6e 68 69 3a 4a  4d 50 20 73 74 61 72 74  |scrnhi:JMP start|
00000f90  3a 2e 73 65 76 65 6e 0d  03 8e c2 4c 44 41 23 26  |:.seven....LDA#&|
00000fa0  37 43 3a 53 54 41 20 73  63 72 6e 68 69 3a 2e 73  |7C:STA scrnhi:.s|
00000fb0  74 61 72 74 3a 4c 44 58  23 30 3a 2e 73 74 61 72  |tart:LDX#0:.star|
00000fc0  74 31 3a 4c 44 41 23 30  3a 53 54 41 20 73 63 72  |t1:LDA#0:STA scr|
00000fd0  6e 3a 4c 44 41 20 73 63  72 6e 68 69 3a 53 54 41  |n:LDA scrnhi:STA|
00000fe0  20 73 63 72 6e 2b 31 3a  2e 6c 6f 6f 70 31 3a 4c  | scrn+1:.loop1:L|
00000ff0  44 59 23 30 3a 2e 6c 6f  6f 70 32 3a 4c 44 41 28  |DY#0:.loop2:LDA(|
00001000  73 63 72 6e 29 2c 59 3a  43 4c 43 3a 52 4f 52 20  |scrn),Y:CLC:ROR |
00001010  41 3a 53 54 41 28 73 63  72 6e 29 2c 59 3a 49 4e  |A:STA(scrn),Y:IN|
00001020  59 3a 43 50 59 23 30 3a  42 4e 45 20 6c 6f 6f 70  |Y:CPY#0:BNE loop|
00001030  32 3a 49 4e 43 20 73 63  72 6e 2b 31 3a 4c 44 41  |2:INC scrn+1:LDA|
00001040  20 73 63 72 6e 2b 31 3a  43 4d 50 23 26 38 30 3a  | scrn+1:CMP#&80:|
00001050  42 4e 45 20 6c 6f 6f 70  31 0d 03 98 4a 49 4e 58  |BNE loop1...JINX|
00001060  3a 43 50 58 23 38 3a 42  4e 45 20 73 74 61 72 74  |:CPX#8:BNE start|
00001070  31 3a 4c 44 41 23 33 31  3a 4a 53 52 26 46 46 45  |1:LDA#31:JSR&FFE|
00001080  45 3a 4c 44 41 23 30 3a  4a 53 52 26 46 46 45 45  |E:LDA#0:JSR&FFEE|
00001090  3a 4c 44 41 23 30 3a 4a  53 52 26 46 46 45 45 3a  |:LDA#0:JSR&FFEE:|
000010a0  52 54 53 0d 03 a2 05 5d  0d 03 ac 07 ed 3a e1 0d  |RTS....].....:..|
000010b0  ff                                                |.|
000010b1