Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_52.ADF » G/STREETS

G/STREETS

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_52.ADF
Filename: G/STREETS
Read OK: ✔
File size: 1598 bytes
Load address: FFFF1D00
Exec address: FFFF802B
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
   10REM ****************************
   20REM Streets And Alleys Variation
   30REM By R.A.Dimond
   40REM Version 1, June 2000
   50REM **************************
   60 
   70ONERROR IF ERR=17 RUN ELSE MODE6:REPORT:PRINT" at line ";ERL:END
   80*FX21,0
   90IF PAGE>&E00 COLOUR0:GOTO2190
  100MODE1:VDU23;8202;0;0;0;
  110VDU19,0,4;0;19,2,0;0;
  120PROCvars
  130PROCrandom
  140PROCinit
  150PROCdeal
  160REPEAT:VDU26,4
  170PROCenter
  180IFINKEY-74 GOTO240
  190PROCcheck
  200IFmv%=FALSE THEN VDU7:m$=LEFT$(m$,LENm$-2):PRINTTAB(10,30)"You can't move there!";:TIME=0:REPEATUNTILTIME>300:PRINTTAB(4,30)SPC35:OSCLI"FX15":GOTO170
  210move%=move%+1:PROCfrom:PROCto
  220IFA%(1)=13 ANDA%(2)=13 ANDA%(3)=13 ANDA%(4)=13 THENwin%=TRUE
  230UNTILINKEY-74 ORwin%=TRUE
  240IFwin%=TRUE THEN TIME=0:REPEATUNTILTIME=500:MODE6:PROCwin
  250UNTIL0 ORK$="N"
  260END
  270:
  280DEFPROCtitle
  290PRINTTAB(10,1)"STREETS AND ALLEYS"
  300PRINTTAB(10,2)STRING$(18,"~")
  310ENDPROC
  320:
  330DEFPROCvars
  340DIM N%(52),c%(52),s%(52),C%(8,16),S%(8,16),A%(4),D%(8)
  350m$="":move%=0:win%=FALSE
  360E$=CHR$254+CHR$254+CHR$254
  370ENDPROC
  380:
  390DEFPROCrandom
  400*FX15
  410PROCtitle
  420PRINTTAB(0,6)"Enter Deal No. "''"or press RETURN"'"for a random deal"
  430INPUTTAB(15,6)M%
  440IFM%=0 M%=ABS(RND(-TIME))
  450G=RND(-M%)
  460FORI%=1TO52:N%(I%)=I%:NEXT:FORI%=52 TO2STEP-1:D%=RND(I%):T%=N%(D%):N%(D%)=N%(I%):N%(I%)=T%:NEXTI%
  470RESTORE:FORi%=1TO52:READc%(i%),s%(i%):NEXT
  480CLS
  490ENDPROC
  500DATA8,1,3,2,11,4,12,1,4,2,9,1,6,2,2,3,7,3,10,3,5,2,13,2,5,1,2,4,10,2,8,2,6,1,3,1,9,4,11,3,7,2,13,4,4,3,12,2,1,3,1,1
  510DATA10,1,12,4,4,1,13,1,8,3,2,1,7,1,11,2,3,4,9,2,6,4,13,3,7,4,2,2,11,1,5,3,9,3,6,3,4,4,10,4,3,3,8,4,5,4,12,3,1,2,1,4
  520:
  530DEFPROCinit
  540PROCtitle
  550PRINTTAB(12,3)"Deal No. ";M%
  560FORn%=1TO4:A%(n%)=0:D%(n%)=7:NEXT:FORn%=5TO8:D%(n%)=6:NEXT
  570VDU5:X%=560:FORn%=1TO4:Y%=848-160*n%
  580PROCcard(0,0)
  590NEXT
  600n%=1:FORI%=1TO4:FORJ%=1TO7
  610C%(I%,J%)=c%(N%(n%)):S%(I%,J%)=s%(N%(n%)):n%=n%+1
  620NEXT:NEXT
  630FORI%=5TO8:FORJ%=1TO6
  640C%(I%,J%)=c%(N%(n%)):S%(I%,J%)=s%(N%(n%)):n%=n%+1
  650NEXT:NEXT
  660ENDPROC
  670:
  680DEFPROCfive
  690PRINT;CHR$241;CHR$8;CHR$10;CHR$240;CHR$8;CHR$10;
  700ENDPROC
  710:
  720DEFPROCcard(card%,suit%)
  730VDU5
  740IFcard%=0 PROCzero:ENDPROC
  750IF(suit%=1 ORsuit%=3) col%=1 ELSEIF(suit%=2 ORsuit%=4) col%=2
  760suit%=suit%+223
  770VDU24,X%-4;Y%-4;X%+100;Y%+132;:GCOL0,131:CLG
  780GCOL0,2:MOVEX%-4,Y%-4:DRAWX%-4,Y%+132:DRAWX%+100,Y%+132:DRAWX%+100,Y%-4:DRAWX%-4,Y%-4
  790IFcard%=1 cd%=65
  800IFcard%=11 cd%=ASC"J"
  810IFcard%=12 cd%=ASC"Q"
  820IFcard%=13 cd%=ASC"K"
  830IFcard%>1 ANDcard%<10 cd%=card%+48
  840IFcard%=10 cd%=229
  850PROCp
  860PROCpp
  870ENDPROC
  880:
  890DEFPROCp
  900MOVEX%,Y%+28:GCOL0,col%:PRINT;CHR$suit%:MOVEX%,Y%+128:PRINT;CHR$cd%
  910MOVEX%+64,Y%+28:PRINT;CHR$cd%:MOVEX%+64,Y%+128:PRINT;CHR$suit%
  920ENDPROC
  930:
  940DEFPROCpp
  950IFcard%=1 MOVEX%+32,Y%+80:PRINT;CHR$suit%:ENDPROC
  960IFcard%=2 MOVEX%+32,Y%+120:PRINT;CHR$239;:MOVEX%+32,Y%+56:PRINT;CHR$239:ENDPROC
  970IFcard%=3 MOVEX%+32,Y%+120:PRINT;CHR$239;:MOVEX%+32,Y%+88:PRINT;CHR$239;:MOVEX%+32,Y%+56:PRINT;CHR$239:ENDPROC
  980IFcard%=4 MOVEX%+32,Y%+104:PRINT;CHR$240;:MOVEX%+32,Y%+40:PRINT;CHR$240:ENDPROC
  990IFcard%=5 MOVEX%+32,Y%+104:PRINT;CHR$240;:MOVEX%+32,Y%+88:PRINT;CHR$239;:MOVEX%+32,Y%+40:PRINT;CHR$240:ENDPROC
 1000IFcard%=6 MOVEX%+32,Y%+104:PRINT;CHR$240;:MOVEX%+32,Y%+72:PRINT;CHR$240;:MOVEX%+32,Y%+40:PRINT;CHR$240:ENDPROC
 1010IFcard%=7 MOVEX%+32,Y%+104:PROCfive:MOVEX%+32,Y%+40:PRINT;CHR$240:ENDPROC
 1020IFcard%=8 MOVEX%+32,Y%+104:PRINT;CHR$241;:MOVEX%+32,Y%+72:PROCfive:ENDPROC
 1030IFcard%=9 MOVEX%+32,Y%+112:PRINT;CHR$240;:MOVEX%+32,Y%+88:PROCfive:MOVEX%+32,Y%+32:PRINT;CHR$240:ENDPROC
 1040IFcard%=10 MOVEX%+32,Y%+112:PROCfive:MOVEX%+32,Y%+66:PROCfive:ENDPROC
 1050IFcard%=11 C$=CHR$242 ELSEIFcard%=12 C$=CHR$243 ELSEIFcard%=13 C$=CHR$244
 1060IFcard%=11 D$=CHR$248+CHR$249+CHR$252 ELSEIFcard%=12 D$=CHR$248+CHR$250+CHR$252 ELSEIFcard%=13 D$=CHR$248+CHR$251+CHR$252
 1070MOVEX%+32,Y%+128:PRINTC$
 1080MOVEX%,Y%+96:PRINTCHR$245+CHR$246+CHR$247
 1090GCOL0,0:MOVEX%,Y%+64:PRINTD$:GCOL0,col%
 1100MOVEX%+32,Y%+32:PRINTCHR$253:ENDPROC
 1110:
 1120DEFPROCzero
 1130VDU24,X%-4;Y%-4;X%+96;Y%+128;:GCOL0,3:CLG
 1140MOVEX%,Y%+32:PRINTE$
 1150MOVEX%,Y%+64:PRINTE$
 1160MOVEX%,Y%+96:PRINTE$
 1170MOVEX%,Y%+128:PRINTE$
 1180ENDPROC
 1190DEFPROCdeal
 1200Y%=688:FORI%=1TO4
 1210K%=80
 1220FORJ%=1TO7:X%=K%+40*(J%-1)
 1230C%=C%(I%,J%):S%=S%(I%,J%)
 1240PROCcard(C%,S%)
 1250NEXT
 1260Y%=Y%-160
 1270NEXT
 1280Y%=688:FORI%=5TO8
 1290K%=848
 1300FORJ%=1TO6:X%=K%+40*(J%-1)
 1310C%=C%(I%,J%):S%=S%(I%,J%)
 1320PROCcard(C%,S%)
 1330NEXT
 1340Y%=Y%-160
 1350NEXT
 1360:
 1370VDU4:FORn%=1TO4:PRINTTAB(16,n%*5+3);n%:NEXT
 1380FORn%=1TO8:IFn%>4 THENx%=25:y%=n%-4 ELSEx%=1:y%=n%
 1390PRINTTAB(x%,5*y%+3)CHR$(64+n%);:NEXT
 1400ENDPROC
 1410:
 1420DEFPROCenter
 1430PRINTTAB(14,28);"Move No. ";move%
 1440PRINTTAB(6,30);"Move from? ";
 1450flag%=FALSE:PROCkey
 1460IFK$="U" ENDPROC
 1470chk=TRUE
 1480from%=a%
 1490PRINTK$
 1500PRINTTAB(26,30);"Move to? ";
 1510flag%=TRUE:PROCkey
 1520to%=a%
 1530PRINTK$
 1540FORz%=1TO100:NEXT:PRINTTAB(4,30);SPC35
 1550ENDPROC
 1560:
 1570DEFPROCkey
 1580IFflag% A$="ABCDEFGH1234" ELSE A$="ABCDEFGHU"
 1590REPEAT:a%=INSTR(A$,GET$):UNTILa%
 1600K$=MID$(A$,a%,1)
 1610IFK$="U" chk=FALSE:PROCundo:ENDPROC 
 1620m$=m$+K$
 1630ENDPROC
 1640:
 1650DEFPROCcheck:mv%=TRUE
 1660IFD%(from%)=0 mv%=FALSE:ENDPROC
 1670IFto%<9:PROCcheck2:ENDPROC
 1680IFS%(from%,D%(from%))<>(to%-8) mv%=FALSE:ENDPROC
 1690IFC%(from%,D%(from%))<>A%(to%-8)+1 mv%=FALSE:ENDPROC
 1700ENDPROC
 1710:
 1720DEFPROCcheck2
 1730IFD%(to%)=16 mv%=FALSE:ENDPROC
 1740IFD%(to%)=0 mv%=TRUE:ENDPROC
 1750IFC%(from%,D%(from%))+1<>C%(to%,D%(to%)) mv%=FALSE:ENDPROC
 1760ENDPROC
 1770:
 1780DEFPROCfrom
 1790IFfrom%>8 GOTO1920
 1800C1%=C%(from%,D%(from%)):S1%=S%(from%,D%(from%))
 1810C%(from%,D%(from%))=0:S%(from%,D%(from%))=0
 1820D%(from%)=D%(from%)-1:Z%=1
 1830IFD%(from%)>6 THENZ%=D%(from%)-6
 1840IFfrom%>4 K%=848:Y%=848-160*(from%-4) ELSEK%=80:Y%=848-160*(from%)
 1850GCOL0,128:VDU24,K%-8;Y%-8;K%+400;Y%+150;:CLG
 1860IF D%(from%)=0 GOTO1910
 1870I%=from%:FORJ%=Z%TO D%(from%):X%=K%+40*(J%-Z%)
 1880C%=C%(I%,J%):S%=S%(I%,J%)
 1890PROCcard(C%,S%)
 1900NEXT
 1910ENDPROC
 1920from%=from%-8
 1930C1%=A%(from%):S1%=from%
 1940A%(from%)=A%(from%)-1
 1950X%=560:Y%=848-160*from%
 1960C%=A%(from%):S%=from%
 1970PROCcard(C%,S%)
 1980ENDPROC
 1990:
 2000DEFPROCto
 2010IFto%>8 GOTO2120
 2020D%(to%)=D%(to%)+1:Z%=1
 2030IF D%(to%)>7 Z%=D%(to%)-6
 2040C%(to%,D%(to%))=C1%:S%(to%,D%(to%))=S1%
 2050IFto%>4 K%=848:Y%=848-160*(to%-4) ELSEK%=80:Y%=848-160*(to%)
 2060GCOL0,128:VDU24,K%-8;Y%-8;K%+400;Y%+150;:CLG
 2070I%=to%:FORJ%=Z% TO D%(to%):X%=K%+40*(J%-Z%)
 2080C%=C%(I%,J%):S%=S%(I%,J%)
 2090PROCcard(C%,S%)
 2100NEXT
 2110ENDPROC
 2120to%=to%-8
 2130A%(to%)=A%(to%)+1
 2140X%=560:Y%=848-160*to%
 2150C%=A%(to%):S%=to%
 2160PROCcard(C%,S%)
 2170ENDPROC
 2180:
 2190*K.0 *T.|MFORI%=0TO TOP-PAGE STEP4:I%!&E00=I%!PAGE:NEXT|MPAGE=&E00|MOLD|MRUN|M
 2200*FX138,0,128
 2210END
 2220:
 2230DEFPROCwin:VDU23,1,0;0;0;0;
 2240PRINTTAB(11,4)"CONGRATULATIONS!!"
 2250PRINTTAB(11,5)"-----------------"
 2260PRINTTAB(4,8)"You have completed Deal no. ";M%
 2270PRINTTAB(13,10)"in ";move%;" moves"
 2280PRINTTAB(10,14)"Another deal?  (Y/N)"
 2290REPEAT:K$=INKEY$0:UNTILK$="Y" ORK$="N"
 2300move%=0:ENDPROC


