Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_21.ADF » G/CASTLE1
G/CASTLE1
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 » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_21.ADF |
| Filename: | G/CASTLE1 |
| Read OK: | ✔ |
| File size: | 1156 bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF802B |
File contents
10REM **************************
20REM Beleaguered Castle, Part 1
30REM By R.A.Dimond
40REM (c) October 1992
50REM Version 2, June 1995
60REM **************************
70ONERRORMODE6:REPORT:PRINT" at line ";ERL:END
80MODE1:VDU23,1,0;0;0;0;
90PROCass:PROCchars
100COLOUR3:PROCdb("BELEAGUERED CASTLE",10,3)
110PRINTTAB(10,5)"~~~~~~~~~~~~~~~~~~"
120Y%=780:FORC%=1TO13
130X%=250+40*C%
140S%=C% MOD4+1
150PROCcard
160NEXT:VDU26,4
170COLOUR2:PRINTTAB(10,18)"A game of patience"TAB(9,20)"by Richard A. Dimond"
180COLOUR3:PRINTTAB(8,24)"Press SPACE to play or"TAB(9,26)"'I' for instructions"
190REPEATUNTILINKEY-99 ORINKEY-38
200IF INKEY-38 PROCinstr
210MODE6:CHAIN"CASTLE2"
220DEFPROCchars
230VDU23,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
240VDU23,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
250VDU23,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
260VDU23,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
270VDU23,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
280ENDPROC
290DEFPROCcard:suit%=S%+223:IFS%=1ORS%=3colour=1:GC=0ELSEIFS%=2ORS%=4colour=0:GC=1
300GCOL0,0:MOVEX%-4,Y%+14:DRAWX%+164,Y%+14:DRAWX%+164,Y%-201:DRAWX%-4,Y%-201:DRAWX%-4,Y%+14
310VDU5,24,X%;Y%-197;X%+160;Y%+10;:GCOL0,131:CLG
320GCOL0,colour:SOUND0,-15,4,1:MOVEX%+5,Y%-32:VDUsuit%:MOVEX%+128,Y%-134:PROCinv(suit%):VDU255
330ON C% GOSUB350,360,370,380,390,400,410,420,430,440,460,470,480,490
340ENDPROC
350MOVEX%+128,Y%-168:PROCinv(65):VDU255:PROC1(80,0):MOVEX%+5,Y%:VDU65:RETURN
360PROCc:PROC1(28,0):PROC1(132,1):RETURN
370PROCc:PROC1(28,0):PROC1(80,0):PROC1(132,1):RETURN
380PROCc:PROC2(28,0):PROC2(132,1):RETURN
390PROCc:PROC2(28,0):PROC1(80,0):PROC2(132,1):RETURN
400PROCc:PROC2(28,0):PROC2(80,0):PROC2(132,1):RETURN
410PROCc:PROC2(28,0):PROC2(80,0):PROC2(132,1):PROC1(54,0):RETURN
420PROCc:PROC2(28,0):PROC2(80,0):PROC2(132,1):PROC1(54,0):PROC1(104,1):RETURN
430PROCc:PROC2(28,0):PROC2(62,0):PROC2(94,1):PROC2(132,1):PROC1(80,0):RETURN
440MOVEX%+128,Y%-168:PROCinv(229):VDU255:MOVEX%+5,Y%:VDU229:PROC2(28,0):PROC2(62,0):PROC2(94,1):PROC2(132,1):PROC1(44,0):PROC1(116,1):RETURN
450PROC2(28,0):PROC2(62,0):PROC2(94,1):PROC2(132,1):PROC1(44,0):PROC1(116,1):RETURN
460PROCj:RETURN
470PROCq:RETURN
480PROCk:RETURN
490RETURN
500DEFPROCc:MOVEX%+5,Y%:VDU48+C%:MOVEX%+128,Y%-168:PROCinv(48+C%):VDU255:ENDPROC
510DEFPROC1(Z%,F%):MOVEX%+64,Y%-Z%:IFF% PROCinv(suit%):VDU255 ELSEVDUsuit%
520ENDPROC
530DEFPROC2(Z%,F%):MOVEX%+32,Y%-Z%:IFF% PROCinv(suit%):VDU255 ELSEVDUsuit%
540MOVEX%+96,Y%-Z%:IFF% PROCinv(suit%):VDU255 ELSEVDUsuit%
550ENDPROC
560DEFPROC5:MOVEX%+64,Y%-48:VDUsuit%:ENDPROC
570DEFPROC6:MOVEX%+64,Y%-48:VDUsuit%:MOVEX%+64,Y%-108:VDUsuit%:ENDPROC
580DEFPROC7:T$=CHR$suit%+CHR$8+CHR$10:t$=STRING$(4,T$):MOVEX%+28,Y%-26:PRINTt$:MOVEX%+100,Y%-26:PRINTt$:ENDPROC
590DEFPROC8:MOVEX%+64,Y%-48:VDUsuit%:MOVEX%+64,Y%-110:VDUsuit%:ENDPROC
600DEFPROCj:MOVEX%+1,Y%:VDU74:MOVEX%+128,Y%-168:PROCinv(74):VDU255
610MOVEX%+65,Y%-14:VDU18,0,GC,253,231,8,8,10,239,240,8,8,8,10,18,0,2,241,18,0,GC,252,18,0,2,242,8,8,8,10,18,0,GC,243,244,8,8,10,245,246:PROCdraw:ENDPROC
620DEFPROCq:MOVEX%+1,Y%:VDU81:MOVEX%+128,Y%-168:PROCinv(81):VDU255
630MOVEX%+65,Y%-14:VDU18,0,GC,247,248,8,8,10,249,250,8,8,8,10,18,0,2,241,18,0,GC,252,18,0,2,242,8,8,8,10,18,0,GC,233,234,8,8,10,235,236:PROCdraw:ENDPROC
640DEFPROCk:MOVEX%+1,Y%:VDU75:MOVEX%+128,Y%-168:PROCinv(75):VDU255:GOTO610
650DEFPROCdraw:MOVEX%+32,Y%-14:GCOL0,0:DRAWX%+130,Y%-14:DRAWX%+130,Y%-171:DRAWX%+32,Y%-171:DRAWX%+32,Y%-14
660GCOL0,colour:MOVEX%+36,Y%-35:VDUsuit%:MOVEX%+96,Y%-130:PROCinv(suit%):VDU255:ENDPROC
670DEFPROCdb(A$,X%,Y%)
680VDU31,X%,Y%:A%=10:X%=&56:Y%=0
690FORN%=1TO LENA$:?&56=ASC(MID$(A$,N%)):CALL&FFF1
700VDU23,254,?&57,?&57,?&58,?&58,?&59,?&59,?&5A,?&5A,254,8,10
710VDU23,254,?&5B,?&5B,?&5C,?&5C,?&5D,?&5D,?&5E,?&5E,254,11
720NEXT:ENDPROC
730DEFPROCass
740FORI=0TO2STEP2:P%=&900:[OPTI
750LDA#10:LDX#&56:LDY#0:JSR&FFF1
760LDY#0:.lp1 LDA&57,Y:LDX#8:.lp2
770ROR A:ROL&60:DEX:BNElp2
780LDA&60:STA&61,Y:INY:CPY#8:BNElp1
790LDX#7:LDY#0:.lp3 LDA&61,X:STA&CF8,Y:DEX:INY:CPY#8:BNElp3:RTS
800]:NEXT:ENDPROC
810DEFPROCinv(L%):?&56=L%:CALL&900:ENDPROC
820ENDPROC
830DEFPROCinstr
840CLS:COLOUR2:PROCdb("Beleaguered Castle",11,1)
850PRINTTAB(11,3)"~~~~~~~~~~~~~~~~~~"
860PRINTTAB(2,5)"You must build up each suit in order"''"on the aces from the packs A to H."
870PRINT'" You can only move the top card from"''"each stack. These may be moved :-"''" a. On to the Aces in Suit sequence."''" b. On to another stack in descending"'"sequence regardless of suit."
880PRINT'" c. On to an empty stack."''" To move - Press the keys corresponding"'"to letters or numbers of the stacks."
930PRINT'" If you are stuck, you may go back"''"up to 6 moves by pressing 'U' or"''"press ESCAPE for a new deal."
940PRINTTAB(5,31)"Press 'P' to play the game..";
950REPEATUNTILINKEY-99
960ENDPROC
� **************************
� Beleaguered Castle, Part 1
� By R.A.Dimond
(� (c) October 1992
2� Version 2, June 1995
< � **************************
F��6:�:�" at line ";�:�
P�1:�23,1,0;0;0;0;
Z�ass:�chars
d%�3:�db("BELEAGUERED CASTLE",10,3)
n �10,5)"~~~~~~~~~~~~~~~~~~"
xY%=780:�C%=1�13
�X%=250+40*C%
�S%=C% �4+1
� �card
� �:�26,4
�?�2:�10,18)"A game of patience"�9,20)"by Richard A. Dimond"
�B�3:�8,24)"Press SPACE to play or"�9,26)"'I' for instructions"
����-99 ��-38
�� �-38 �instr
��6:�"CASTLE2"
� ��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
�
"G��card:suit%=S%+223:�S%=1�S%=3colour=1:GC=0��S%=2�S%=4colour=0:GC=1
,J�0,0:�X%-4,Y%+14:�X%+164,Y%+14:�X%+164,Y%-201:�X%-4,Y%-201:�X%-4,Y%+14
6*�5,24,X%;Y%-197;X%+160;Y%+10;:�0,131:�
@K�0,colour:�0,-15,4,1:�X%+5,Y%-32:�suit%:�X%+128,Y%-134:�inv(suit%):�255
JO� C% �D^A,�DhA,�DrA,�D|A,�tFA,�tPA,�tZA,�tdA,�tnA,�txA,�dLA,�dVA,�d`A,�djA
T�
^8�X%+128,Y%-168:�inv(65):�255:�1(80,0):�X%+5,Y%:�65:�
h�c:�1(28,0):�1(132,1):�
r$�c:�1(28,0):�1(80,0):�1(132,1):�
|�c:�2(28,0):�2(132,1):�
�$�c:�2(28,0):�1(80,0):�2(132,1):�
�$�c:�2(28,0):�2(80,0):�2(132,1):�
�-�c:�2(28,0):�2(80,0):�2(132,1):�1(54,0):�
�7�c:�2(28,0):�2(80,0):�2(132,1):�1(54,0):�1(104,1):�
�6�c:�2(28,0):�2(62,0):�2(94,1):�2(132,1):�1(80,0):�
�i�X%+128,Y%-168:�inv(229):�255:�X%+5,Y%:�229:�2(28,0):�2(62,0):�2(94,1):�2(132,1):�1(44,0):�1(116,1):�
�=�2(28,0):�2(62,0):�2(94,1):�2(132,1):�1(44,0):�1(116,1):�
��j:�
��q:�
��k:�
��
�9��c:�X%+5,Y%:�48+C%:�X%+128,Y%-168:�inv(48+C%):�255:�
�8��1(Z%,F%):�X%+64,Y%-Z%:�F% �inv(suit%):�255 ��suit%
�
8��2(Z%,F%):�X%+32,Y%-Z%:�F% �inv(suit%):�255 ��suit%
-�X%+96,Y%-Z%:�F% �inv(suit%):�255 ��suit%
&�
0 ��5:�X%+64,Y%-48:�suit%:�
:2��6:�X%+64,Y%-48:�suit%:�X%+64,Y%-108:�suit%:�
DG��7:T$=�suit%+�8+�10:t$=�4,T$):�X%+28,Y%-26:�t$:�X%+100,Y%-26:�t$:�
N2��8:�X%+64,Y%-48:�suit%:�X%+64,Y%-110:�suit%:�
X1��j:�X%+1,Y%:�74:�X%+128,Y%-168:�inv(74):�255
b��X%+65,Y%-14:�18,0,GC,253,231,8,8,10,239,240,8,8,8,10,18,0,2,241,18,0,GC,252,18,0,2,242,8,8,8,10,18,0,GC,243,244,8,8,10,245,246:�draw:�
l1��q:�X%+1,Y%:�81:�X%+128,Y%-168:�inv(81):�255
v��X%+65,Y%-14:�18,0,GC,247,248,8,8,10,249,250,8,8,8,10,18,0,2,241,18,0,GC,252,18,0,2,242,8,8,8,10,18,0,GC,233,234,8,8,10,235,236:�draw:�
�7��k:�X%+1,Y%:�75:�X%+128,Y%-168:�inv(75):�255:�DbB
�T��draw:�X%+32,Y%-14:�0,0:�X%+130,Y%-14:�X%+130,Y%-171:�X%+32,Y%-171:�X%+32,Y%-14
�B�0,colour:�X%+36,Y%-35:�suit%:�X%+96,Y%-130:�inv(suit%):�255:�
���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
�:�23,254,?&5B,?&5B,?&5C,?&5C,?&5D,?&5D,?&5E,?&5E,254,11
��:�
� ��ass
��I=0�2�2:P%=&900:[OPTI
�!LDA#10:LDX#&56:LDY#0:JSR&FFF1
�"LDY#0:.lp1 LDA&57,Y:LDX#8:.lp2
ROR A:ROL&60:DEX:BNElp2
$LDA&60:STA&61,Y:INY:CPY#8:BNElp1
@LDX#7:LDY#0:.lp3 LDA&61,X:STA&CF8,Y:DEX:INY:CPY#8:BNElp3:RTS
]:�:�
* ��inv(L%):?&56=L%:�&900:�
4�
> ��instr
H'�:�2:�db("Beleaguered Castle",11,1)
R �11,3)"~~~~~~~~~~~~~~~~~~"
\V�2,5)"You must build up each suit in order"''"on the aces from the packs A to H."
f��'" You can only move the top card from"''"each stack. These may be moved :-"''" a. On to the Aces in Suit sequence."''" b. On to another stack in descending"'"sequence regardless of suit."
pw�'" c. On to an empty stack."''" To move - Press the keys corresponding"'"to letters or numbers of the stacks."
�o�'" If you are stuck, you may go back"''"up to 6 moves by pressing 'U' or"''"press ESCAPE for a new deal."
�*�5,31)"Press 'P' to play the game..";
�
���-99
��
� 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 20 f4 20 42 65 6c 65 61 67 75 65 72 65 |... . Beleaguere|
00000030 64 20 43 61 73 74 6c 65 2c 20 50 61 72 74 20 31 |d Castle, Part 1|
00000040 0d 00 1e 13 f4 20 42 79 20 52 2e 41 2e 44 69 6d |..... By R.A.Dim|
00000050 6f 6e 64 0d 00 28 16 f4 20 28 63 29 20 4f 63 74 |ond..(.. (c) Oct|
00000060 6f 62 65 72 20 31 39 39 32 0d 00 32 1a f4 20 56 |ober 1992..2.. V|
00000070 65 72 73 69 6f 6e 20 32 2c 20 4a 75 6e 65 20 31 |ersion 2, June 1|
00000080 39 39 35 0d 00 3c 20 f4 20 2a 2a 2a 2a 2a 2a 2a |995..< . *******|
00000090 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
000000a0 2a 2a 2a 0d 00 46 1b ee 85 eb 36 3a f6 3a f1 22 |***..F....6:.:."|
000000b0 20 61 74 20 6c 69 6e 65 20 22 3b 9e 3a e0 0d 00 | at line ";.:...|
000000c0 50 15 eb 31 3a ef 32 33 2c 31 2c 30 3b 30 3b 30 |P..1:.23,1,0;0;0|
000000d0 3b 30 3b 0d 00 5a 0f f2 61 73 73 3a f2 63 68 61 |;0;..Z..ass:.cha|
000000e0 72 73 0d 00 64 25 fb 33 3a f2 64 62 28 22 42 45 |rs..d%.3:.db("BE|
000000f0 4c 45 41 47 55 45 52 45 44 20 43 41 53 54 4c 45 |LEAGUERED CASTLE|
00000100 22 2c 31 30 2c 33 29 0d 00 6e 1f f1 8a 31 30 2c |",10,3)..n...10,|
00000110 35 29 22 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e |5)"~~~~~~~~~~~~~|
00000120 7e 7e 7e 7e 7e 22 0d 00 78 13 59 25 3d 37 38 30 |~~~~~"..x.Y%=780|
00000130 3a e3 43 25 3d 31 b8 31 33 0d 00 82 10 58 25 3d |:.C%=1.13....X%=|
00000140 32 35 30 2b 34 30 2a 43 25 0d 00 8c 0e 53 25 3d |250+40*C%....S%=|
00000150 43 25 20 83 34 2b 31 0d 00 96 09 f2 63 61 72 64 |C% .4+1.....card|
00000160 0d 00 a0 0b ed 3a ef 32 36 2c 34 0d 00 aa 3f fb |.....:.26,4...?.|
00000170 32 3a f1 8a 31 30 2c 31 38 29 22 41 20 67 61 6d |2:..10,18)"A gam|
00000180 65 20 6f 66 20 70 61 74 69 65 6e 63 65 22 8a 39 |e of patience".9|
00000190 2c 32 30 29 22 62 79 20 52 69 63 68 61 72 64 20 |,20)"by Richard |
000001a0 41 2e 20 44 69 6d 6f 6e 64 22 0d 00 b4 42 fb 33 |A. Dimond"...B.3|
000001b0 3a f1 8a 38 2c 32 34 29 22 50 72 65 73 73 20 53 |:..8,24)"Press S|
000001c0 50 41 43 45 20 74 6f 20 70 6c 61 79 20 6f 72 22 |PACE to play or"|
000001d0 8a 39 2c 32 36 29 22 27 49 27 20 66 6f 72 20 69 |.9,26)"'I' for i|
000001e0 6e 73 74 72 75 63 74 69 6f 6e 73 22 0d 00 be 10 |nstructions"....|
000001f0 f5 fd a6 2d 39 39 20 84 a6 2d 33 38 0d 00 c8 11 |...-99 ..-38....|
00000200 e7 20 a6 2d 33 38 20 f2 69 6e 73 74 72 0d 00 d2 |. .-38 .instr...|
00000210 11 eb 36 3a d7 22 43 41 53 54 4c 45 32 22 0d 00 |..6:."CASTLE2"..|
00000220 dc 0b dd f2 63 68 61 72 73 0d 00 e6 90 ef 32 33 |....chars.....23|
00000230 2c 32 32 34 2c 31 30 38 2c 32 35 34 2c 32 35 34 |,224,108,254,254|
00000240 2c 32 35 34 2c 31 32 34 2c 35 36 2c 31 36 2c 30 |,254,124,56,16,0|
00000250 2c 32 33 2c 32 32 35 2c 31 36 2c 35 36 2c 35 36 |,23,225,16,56,56|
00000260 2c 32 31 34 2c 32 35 34 2c 32 31 34 2c 31 36 2c |,214,254,214,16,|
00000270 35 36 2c 32 33 2c 32 32 36 2c 31 36 2c 35 36 2c |56,23,226,16,56,|
00000280 31 32 34 2c 32 35 34 2c 32 35 34 2c 31 32 34 2c |124,254,254,124,|
00000290 35 36 2c 31 36 2c 32 33 2c 32 32 37 2c 31 36 2c |56,16,23,227,16,|
000002a0 35 36 2c 31 32 34 2c 32 35 34 2c 32 35 34 2c 32 |56,124,254,254,2|
000002b0 35 34 2c 35 36 2c 31 32 34 0d 00 f0 a9 ef 32 33 |54,56,124.....23|
000002c0 2c 32 32 39 2c 32 30 36 2c 32 31 39 2c 32 31 39 |,229,206,219,219|
000002d0 2c 32 31 39 2c 32 31 39 2c 32 31 39 2c 32 30 36 |,219,219,219,206|
000002e0 2c 30 2c 32 33 2c 32 33 31 2c 32 35 34 2c 32 35 |,0,23,231,254,25|
000002f0 32 2c 38 2c 32 33 32 2c 37 32 2c 38 2c 32 34 2c |2,8,232,72,8,24,|
00000300 31 36 2c 32 33 2c 32 33 33 2c 36 34 2c 32 32 33 |16,23,233,64,223|
00000310 2c 31 39 32 2c 31 31 31 2c 35 36 2c 35 36 2c 31 |,192,111,56,56,1|
00000320 36 2c 31 36 2c 32 33 2c 32 33 34 2c 31 2c 32 34 |6,16,23,234,1,24|
00000330 33 2c 36 2c 32 35 32 2c 32 34 2c 32 31 36 2c 38 |3,6,252,24,216,8|
00000340 2c 31 33 36 2c 32 33 2c 32 33 35 2c 33 32 2c 33 |,136,23,235,32,3|
00000350 34 2c 33 39 2c 33 32 2c 33 32 2c 36 30 2c 36 32 |4,39,32,32,60,62|
00000360 2c 30 0d 00 fa a9 ef 32 33 2c 32 33 36 2c 31 33 |,0.....23,236,13|
00000370 32 2c 33 36 2c 31 31 36 2c 34 2c 34 2c 32 38 2c |2,36,116,4,4,28,|
00000380 36 30 2c 30 2c 32 33 2c 32 33 39 2c 31 36 2c 31 |60,0,23,239,16,1|
00000390 39 2c 34 38 2c 34 37 2c 33 32 2c 35 39 2c 31 39 |9,48,47,32,59,19|
000003a0 36 2c 32 32 33 2c 32 33 2c 32 34 30 2c 33 31 2c |6,223,23,240,31,|
000003b0 32 38 2c 31 35 39 2c 32 32 35 2c 37 2c 31 38 38 |28,159,225,7,188|
000003c0 2c 36 35 2c 32 34 31 2c 32 33 2c 32 34 31 2c 31 |,65,241,23,241,1|
000003d0 32 2c 31 32 2c 35 31 2c 35 31 2c 32 30 34 2c 32 |2,12,51,51,204,2|
000003e0 30 34 2c 35 31 2c 35 31 2c 32 33 2c 32 34 32 2c |04,51,51,23,242,|
000003f0 32 30 34 2c 32 30 34 2c 35 31 2c 35 31 2c 32 30 |204,204,51,51,20|
00000400 34 2c 32 30 34 2c 34 38 2c 34 38 0d 01 04 ac ef |4,204,48,48.....|
00000410 32 33 2c 32 34 33 2c 31 34 33 2c 31 33 30 2c 31 |23,243,143,130,1|
00000420 38 39 2c 32 32 34 2c 31 33 35 2c 32 33 32 2c 32 |89,224,135,232,2|
00000430 34 39 2c 35 36 2c 32 33 2c 32 34 34 2c 32 35 31 |49,56,23,244,251|
00000440 2c 33 35 2c 32 32 30 2c 34 2c 32 34 36 2c 31 32 |,35,220,4,246,12|
00000450 2c 32 30 30 2c 38 2c 32 33 2c 32 34 35 2c 38 2c |,200,8,23,245,8,|
00000460 32 34 2c 31 36 2c 31 38 2c 32 33 2c 31 36 2c 36 |24,16,18,23,16,6|
00000470 33 2c 31 32 37 2c 32 33 2c 32 34 36 2c 31 33 36 |3,127,23,246,136|
00000480 2c 31 34 30 2c 31 33 32 2c 33 36 2c 31 31 36 2c |,140,132,36,116,|
00000490 34 2c 32 35 34 2c 32 35 35 2c 32 33 2c 32 34 37 |4,254,255,23,247|
000004a0 2c 30 2c 36 30 2c 35 36 2c 33 32 2c 33 32 2c 34 |,0,60,56,32,32,4|
000004b0 36 2c 33 36 2c 33 33 0d 01 0e a8 ef 32 33 2c 32 |6,36,33.....23,2|
000004c0 34 38 2c 30 2c 31 32 34 2c 36 30 2c 34 2c 34 2c |48,0,124,60,4,4,|
000004d0 32 32 38 2c 36 38 2c 34 2c 32 33 2c 32 34 39 2c |228,68,4,23,249,|
000004e0 31 37 2c 31 36 2c 32 37 2c 32 34 2c 36 33 2c 39 |17,16,27,24,63,9|
000004f0 36 2c 32 30 37 2c 31 32 38 2c 32 33 2c 32 35 30 |6,207,128,23,250|
00000500 2c 38 2c 38 2c 31 35 36 2c 32 38 2c 32 34 36 2c |,8,8,156,28,246,|
00000510 33 2c 31 35 32 2c 32 2c 32 33 2c 32 35 32 2c 31 |3,152,2,23,252,1|
00000520 35 33 2c 31 30 32 2c 31 30 32 2c 31 35 33 2c 31 |53,102,102,153,1|
00000530 35 33 2c 31 30 32 2c 31 30 32 2c 31 35 33 2c 32 |53,102,102,153,2|
00000540 33 2c 32 35 33 2c 32 35 35 2c 31 32 37 2c 33 32 |3,253,255,127,32|
00000550 2c 34 36 2c 33 36 2c 33 33 2c 34 39 2c 31 37 0d |,46,36,33,49,17.|
00000560 01 18 05 e1 0d 01 22 47 dd f2 63 61 72 64 3a 73 |......"G..card:s|
00000570 75 69 74 25 3d 53 25 2b 32 32 33 3a e7 53 25 3d |uit%=S%+223:.S%=|
00000580 31 84 53 25 3d 33 63 6f 6c 6f 75 72 3d 31 3a 47 |1.S%=3colour=1:G|
00000590 43 3d 30 8b e7 53 25 3d 32 84 53 25 3d 34 63 6f |C=0..S%=2.S%=4co|
000005a0 6c 6f 75 72 3d 30 3a 47 43 3d 31 0d 01 2c 4a e6 |lour=0:GC=1..,J.|
000005b0 30 2c 30 3a ec 58 25 2d 34 2c 59 25 2b 31 34 3a |0,0:.X%-4,Y%+14:|
000005c0 df 58 25 2b 31 36 34 2c 59 25 2b 31 34 3a df 58 |.X%+164,Y%+14:.X|
000005d0 25 2b 31 36 34 2c 59 25 2d 32 30 31 3a df 58 25 |%+164,Y%-201:.X%|
000005e0 2d 34 2c 59 25 2d 32 30 31 3a df 58 25 2d 34 2c |-4,Y%-201:.X%-4,|
000005f0 59 25 2b 31 34 0d 01 36 2a ef 35 2c 32 34 2c 58 |Y%+14..6*.5,24,X|
00000600 25 3b 59 25 2d 31 39 37 3b 58 25 2b 31 36 30 3b |%;Y%-197;X%+160;|
00000610 59 25 2b 31 30 3b 3a e6 30 2c 31 33 31 3a da 0d |Y%+10;:.0,131:..|
00000620 01 40 4b e6 30 2c 63 6f 6c 6f 75 72 3a d4 30 2c |.@K.0,colour:.0,|
00000630 2d 31 35 2c 34 2c 31 3a ec 58 25 2b 35 2c 59 25 |-15,4,1:.X%+5,Y%|
00000640 2d 33 32 3a ef 73 75 69 74 25 3a ec 58 25 2b 31 |-32:.suit%:.X%+1|
00000650 32 38 2c 59 25 2d 31 33 34 3a f2 69 6e 76 28 73 |28,Y%-134:.inv(s|
00000660 75 69 74 25 29 3a ef 32 35 35 0d 01 4a 4f ee 20 |uit%):.255..JO. |
00000670 43 25 20 e4 8d 44 5e 41 2c 8d 44 68 41 2c 8d 44 |C% ..D^A,.DhA,.D|
00000680 72 41 2c 8d 44 7c 41 2c 8d 74 46 41 2c 8d 74 50 |rA,.D|A,.tFA,.tP|
00000690 41 2c 8d 74 5a 41 2c 8d 74 64 41 2c 8d 74 6e 41 |A,.tZA,.tdA,.tnA|
000006a0 2c 8d 74 78 41 2c 8d 64 4c 41 2c 8d 64 56 41 2c |,.txA,.dLA,.dVA,|
000006b0 8d 64 60 41 2c 8d 64 6a 41 0d 01 54 05 e1 0d 01 |.d`A,.djA..T....|
000006c0 5e 38 ec 58 25 2b 31 32 38 2c 59 25 2d 31 36 38 |^8.X%+128,Y%-168|
000006d0 3a f2 69 6e 76 28 36 35 29 3a ef 32 35 35 3a f2 |:.inv(65):.255:.|
000006e0 31 28 38 30 2c 30 29 3a ec 58 25 2b 35 2c 59 25 |1(80,0):.X%+5,Y%|
000006f0 3a ef 36 35 3a f8 0d 01 68 1b f2 63 3a f2 31 28 |:.65:...h..c:.1(|
00000700 32 38 2c 30 29 3a f2 31 28 31 33 32 2c 31 29 3a |28,0):.1(132,1):|
00000710 f8 0d 01 72 24 f2 63 3a f2 31 28 32 38 2c 30 29 |...r$.c:.1(28,0)|
00000720 3a f2 31 28 38 30 2c 30 29 3a f2 31 28 31 33 32 |:.1(80,0):.1(132|
00000730 2c 31 29 3a f8 0d 01 7c 1b f2 63 3a f2 32 28 32 |,1):...|..c:.2(2|
00000740 38 2c 30 29 3a f2 32 28 31 33 32 2c 31 29 3a f8 |8,0):.2(132,1):.|
00000750 0d 01 86 24 f2 63 3a f2 32 28 32 38 2c 30 29 3a |...$.c:.2(28,0):|
00000760 f2 31 28 38 30 2c 30 29 3a f2 32 28 31 33 32 2c |.1(80,0):.2(132,|
00000770 31 29 3a f8 0d 01 90 24 f2 63 3a f2 32 28 32 38 |1):....$.c:.2(28|
00000780 2c 30 29 3a f2 32 28 38 30 2c 30 29 3a f2 32 28 |,0):.2(80,0):.2(|
00000790 31 33 32 2c 31 29 3a f8 0d 01 9a 2d f2 63 3a f2 |132,1):....-.c:.|
000007a0 32 28 32 38 2c 30 29 3a f2 32 28 38 30 2c 30 29 |2(28,0):.2(80,0)|
000007b0 3a f2 32 28 31 33 32 2c 31 29 3a f2 31 28 35 34 |:.2(132,1):.1(54|
000007c0 2c 30 29 3a f8 0d 01 a4 37 f2 63 3a f2 32 28 32 |,0):....7.c:.2(2|
000007d0 38 2c 30 29 3a f2 32 28 38 30 2c 30 29 3a f2 32 |8,0):.2(80,0):.2|
000007e0 28 31 33 32 2c 31 29 3a f2 31 28 35 34 2c 30 29 |(132,1):.1(54,0)|
000007f0 3a f2 31 28 31 30 34 2c 31 29 3a f8 0d 01 ae 36 |:.1(104,1):....6|
00000800 f2 63 3a f2 32 28 32 38 2c 30 29 3a f2 32 28 36 |.c:.2(28,0):.2(6|
00000810 32 2c 30 29 3a f2 32 28 39 34 2c 31 29 3a f2 32 |2,0):.2(94,1):.2|
00000820 28 31 33 32 2c 31 29 3a f2 31 28 38 30 2c 30 29 |(132,1):.1(80,0)|
00000830 3a f8 0d 01 b8 69 ec 58 25 2b 31 32 38 2c 59 25 |:....i.X%+128,Y%|
00000840 2d 31 36 38 3a f2 69 6e 76 28 32 32 39 29 3a ef |-168:.inv(229):.|
00000850 32 35 35 3a ec 58 25 2b 35 2c 59 25 3a ef 32 32 |255:.X%+5,Y%:.22|
00000860 39 3a f2 32 28 32 38 2c 30 29 3a f2 32 28 36 32 |9:.2(28,0):.2(62|
00000870 2c 30 29 3a f2 32 28 39 34 2c 31 29 3a f2 32 28 |,0):.2(94,1):.2(|
00000880 31 33 32 2c 31 29 3a f2 31 28 34 34 2c 30 29 3a |132,1):.1(44,0):|
00000890 f2 31 28 31 31 36 2c 31 29 3a f8 0d 01 c2 3d f2 |.1(116,1):....=.|
000008a0 32 28 32 38 2c 30 29 3a f2 32 28 36 32 2c 30 29 |2(28,0):.2(62,0)|
000008b0 3a f2 32 28 39 34 2c 31 29 3a f2 32 28 31 33 32 |:.2(94,1):.2(132|
000008c0 2c 31 29 3a f2 31 28 34 34 2c 30 29 3a f2 31 28 |,1):.1(44,0):.1(|
000008d0 31 31 36 2c 31 29 3a f8 0d 01 cc 08 f2 6a 3a f8 |116,1):......j:.|
000008e0 0d 01 d6 08 f2 71 3a f8 0d 01 e0 08 f2 6b 3a f8 |.....q:......k:.|
000008f0 0d 01 ea 05 f8 0d 01 f4 39 dd f2 63 3a ec 58 25 |........9..c:.X%|
00000900 2b 35 2c 59 25 3a ef 34 38 2b 43 25 3a ec 58 25 |+5,Y%:.48+C%:.X%|
00000910 2b 31 32 38 2c 59 25 2d 31 36 38 3a f2 69 6e 76 |+128,Y%-168:.inv|
00000920 28 34 38 2b 43 25 29 3a ef 32 35 35 3a e1 0d 01 |(48+C%):.255:...|
00000930 fe 38 dd f2 31 28 5a 25 2c 46 25 29 3a ec 58 25 |.8..1(Z%,F%):.X%|
00000940 2b 36 34 2c 59 25 2d 5a 25 3a e7 46 25 20 f2 69 |+64,Y%-Z%:.F% .i|
00000950 6e 76 28 73 75 69 74 25 29 3a ef 32 35 35 20 8b |nv(suit%):.255 .|
00000960 ef 73 75 69 74 25 0d 02 08 05 e1 0d 02 12 38 dd |.suit%........8.|
00000970 f2 32 28 5a 25 2c 46 25 29 3a ec 58 25 2b 33 32 |.2(Z%,F%):.X%+32|
00000980 2c 59 25 2d 5a 25 3a e7 46 25 20 f2 69 6e 76 28 |,Y%-Z%:.F% .inv(|
00000990 73 75 69 74 25 29 3a ef 32 35 35 20 8b ef 73 75 |suit%):.255 ..su|
000009a0 69 74 25 0d 02 1c 2d ec 58 25 2b 39 36 2c 59 25 |it%...-.X%+96,Y%|
000009b0 2d 5a 25 3a e7 46 25 20 f2 69 6e 76 28 73 75 69 |-Z%:.F% .inv(sui|
000009c0 74 25 29 3a ef 32 35 35 20 8b ef 73 75 69 74 25 |t%):.255 ..suit%|
000009d0 0d 02 26 05 e1 0d 02 30 1d dd f2 35 3a ec 58 25 |..&....0...5:.X%|
000009e0 2b 36 34 2c 59 25 2d 34 38 3a ef 73 75 69 74 25 |+64,Y%-48:.suit%|
000009f0 3a e1 0d 02 3a 32 dd f2 36 3a ec 58 25 2b 36 34 |:...:2..6:.X%+64|
00000a00 2c 59 25 2d 34 38 3a ef 73 75 69 74 25 3a ec 58 |,Y%-48:.suit%:.X|
00000a10 25 2b 36 34 2c 59 25 2d 31 30 38 3a ef 73 75 69 |%+64,Y%-108:.sui|
00000a20 74 25 3a e1 0d 02 44 47 dd f2 37 3a 54 24 3d bd |t%:...DG..7:T$=.|
00000a30 73 75 69 74 25 2b bd 38 2b bd 31 30 3a 74 24 3d |suit%+.8+.10:t$=|
00000a40 c4 34 2c 54 24 29 3a ec 58 25 2b 32 38 2c 59 25 |.4,T$):.X%+28,Y%|
00000a50 2d 32 36 3a f1 74 24 3a ec 58 25 2b 31 30 30 2c |-26:.t$:.X%+100,|
00000a60 59 25 2d 32 36 3a f1 74 24 3a e1 0d 02 4e 32 dd |Y%-26:.t$:...N2.|
00000a70 f2 38 3a ec 58 25 2b 36 34 2c 59 25 2d 34 38 3a |.8:.X%+64,Y%-48:|
00000a80 ef 73 75 69 74 25 3a ec 58 25 2b 36 34 2c 59 25 |.suit%:.X%+64,Y%|
00000a90 2d 31 31 30 3a ef 73 75 69 74 25 3a e1 0d 02 58 |-110:.suit%:...X|
00000aa0 31 dd f2 6a 3a ec 58 25 2b 31 2c 59 25 3a ef 37 |1..j:.X%+1,Y%:.7|
00000ab0 34 3a ec 58 25 2b 31 32 38 2c 59 25 2d 31 36 38 |4:.X%+128,Y%-168|
00000ac0 3a f2 69 6e 76 28 37 34 29 3a ef 32 35 35 0d 02 |:.inv(74):.255..|
00000ad0 62 8b ec 58 25 2b 36 35 2c 59 25 2d 31 34 3a ef |b..X%+65,Y%-14:.|
00000ae0 31 38 2c 30 2c 47 43 2c 32 35 33 2c 32 33 31 2c |18,0,GC,253,231,|
00000af0 38 2c 38 2c 31 30 2c 32 33 39 2c 32 34 30 2c 38 |8,8,10,239,240,8|
00000b00 2c 38 2c 38 2c 31 30 2c 31 38 2c 30 2c 32 2c 32 |,8,8,10,18,0,2,2|
00000b10 34 31 2c 31 38 2c 30 2c 47 43 2c 32 35 32 2c 31 |41,18,0,GC,252,1|
00000b20 38 2c 30 2c 32 2c 32 34 32 2c 38 2c 38 2c 38 2c |8,0,2,242,8,8,8,|
00000b30 31 30 2c 31 38 2c 30 2c 47 43 2c 32 34 33 2c 32 |10,18,0,GC,243,2|
00000b40 34 34 2c 38 2c 38 2c 31 30 2c 32 34 35 2c 32 34 |44,8,8,10,245,24|
00000b50 36 3a f2 64 72 61 77 3a e1 0d 02 6c 31 dd f2 71 |6:.draw:...l1..q|
00000b60 3a ec 58 25 2b 31 2c 59 25 3a ef 38 31 3a ec 58 |:.X%+1,Y%:.81:.X|
00000b70 25 2b 31 32 38 2c 59 25 2d 31 36 38 3a f2 69 6e |%+128,Y%-168:.in|
00000b80 76 28 38 31 29 3a ef 32 35 35 0d 02 76 8c ec 58 |v(81):.255..v..X|
00000b90 25 2b 36 35 2c 59 25 2d 31 34 3a ef 31 38 2c 30 |%+65,Y%-14:.18,0|
00000ba0 2c 47 43 2c 32 34 37 2c 32 34 38 2c 38 2c 38 2c |,GC,247,248,8,8,|
00000bb0 31 30 2c 32 34 39 2c 32 35 30 2c 38 2c 38 2c 38 |10,249,250,8,8,8|
00000bc0 2c 31 30 2c 31 38 2c 30 2c 32 2c 32 34 31 2c 31 |,10,18,0,2,241,1|
00000bd0 38 2c 30 2c 47 43 2c 32 35 32 2c 31 38 2c 30 2c |8,0,GC,252,18,0,|
00000be0 32 2c 32 34 32 2c 38 2c 38 2c 38 2c 31 30 2c 31 |2,242,8,8,8,10,1|
00000bf0 38 2c 30 2c 47 43 2c 32 33 33 2c 32 33 34 2c 38 |8,0,GC,233,234,8|
00000c00 2c 38 2c 31 30 2c 32 33 35 2c 32 33 36 3a f2 64 |,8,10,235,236:.d|
00000c10 72 61 77 3a e1 20 0d 02 80 37 dd f2 6b 3a ec 58 |raw:. ...7..k:.X|
00000c20 25 2b 31 2c 59 25 3a ef 37 35 3a ec 58 25 2b 31 |%+1,Y%:.75:.X%+1|
00000c30 32 38 2c 59 25 2d 31 36 38 3a f2 69 6e 76 28 37 |28,Y%-168:.inv(7|
00000c40 35 29 3a ef 32 35 35 3a e5 8d 44 62 42 0d 02 8a |5):.255:..DbB...|
00000c50 54 dd f2 64 72 61 77 3a ec 58 25 2b 33 32 2c 59 |T..draw:.X%+32,Y|
00000c60 25 2d 31 34 3a e6 30 2c 30 3a df 58 25 2b 31 33 |%-14:.0,0:.X%+13|
00000c70 30 2c 59 25 2d 31 34 3a df 58 25 2b 31 33 30 2c |0,Y%-14:.X%+130,|
00000c80 59 25 2d 31 37 31 3a df 58 25 2b 33 32 2c 59 25 |Y%-171:.X%+32,Y%|
00000c90 2d 31 37 31 3a df 58 25 2b 33 32 2c 59 25 2d 31 |-171:.X%+32,Y%-1|
00000ca0 34 0d 02 94 42 e6 30 2c 63 6f 6c 6f 75 72 3a ec |4...B.0,colour:.|
00000cb0 58 25 2b 33 36 2c 59 25 2d 33 35 3a ef 73 75 69 |X%+36,Y%-35:.sui|
00000cc0 74 25 3a ec 58 25 2b 39 36 2c 59 25 2d 31 33 30 |t%:.X%+96,Y%-130|
00000cd0 3a f2 69 6e 76 28 73 75 69 74 25 29 3a ef 32 35 |:.inv(suit%):.25|
00000ce0 35 3a e1 0d 02 9e 12 dd f2 64 62 28 41 24 2c 58 |5:.......db(A$,X|
00000cf0 25 2c 59 25 29 0d 02 a8 1f ef 33 31 2c 58 25 2c |%,Y%).....31,X%,|
00000d00 59 25 3a 41 25 3d 31 30 3a 58 25 3d 26 35 36 3a |Y%:A%=10:X%=&56:|
00000d10 59 25 3d 30 0d 02 b2 25 e3 4e 25 3d 31 b8 20 a9 |Y%=0...%.N%=1. .|
00000d20 41 24 3a 3f 26 35 36 3d 97 28 c1 41 24 2c 4e 25 |A$:?&56=.(.A$,N%|
00000d30 29 29 3a d6 26 46 46 46 31 0d 02 bc 3c ef 32 33 |)):.&FFF1...<.23|
00000d40 2c 32 35 34 2c 3f 26 35 37 2c 3f 26 35 37 2c 3f |,254,?&57,?&57,?|
00000d50 26 35 38 2c 3f 26 35 38 2c 3f 26 35 39 2c 3f 26 |&58,?&58,?&59,?&|
00000d60 35 39 2c 3f 26 35 41 2c 3f 26 35 41 2c 32 35 34 |59,?&5A,?&5A,254|
00000d70 2c 38 2c 31 30 0d 02 c6 3a ef 32 33 2c 32 35 34 |,8,10...:.23,254|
00000d80 2c 3f 26 35 42 2c 3f 26 35 42 2c 3f 26 35 43 2c |,?&5B,?&5B,?&5C,|
00000d90 3f 26 35 43 2c 3f 26 35 44 2c 3f 26 35 44 2c 3f |?&5C,?&5D,?&5D,?|
00000da0 26 35 45 2c 3f 26 35 45 2c 32 35 34 2c 31 31 0d |&5E,?&5E,254,11.|
00000db0 02 d0 07 ed 3a e1 0d 02 da 09 dd f2 61 73 73 0d |....:.......ass.|
00000dc0 02 e4 1a e3 49 3d 30 b8 32 88 32 3a 50 25 3d 26 |....I=0.2.2:P%=&|
00000dd0 39 30 30 3a 5b 4f 50 54 49 0d 02 ee 21 4c 44 41 |900:[OPTI...!LDA|
00000de0 23 31 30 3a 4c 44 58 23 26 35 36 3a 4c 44 59 23 |#10:LDX#&56:LDY#|
00000df0 30 3a 4a 53 52 26 46 46 46 31 0d 02 f8 22 4c 44 |0:JSR&FFF1..."LD|
00000e00 59 23 30 3a 2e 6c 70 31 20 4c 44 41 26 35 37 2c |Y#0:.lp1 LDA&57,|
00000e10 59 3a 4c 44 58 23 38 3a 2e 6c 70 32 0d 03 02 1b |Y:LDX#8:.lp2....|
00000e20 52 4f 52 20 41 3a 52 4f 4c 26 36 30 3a 44 45 58 |ROR A:ROL&60:DEX|
00000e30 3a 42 4e 45 6c 70 32 0d 03 0c 24 4c 44 41 26 36 |:BNElp2...$LDA&6|
00000e40 30 3a 53 54 41 26 36 31 2c 59 3a 49 4e 59 3a 43 |0:STA&61,Y:INY:C|
00000e50 50 59 23 38 3a 42 4e 45 6c 70 31 0d 03 16 40 4c |PY#8:BNElp1...@L|
00000e60 44 58 23 37 3a 4c 44 59 23 30 3a 2e 6c 70 33 20 |DX#7:LDY#0:.lp3 |
00000e70 4c 44 41 26 36 31 2c 58 3a 53 54 41 26 43 46 38 |LDA&61,X:STA&CF8|
00000e80 2c 59 3a 44 45 58 3a 49 4e 59 3a 43 50 59 23 38 |,Y:DEX:INY:CPY#8|
00000e90 3a 42 4e 45 6c 70 33 3a 52 54 53 0d 03 20 09 5d |:BNElp3:RTS.. .]|
00000ea0 3a ed 3a e1 0d 03 2a 1d dd f2 69 6e 76 28 4c 25 |:.:...*...inv(L%|
00000eb0 29 3a 3f 26 35 36 3d 4c 25 3a d6 26 39 30 30 3a |):?&56=L%:.&900:|
00000ec0 e1 0d 03 34 05 e1 0d 03 3e 0b dd f2 69 6e 73 74 |...4....>...inst|
00000ed0 72 0d 03 48 27 db 3a fb 32 3a f2 64 62 28 22 42 |r..H'.:.2:.db("B|
00000ee0 65 6c 65 61 67 75 65 72 65 64 20 43 61 73 74 6c |eleaguered Castl|
00000ef0 65 22 2c 31 31 2c 31 29 0d 03 52 1f f1 8a 31 31 |e",11,1)..R...11|
00000f00 2c 33 29 22 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e 7e |,3)"~~~~~~~~~~~~|
00000f10 7e 7e 7e 7e 7e 7e 22 0d 03 5c 56 f1 8a 32 2c 35 |~~~~~~"..\V..2,5|
00000f20 29 22 59 6f 75 20 6d 75 73 74 20 62 75 69 6c 64 |)"You must build|
00000f30 20 75 70 20 65 61 63 68 20 73 75 69 74 20 69 6e | up each suit in|
00000f40 20 6f 72 64 65 72 22 27 27 22 6f 6e 20 74 68 65 | order"''"on the|
00000f50 20 61 63 65 73 20 66 72 6f 6d 20 74 68 65 20 70 | aces from the p|
00000f60 61 63 6b 73 20 41 20 74 6f 20 48 2e 22 0d 03 66 |acks A to H."..f|
00000f70 c8 f1 27 22 20 20 59 6f 75 20 63 61 6e 20 6f 6e |..'" You can on|
00000f80 6c 79 20 6d 6f 76 65 20 74 68 65 20 74 6f 70 20 |ly move the top |
00000f90 63 61 72 64 20 66 72 6f 6d 22 27 27 22 65 61 63 |card from"''"eac|
00000fa0 68 20 73 74 61 63 6b 2e 20 54 68 65 73 65 20 6d |h stack. These m|
00000fb0 61 79 20 62 65 20 6d 6f 76 65 64 20 3a 2d 22 27 |ay be moved :-"'|
00000fc0 27 22 20 20 20 20 61 2e 20 4f 6e 20 74 6f 20 74 |'" a. On to t|
00000fd0 68 65 20 41 63 65 73 20 69 6e 20 53 75 69 74 20 |he Aces in Suit |
00000fe0 73 65 71 75 65 6e 63 65 2e 22 27 27 22 20 20 20 |sequence."''" |
00000ff0 20 62 2e 20 4f 6e 20 74 6f 20 61 6e 6f 74 68 65 | b. On to anothe|
00001000 72 20 73 74 61 63 6b 20 69 6e 20 64 65 73 63 65 |r stack in desce|
00001010 6e 64 69 6e 67 22 27 22 73 65 71 75 65 6e 63 65 |nding"'"sequence|
00001020 20 72 65 67 61 72 64 6c 65 73 73 20 6f 66 20 73 | regardless of s|
00001030 75 69 74 2e 22 0d 03 70 77 f1 27 22 20 20 20 20 |uit."..pw.'" |
00001040 63 2e 20 4f 6e 20 74 6f 20 61 6e 20 65 6d 70 74 |c. On to an empt|
00001050 79 20 73 74 61 63 6b 2e 22 27 27 22 20 20 54 6f |y stack."''" To|
00001060 20 6d 6f 76 65 20 2d 20 50 72 65 73 73 20 74 68 | move - Press th|
00001070 65 20 6b 65 79 73 20 63 6f 72 72 65 73 70 6f 6e |e keys correspon|
00001080 64 69 6e 67 22 27 22 74 6f 20 6c 65 74 74 65 72 |ding"'"to letter|
00001090 73 20 6f 72 20 6e 75 6d 62 65 72 73 20 6f 66 20 |s or numbers of |
000010a0 74 68 65 20 73 74 61 63 6b 73 2e 22 0d 03 a2 6f |the stacks."...o|
000010b0 f1 27 22 20 20 49 66 20 79 6f 75 20 61 72 65 20 |.'" If you are |
000010c0 73 74 75 63 6b 2c 20 79 6f 75 20 6d 61 79 20 67 |stuck, you may g|
000010d0 6f 20 62 61 63 6b 22 27 27 22 75 70 20 74 6f 20 |o back"''"up to |
000010e0 36 20 6d 6f 76 65 73 20 62 79 20 70 72 65 73 73 |6 moves by press|
000010f0 69 6e 67 20 27 55 27 20 6f 72 22 27 27 22 70 72 |ing 'U' or"''"pr|
00001100 65 73 73 20 45 53 43 41 50 45 20 66 6f 72 20 61 |ess ESCAPE for a|
00001110 20 6e 65 77 20 64 65 61 6c 2e 22 0d 03 ac 2a f1 | new deal."...*.|
00001120 8a 35 2c 33 31 29 22 50 72 65 73 73 20 27 50 27 |.5,31)"Press 'P'|
00001130 20 74 6f 20 70 6c 61 79 20 74 68 65 20 67 61 6d | to play the gam|
00001140 65 2e 2e 22 3b 0d 03 b6 0a f5 fd a6 2d 39 39 0d |e..";.......-99.|
00001150 03 c0 05 e1 0d ff |......|
00001156 
G/CASTLE1.m0
G/CASTLE1.m1
G/CASTLE1.m2
G/CASTLE1.m4
G/CASTLE1.m5
.