"� ****************************
"� Streets And Alleys Variation
� By R.A.Dimond
(� Version 1, June 2000
2 � **************************
< 
F'� � �=17 � � �6:�:�" at line ";�:�
P*FX21,0
Z� �>&E00 �0:�tNH
d�1:�23;8202;0;0;0;
n�19,0,4;0;19,2,0;0;
x	�vars
��random
�	�init
�	�deal
��:�26,4
�
�enter
��-74 �dp@
�
�check
�c�mv%=� � �7:m$=�m$,�m$-2):�10,30)"You can't move there!";:�=0:���>300:�4,30)�35:�"FX15":�tj@
�move%=move%+1:�from:�to
�3�A%(1)=13 �A%(2)=13 �A%(3)=13 �A%(4)=13 �win%=�
���-74 �win%=�
�!�win%=� � �=0:���=500:�6:�win
��0 �K$="N"
�
:
��title
"�10,1)"STREETS AND ALLEYS"
,�10,2)�18,"~")
6�
@:
J
��vars
T8� N%(52),c%(52),s%(52),C%(8,16),S%(8,16),A%(4),D%(8)
^m$="":move%=0:win%=�
hE$=�254+�254+�254
r�
|:
���random
�	*FX15
�
�title
�B�0,6)"Enter Deal No. "''"or press RETURN"'"for a random deal"
�
�15,6)M%
��M%=0 M%=�(�(-�))
�G=�(-M%)
�T�I%=1�52:N%(I%)=I%:�:�I%=52 �2�-1:D%=�(I%):T%=N%(D%):N%(D%)=N%(I%):N%(I%)=T%:�I%
��:�i%=1�52:�c%(i%),s%(i%):�
��
��
�t�8,1,3,2,11,4,12,1,4,2,9,1,6,2,2,3,7,3,10,3,5,2,13,2,5,1,2,4,10,2,8,2,6,1,3,1,9,4,11,3,7,2,13,4,4,3,12,2,1,3,1,1
�t�10,1,12,4,4,1,13,1,8,3,2,1,7,1,11,2,3,4,9,2,6,4,13,3,7,4,2,2,11,1,5,3,9,3,6,3,4,4,10,4,3,3,8,4,5,4,12,3,1,2,1,4
:

��init

�title
&�12,3)"Deal No. ";M%
02�n%=1�4:A%(n%)=0:D%(n%)=7:�:�n%=5�8:D%(n%)=6:�
:#�5:X%=560:�n%=1�4:Y%=848-160*n%
D�card(0,0)
N�
Xn%=1:�I%=1�4:�J%=1�7
b5C%(I%,J%)=c%(N%(n%)):S%(I%,J%)=s%(N%(n%)):n%=n%+1
l�:�
v�I%=5�8:�J%=1�6
�5C%(I%,J%)=c%(N%(n%)):S%(I%,J%)=s%(N%(n%)):n%=n%+1
��:�
��
�:
�
��five
��;�241;�8;�10;�240;�8;�10;
��
�:
���card(card%,suit%)
��5
��card%=0 �zero:�
�:�(suit%=1 �suit%=3) col%=1 ��(suit%=2 �suit%=4) col%=2
�suit%=suit%+223
)�24,X%-4;Y%-4;X%+100;Y%+132;:�0,131:�
G�0,2:�X%-4,Y%-4:�X%-4,Y%+132:�X%+100,Y%+132:�X%+100,Y%-4:�X%-4,Y%-4
�card%=1 cd%=65
 �card%=11 cd%=�"J"
*�card%=12 cd%=�"Q"
4�card%=13 cd%=�"K"
>#�card%>1 �card%<10 cd%=card%+48
H�card%=10 cd%=229
R�p
\�pp
f�
p:
z��p
�0�X%,Y%+28:�0,col%:�;�suit%:�X%,Y%+128:�;�cd%
�.�X%+64,Y%+28:�;�cd%:�X%+64,Y%+128:�;�suit%
��
�:
���pp
�$�card%=1 �X%+32,Y%+80:�;�suit%:�
�8�card%=2 �X%+32,Y%+120:�;�239;:�X%+32,Y%+56:�;�239:�
�M�card%=3 �X%+32,Y%+120:�;�239;:�X%+32,Y%+88:�;�239;:�X%+32,Y%+56:�;�239:�
�8�card%=4 �X%+32,Y%+104:�;�240;:�X%+32,Y%+40:�;�240:�
�M�card%=5 �X%+32,Y%+104:�;�240;:�X%+32,Y%+88:�;�239;:�X%+32,Y%+40:�;�240:�
�M�card%=6 �X%+32,Y%+104:�;�240;:�X%+32,Y%+72:�;�240;:�X%+32,Y%+40:�;�240:�
�6�card%=7 �X%+32,Y%+104:�five:�X%+32,Y%+40:�;�240:�
�7�card%=8 �X%+32,Y%+104:�;�241;:�X%+32,Y%+72:�five:�
K�card%=9 �X%+32,Y%+112:�;�240;:�X%+32,Y%+88:�five:�X%+32,Y%+32:�;�240:�
6�card%=10 �X%+32,Y%+112:�five:�X%+32,Y%+66:�five:�
;�card%=11 C$=�242 ��card%=12 C$=�243 ��card%=13 C$=�244
$Y�card%=11 D$=�248+�249+�252 ��card%=12 D$=�248+�250+�252 ��card%=13 D$=�248+�251+�252
.�X%+32,Y%+128:�C$
8�X%,Y%+96:�245+�246+�247
B�0,0:�X%,Y%+64:�D$:�0,col%
L�X%+32,Y%+32:�253:�
V:
`
��zero
j&�24,X%-4;Y%-4;X%+96;Y%+128;:�0,3:�
t�X%,Y%+32:�E$
~�X%,Y%+64:�E$
��X%,Y%+96:�E$
��X%,Y%+128:�E$
��
�
��deal
�Y%=688:�I%=1�4
�	K%=80
��J%=1�7:X%=K%+40*(J%-1)
�C%=C%(I%,J%):S%=S%(I%,J%)
��card(C%,S%)
��
�
Y%=Y%-160
��
Y%=688:�I%=5�8


K%=848
�J%=1�6:X%=K%+40*(J%-1)
C%=C%(I%,J%):S%=S%(I%,J%)
(�card(C%,S%)
2�
<
Y%=Y%-160
F�
P:
Z �4:�n%=1�4:�16,n%*5+3);n%:�
d,�n%=1�8:�n%>4 �x%=25:y%=n%-4 �x%=1:y%=n%
n�x%,5*y%+3)�(64+n%);:�
x�
�:
���enter
��14,28);"Move No. ";move%
��6,30);"Move from? ";
�flag%=�:�key
�
�K$="U" �
�	chk=�
�from%=a%
��K$
��26,30);"Move to? ";
�flag%=�:�key
�
to%=a%
��K$
�z%=1�100:�:�4,30);�35
�
:
"	��key
,-�flag% A$="ABCDEFGH1234" � A$="ABCDEFGHU"
6�:a%=�A$,�):�a%
@K$=�A$,a%,1)
J�K$="U" chk=�:�undo:� 
Tm$=m$+K$
^�
h:
r��check:mv%=�
|�D%(from%)=0 mv%=�:�
��to%<9:�check2:�
�)�S%(from%,D%(from%))<>(to%-8) mv%=�:�
�-�C%(from%,D%(from%))<>A%(to%-8)+1 mv%=�:�
��
�:
���check2
��D%(to%)=16 mv%=�:�
��D%(to%)=0 mv%=�:�
�3�C%(from%,D%(from%))+1<>C%(to%,D%(to%)) mv%=�:�
��
�:
�
��from
��from%>8 �t@G
3C1%=C%(from%,D%(from%)):S1%=S%(from%,D%(from%))
/C%(from%,D%(from%))=0:S%(from%,D%(from%))=0
D%(from%)=D%(from%)-1:Z%=1
& �D%(from%)>6 �Z%=D%(from%)-6
0B�from%>4 K%=848:Y%=848-160*(from%-4) �K%=80:Y%=848-160*(from%)
:)�0,128:�24,K%-8;Y%-8;K%+400;Y%+150;:�
D� D%(from%)=0 �DvG
N/I%=from%:�J%=Z%� D%(from%):X%=K%+40*(J%-Z%)
XC%=C%(I%,J%):S%=S%(I%,J%)
b�card(C%,S%)
l�
v�
�from%=from%-8
�C1%=A%(from%):S1%=from%
�A%(from%)=A%(from%)-1
�X%=560:Y%=848-160*from%
�C%=A%(from%):S%=from%
��card(C%,S%)
��
�:
���to
��to%>8 �DHH
�D%(to%)=D%(to%)+1:Z%=1
�� D%(to%)>7 Z%=D%(to%)-6
�+C%(to%,D%(to%))=C1%:S%(to%,D%(to%))=S1%
<�to%>4 K%=848:Y%=848-160*(to%-4) �K%=80:Y%=848-160*(to%)
)�0,128:�24,K%-8;Y%-8;K%+400;Y%+150;:�
,I%=to%:�J%=Z% � D%(to%):X%=K%+40*(J%-Z%)
 C%=C%(I%,J%):S%=S%(I%,J%)
*�card(C%,S%)
4�
>�
H
to%=to%-8
RA%(to%)=A%(to%)+1
\X%=560:Y%=848-160*to%
fC%=A%(to%):S%=to%
p�card(C%,S%)
z�
�:
�R*K.0 *T.|MFORI%=0TO TOP-PAGE STEP4:I%!&E00=I%!PAGE:NEXT|MPAGE=&E00|MOLD|MRUN|M
�*FX138,0,128
��
�:
���win:�23,1,0;0;0;0;
��11,4)"CONGRATULATIONS!!"
��11,5)"-----------------"
�+�4,8)"You have completed Deal no. ";M%
� �13,10)"in ";move%;" moves"
�"�10,14)"Another deal?  (Y/N)"
��:K$=�0:�K$="Y" �K$="N"
�
move%=0:�
�
00000000  0d 00 0a 22 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  2a 2a 0d 00 14 22 f4 20  53 74 72 65 65 74 73 20  |**...". Streets |
00000030  41 6e 64 20 41 6c 6c 65  79 73 20 56 61 72 69 61  |And Alleys Varia|
00000040  74 69 6f 6e 0d 00 1e 13  f4 20 42 79 20 52 2e 41  |tion..... By R.A|
00000050  2e 44 69 6d 6f 6e 64 0d  00 28 1a f4 20 56 65 72  |.Dimond..(.. Ver|
00000060  73 69 6f 6e 20 31 2c 20  4a 75 6e 65 20 32 30 30  |sion 1, June 200|
00000070  30 0d 00 32 20 f4 20 2a  2a 2a 2a 2a 2a 2a 2a 2a  |0..2 . *********|
00000080  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000090  2a 0d 00 3c 05 20 0d 00  46 27 ee 85 20 e7 20 9f  |*..<. ..F'.. . .|
000000a0  3d 31 37 20 f9 20 8b 20  eb 36 3a f6 3a f1 22 20  |=17 . . .6:.:." |
000000b0  61 74 20 6c 69 6e 65 20  22 3b 9e 3a e0 0d 00 50  |at line ";.:...P|
000000c0  0b 2a 46 58 32 31 2c 30  0d 00 5a 15 e7 20 90 3e  |.*FX21,0..Z.. .>|
000000d0  26 45 30 30 20 fb 30 3a  e5 8d 74 4e 48 0d 00 64  |&E00 .0:..tNH..d|
000000e0  16 eb 31 3a ef 32 33 3b  38 32 30 32 3b 30 3b 30  |..1:.23;8202;0;0|
000000f0  3b 30 3b 0d 00 6e 17 ef  31 39 2c 30 2c 34 3b 30  |;0;..n..19,0,4;0|
00000100  3b 31 39 2c 32 2c 30 3b  30 3b 0d 00 78 09 f2 76  |;19,2,0;0;..x..v|
00000110  61 72 73 0d 00 82 0b f2  72 61 6e 64 6f 6d 0d 00  |ars.....random..|
00000120  8c 09 f2 69 6e 69 74 0d  00 96 09 f2 64 65 61 6c  |...init.....deal|
00000130  0d 00 a0 0b f5 3a ef 32  36 2c 34 0d 00 aa 0a f2  |.....:.26,4.....|
00000140  65 6e 74 65 72 0d 00 b4  0f e7 a6 2d 37 34 20 e5  |enter......-74 .|
00000150  8d 64 70 40 0d 00 be 0a  f2 63 68 65 63 6b 0d 00  |.dp@.....check..|
00000160  c8 63 e7 6d 76 25 3d a3  20 8c 20 ef 37 3a 6d 24  |.c.mv%=. . .7:m$|
00000170  3d c0 6d 24 2c a9 6d 24  2d 32 29 3a f1 8a 31 30  |=.m$,.m$-2):..10|
00000180  2c 33 30 29 22 59 6f 75  20 63 61 6e 27 74 20 6d  |,30)"You can't m|
00000190  6f 76 65 20 74 68 65 72  65 21 22 3b 3a d1 3d 30  |ove there!";:.=0|
000001a0  3a f5 fd 91 3e 33 30 30  3a f1 8a 34 2c 33 30 29  |:...>300:..4,30)|
000001b0  89 33 35 3a ff 22 46 58  31 35 22 3a e5 8d 74 6a  |.35:."FX15":..tj|
000001c0  40 0d 00 d2 1b 6d 6f 76  65 25 3d 6d 6f 76 65 25  |@....move%=move%|
000001d0  2b 31 3a f2 66 72 6f 6d  3a f2 74 6f 0d 00 dc 33  |+1:.from:.to...3|
000001e0  e7 41 25 28 31 29 3d 31  33 20 80 41 25 28 32 29  |.A%(1)=13 .A%(2)|
000001f0  3d 31 33 20 80 41 25 28  33 29 3d 31 33 20 80 41  |=13 .A%(3)=13 .A|
00000200  25 28 34 29 3d 31 33 20  8c 77 69 6e 25 3d b9 0d  |%(4)=13 .win%=..|
00000210  00 e6 11 fd a6 2d 37 34  20 84 77 69 6e 25 3d b9  |.....-74 .win%=.|
00000220  0d 00 f0 21 e7 77 69 6e  25 3d b9 20 8c 20 d1 3d  |...!.win%=. . .=|
00000230  30 3a f5 fd 91 3d 35 30  30 3a eb 36 3a f2 77 69  |0:...=500:.6:.wi|
00000240  6e 0d 00 fa 0e fd 30 20  84 4b 24 3d 22 4e 22 0d  |n.....0 .K$="N".|
00000250  01 04 05 e0 0d 01 0e 05  3a 0d 01 18 0b dd f2 74  |........:......t|
00000260  69 74 6c 65 0d 01 22 1f  f1 8a 31 30 2c 31 29 22  |itle.."...10,1)"|
00000270  53 54 52 45 45 54 53 20  41 4e 44 20 41 4c 4c 45  |STREETS AND ALLE|
00000280  59 53 22 0d 01 2c 13 f1  8a 31 30 2c 32 29 c4 31  |YS"..,...10,2).1|
00000290  38 2c 22 7e 22 29 0d 01  36 05 e1 0d 01 40 05 3a  |8,"~")..6....@.:|
000002a0  0d 01 4a 0a dd f2 76 61  72 73 0d 01 54 38 de 20  |..J...vars..T8. |
000002b0  4e 25 28 35 32 29 2c 63  25 28 35 32 29 2c 73 25  |N%(52),c%(52),s%|
000002c0  28 35 32 29 2c 43 25 28  38 2c 31 36 29 2c 53 25  |(52),C%(8,16),S%|
000002d0  28 38 2c 31 36 29 2c 41  25 28 34 29 2c 44 25 28  |(8,16),A%(4),D%(|
000002e0  38 29 0d 01 5e 18 6d 24  3d 22 22 3a 6d 6f 76 65  |8)..^.m$="":move|
000002f0  25 3d 30 3a 77 69 6e 25  3d a3 0d 01 68 15 45 24  |%=0:win%=...h.E$|
00000300  3d bd 32 35 34 2b bd 32  35 34 2b bd 32 35 34 0d  |=.254+.254+.254.|
00000310  01 72 05 e1 0d 01 7c 05  3a 0d 01 86 0c dd f2 72  |.r....|.:......r|
00000320  61 6e 64 6f 6d 0d 01 90  09 2a 46 58 31 35 0d 01  |andom....*FX15..|
00000330  9a 0a f2 74 69 74 6c 65  0d 01 a4 42 f1 8a 30 2c  |...title...B..0,|
00000340  36 29 22 45 6e 74 65 72  20 44 65 61 6c 20 4e 6f  |6)"Enter Deal No|
00000350  2e 20 22 27 27 22 6f 72  20 70 72 65 73 73 20 52  |. "''"or press R|
00000360  45 54 55 52 4e 22 27 22  66 6f 72 20 61 20 72 61  |ETURN"'"for a ra|
00000370  6e 64 6f 6d 20 64 65 61  6c 22 0d 01 ae 0d e8 8a  |ndom deal"......|
00000380  31 35 2c 36 29 4d 25 0d  01 b8 15 e7 4d 25 3d 30  |15,6)M%.....M%=0|
00000390  20 4d 25 3d 94 28 b3 28  2d 91 29 29 0d 01 c2 0c  | M%=.(.(-.))....|
000003a0  47 3d b3 28 2d 4d 25 29  0d 01 cc 54 e3 49 25 3d  |G=.(-M%)...T.I%=|
000003b0  31 b8 35 32 3a 4e 25 28  49 25 29 3d 49 25 3a ed  |1.52:N%(I%)=I%:.|
000003c0  3a e3 49 25 3d 35 32 20  b8 32 88 2d 31 3a 44 25  |:.I%=52 .2.-1:D%|
000003d0  3d b3 28 49 25 29 3a 54  25 3d 4e 25 28 44 25 29  |=.(I%):T%=N%(D%)|
000003e0  3a 4e 25 28 44 25 29 3d  4e 25 28 49 25 29 3a 4e  |:N%(D%)=N%(I%):N|
000003f0  25 28 49 25 29 3d 54 25  3a ed 49 25 0d 01 d6 1f  |%(I%)=T%:.I%....|
00000400  f7 3a e3 69 25 3d 31 b8  35 32 3a f3 63 25 28 69  |.:.i%=1.52:.c%(i|
00000410  25 29 2c 73 25 28 69 25  29 3a ed 0d 01 e0 05 db  |%),s%(i%):......|
00000420  0d 01 ea 05 e1 0d 01 f4  74 dc 38 2c 31 2c 33 2c  |........t.8,1,3,|
00000430  32 2c 31 31 2c 34 2c 31  32 2c 31 2c 34 2c 32 2c  |2,11,4,12,1,4,2,|
00000440  39 2c 31 2c 36 2c 32 2c  32 2c 33 2c 37 2c 33 2c  |9,1,6,2,2,3,7,3,|
00000450  31 30 2c 33 2c 35 2c 32  2c 31 33 2c 32 2c 35 2c  |10,3,5,2,13,2,5,|
00000460  31 2c 32 2c 34 2c 31 30  2c 32 2c 38 2c 32 2c 36  |1,2,4,10,2,8,2,6|
00000470  2c 31 2c 33 2c 31 2c 39  2c 34 2c 31 31 2c 33 2c  |,1,3,1,9,4,11,3,|
00000480  37 2c 32 2c 31 33 2c 34  2c 34 2c 33 2c 31 32 2c  |7,2,13,4,4,3,12,|
00000490  32 2c 31 2c 33 2c 31 2c  31 0d 01 fe 74 dc 31 30  |2,1,3,1,1...t.10|
000004a0  2c 31 2c 31 32 2c 34 2c  34 2c 31 2c 31 33 2c 31  |,1,12,4,4,1,13,1|
000004b0  2c 38 2c 33 2c 32 2c 31  2c 37 2c 31 2c 31 31 2c  |,8,3,2,1,7,1,11,|
000004c0  32 2c 33 2c 34 2c 39 2c  32 2c 36 2c 34 2c 31 33  |2,3,4,9,2,6,4,13|
000004d0  2c 33 2c 37 2c 34 2c 32  2c 32 2c 31 31 2c 31 2c  |,3,7,4,2,2,11,1,|
000004e0  35 2c 33 2c 39 2c 33 2c  36 2c 33 2c 34 2c 34 2c  |5,3,9,3,6,3,4,4,|
000004f0  31 30 2c 34 2c 33 2c 33  2c 38 2c 34 2c 35 2c 34  |10,4,3,3,8,4,5,4|
00000500  2c 31 32 2c 33 2c 31 2c  32 2c 31 2c 34 0d 02 08  |,12,3,1,2,1,4...|
00000510  05 3a 0d 02 12 0a dd f2  69 6e 69 74 0d 02 1c 0a  |.:......init....|
00000520  f2 74 69 74 6c 65 0d 02  26 19 f1 8a 31 32 2c 33  |.title..&...12,3|
00000530  29 22 44 65 61 6c 20 4e  6f 2e 20 22 3b 4d 25 0d  |)"Deal No. ";M%.|
00000540  02 30 32 e3 6e 25 3d 31  b8 34 3a 41 25 28 6e 25  |.02.n%=1.4:A%(n%|
00000550  29 3d 30 3a 44 25 28 6e  25 29 3d 37 3a ed 3a e3  |)=0:D%(n%)=7:.:.|
00000560  6e 25 3d 35 b8 38 3a 44  25 28 6e 25 29 3d 36 3a  |n%=5.8:D%(n%)=6:|
00000570  ed 0d 02 3a 23 ef 35 3a  58 25 3d 35 36 30 3a e3  |...:#.5:X%=560:.|
00000580  6e 25 3d 31 b8 34 3a 59  25 3d 38 34 38 2d 31 36  |n%=1.4:Y%=848-16|
00000590  30 2a 6e 25 0d 02 44 0e  f2 63 61 72 64 28 30 2c  |0*n%..D..card(0,|
000005a0  30 29 0d 02 4e 05 ed 0d  02 58 18 6e 25 3d 31 3a  |0)..N....X.n%=1:|
000005b0  e3 49 25 3d 31 b8 34 3a  e3 4a 25 3d 31 b8 37 0d  |.I%=1.4:.J%=1.7.|
000005c0  02 62 35 43 25 28 49 25  2c 4a 25 29 3d 63 25 28  |.b5C%(I%,J%)=c%(|
000005d0  4e 25 28 6e 25 29 29 3a  53 25 28 49 25 2c 4a 25  |N%(n%)):S%(I%,J%|
000005e0  29 3d 73 25 28 4e 25 28  6e 25 29 29 3a 6e 25 3d  |)=s%(N%(n%)):n%=|
000005f0  6e 25 2b 31 0d 02 6c 07  ed 3a ed 0d 02 76 13 e3  |n%+1..l..:...v..|
00000600  49 25 3d 35 b8 38 3a e3  4a 25 3d 31 b8 36 0d 02  |I%=5.8:.J%=1.6..|
00000610  80 35 43 25 28 49 25 2c  4a 25 29 3d 63 25 28 4e  |.5C%(I%,J%)=c%(N|
00000620  25 28 6e 25 29 29 3a 53  25 28 49 25 2c 4a 25 29  |%(n%)):S%(I%,J%)|
00000630  3d 73 25 28 4e 25 28 6e  25 29 29 3a 6e 25 3d 6e  |=s%(N%(n%)):n%=n|
00000640  25 2b 31 0d 02 8a 07 ed  3a ed 0d 02 94 05 e1 0d  |%+1.....:.......|
00000650  02 9e 05 3a 0d 02 a8 0a  dd f2 66 69 76 65 0d 02  |...:......five..|
00000660  b2 1e f1 3b bd 32 34 31  3b bd 38 3b bd 31 30 3b  |...;.241;.8;.10;|
00000670  bd 32 34 30 3b bd 38 3b  bd 31 30 3b 0d 02 bc 05  |.240;.8;.10;....|
00000680  e1 0d 02 c6 05 3a 0d 02  d0 17 dd f2 63 61 72 64  |.....:......card|
00000690  28 63 61 72 64 25 2c 73  75 69 74 25 29 0d 02 da  |(card%,suit%)...|
000006a0  06 ef 35 0d 02 e4 14 e7  63 61 72 64 25 3d 30 20  |..5.....card%=0 |
000006b0  f2 7a 65 72 6f 3a e1 0d  02 ee 3a e7 28 73 75 69  |.zero:....:.(sui|
000006c0  74 25 3d 31 20 84 73 75  69 74 25 3d 33 29 20 63  |t%=1 .suit%=3) c|
000006d0  6f 6c 25 3d 31 20 8b e7  28 73 75 69 74 25 3d 32  |ol%=1 ..(suit%=2|
000006e0  20 84 73 75 69 74 25 3d  34 29 20 63 6f 6c 25 3d  | .suit%=4) col%=|
000006f0  32 0d 02 f8 13 73 75 69  74 25 3d 73 75 69 74 25  |2....suit%=suit%|
00000700  2b 32 32 33 0d 03 02 29  ef 32 34 2c 58 25 2d 34  |+223...).24,X%-4|
00000710  3b 59 25 2d 34 3b 58 25  2b 31 30 30 3b 59 25 2b  |;Y%-4;X%+100;Y%+|
00000720  31 33 32 3b 3a e6 30 2c  31 33 31 3a da 0d 03 0c  |132;:.0,131:....|
00000730  47 e6 30 2c 32 3a ec 58  25 2d 34 2c 59 25 2d 34  |G.0,2:.X%-4,Y%-4|
00000740  3a df 58 25 2d 34 2c 59  25 2b 31 33 32 3a df 58  |:.X%-4,Y%+132:.X|
00000750  25 2b 31 30 30 2c 59 25  2b 31 33 32 3a df 58 25  |%+100,Y%+132:.X%|
00000760  2b 31 30 30 2c 59 25 2d  34 3a df 58 25 2d 34 2c  |+100,Y%-4:.X%-4,|
00000770  59 25 2d 34 0d 03 16 13  e7 63 61 72 64 25 3d 31  |Y%-4.....card%=1|
00000780  20 63 64 25 3d 36 35 0d  03 20 16 e7 63 61 72 64  | cd%=65.. ..card|
00000790  25 3d 31 31 20 63 64 25  3d 97 22 4a 22 0d 03 2a  |%=11 cd%=."J"..*|
000007a0  16 e7 63 61 72 64 25 3d  31 32 20 63 64 25 3d 97  |..card%=12 cd%=.|
000007b0  22 51 22 0d 03 34 16 e7  63 61 72 64 25 3d 31 33  |"Q"..4..card%=13|
000007c0  20 63 64 25 3d 97 22 4b  22 0d 03 3e 23 e7 63 61  | cd%=."K"..>#.ca|
000007d0  72 64 25 3e 31 20 80 63  61 72 64 25 3c 31 30 20  |rd%>1 .card%<10 |
000007e0  63 64 25 3d 63 61 72 64  25 2b 34 38 0d 03 48 15  |cd%=card%+48..H.|
000007f0  e7 63 61 72 64 25 3d 31  30 20 63 64 25 3d 32 32  |.card%=10 cd%=22|
00000800  39 0d 03 52 06 f2 70 0d  03 5c 07 f2 70 70 0d 03  |9..R..p..\..pp..|
00000810  66 05 e1 0d 03 70 05 3a  0d 03 7a 07 dd f2 70 0d  |f....p.:..z...p.|
00000820  03 84 30 ec 58 25 2c 59  25 2b 32 38 3a e6 30 2c  |..0.X%,Y%+28:.0,|
00000830  63 6f 6c 25 3a f1 3b bd  73 75 69 74 25 3a ec 58  |col%:.;.suit%:.X|
00000840  25 2c 59 25 2b 31 32 38  3a f1 3b bd 63 64 25 0d  |%,Y%+128:.;.cd%.|
00000850  03 8e 2e ec 58 25 2b 36  34 2c 59 25 2b 32 38 3a  |....X%+64,Y%+28:|
00000860  f1 3b bd 63 64 25 3a ec  58 25 2b 36 34 2c 59 25  |.;.cd%:.X%+64,Y%|
00000870  2b 31 32 38 3a f1 3b bd  73 75 69 74 25 0d 03 98  |+128:.;.suit%...|
00000880  05 e1 0d 03 a2 05 3a 0d  03 ac 08 dd f2 70 70 0d  |......:......pp.|
00000890  03 b6 24 e7 63 61 72 64  25 3d 31 20 ec 58 25 2b  |..$.card%=1 .X%+|
000008a0  33 32 2c 59 25 2b 38 30  3a f1 3b bd 73 75 69 74  |32,Y%+80:.;.suit|
000008b0  25 3a e1 0d 03 c0 38 e7  63 61 72 64 25 3d 32 20  |%:....8.card%=2 |
000008c0  ec 58 25 2b 33 32 2c 59  25 2b 31 32 30 3a f1 3b  |.X%+32,Y%+120:.;|
000008d0  bd 32 33 39 3b 3a ec 58  25 2b 33 32 2c 59 25 2b  |.239;:.X%+32,Y%+|
000008e0  35 36 3a f1 3b bd 32 33  39 3a e1 0d 03 ca 4d e7  |56:.;.239:....M.|
000008f0  63 61 72 64 25 3d 33 20  ec 58 25 2b 33 32 2c 59  |card%=3 .X%+32,Y|
00000900  25 2b 31 32 30 3a f1 3b  bd 32 33 39 3b 3a ec 58  |%+120:.;.239;:.X|
00000910  25 2b 33 32 2c 59 25 2b  38 38 3a f1 3b bd 32 33  |%+32,Y%+88:.;.23|
00000920  39 3b 3a ec 58 25 2b 33  32 2c 59 25 2b 35 36 3a  |9;:.X%+32,Y%+56:|
00000930  f1 3b bd 32 33 39 3a e1  0d 03 d4 38 e7 63 61 72  |.;.239:....8.car|
00000940  64 25 3d 34 20 ec 58 25  2b 33 32 2c 59 25 2b 31  |d%=4 .X%+32,Y%+1|
00000950  30 34 3a f1 3b bd 32 34  30 3b 3a ec 58 25 2b 33  |04:.;.240;:.X%+3|
00000960  32 2c 59 25 2b 34 30 3a  f1 3b bd 32 34 30 3a e1  |2,Y%+40:.;.240:.|
00000970  0d 03 de 4d e7 63 61 72  64 25 3d 35 20 ec 58 25  |...M.card%=5 .X%|
00000980  2b 33 32 2c 59 25 2b 31  30 34 3a f1 3b bd 32 34  |+32,Y%+104:.;.24|
00000990  30 3b 3a ec 58 25 2b 33  32 2c 59 25 2b 38 38 3a  |0;:.X%+32,Y%+88:|
000009a0  f1 3b bd 32 33 39 3b 3a  ec 58 25 2b 33 32 2c 59  |.;.239;:.X%+32,Y|
000009b0  25 2b 34 30 3a f1 3b bd  32 34 30 3a e1 0d 03 e8  |%+40:.;.240:....|
000009c0  4d e7 63 61 72 64 25 3d  36 20 ec 58 25 2b 33 32  |M.card%=6 .X%+32|
000009d0  2c 59 25 2b 31 30 34 3a  f1 3b bd 32 34 30 3b 3a  |,Y%+104:.;.240;:|
000009e0  ec 58 25 2b 33 32 2c 59  25 2b 37 32 3a f1 3b bd  |.X%+32,Y%+72:.;.|
000009f0  32 34 30 3b 3a ec 58 25  2b 33 32 2c 59 25 2b 34  |240;:.X%+32,Y%+4|
00000a00  30 3a f1 3b bd 32 34 30  3a e1 0d 03 f2 36 e7 63  |0:.;.240:....6.c|
00000a10  61 72 64 25 3d 37 20 ec  58 25 2b 33 32 2c 59 25  |ard%=7 .X%+32,Y%|
00000a20  2b 31 30 34 3a f2 66 69  76 65 3a ec 58 25 2b 33  |+104:.five:.X%+3|
00000a30  32 2c 59 25 2b 34 30 3a  f1 3b bd 32 34 30 3a e1  |2,Y%+40:.;.240:.|
00000a40  0d 03 fc 37 e7 63 61 72  64 25 3d 38 20 ec 58 25  |...7.card%=8 .X%|
00000a50  2b 33 32 2c 59 25 2b 31  30 34 3a f1 3b bd 32 34  |+32,Y%+104:.;.24|
00000a60  31 3b 3a ec 58 25 2b 33  32 2c 59 25 2b 37 32 3a  |1;:.X%+32,Y%+72:|
00000a70  f2 66 69 76 65 3a e1 0d  04 06 4b e7 63 61 72 64  |.five:....K.card|
00000a80  25 3d 39 20 ec 58 25 2b  33 32 2c 59 25 2b 31 31  |%=9 .X%+32,Y%+11|
00000a90  32 3a f1 3b bd 32 34 30  3b 3a ec 58 25 2b 33 32  |2:.;.240;:.X%+32|
00000aa0  2c 59 25 2b 38 38 3a f2  66 69 76 65 3a ec 58 25  |,Y%+88:.five:.X%|
00000ab0  2b 33 32 2c 59 25 2b 33  32 3a f1 3b bd 32 34 30  |+32,Y%+32:.;.240|
00000ac0  3a e1 0d 04 10 36 e7 63  61 72 64 25 3d 31 30 20  |:....6.card%=10 |
00000ad0  ec 58 25 2b 33 32 2c 59  25 2b 31 31 32 3a f2 66  |.X%+32,Y%+112:.f|
00000ae0  69 76 65 3a ec 58 25 2b  33 32 2c 59 25 2b 36 36  |ive:.X%+32,Y%+66|
00000af0  3a f2 66 69 76 65 3a e1  0d 04 1a 3b e7 63 61 72  |:.five:....;.car|
00000b00  64 25 3d 31 31 20 43 24  3d bd 32 34 32 20 8b e7  |d%=11 C$=.242 ..|
00000b10  63 61 72 64 25 3d 31 32  20 43 24 3d bd 32 34 33  |card%=12 C$=.243|
00000b20  20 8b e7 63 61 72 64 25  3d 31 33 20 43 24 3d bd  | ..card%=13 C$=.|
00000b30  32 34 34 0d 04 24 59 e7  63 61 72 64 25 3d 31 31  |244..$Y.card%=11|
00000b40  20 44 24 3d bd 32 34 38  2b bd 32 34 39 2b bd 32  | D$=.248+.249+.2|
00000b50  35 32 20 8b e7 63 61 72  64 25 3d 31 32 20 44 24  |52 ..card%=12 D$|
00000b60  3d bd 32 34 38 2b bd 32  35 30 2b bd 32 35 32 20  |=.248+.250+.252 |
00000b70  8b e7 63 61 72 64 25 3d  31 33 20 44 24 3d bd 32  |..card%=13 D$=.2|
00000b80  34 38 2b bd 32 35 31 2b  bd 32 35 32 0d 04 2e 15  |48+.251+.252....|
00000b90  ec 58 25 2b 33 32 2c 59  25 2b 31 32 38 3a f1 43  |.X%+32,Y%+128:.C|
00000ba0  24 0d 04 38 1d ec 58 25  2c 59 25 2b 39 36 3a f1  |$..8..X%,Y%+96:.|
00000bb0  bd 32 34 35 2b bd 32 34  36 2b bd 32 34 37 0d 04  |.245+.246+.247..|
00000bc0  42 1e e6 30 2c 30 3a ec  58 25 2c 59 25 2b 36 34  |B..0,0:.X%,Y%+64|
00000bd0  3a f1 44 24 3a e6 30 2c  63 6f 6c 25 0d 04 4c 18  |:.D$:.0,col%..L.|
00000be0  ec 58 25 2b 33 32 2c 59  25 2b 33 32 3a f1 bd 32  |.X%+32,Y%+32:..2|
00000bf0  35 33 3a e1 0d 04 56 05  3a 0d 04 60 0a dd f2 7a  |53:...V.:..`...z|
00000c00  65 72 6f 0d 04 6a 26 ef  32 34 2c 58 25 2d 34 3b  |ero..j&.24,X%-4;|
00000c10  59 25 2d 34 3b 58 25 2b  39 36 3b 59 25 2b 31 32  |Y%-4;X%+96;Y%+12|
00000c20  38 3b 3a e6 30 2c 33 3a  da 0d 04 74 11 ec 58 25  |8;:.0,3:...t..X%|
00000c30  2c 59 25 2b 33 32 3a f1  45 24 0d 04 7e 11 ec 58  |,Y%+32:.E$..~..X|
00000c40  25 2c 59 25 2b 36 34 3a  f1 45 24 0d 04 88 11 ec  |%,Y%+64:.E$.....|
00000c50  58 25 2c 59 25 2b 39 36  3a f1 45 24 0d 04 92 12  |X%,Y%+96:.E$....|
00000c60  ec 58 25 2c 59 25 2b 31  32 38 3a f1 45 24 0d 04  |.X%,Y%+128:.E$..|
00000c70  9c 05 e1 0d 04 a6 0a dd  f2 64 65 61 6c 0d 04 b0  |.........deal...|
00000c80  12 59 25 3d 36 38 38 3a  e3 49 25 3d 31 b8 34 0d  |.Y%=688:.I%=1.4.|
00000c90  04 ba 09 4b 25 3d 38 30  0d 04 c4 1b e3 4a 25 3d  |...K%=80.....J%=|
00000ca0  31 b8 37 3a 58 25 3d 4b  25 2b 34 30 2a 28 4a 25  |1.7:X%=K%+40*(J%|
00000cb0  2d 31 29 0d 04 ce 1d 43  25 3d 43 25 28 49 25 2c  |-1)....C%=C%(I%,|
00000cc0  4a 25 29 3a 53 25 3d 53  25 28 49 25 2c 4a 25 29  |J%):S%=S%(I%,J%)|
00000cd0  0d 04 d8 10 f2 63 61 72  64 28 43 25 2c 53 25 29  |.....card(C%,S%)|
00000ce0  0d 04 e2 05 ed 0d 04 ec  0d 59 25 3d 59 25 2d 31  |.........Y%=Y%-1|
00000cf0  36 30 0d 04 f6 05 ed 0d  05 00 12 59 25 3d 36 38  |60.........Y%=68|
00000d00  38 3a e3 49 25 3d 35 b8  38 0d 05 0a 0a 4b 25 3d  |8:.I%=5.8....K%=|
00000d10  38 34 38 0d 05 14 1b e3  4a 25 3d 31 b8 36 3a 58  |848.....J%=1.6:X|
00000d20  25 3d 4b 25 2b 34 30 2a  28 4a 25 2d 31 29 0d 05  |%=K%+40*(J%-1)..|
00000d30  1e 1d 43 25 3d 43 25 28  49 25 2c 4a 25 29 3a 53  |..C%=C%(I%,J%):S|
00000d40  25 3d 53 25 28 49 25 2c  4a 25 29 0d 05 28 10 f2  |%=S%(I%,J%)..(..|
00000d50  63 61 72 64 28 43 25 2c  53 25 29 0d 05 32 05 ed  |card(C%,S%)..2..|
00000d60  0d 05 3c 0d 59 25 3d 59  25 2d 31 36 30 0d 05 46  |..<.Y%=Y%-160..F|
00000d70  05 ed 0d 05 50 05 3a 0d  05 5a 20 ef 34 3a e3 6e  |....P.:..Z .4:.n|
00000d80  25 3d 31 b8 34 3a f1 8a  31 36 2c 6e 25 2a 35 2b  |%=1.4:..16,n%*5+|
00000d90  33 29 3b 6e 25 3a ed 0d  05 64 2c e3 6e 25 3d 31  |3);n%:...d,.n%=1|
00000da0  b8 38 3a e7 6e 25 3e 34  20 8c 78 25 3d 32 35 3a  |.8:.n%>4 .x%=25:|
00000db0  79 25 3d 6e 25 2d 34 20  8b 78 25 3d 31 3a 79 25  |y%=n%-4 .x%=1:y%|
00000dc0  3d 6e 25 0d 05 6e 1b f1  8a 78 25 2c 35 2a 79 25  |=n%..n...x%,5*y%|
00000dd0  2b 33 29 bd 28 36 34 2b  6e 25 29 3b 3a ed 0d 05  |+3).(64+n%);:...|
00000de0  78 05 e1 0d 05 82 05 3a  0d 05 8c 0b dd f2 65 6e  |x......:......en|
00000df0  74 65 72 0d 05 96 1e f1  8a 31 34 2c 32 38 29 3b  |ter......14,28);|
00000e00  22 4d 6f 76 65 20 4e 6f  2e 20 22 3b 6d 6f 76 65  |"Move No. ";move|
00000e10  25 0d 05 a0 1a f1 8a 36  2c 33 30 29 3b 22 4d 6f  |%......6,30);"Mo|
00000e20  76 65 20 66 72 6f 6d 3f  20 22 3b 0d 05 aa 10 66  |ve from? ";....f|
00000e30  6c 61 67 25 3d a3 3a f2  6b 65 79 0d 05 b4 0d e7  |lag%=.:.key.....|
00000e40  4b 24 3d 22 55 22 20 e1  0d 05 be 09 63 68 6b 3d  |K$="U" .....chk=|
00000e50  b9 0d 05 c8 0c 66 72 6f  6d 25 3d 61 25 0d 05 d2  |.....from%=a%...|
00000e60  07 f1 4b 24 0d 05 dc 19  f1 8a 32 36 2c 33 30 29  |..K$......26,30)|
00000e70  3b 22 4d 6f 76 65 20 74  6f 3f 20 22 3b 0d 05 e6  |;"Move to? ";...|
00000e80  10 66 6c 61 67 25 3d b9  3a f2 6b 65 79 0d 05 f0  |.flag%=.:.key...|
00000e90  0a 74 6f 25 3d 61 25 0d  05 fa 07 f1 4b 24 0d 06  |.to%=a%.....K$..|
00000ea0  04 1b e3 7a 25 3d 31 b8  31 30 30 3a ed 3a f1 8a  |...z%=1.100:.:..|
00000eb0  34 2c 33 30 29 3b 89 33  35 0d 06 0e 05 e1 0d 06  |4,30);.35.......|
00000ec0  18 05 3a 0d 06 22 09 dd  f2 6b 65 79 0d 06 2c 2d  |..:.."...key..,-|
00000ed0  e7 66 6c 61 67 25 20 41  24 3d 22 41 42 43 44 45  |.flag% A$="ABCDE|
00000ee0  46 47 48 31 32 33 34 22  20 8b 20 41 24 3d 22 41  |FGH1234" . A$="A|
00000ef0  42 43 44 45 46 47 48 55  22 0d 06 36 13 f5 3a 61  |BCDEFGHU"..6..:a|
00000f00  25 3d a7 41 24 2c be 29  3a fd 61 25 0d 06 40 10  |%=.A$,.):.a%..@.|
00000f10  4b 24 3d c1 41 24 2c 61  25 2c 31 29 0d 06 4a 1a  |K$=.A$,a%,1)..J.|
00000f20  e7 4b 24 3d 22 55 22 20  63 68 6b 3d a3 3a f2 75  |.K$="U" chk=.:.u|
00000f30  6e 64 6f 3a e1 20 0d 06  54 0c 6d 24 3d 6d 24 2b  |ndo:. ..T.m$=m$+|
00000f40  4b 24 0d 06 5e 05 e1 0d  06 68 05 3a 0d 06 72 11  |K$..^....h.:..r.|
00000f50  dd f2 63 68 65 63 6b 3a  6d 76 25 3d b9 0d 06 7c  |..check:mv%=...||
00000f60  18 e7 44 25 28 66 72 6f  6d 25 29 3d 30 20 6d 76  |..D%(from%)=0 mv|
00000f70  25 3d a3 3a e1 0d 06 86  14 e7 74 6f 25 3c 39 3a  |%=.:......to%<9:|
00000f80  f2 63 68 65 63 6b 32 3a  e1 0d 06 90 29 e7 53 25  |.check2:....).S%|
00000f90  28 66 72 6f 6d 25 2c 44  25 28 66 72 6f 6d 25 29  |(from%,D%(from%)|
00000fa0  29 3c 3e 28 74 6f 25 2d  38 29 20 6d 76 25 3d a3  |)<>(to%-8) mv%=.|
00000fb0  3a e1 0d 06 9a 2d e7 43  25 28 66 72 6f 6d 25 2c  |:....-.C%(from%,|
00000fc0  44 25 28 66 72 6f 6d 25  29 29 3c 3e 41 25 28 74  |D%(from%))<>A%(t|
00000fd0  6f 25 2d 38 29 2b 31 20  6d 76 25 3d a3 3a e1 0d  |o%-8)+1 mv%=.:..|
00000fe0  06 a4 05 e1 0d 06 ae 05  3a 0d 06 b8 0c dd f2 63  |........:......c|
00000ff0  68 65 63 6b 32 0d 06 c2  17 e7 44 25 28 74 6f 25  |heck2.....D%(to%|
00001000  29 3d 31 36 20 6d 76 25  3d a3 3a e1 0d 06 cc 16  |)=16 mv%=.:.....|
00001010  e7 44 25 28 74 6f 25 29  3d 30 20 6d 76 25 3d b9  |.D%(to%)=0 mv%=.|
00001020  3a e1 0d 06 d6 33 e7 43  25 28 66 72 6f 6d 25 2c  |:....3.C%(from%,|
00001030  44 25 28 66 72 6f 6d 25  29 29 2b 31 3c 3e 43 25  |D%(from%))+1<>C%|
00001040  28 74 6f 25 2c 44 25 28  74 6f 25 29 29 20 6d 76  |(to%,D%(to%)) mv|
00001050  25 3d a3 3a e1 0d 06 e0  05 e1 0d 06 ea 05 3a 0d  |%=.:..........:.|
00001060  06 f4 0a dd f2 66 72 6f  6d 0d 06 fe 12 e7 66 72  |.....from.....fr|
00001070  6f 6d 25 3e 38 20 e5 8d  74 40 47 0d 07 08 33 43  |om%>8 ..t@G...3C|
00001080  31 25 3d 43 25 28 66 72  6f 6d 25 2c 44 25 28 66  |1%=C%(from%,D%(f|
00001090  72 6f 6d 25 29 29 3a 53  31 25 3d 53 25 28 66 72  |rom%)):S1%=S%(fr|
000010a0  6f 6d 25 2c 44 25 28 66  72 6f 6d 25 29 29 0d 07  |om%,D%(from%))..|
000010b0  12 2f 43 25 28 66 72 6f  6d 25 2c 44 25 28 66 72  |./C%(from%,D%(fr|
000010c0  6f 6d 25 29 29 3d 30 3a  53 25 28 66 72 6f 6d 25  |om%))=0:S%(from%|
000010d0  2c 44 25 28 66 72 6f 6d  25 29 29 3d 30 0d 07 1c  |,D%(from%))=0...|
000010e0  1e 44 25 28 66 72 6f 6d  25 29 3d 44 25 28 66 72  |.D%(from%)=D%(fr|
000010f0  6f 6d 25 29 2d 31 3a 5a  25 3d 31 0d 07 26 20 e7  |om%)-1:Z%=1..& .|
00001100  44 25 28 66 72 6f 6d 25  29 3e 36 20 8c 5a 25 3d  |D%(from%)>6 .Z%=|
00001110  44 25 28 66 72 6f 6d 25  29 2d 36 0d 07 30 42 e7  |D%(from%)-6..0B.|
00001120  66 72 6f 6d 25 3e 34 20  4b 25 3d 38 34 38 3a 59  |from%>4 K%=848:Y|
00001130  25 3d 38 34 38 2d 31 36  30 2a 28 66 72 6f 6d 25  |%=848-160*(from%|
00001140  2d 34 29 20 8b 4b 25 3d  38 30 3a 59 25 3d 38 34  |-4) .K%=80:Y%=84|
00001150  38 2d 31 36 30 2a 28 66  72 6f 6d 25 29 0d 07 3a  |8-160*(from%)..:|
00001160  29 e6 30 2c 31 32 38 3a  ef 32 34 2c 4b 25 2d 38  |).0,128:.24,K%-8|
00001170  3b 59 25 2d 38 3b 4b 25  2b 34 30 30 3b 59 25 2b  |;Y%-8;K%+400;Y%+|
00001180  31 35 30 3b 3a da 0d 07  44 17 e7 20 44 25 28 66  |150;:...D.. D%(f|
00001190  72 6f 6d 25 29 3d 30 20  e5 8d 44 76 47 0d 07 4e  |rom%)=0 ..DvG..N|
000011a0  2f 49 25 3d 66 72 6f 6d  25 3a e3 4a 25 3d 5a 25  |/I%=from%:.J%=Z%|
000011b0  b8 20 44 25 28 66 72 6f  6d 25 29 3a 58 25 3d 4b  |. D%(from%):X%=K|
000011c0  25 2b 34 30 2a 28 4a 25  2d 5a 25 29 0d 07 58 1d  |%+40*(J%-Z%)..X.|
000011d0  43 25 3d 43 25 28 49 25  2c 4a 25 29 3a 53 25 3d  |C%=C%(I%,J%):S%=|
000011e0  53 25 28 49 25 2c 4a 25  29 0d 07 62 10 f2 63 61  |S%(I%,J%)..b..ca|
000011f0  72 64 28 43 25 2c 53 25  29 0d 07 6c 05 ed 0d 07  |rd(C%,S%)..l....|
00001200  76 05 e1 0d 07 80 11 66  72 6f 6d 25 3d 66 72 6f  |v......from%=fro|
00001210  6d 25 2d 38 0d 07 8a 1b  43 31 25 3d 41 25 28 66  |m%-8....C1%=A%(f|
00001220  72 6f 6d 25 29 3a 53 31  25 3d 66 72 6f 6d 25 0d  |rom%):S1%=from%.|
00001230  07 94 19 41 25 28 66 72  6f 6d 25 29 3d 41 25 28  |...A%(from%)=A%(|
00001240  66 72 6f 6d 25 29 2d 31  0d 07 9e 1b 58 25 3d 35  |from%)-1....X%=5|
00001250  36 30 3a 59 25 3d 38 34  38 2d 31 36 30 2a 66 72  |60:Y%=848-160*fr|
00001260  6f 6d 25 0d 07 a8 19 43  25 3d 41 25 28 66 72 6f  |om%....C%=A%(fro|
00001270  6d 25 29 3a 53 25 3d 66  72 6f 6d 25 0d 07 b2 10  |m%):S%=from%....|
00001280  f2 63 61 72 64 28 43 25  2c 53 25 29 0d 07 bc 05  |.card(C%,S%)....|
00001290  e1 0d 07 c6 05 3a 0d 07  d0 08 dd f2 74 6f 0d 07  |.....:......to..|
000012a0  da 10 e7 74 6f 25 3e 38  20 e5 8d 44 48 48 0d 07  |...to%>8 ..DHH..|
000012b0  e4 1a 44 25 28 74 6f 25  29 3d 44 25 28 74 6f 25  |..D%(to%)=D%(to%|
000012c0  29 2b 31 3a 5a 25 3d 31  0d 07 ee 1c e7 20 44 25  |)+1:Z%=1..... D%|
000012d0  28 74 6f 25 29 3e 37 20  5a 25 3d 44 25 28 74 6f  |(to%)>7 Z%=D%(to|
000012e0  25 29 2d 36 0d 07 f8 2b  43 25 28 74 6f 25 2c 44  |%)-6...+C%(to%,D|
000012f0  25 28 74 6f 25 29 29 3d  43 31 25 3a 53 25 28 74  |%(to%))=C1%:S%(t|
00001300  6f 25 2c 44 25 28 74 6f  25 29 29 3d 53 31 25 0d  |o%,D%(to%))=S1%.|
00001310  08 02 3c e7 74 6f 25 3e  34 20 4b 25 3d 38 34 38  |..<.to%>4 K%=848|
00001320  3a 59 25 3d 38 34 38 2d  31 36 30 2a 28 74 6f 25  |:Y%=848-160*(to%|
00001330  2d 34 29 20 8b 4b 25 3d  38 30 3a 59 25 3d 38 34  |-4) .K%=80:Y%=84|
00001340  38 2d 31 36 30 2a 28 74  6f 25 29 0d 08 0c 29 e6  |8-160*(to%)...).|
00001350  30 2c 31 32 38 3a ef 32  34 2c 4b 25 2d 38 3b 59  |0,128:.24,K%-8;Y|
00001360  25 2d 38 3b 4b 25 2b 34  30 30 3b 59 25 2b 31 35  |%-8;K%+400;Y%+15|
00001370  30 3b 3a da 0d 08 16 2c  49 25 3d 74 6f 25 3a e3  |0;:....,I%=to%:.|
00001380  4a 25 3d 5a 25 20 b8 20  44 25 28 74 6f 25 29 3a  |J%=Z% . D%(to%):|
00001390  58 25 3d 4b 25 2b 34 30  2a 28 4a 25 2d 5a 25 29  |X%=K%+40*(J%-Z%)|
000013a0  0d 08 20 1d 43 25 3d 43  25 28 49 25 2c 4a 25 29  |.. .C%=C%(I%,J%)|
000013b0  3a 53 25 3d 53 25 28 49  25 2c 4a 25 29 0d 08 2a  |:S%=S%(I%,J%)..*|
000013c0  10 f2 63 61 72 64 28 43  25 2c 53 25 29 0d 08 34  |..card(C%,S%)..4|
000013d0  05 ed 0d 08 3e 05 e1 0d  08 48 0d 74 6f 25 3d 74  |....>....H.to%=t|
000013e0  6f 25 2d 38 0d 08 52 15  41 25 28 74 6f 25 29 3d  |o%-8..R.A%(to%)=|
000013f0  41 25 28 74 6f 25 29 2b  31 0d 08 5c 19 58 25 3d  |A%(to%)+1..\.X%=|
00001400  35 36 30 3a 59 25 3d 38  34 38 2d 31 36 30 2a 74  |560:Y%=848-160*t|
00001410  6f 25 0d 08 66 15 43 25  3d 41 25 28 74 6f 25 29  |o%..f.C%=A%(to%)|
00001420  3a 53 25 3d 74 6f 25 0d  08 70 10 f2 63 61 72 64  |:S%=to%..p..card|
00001430  28 43 25 2c 53 25 29 0d  08 7a 05 e1 0d 08 84 05  |(C%,S%)..z......|
00001440  3a 0d 08 8e 52 2a 4b 2e  30 20 2a 54 2e 7c 4d 46  |:...R*K.0 *T.|MF|
00001450  4f 52 49 25 3d 30 54 4f  20 54 4f 50 2d 50 41 47  |ORI%=0TO TOP-PAG|
00001460  45 20 53 54 45 50 34 3a  49 25 21 26 45 30 30 3d  |E STEP4:I%!&E00=|
00001470  49 25 21 50 41 47 45 3a  4e 45 58 54 7c 4d 50 41  |I%!PAGE:NEXT|MPA|
00001480  47 45 3d 26 45 30 30 7c  4d 4f 4c 44 7c 4d 52 55  |GE=&E00|MOLD|MRU|
00001490  4e 7c 4d 0d 08 98 10 2a  46 58 31 33 38 2c 30 2c  |N|M....*FX138,0,|
000014a0  31 32 38 0d 08 a2 05 e0  0d 08 ac 05 3a 0d 08 b6  |128.........:...|
000014b0  18 dd f2 77 69 6e 3a ef  32 33 2c 31 2c 30 3b 30  |...win:.23,1,0;0|
000014c0  3b 30 3b 30 3b 0d 08 c0  1e f1 8a 31 31 2c 34 29  |;0;0;......11,4)|
000014d0  22 43 4f 4e 47 52 41 54  55 4c 41 54 49 4f 4e 53  |"CONGRATULATIONS|
000014e0  21 21 22 0d 08 ca 1e f1  8a 31 31 2c 35 29 22 2d  |!!"......11,5)"-|
000014f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001500  22 0d 08 d4 2b f1 8a 34  2c 38 29 22 59 6f 75 20  |"...+..4,8)"You |
00001510  68 61 76 65 20 63 6f 6d  70 6c 65 74 65 64 20 44  |have completed D|
00001520  65 61 6c 20 6e 6f 2e 20  22 3b 4d 25 0d 08 de 20  |eal no. ";M%... |
00001530  f1 8a 31 33 2c 31 30 29  22 69 6e 20 22 3b 6d 6f  |..13,10)"in ";mo|
00001540  76 65 25 3b 22 20 6d 6f  76 65 73 22 0d 08 e8 22  |ve%;" moves"..."|
00001550  f1 8a 31 30 2c 31 34 29  22 41 6e 6f 74 68 65 72  |..10,14)"Another|
00001560  20 64 65 61 6c 3f 20 20  28 59 2f 4e 29 22 0d 08  | deal?  (Y/N)"..|
00001570  f2 1b f5 3a 4b 24 3d bf  30 3a fd 4b 24 3d 22 59  |...:K$=.0:.K$="Y|
00001580  22 20 84 4b 24 3d 22 4e  22 0d 08 fc 0d 6d 6f 76  |" .K$="N"....mov|
00001590  65 25 3d 30 3a e1 0d ff                           |e%=0:...|
00001598
G/STREETS.m0
G/STREETS.m1
G/STREETS.m2
G/STREETS.m4
G/STREETS.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .