Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_54.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_54.ADF
Filename: G/STREETS
Read OK: ✔
File size: 17C3 bytes
Load address: FFFF0E00
Exec address: FFFF802B
Duplicates

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

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


 � **************************
� Streets and Alleys
� By R.A.Dimond
(� Revised August 2000
2 � **************************
<%� � �=17 � �6:�:�" at line ";�:�
F� �>&E00 �0:�dNI
P(�1:�23;8202;0;0;0;19,0,4;0;19,2,0;0;
Z�vars:�random:�init:�deal
d�:�26,4
n�9,28);sc%;"  "
x
�enter
�
�check
�c�mv%=� � �7:m$=�m$,�m$-2):�10,30)"You can't move there!";:�=0:���>300:�4,30)�35:�"FX15":�Dd@
�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,"~")
��
:

��vars
8� N%(52),c%(52),s%(52),C%(8,16),S%(8,16),A%(4),D%(8)
"sc%=0:win%=�
,E$=�254+�254+�254
6�
@:
J��random:�title:�"FX15"
TB�0,6)"Enter Deal No. "''"or press RETURN"'"for a random deal"
^
�15,6)M%
h�M%=0 M%=�(�(-�))
r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%:MM%=M%
�2�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%
��card(0,0)
��
�n%=1:�I%=1�4:�J%=1�7
5C%(I%,J%)=c%(N%(n%)):S%(I%,J%)=s%(N%(n%)):n%=n%+1
�:�
�I%=5�8:�J%=1�6
&5C%(I%,J%)=c%(N%(n%)):S%(I%,J%)=s%(N%(n%)):n%=n%+1
0�:�
:�
D:
N
��five
X�;�241;�8;�10;�240;�8;�10;
b�
l:
v��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"
��card%=13 cd%=�"K"
�#�card%>1 �card%<10 cd%=card%+48
��card%=10 cd%=229
��p:�pp:�4:�
�:
��p
0�X%,Y%+28:�0,col%:�;�suit%:�X%,Y%+128:�;�cd%
.�X%+64,Y%+28:�;�cd%:�X%+64,Y%+128:�;�suit%
 �
*:
4��pp
>$�card%=1 �X%+32,Y%+80:�;�suit%:�
H8�card%=2 �X%+32,Y%+120:�;�239;:�X%+32,Y%+56:�;�239:�
RM�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:�
fM�card%=5 �X%+32,Y%+104:�;�240;:�X%+32,Y%+88:�;�239;:�X%+32,Y%+40:�;�240:�
pM�card%=6 �X%+32,Y%+104:�;�240;:�X%+32,Y%+72:�;�240;:�X%+32,Y%+40:�;�240:�
z6�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$
��X%,Y%+96:�245+�246+�247
��0,0:�X%,Y%+64:�D$:�0,col%
��X%+32,Y%+32:�253:�
�:
�
��zero
�&�24,X%-4;Y%-4;X%+96;Y%+128;:�0,3:�
��X%,Y%+32:�E$
�X%,Y%+64:�E$
�X%,Y%+96:�E$
�X%,Y%+128:�E$
$�
.
��deal
8Y%=688:�I%=1�4
B	K%=80
L�J%=1�7:X%=K%+40*(J%-1)
VC%=C%(I%,J%):S%=S%(I%,J%)
`�card(C%,S%)
j�
t
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%)
��
�
Y%=Y%-160
��
�:
� �4:�n%=1�4:�16,n%*5+3);n%:�
�,�n%=1�8:�n%>4 �x%=25:y%=n%-4 �x%=1:y%=n%
��x%,5*y%+3)�(64+n%);:�
�

:
��enter
�2,28);"Score: ";sc%
(�6,30);"Move from? ";
2flag%=�:�key
<�K$="R" �savdat:�
F�K$="S" �win:�
P	chk=�
Zfrom%=a%
d�K$
n�26,30);"Move to? ";
xflag%=�:�key
�
to%=a%
��K$
��z%=1�100:�:�4,30);�35
��
�:
�	��key
�.�flag% A$="ABCDEFGH1234" � A$="ABCDEFGHRS"
��:a%=�A$,�):�a%
�K$=�A$,a%,1)
�m$=m$+K$
��
�:
���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%=�:�
,�
6:
@��check2
J�D%(to%)=16 mv%=�:�
T�D%(to%)=0 mv%=�:�
^3�C%(from%,D%(from%))+1<>C%(to%,D%(to%)) mv%=�:�
h�
r:
|
��from
��from%>8 �THG
�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
�B�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%(from%)=0 �d~F
�/I%=from%:�J%=Z%� D%(from%):X%=K%+40*(J%-Z%)
�C%=C%(I%,J%):S%=S%(I%,J%)
��card(C%,S%)
��
��
from%=from%-8

sc%=sc%-1
C1%=A%(from%):S1%=from%
&A%(from%)=A%(from%)-1
0X%=560:Y%=848-160*from%
:C%=A%(from%):S%=from%
D�card(C%,S%)
N�
X:
b��to
l�to%>8 �dZG
vD%(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%)
��
��
�
to%=to%-8
�A%(to%)=A%(to%)+1
�X%=560:Y%=848-160*to%
�C%=A%(to%):S%=to%
�card(C%,S%)

sc%=sc%+1
�
 :
*��win:�23,1,0;0;0;0;
4�128:�:�title
>/� IFwin% PRINTTAB(12,4);"CONGRATULATIONS!!"
H.�4,6)"Game No.  Score    Your Statistics"
R.�4,7)"~~~~~~~~  ~~~~~    ~~~~~~~~~~~~~~~"
\�28,2,24,19,8:�130:�
f
�printdat
p&�26:�128:�21,8)"Games played ";N%
z2�21,10)"Wins ";win%;�30,10);"Losses ";N%-win%
�)�21,12)"Average score ";�(totsc%/N%)
�!�6,28);"Another game? (Y/N)"
��:a%=�"YyNn",�):�a%
��a%>2 �22,6:�
��
�:
���printdat
�totsc%=0
�A=�"G.SADAT"
�
�#A,N%
��N=1�N%
��#A,MM%,sc%,win%
��'MM%;"   ";sc%
	totsc%=totsc%+sc%
	�
	�#A
	$�
	.:
	8��savdat:�23,1,0;0;0;0;
	B2�1,30)"      Saving data. Please wait...   ";
	LA=�"G.SADAT"
	V
�#A,N%
	`	�#A=0
	j
�#A,N%
	t�#A=(N%*15)+5
	~�#A,MM%,sc%,win%
	�	�#A=0
	�N%=N%+1
	�
�#A,N%
	��#A
	�2�1,30)"                                    ";
	��
	�:
	�R*K.0 *T.|MFORI%=0TO TOP-PAGE STEP4:I%!&E00=I%!PAGE:NEXT|MPAGE=&E00|MOLD|MRUN|M
	�*FX138,0,128
�
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 18 f4 20 53 74  72 65 65 74 73 20 61 6e  |..... Streets an|
00000030  64 20 41 6c 6c 65 79 73  0d 00 1e 13 f4 20 42 79  |d Alleys..... By|
00000040  20 52 2e 41 2e 44 69 6d  6f 6e 64 0d 00 28 19 f4  | R.A.Dimond..(..|
00000050  20 52 65 76 69 73 65 64  20 41 75 67 75 73 74 20  | Revised August |
00000060  32 30 30 30 0d 00 32 20  f4 20 2a 2a 2a 2a 2a 2a  |2000..2 . ******|
00000070  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000080  2a 2a 2a 2a 0d 00 3c 25  ee 85 20 e7 20 9f 3d 31  |****..<%.. . .=1|
00000090  37 20 8b 20 eb 36 3a f6  3a f1 22 20 61 74 20 6c  |7 . .6:.:." at l|
000000a0  69 6e 65 20 22 3b 9e 3a  e0 0d 00 46 15 e7 20 90  |ine ";.:...F.. .|
000000b0  3e 26 45 30 30 20 fb 30  3a e5 8d 64 4e 49 0d 00  |>&E00 .0:..dNI..|
000000c0  50 28 eb 31 3a ef 32 33  3b 38 32 30 32 3b 30 3b  |P(.1:.23;8202;0;|
000000d0  30 3b 30 3b 31 39 2c 30  2c 34 3b 30 3b 31 39 2c  |0;0;19,0,4;0;19,|
000000e0  32 2c 30 3b 30 3b 0d 00  5a 1d f2 76 61 72 73 3a  |2,0;0;..Z..vars:|
000000f0  f2 72 61 6e 64 6f 6d 3a  f2 69 6e 69 74 3a f2 64  |.random:.init:.d|
00000100  65 61 6c 0d 00 64 0b f5  3a ef 32 36 2c 34 0d 00  |eal..d..:.26,4..|
00000110  6e 14 f1 8a 39 2c 32 38  29 3b 73 63 25 3b 22 20  |n...9,28);sc%;" |
00000120  20 22 0d 00 78 0a f2 65  6e 74 65 72 0d 00 82 0a  | "..x..enter....|
00000130  f2 63 68 65 63 6b 0d 00  8c 63 e7 6d 76 25 3d a3  |.check...c.mv%=.|
00000140  20 8c 20 ef 37 3a 6d 24  3d c0 6d 24 2c a9 6d 24  | . .7:m$=.m$,.m$|
00000150  2d 32 29 3a f1 8a 31 30  2c 33 30 29 22 59 6f 75  |-2):..10,30)"You|
00000160  20 63 61 6e 27 74 20 6d  6f 76 65 20 74 68 65 72  | can't move ther|
00000170  65 21 22 3b 3a d1 3d 30  3a f5 fd 91 3e 33 30 30  |e!";:.=0:...>300|
00000180  3a f1 8a 34 2c 33 30 29  89 33 35 3a ff 22 46 58  |:..4,30).35:."FX|
00000190  31 35 22 3a e5 8d 44 64  40 0d 00 96 1b 6d 6f 76  |15":..Dd@....mov|
000001a0  65 25 3d 6d 6f 76 65 25  2b 31 3a f2 66 72 6f 6d  |e%=move%+1:.from|
000001b0  3a f2 74 6f 0d 00 a0 33  e7 41 25 28 31 29 3d 31  |:.to...3.A%(1)=1|
000001c0  33 20 80 41 25 28 32 29  3d 31 33 20 80 41 25 28  |3 .A%(2)=13 .A%(|
000001d0  33 29 3d 31 33 20 80 41  25 28 34 29 3d 31 33 20  |3)=13 .A%(4)=13 |
000001e0  8c 77 69 6e 25 3d b9 0d  00 aa 11 fd a6 2d 37 34  |.win%=.......-74|
000001f0  20 84 77 69 6e 25 3d b9  0d 00 b4 21 e7 77 69 6e  | .win%=....!.win|
00000200  25 3d b9 20 8c 20 d1 3d  30 3a f5 fd 91 3d 35 30  |%=. . .=0:...=50|
00000210  30 3a eb 36 3a f2 77 69  6e 0d 00 be 0e fd 30 20  |0:.6:.win.....0 |
00000220  84 4b 24 3d 22 4e 22 0d  00 c8 05 e0 0d 00 d2 05  |.K$="N".........|
00000230  3a 0d 00 dc 0b dd f2 74  69 74 6c 65 0d 00 e6 1f  |:......title....|
00000240  f1 8a 31 30 2c 31 29 22  53 54 52 45 45 54 53 20  |..10,1)"STREETS |
00000250  41 4e 44 20 41 4c 4c 45  59 53 22 0d 00 f0 13 f1  |AND ALLEYS".....|
00000260  8a 31 30 2c 32 29 c4 31  38 2c 22 7e 22 29 0d 00  |.10,2).18,"~")..|
00000270  fa 05 e1 0d 01 04 05 3a  0d 01 0e 0a dd f2 76 61  |.......:......va|
00000280  72 73 0d 01 18 38 de 20  4e 25 28 35 32 29 2c 63  |rs...8. N%(52),c|
00000290  25 28 35 32 29 2c 73 25  28 35 32 29 2c 43 25 28  |%(52),s%(52),C%(|
000002a0  38 2c 31 36 29 2c 53 25  28 38 2c 31 36 29 2c 41  |8,16),S%(8,16),A|
000002b0  25 28 34 29 2c 44 25 28  38 29 0d 01 22 10 73 63  |%(4),D%(8)..".sc|
000002c0  25 3d 30 3a 77 69 6e 25  3d a3 0d 01 2c 15 45 24  |%=0:win%=...,.E$|
000002d0  3d bd 32 35 34 2b bd 32  35 34 2b bd 32 35 34 0d  |=.254+.254+.254.|
000002e0  01 36 05 e1 0d 01 40 05  3a 0d 01 4a 1b dd f2 72  |.6....@.:..J...r|
000002f0  61 6e 64 6f 6d 3a f2 74  69 74 6c 65 3a ff 22 46  |andom:.title:."F|
00000300  58 31 35 22 0d 01 54 42  f1 8a 30 2c 36 29 22 45  |X15"..TB..0,6)"E|
00000310  6e 74 65 72 20 44 65 61  6c 20 4e 6f 2e 20 22 27  |nter Deal No. "'|
00000320  27 22 6f 72 20 70 72 65  73 73 20 52 45 54 55 52  |'"or press RETUR|
00000330  4e 22 27 22 66 6f 72 20  61 20 72 61 6e 64 6f 6d  |N"'"for a random|
00000340  20 64 65 61 6c 22 0d 01  5e 0d e8 8a 31 35 2c 36  | deal"..^...15,6|
00000350  29 4d 25 0d 01 68 15 e7  4d 25 3d 30 20 4d 25 3d  |)M%..h..M%=0 M%=|
00000360  94 28 b3 28 2d 91 29 29  0d 01 72 0c 47 3d b3 28  |.(.(-.))..r.G=.(|
00000370  2d 4d 25 29 0d 01 7c 54  e3 49 25 3d 31 b8 35 32  |-M%)..|T.I%=1.52|
00000380  3a 4e 25 28 49 25 29 3d  49 25 3a ed 3a e3 49 25  |:N%(I%)=I%:.:.I%|
00000390  3d 35 32 20 b8 32 88 2d  31 3a 44 25 3d b3 28 49  |=52 .2.-1:D%=.(I|
000003a0  25 29 3a 54 25 3d 4e 25  28 44 25 29 3a 4e 25 28  |%):T%=N%(D%):N%(|
000003b0  44 25 29 3d 4e 25 28 49  25 29 3a 4e 25 28 49 25  |D%)=N%(I%):N%(I%|
000003c0  29 3d 54 25 3a ed 49 25  0d 01 86 1f f7 3a e3 69  |)=T%:.I%.....:.i|
000003d0  25 3d 31 b8 35 32 3a f3  63 25 28 69 25 29 2c 73  |%=1.52:.c%(i%),s|
000003e0  25 28 69 25 29 3a ed 0d  01 90 07 db 3a e1 0d 01  |%(i%):......:...|
000003f0  9a 74 dc 38 2c 31 2c 33  2c 32 2c 31 31 2c 34 2c  |.t.8,1,3,2,11,4,|
00000400  31 32 2c 31 2c 34 2c 32  2c 39 2c 31 2c 36 2c 32  |12,1,4,2,9,1,6,2|
00000410  2c 32 2c 33 2c 37 2c 33  2c 31 30 2c 33 2c 35 2c  |,2,3,7,3,10,3,5,|
00000420  32 2c 31 33 2c 32 2c 35  2c 31 2c 32 2c 34 2c 31  |2,13,2,5,1,2,4,1|
00000430  30 2c 32 2c 38 2c 32 2c  36 2c 31 2c 33 2c 31 2c  |0,2,8,2,6,1,3,1,|
00000440  39 2c 34 2c 31 31 2c 33  2c 37 2c 32 2c 31 33 2c  |9,4,11,3,7,2,13,|
00000450  34 2c 34 2c 33 2c 31 32  2c 32 2c 31 2c 33 2c 31  |4,4,3,12,2,1,3,1|
00000460  2c 31 0d 01 a4 74 dc 31  30 2c 31 2c 31 32 2c 34  |,1...t.10,1,12,4|
00000470  2c 34 2c 31 2c 31 33 2c  31 2c 38 2c 33 2c 32 2c  |,4,1,13,1,8,3,2,|
00000480  31 2c 37 2c 31 2c 31 31  2c 32 2c 33 2c 34 2c 39  |1,7,1,11,2,3,4,9|
00000490  2c 32 2c 36 2c 34 2c 31  33 2c 33 2c 37 2c 34 2c  |,2,6,4,13,3,7,4,|
000004a0  32 2c 32 2c 31 31 2c 31  2c 35 2c 33 2c 39 2c 33  |2,2,11,1,5,3,9,3|
000004b0  2c 36 2c 33 2c 34 2c 34  2c 31 30 2c 34 2c 33 2c  |,6,3,4,4,10,4,3,|
000004c0  33 2c 38 2c 34 2c 35 2c  34 2c 31 32 2c 33 2c 31  |3,8,4,5,4,12,3,1|
000004d0  2c 32 2c 31 2c 34 0d 01  ae 05 3a 0d 01 b8 0a dd  |,2,1,4....:.....|
000004e0  f2 69 6e 69 74 0d 01 c2  0a f2 74 69 74 6c 65 0d  |.init.....title.|
000004f0  01 cc 20 f1 8a 31 32 2c  33 29 22 44 65 61 6c 20  |.. ..12,3)"Deal |
00000500  4e 6f 2e 20 22 3b 4d 25  3a 4d 4d 25 3d 4d 25 0d  |No. ";M%:MM%=M%.|
00000510  01 d6 32 e3 6e 25 3d 31  b8 34 3a 41 25 28 6e 25  |..2.n%=1.4:A%(n%|
00000520  29 3d 30 3a 44 25 28 6e  25 29 3d 37 3a ed 3a e3  |)=0:D%(n%)=7:.:.|
00000530  6e 25 3d 35 b8 38 3a 44  25 28 6e 25 29 3d 36 3a  |n%=5.8:D%(n%)=6:|
00000540  ed 0d 01 e0 23 ef 35 3a  58 25 3d 35 36 30 3a e3  |....#.5:X%=560:.|
00000550  6e 25 3d 31 b8 34 3a 59  25 3d 38 34 38 2d 31 36  |n%=1.4:Y%=848-16|
00000560  30 2a 6e 25 0d 01 ea 0e  f2 63 61 72 64 28 30 2c  |0*n%.....card(0,|
00000570  30 29 0d 01 f4 05 ed 0d  01 fe 18 6e 25 3d 31 3a  |0).........n%=1:|
00000580  e3 49 25 3d 31 b8 34 3a  e3 4a 25 3d 31 b8 37 0d  |.I%=1.4:.J%=1.7.|
00000590  02 08 35 43 25 28 49 25  2c 4a 25 29 3d 63 25 28  |..5C%(I%,J%)=c%(|
000005a0  4e 25 28 6e 25 29 29 3a  53 25 28 49 25 2c 4a 25  |N%(n%)):S%(I%,J%|
000005b0  29 3d 73 25 28 4e 25 28  6e 25 29 29 3a 6e 25 3d  |)=s%(N%(n%)):n%=|
000005c0  6e 25 2b 31 0d 02 12 07  ed 3a ed 0d 02 1c 13 e3  |n%+1.....:......|
000005d0  49 25 3d 35 b8 38 3a e3  4a 25 3d 31 b8 36 0d 02  |I%=5.8:.J%=1.6..|
000005e0  26 35 43 25 28 49 25 2c  4a 25 29 3d 63 25 28 4e  |&5C%(I%,J%)=c%(N|
000005f0  25 28 6e 25 29 29 3a 53  25 28 49 25 2c 4a 25 29  |%(n%)):S%(I%,J%)|
00000600  3d 73 25 28 4e 25 28 6e  25 29 29 3a 6e 25 3d 6e  |=s%(N%(n%)):n%=n|
00000610  25 2b 31 0d 02 30 07 ed  3a ed 0d 02 3a 05 e1 0d  |%+1..0..:...:...|
00000620  02 44 05 3a 0d 02 4e 0a  dd f2 66 69 76 65 0d 02  |.D.:..N...five..|
00000630  58 1e f1 3b bd 32 34 31  3b bd 38 3b bd 31 30 3b  |X..;.241;.8;.10;|
00000640  bd 32 34 30 3b bd 38 3b  bd 31 30 3b 0d 02 62 05  |.240;.8;.10;..b.|
00000650  e1 0d 02 6c 05 3a 0d 02  76 1a dd f2 63 61 72 64  |...l.:..v...card|
00000660  28 63 61 72 64 25 2c 73  75 69 74 25 29 3a ef 35  |(card%,suit%):.5|
00000670  0d 02 80 14 e7 63 61 72  64 25 3d 30 20 f2 7a 65  |.....card%=0 .ze|
00000680  72 6f 3a e1 0d 02 8a 3a  e7 28 73 75 69 74 25 3d  |ro:....:.(suit%=|
00000690  31 20 84 73 75 69 74 25  3d 33 29 20 63 6f 6c 25  |1 .suit%=3) col%|
000006a0  3d 31 20 8b e7 28 73 75  69 74 25 3d 32 20 84 73  |=1 ..(suit%=2 .s|
000006b0  75 69 74 25 3d 34 29 20  63 6f 6c 25 3d 32 0d 02  |uit%=4) col%=2..|
000006c0  94 13 73 75 69 74 25 3d  73 75 69 74 25 2b 32 32  |..suit%=suit%+22|
000006d0  33 0d 02 9e 29 ef 32 34  2c 58 25 2d 34 3b 59 25  |3...).24,X%-4;Y%|
000006e0  2d 34 3b 58 25 2b 31 30  30 3b 59 25 2b 31 33 32  |-4;X%+100;Y%+132|
000006f0  3b 3a e6 30 2c 31 33 31  3a da 0d 02 a8 47 e6 30  |;:.0,131:....G.0|
00000700  2c 32 3a ec 58 25 2d 34  2c 59 25 2d 34 3a df 58  |,2:.X%-4,Y%-4:.X|
00000710  25 2d 34 2c 59 25 2b 31  33 32 3a df 58 25 2b 31  |%-4,Y%+132:.X%+1|
00000720  30 30 2c 59 25 2b 31 33  32 3a df 58 25 2b 31 30  |00,Y%+132:.X%+10|
00000730  30 2c 59 25 2d 34 3a df  58 25 2d 34 2c 59 25 2d  |0,Y%-4:.X%-4,Y%-|
00000740  34 0d 02 b2 13 e7 63 61  72 64 25 3d 31 20 63 64  |4.....card%=1 cd|
00000750  25 3d 36 35 0d 02 bc 16  e7 63 61 72 64 25 3d 31  |%=65.....card%=1|
00000760  31 20 63 64 25 3d 97 22  4a 22 0d 02 c6 16 e7 63  |1 cd%=."J".....c|
00000770  61 72 64 25 3d 31 32 20  63 64 25 3d 97 22 51 22  |ard%=12 cd%=."Q"|
00000780  0d 02 d0 16 e7 63 61 72  64 25 3d 31 33 20 63 64  |.....card%=13 cd|
00000790  25 3d 97 22 4b 22 0d 02  da 23 e7 63 61 72 64 25  |%=."K"...#.card%|
000007a0  3e 31 20 80 63 61 72 64  25 3c 31 30 20 63 64 25  |>1 .card%<10 cd%|
000007b0  3d 63 61 72 64 25 2b 34  38 0d 02 e4 15 e7 63 61  |=card%+48.....ca|
000007c0  72 64 25 3d 31 30 20 63  64 25 3d 32 32 39 0d 02  |rd%=10 cd%=229..|
000007d0  ee 0f f2 70 3a f2 70 70  3a ef 34 3a e1 0d 02 f8  |...p:.pp:.4:....|
000007e0  05 3a 0d 03 02 07 dd f2  70 0d 03 0c 30 ec 58 25  |.:......p...0.X%|
000007f0  2c 59 25 2b 32 38 3a e6  30 2c 63 6f 6c 25 3a f1  |,Y%+28:.0,col%:.|
00000800  3b bd 73 75 69 74 25 3a  ec 58 25 2c 59 25 2b 31  |;.suit%:.X%,Y%+1|
00000810  32 38 3a f1 3b bd 63 64  25 0d 03 16 2e ec 58 25  |28:.;.cd%.....X%|
00000820  2b 36 34 2c 59 25 2b 32  38 3a f1 3b bd 63 64 25  |+64,Y%+28:.;.cd%|
00000830  3a ec 58 25 2b 36 34 2c  59 25 2b 31 32 38 3a f1  |:.X%+64,Y%+128:.|
00000840  3b bd 73 75 69 74 25 0d  03 20 05 e1 0d 03 2a 05  |;.suit%.. ....*.|
00000850  3a 0d 03 34 08 dd f2 70  70 0d 03 3e 24 e7 63 61  |:..4...pp..>$.ca|
00000860  72 64 25 3d 31 20 ec 58  25 2b 33 32 2c 59 25 2b  |rd%=1 .X%+32,Y%+|
00000870  38 30 3a f1 3b bd 73 75  69 74 25 3a e1 0d 03 48  |80:.;.suit%:...H|
00000880  38 e7 63 61 72 64 25 3d  32 20 ec 58 25 2b 33 32  |8.card%=2 .X%+32|
00000890  2c 59 25 2b 31 32 30 3a  f1 3b bd 32 33 39 3b 3a  |,Y%+120:.;.239;:|
000008a0  ec 58 25 2b 33 32 2c 59  25 2b 35 36 3a f1 3b bd  |.X%+32,Y%+56:.;.|
000008b0  32 33 39 3a e1 0d 03 52  4d e7 63 61 72 64 25 3d  |239:...RM.card%=|
000008c0  33 20 ec 58 25 2b 33 32  2c 59 25 2b 31 32 30 3a  |3 .X%+32,Y%+120:|
000008d0  f1 3b bd 32 33 39 3b 3a  ec 58 25 2b 33 32 2c 59  |.;.239;:.X%+32,Y|
000008e0  25 2b 38 38 3a f1 3b bd  32 33 39 3b 3a ec 58 25  |%+88:.;.239;:.X%|
000008f0  2b 33 32 2c 59 25 2b 35  36 3a f1 3b bd 32 33 39  |+32,Y%+56:.;.239|
00000900  3a e1 0d 03 5c 38 e7 63  61 72 64 25 3d 34 20 ec  |:...\8.card%=4 .|
00000910  58 25 2b 33 32 2c 59 25  2b 31 30 34 3a f1 3b bd  |X%+32,Y%+104:.;.|
00000920  32 34 30 3b 3a ec 58 25  2b 33 32 2c 59 25 2b 34  |240;:.X%+32,Y%+4|
00000930  30 3a f1 3b bd 32 34 30  3a e1 0d 03 66 4d e7 63  |0:.;.240:...fM.c|
00000940  61 72 64 25 3d 35 20 ec  58 25 2b 33 32 2c 59 25  |ard%=5 .X%+32,Y%|
00000950  2b 31 30 34 3a f1 3b bd  32 34 30 3b 3a ec 58 25  |+104:.;.240;:.X%|
00000960  2b 33 32 2c 59 25 2b 38  38 3a f1 3b bd 32 33 39  |+32,Y%+88:.;.239|
00000970  3b 3a ec 58 25 2b 33 32  2c 59 25 2b 34 30 3a f1  |;:.X%+32,Y%+40:.|
00000980  3b bd 32 34 30 3a e1 0d  03 70 4d e7 63 61 72 64  |;.240:...pM.card|
00000990  25 3d 36 20 ec 58 25 2b  33 32 2c 59 25 2b 31 30  |%=6 .X%+32,Y%+10|
000009a0  34 3a f1 3b bd 32 34 30  3b 3a ec 58 25 2b 33 32  |4:.;.240;:.X%+32|
000009b0  2c 59 25 2b 37 32 3a f1  3b bd 32 34 30 3b 3a ec  |,Y%+72:.;.240;:.|
000009c0  58 25 2b 33 32 2c 59 25  2b 34 30 3a f1 3b bd 32  |X%+32,Y%+40:.;.2|
000009d0  34 30 3a e1 0d 03 7a 36  e7 63 61 72 64 25 3d 37  |40:...z6.card%=7|
000009e0  20 ec 58 25 2b 33 32 2c  59 25 2b 31 30 34 3a f2  | .X%+32,Y%+104:.|
000009f0  66 69 76 65 3a ec 58 25  2b 33 32 2c 59 25 2b 34  |five:.X%+32,Y%+4|
00000a00  30 3a f1 3b bd 32 34 30  3a e1 0d 03 84 37 e7 63  |0:.;.240:....7.c|
00000a10  61 72 64 25 3d 38 20 ec  58 25 2b 33 32 2c 59 25  |ard%=8 .X%+32,Y%|
00000a20  2b 31 30 34 3a f1 3b bd  32 34 31 3b 3a ec 58 25  |+104:.;.241;:.X%|
00000a30  2b 33 32 2c 59 25 2b 37  32 3a f2 66 69 76 65 3a  |+32,Y%+72:.five:|
00000a40  e1 0d 03 8e 4b e7 63 61  72 64 25 3d 39 20 ec 58  |....K.card%=9 .X|
00000a50  25 2b 33 32 2c 59 25 2b  31 31 32 3a f1 3b bd 32  |%+32,Y%+112:.;.2|
00000a60  34 30 3b 3a ec 58 25 2b  33 32 2c 59 25 2b 38 38  |40;:.X%+32,Y%+88|
00000a70  3a f2 66 69 76 65 3a ec  58 25 2b 33 32 2c 59 25  |:.five:.X%+32,Y%|
00000a80  2b 33 32 3a f1 3b bd 32  34 30 3a e1 0d 03 98 36  |+32:.;.240:....6|
00000a90  e7 63 61 72 64 25 3d 31  30 20 ec 58 25 2b 33 32  |.card%=10 .X%+32|
00000aa0  2c 59 25 2b 31 31 32 3a  f2 66 69 76 65 3a ec 58  |,Y%+112:.five:.X|
00000ab0  25 2b 33 32 2c 59 25 2b  36 36 3a f2 66 69 76 65  |%+32,Y%+66:.five|
00000ac0  3a e1 0d 03 a2 3b e7 63  61 72 64 25 3d 31 31 20  |:....;.card%=11 |
00000ad0  43 24 3d bd 32 34 32 20  8b e7 63 61 72 64 25 3d  |C$=.242 ..card%=|
00000ae0  31 32 20 43 24 3d bd 32  34 33 20 8b e7 63 61 72  |12 C$=.243 ..car|
00000af0  64 25 3d 31 33 20 43 24  3d bd 32 34 34 0d 03 ac  |d%=13 C$=.244...|
00000b00  59 e7 63 61 72 64 25 3d  31 31 20 44 24 3d bd 32  |Y.card%=11 D$=.2|
00000b10  34 38 2b bd 32 34 39 2b  bd 32 35 32 20 8b e7 63  |48+.249+.252 ..c|
00000b20  61 72 64 25 3d 31 32 20  44 24 3d bd 32 34 38 2b  |ard%=12 D$=.248+|
00000b30  bd 32 35 30 2b bd 32 35  32 20 8b e7 63 61 72 64  |.250+.252 ..card|
00000b40  25 3d 31 33 20 44 24 3d  bd 32 34 38 2b bd 32 35  |%=13 D$=.248+.25|
00000b50  31 2b bd 32 35 32 0d 03  b6 15 ec 58 25 2b 33 32  |1+.252.....X%+32|
00000b60  2c 59 25 2b 31 32 38 3a  f1 43 24 0d 03 c0 1d ec  |,Y%+128:.C$.....|
00000b70  58 25 2c 59 25 2b 39 36  3a f1 bd 32 34 35 2b bd  |X%,Y%+96:..245+.|
00000b80  32 34 36 2b bd 32 34 37  0d 03 ca 1e e6 30 2c 30  |246+.247.....0,0|
00000b90  3a ec 58 25 2c 59 25 2b  36 34 3a f1 44 24 3a e6  |:.X%,Y%+64:.D$:.|
00000ba0  30 2c 63 6f 6c 25 0d 03  d4 18 ec 58 25 2b 33 32  |0,col%.....X%+32|
00000bb0  2c 59 25 2b 33 32 3a f1  bd 32 35 33 3a e1 0d 03  |,Y%+32:..253:...|
00000bc0  de 05 3a 0d 03 e8 0a dd  f2 7a 65 72 6f 0d 03 f2  |..:......zero...|
00000bd0  26 ef 32 34 2c 58 25 2d  34 3b 59 25 2d 34 3b 58  |&.24,X%-4;Y%-4;X|
00000be0  25 2b 39 36 3b 59 25 2b  31 32 38 3b 3a e6 30 2c  |%+96;Y%+128;:.0,|
00000bf0  33 3a da 0d 03 fc 11 ec  58 25 2c 59 25 2b 33 32  |3:......X%,Y%+32|
00000c00  3a f1 45 24 0d 04 06 11  ec 58 25 2c 59 25 2b 36  |:.E$.....X%,Y%+6|
00000c10  34 3a f1 45 24 0d 04 10  11 ec 58 25 2c 59 25 2b  |4:.E$.....X%,Y%+|
00000c20  39 36 3a f1 45 24 0d 04  1a 12 ec 58 25 2c 59 25  |96:.E$.....X%,Y%|
00000c30  2b 31 32 38 3a f1 45 24  0d 04 24 05 e1 0d 04 2e  |+128:.E$..$.....|
00000c40  0a dd f2 64 65 61 6c 0d  04 38 12 59 25 3d 36 38  |...deal..8.Y%=68|
00000c50  38 3a e3 49 25 3d 31 b8  34 0d 04 42 09 4b 25 3d  |8:.I%=1.4..B.K%=|
00000c60  38 30 0d 04 4c 1b e3 4a  25 3d 31 b8 37 3a 58 25  |80..L..J%=1.7:X%|
00000c70  3d 4b 25 2b 34 30 2a 28  4a 25 2d 31 29 0d 04 56  |=K%+40*(J%-1)..V|
00000c80  1d 43 25 3d 43 25 28 49  25 2c 4a 25 29 3a 53 25  |.C%=C%(I%,J%):S%|
00000c90  3d 53 25 28 49 25 2c 4a  25 29 0d 04 60 10 f2 63  |=S%(I%,J%)..`..c|
00000ca0  61 72 64 28 43 25 2c 53  25 29 0d 04 6a 05 ed 0d  |ard(C%,S%)..j...|
00000cb0  04 74 0d 59 25 3d 59 25  2d 31 36 30 0d 04 7e 05  |.t.Y%=Y%-160..~.|
00000cc0  ed 0d 04 88 12 59 25 3d  36 38 38 3a e3 49 25 3d  |.....Y%=688:.I%=|
00000cd0  35 b8 38 0d 04 92 0a 4b  25 3d 38 34 38 0d 04 9c  |5.8....K%=848...|
00000ce0  1b e3 4a 25 3d 31 b8 36  3a 58 25 3d 4b 25 2b 34  |..J%=1.6:X%=K%+4|
00000cf0  30 2a 28 4a 25 2d 31 29  0d 04 a6 1d 43 25 3d 43  |0*(J%-1)....C%=C|
00000d00  25 28 49 25 2c 4a 25 29  3a 53 25 3d 53 25 28 49  |%(I%,J%):S%=S%(I|
00000d10  25 2c 4a 25 29 0d 04 b0  10 f2 63 61 72 64 28 43  |%,J%).....card(C|
00000d20  25 2c 53 25 29 0d 04 ba  05 ed 0d 04 c4 0d 59 25  |%,S%).........Y%|
00000d30  3d 59 25 2d 31 36 30 0d  04 ce 05 ed 0d 04 d8 05  |=Y%-160.........|
00000d40  3a 0d 04 e2 20 ef 34 3a  e3 6e 25 3d 31 b8 34 3a  |:... .4:.n%=1.4:|
00000d50  f1 8a 31 36 2c 6e 25 2a  35 2b 33 29 3b 6e 25 3a  |..16,n%*5+3);n%:|
00000d60  ed 0d 04 ec 2c e3 6e 25  3d 31 b8 38 3a e7 6e 25  |....,.n%=1.8:.n%|
00000d70  3e 34 20 8c 78 25 3d 32  35 3a 79 25 3d 6e 25 2d  |>4 .x%=25:y%=n%-|
00000d80  34 20 8b 78 25 3d 31 3a  79 25 3d 6e 25 0d 04 f6  |4 .x%=1:y%=n%...|
00000d90  1b f1 8a 78 25 2c 35 2a  79 25 2b 33 29 bd 28 36  |...x%,5*y%+3).(6|
00000da0  34 2b 6e 25 29 3b 3a ed  0d 05 00 05 e1 0d 05 0a  |4+n%);:.........|
00000db0  05 3a 0d 05 14 0b dd f2  65 6e 74 65 72 0d 05 1e  |.:......enter...|
00000dc0  19 f1 8a 32 2c 32 38 29  3b 22 53 63 6f 72 65 3a  |...2,28);"Score:|
00000dd0  20 22 3b 73 63 25 0d 05  28 1a f1 8a 36 2c 33 30  | ";sc%..(...6,30|
00000de0  29 3b 22 4d 6f 76 65 20  66 72 6f 6d 3f 20 22 3b  |);"Move from? ";|
00000df0  0d 05 32 10 66 6c 61 67  25 3d a3 3a f2 6b 65 79  |..2.flag%=.:.key|
00000e00  0d 05 3c 15 e7 4b 24 3d  22 52 22 20 f2 73 61 76  |..<..K$="R" .sav|
00000e10  64 61 74 3a f9 0d 05 46  12 e7 4b 24 3d 22 53 22  |dat:...F..K$="S"|
00000e20  20 f2 77 69 6e 3a f9 0d  05 50 09 63 68 6b 3d b9  | .win:...P.chk=.|
00000e30  0d 05 5a 0c 66 72 6f 6d  25 3d 61 25 0d 05 64 07  |..Z.from%=a%..d.|
00000e40  f1 4b 24 0d 05 6e 19 f1  8a 32 36 2c 33 30 29 3b  |.K$..n...26,30);|
00000e50  22 4d 6f 76 65 20 74 6f  3f 20 22 3b 0d 05 78 10  |"Move to? ";..x.|
00000e60  66 6c 61 67 25 3d b9 3a  f2 6b 65 79 0d 05 82 0a  |flag%=.:.key....|
00000e70  74 6f 25 3d 61 25 0d 05  8c 07 f1 4b 24 0d 05 96  |to%=a%.....K$...|
00000e80  1b e3 7a 25 3d 31 b8 31  30 30 3a ed 3a f1 8a 34  |..z%=1.100:.:..4|
00000e90  2c 33 30 29 3b 89 33 35  0d 05 a0 05 e1 0d 05 aa  |,30);.35........|
00000ea0  05 3a 0d 05 b4 09 dd f2  6b 65 79 0d 05 be 2e e7  |.:......key.....|
00000eb0  66 6c 61 67 25 20 41 24  3d 22 41 42 43 44 45 46  |flag% A$="ABCDEF|
00000ec0  47 48 31 32 33 34 22 20  8b 20 41 24 3d 22 41 42  |GH1234" . A$="AB|
00000ed0  43 44 45 46 47 48 52 53  22 0d 05 c8 13 f5 3a 61  |CDEFGHRS".....:a|
00000ee0  25 3d a7 41 24 2c be 29  3a fd 61 25 0d 05 d2 10  |%=.A$,.):.a%....|
00000ef0  4b 24 3d c1 41 24 2c 61  25 2c 31 29 0d 05 dc 0c  |K$=.A$,a%,1)....|
00000f00  6d 24 3d 6d 24 2b 4b 24  0d 05 e6 05 e1 0d 05 f0  |m$=m$+K$........|
00000f10  05 3a 0d 05 fa 11 dd f2  63 68 65 63 6b 3a 6d 76  |.:......check:mv|
00000f20  25 3d b9 0d 06 04 18 e7  44 25 28 66 72 6f 6d 25  |%=......D%(from%|
00000f30  29 3d 30 20 6d 76 25 3d  a3 3a e1 0d 06 0e 14 e7  |)=0 mv%=.:......|
00000f40  74 6f 25 3c 39 3a f2 63  68 65 63 6b 32 3a e1 0d  |to%<9:.check2:..|
00000f50  06 18 29 e7 53 25 28 66  72 6f 6d 25 2c 44 25 28  |..).S%(from%,D%(|
00000f60  66 72 6f 6d 25 29 29 3c  3e 28 74 6f 25 2d 38 29  |from%))<>(to%-8)|
00000f70  20 6d 76 25 3d a3 3a e1  0d 06 22 2d e7 43 25 28  | mv%=.:..."-.C%(|
00000f80  66 72 6f 6d 25 2c 44 25  28 66 72 6f 6d 25 29 29  |from%,D%(from%))|
00000f90  3c 3e 41 25 28 74 6f 25  2d 38 29 2b 31 20 6d 76  |<>A%(to%-8)+1 mv|
00000fa0  25 3d a3 3a e1 0d 06 2c  05 e1 0d 06 36 05 3a 0d  |%=.:...,....6.:.|
00000fb0  06 40 0c dd f2 63 68 65  63 6b 32 0d 06 4a 17 e7  |.@...check2..J..|
00000fc0  44 25 28 74 6f 25 29 3d  31 36 20 6d 76 25 3d a3  |D%(to%)=16 mv%=.|
00000fd0  3a e1 0d 06 54 16 e7 44  25 28 74 6f 25 29 3d 30  |:...T..D%(to%)=0|
00000fe0  20 6d 76 25 3d b9 3a e1  0d 06 5e 33 e7 43 25 28  | mv%=.:...^3.C%(|
00000ff0  66 72 6f 6d 25 2c 44 25  28 66 72 6f 6d 25 29 29  |from%,D%(from%))|
00001000  2b 31 3c 3e 43 25 28 74  6f 25 2c 44 25 28 74 6f  |+1<>C%(to%,D%(to|
00001010  25 29 29 20 6d 76 25 3d  a3 3a e1 0d 06 68 05 e1  |%)) mv%=.:...h..|
00001020  0d 06 72 05 3a 0d 06 7c  0a dd f2 66 72 6f 6d 0d  |..r.:..|...from.|
00001030  06 86 12 e7 66 72 6f 6d  25 3e 38 20 e5 8d 54 48  |....from%>8 ..TH|
00001040  47 0d 06 90 33 43 31 25  3d 43 25 28 66 72 6f 6d  |G...3C1%=C%(from|
00001050  25 2c 44 25 28 66 72 6f  6d 25 29 29 3a 53 31 25  |%,D%(from%)):S1%|
00001060  3d 53 25 28 66 72 6f 6d  25 2c 44 25 28 66 72 6f  |=S%(from%,D%(fro|
00001070  6d 25 29 29 0d 06 9a 2f  43 25 28 66 72 6f 6d 25  |m%)).../C%(from%|
00001080  2c 44 25 28 66 72 6f 6d  25 29 29 3d 30 3a 53 25  |,D%(from%))=0:S%|
00001090  28 66 72 6f 6d 25 2c 44  25 28 66 72 6f 6d 25 29  |(from%,D%(from%)|
000010a0  29 3d 30 0d 06 a4 1e 44  25 28 66 72 6f 6d 25 29  |)=0....D%(from%)|
000010b0  3d 44 25 28 66 72 6f 6d  25 29 2d 31 3a 5a 25 3d  |=D%(from%)-1:Z%=|
000010c0  31 0d 06 ae 20 e7 44 25  28 66 72 6f 6d 25 29 3e  |1... .D%(from%)>|
000010d0  36 20 8c 5a 25 3d 44 25  28 66 72 6f 6d 25 29 2d  |6 .Z%=D%(from%)-|
000010e0  36 0d 06 b8 42 e7 66 72  6f 6d 25 3e 34 20 4b 25  |6...B.from%>4 K%|
000010f0  3d 38 34 38 3a 59 25 3d  38 34 38 2d 31 36 30 2a  |=848:Y%=848-160*|
00001100  28 66 72 6f 6d 25 2d 34  29 20 8b 4b 25 3d 38 30  |(from%-4) .K%=80|
00001110  3a 59 25 3d 38 34 38 2d  31 36 30 2a 28 66 72 6f  |:Y%=848-160*(fro|
00001120  6d 25 29 0d 06 c2 29 e6  30 2c 31 32 38 3a ef 32  |m%)...).0,128:.2|
00001130  34 2c 4b 25 2d 38 3b 59  25 2d 38 3b 4b 25 2b 34  |4,K%-8;Y%-8;K%+4|
00001140  30 30 3b 59 25 2b 31 35  30 3b 3a da 0d 06 cc 17  |00;Y%+150;:.....|
00001150  e7 20 44 25 28 66 72 6f  6d 25 29 3d 30 20 e5 8d  |. D%(from%)=0 ..|
00001160  64 7e 46 0d 06 d6 2f 49  25 3d 66 72 6f 6d 25 3a  |d~F.../I%=from%:|
00001170  e3 4a 25 3d 5a 25 b8 20  44 25 28 66 72 6f 6d 25  |.J%=Z%. D%(from%|
00001180  29 3a 58 25 3d 4b 25 2b  34 30 2a 28 4a 25 2d 5a  |):X%=K%+40*(J%-Z|
00001190  25 29 0d 06 e0 1d 43 25  3d 43 25 28 49 25 2c 4a  |%)....C%=C%(I%,J|
000011a0  25 29 3a 53 25 3d 53 25  28 49 25 2c 4a 25 29 0d  |%):S%=S%(I%,J%).|
000011b0  06 ea 10 f2 63 61 72 64  28 43 25 2c 53 25 29 0d  |....card(C%,S%).|
000011c0  06 f4 05 ed 0d 06 fe 05  e1 0d 07 08 11 66 72 6f  |.............fro|
000011d0  6d 25 3d 66 72 6f 6d 25  2d 38 0d 07 12 0d 73 63  |m%=from%-8....sc|
000011e0  25 3d 73 63 25 2d 31 0d  07 1c 1b 43 31 25 3d 41  |%=sc%-1....C1%=A|
000011f0  25 28 66 72 6f 6d 25 29  3a 53 31 25 3d 66 72 6f  |%(from%):S1%=fro|
00001200  6d 25 0d 07 26 19 41 25  28 66 72 6f 6d 25 29 3d  |m%..&.A%(from%)=|
00001210  41 25 28 66 72 6f 6d 25  29 2d 31 0d 07 30 1b 58  |A%(from%)-1..0.X|
00001220  25 3d 35 36 30 3a 59 25  3d 38 34 38 2d 31 36 30  |%=560:Y%=848-160|
00001230  2a 66 72 6f 6d 25 0d 07  3a 19 43 25 3d 41 25 28  |*from%..:.C%=A%(|
00001240  66 72 6f 6d 25 29 3a 53  25 3d 66 72 6f 6d 25 0d  |from%):S%=from%.|
00001250  07 44 10 f2 63 61 72 64  28 43 25 2c 53 25 29 0d  |.D..card(C%,S%).|
00001260  07 4e 05 e1 0d 07 58 05  3a 0d 07 62 08 dd f2 74  |.N....X.:..b...t|
00001270  6f 0d 07 6c 10 e7 74 6f  25 3e 38 20 e5 8d 64 5a  |o..l..to%>8 ..dZ|
00001280  47 0d 07 76 1a 44 25 28  74 6f 25 29 3d 44 25 28  |G..v.D%(to%)=D%(|
00001290  74 6f 25 29 2b 31 3a 5a  25 3d 31 0d 07 80 1c e7  |to%)+1:Z%=1.....|
000012a0  20 44 25 28 74 6f 25 29  3e 37 20 5a 25 3d 44 25  | D%(to%)>7 Z%=D%|
000012b0  28 74 6f 25 29 2d 36 0d  07 8a 2b 43 25 28 74 6f  |(to%)-6...+C%(to|
000012c0  25 2c 44 25 28 74 6f 25  29 29 3d 43 31 25 3a 53  |%,D%(to%))=C1%:S|
000012d0  25 28 74 6f 25 2c 44 25  28 74 6f 25 29 29 3d 53  |%(to%,D%(to%))=S|
000012e0  31 25 0d 07 94 3c e7 74  6f 25 3e 34 20 4b 25 3d  |1%...<.to%>4 K%=|
000012f0  38 34 38 3a 59 25 3d 38  34 38 2d 31 36 30 2a 28  |848:Y%=848-160*(|
00001300  74 6f 25 2d 34 29 20 8b  4b 25 3d 38 30 3a 59 25  |to%-4) .K%=80:Y%|
00001310  3d 38 34 38 2d 31 36 30  2a 28 74 6f 25 29 0d 07  |=848-160*(to%)..|
00001320  9e 29 e6 30 2c 31 32 38  3a ef 32 34 2c 4b 25 2d  |.).0,128:.24,K%-|
00001330  38 3b 59 25 2d 38 3b 4b  25 2b 34 30 30 3b 59 25  |8;Y%-8;K%+400;Y%|
00001340  2b 31 35 30 3b 3a da 0d  07 a8 2c 49 25 3d 74 6f  |+150;:....,I%=to|
00001350  25 3a e3 4a 25 3d 5a 25  20 b8 20 44 25 28 74 6f  |%:.J%=Z% . D%(to|
00001360  25 29 3a 58 25 3d 4b 25  2b 34 30 2a 28 4a 25 2d  |%):X%=K%+40*(J%-|
00001370  5a 25 29 0d 07 b2 1d 43  25 3d 43 25 28 49 25 2c  |Z%)....C%=C%(I%,|
00001380  4a 25 29 3a 53 25 3d 53  25 28 49 25 2c 4a 25 29  |J%):S%=S%(I%,J%)|
00001390  0d 07 bc 10 f2 63 61 72  64 28 43 25 2c 53 25 29  |.....card(C%,S%)|
000013a0  0d 07 c6 05 ed 0d 07 d0  05 e1 0d 07 da 0d 74 6f  |..............to|
000013b0  25 3d 74 6f 25 2d 38 0d  07 e4 15 41 25 28 74 6f  |%=to%-8....A%(to|
000013c0  25 29 3d 41 25 28 74 6f  25 29 2b 31 0d 07 ee 19  |%)=A%(to%)+1....|
000013d0  58 25 3d 35 36 30 3a 59  25 3d 38 34 38 2d 31 36  |X%=560:Y%=848-16|
000013e0  30 2a 74 6f 25 0d 07 f8  15 43 25 3d 41 25 28 74  |0*to%....C%=A%(t|
000013f0  6f 25 29 3a 53 25 3d 74  6f 25 0d 08 02 10 f2 63  |o%):S%=to%.....c|
00001400  61 72 64 28 43 25 2c 53  25 29 0d 08 0c 0d 73 63  |ard(C%,S%)....sc|
00001410  25 3d 73 63 25 2b 31 0d  08 16 05 e1 0d 08 20 05  |%=sc%+1....... .|
00001420  3a 0d 08 2a 18 dd f2 77  69 6e 3a ef 32 33 2c 31  |:..*...win:.23,1|
00001430  2c 30 3b 30 3b 30 3b 30  3b 0d 08 34 11 fb 31 32  |,0;0;0;0;..4..12|
00001440  38 3a db 3a f2 74 69 74  6c 65 0d 08 3e 2f f4 20  |8:.:.title..>/. |
00001450  49 46 77 69 6e 25 20 50  52 49 4e 54 54 41 42 28  |IFwin% PRINTTAB(|
00001460  31 32 2c 34 29 3b 22 43  4f 4e 47 52 41 54 55 4c  |12,4);"CONGRATUL|
00001470  41 54 49 4f 4e 53 21 21  22 0d 08 48 2e f1 8a 34  |ATIONS!!"..H...4|
00001480  2c 36 29 22 47 61 6d 65  20 4e 6f 2e 20 20 53 63  |,6)"Game No.  Sc|
00001490  6f 72 65 20 20 20 20 59  6f 75 72 20 53 74 61 74  |ore    Your Stat|
000014a0  69 73 74 69 63 73 22 0d  08 52 2e f1 8a 34 2c 37  |istics"..R...4,7|
000014b0  29 22 7e 7e 7e 7e 7e 7e  7e 7e 20 20 7e 7e 7e 7e  |)"~~~~~~~~  ~~~~|
000014c0  7e 20 20 20 20 7e 7e 7e  7e 7e 7e 7e 7e 7e 7e 7e  |~    ~~~~~~~~~~~|
000014d0  7e 7e 7e 7e 22 0d 08 5c  18 ef 32 38 2c 32 2c 32  |~~~~"..\..28,2,2|
000014e0  34 2c 31 39 2c 38 3a fb  31 33 30 3a db 0d 08 66  |4,19,8:.130:...f|
000014f0  0d f2 70 72 69 6e 74 64  61 74 0d 08 70 26 ef 32  |..printdat..p&.2|
00001500  36 3a fb 31 32 38 3a f1  8a 32 31 2c 38 29 22 47  |6:.128:..21,8)"G|
00001510  61 6d 65 73 20 70 6c 61  79 65 64 20 22 3b 4e 25  |ames played ";N%|
00001520  0d 08 7a 32 f1 8a 32 31  2c 31 30 29 22 57 69 6e  |..z2..21,10)"Win|
00001530  73 20 22 3b 77 69 6e 25  3b 8a 33 30 2c 31 30 29  |s ";win%;.30,10)|
00001540  3b 22 4c 6f 73 73 65 73  20 22 3b 4e 25 2d 77 69  |;"Losses ";N%-wi|
00001550  6e 25 0d 08 84 29 f1 8a  32 31 2c 31 32 29 22 41  |n%...)..21,12)"A|
00001560  76 65 72 61 67 65 20 73  63 6f 72 65 20 22 3b a8  |verage score ";.|
00001570  28 74 6f 74 73 63 25 2f  4e 25 29 0d 08 8e 21 f1  |(totsc%/N%)...!.|
00001580  8a 36 2c 32 38 29 3b 22  41 6e 6f 74 68 65 72 20  |.6,28);"Another |
00001590  67 61 6d 65 3f 20 28 59  2f 4e 29 22 0d 08 98 17  |game? (Y/N)"....|
000015a0  f5 3a 61 25 3d a7 22 59  79 4e 6e 22 2c be 29 3a  |.:a%=."YyNn",.):|
000015b0  fd 61 25 0d 08 a2 11 e7  61 25 3e 32 20 ef 32 32  |.a%.....a%>2 .22|
000015c0  2c 36 3a e0 0d 08 ac 05  e1 0d 08 b6 05 3a 0d 08  |,6:..........:..|
000015d0  c0 0e dd f2 70 72 69 6e  74 64 61 74 0d 08 ca 0c  |....printdat....|
000015e0  74 6f 74 73 63 25 3d 30  0d 08 d4 10 41 3d ad 22  |totsc%=0....A=."|
000015f0  47 2e 53 41 44 41 54 22  0d 08 de 0a e8 23 41 2c  |G.SADAT".....#A,|
00001600  4e 25 0d 08 e8 0b e3 4e  3d 31 b8 4e 25 0d 08 f2  |N%.....N=1.N%...|
00001610  14 e8 23 41 2c 4d 4d 25  2c 73 63 25 2c 77 69 6e  |..#A,MM%,sc%,win|
00001620  25 0d 08 fc 13 f1 27 4d  4d 25 3b 22 20 20 20 22  |%.....'MM%;"   "|
00001630  3b 73 63 25 0d 09 06 15  74 6f 74 73 63 25 3d 74  |;sc%....totsc%=t|
00001640  6f 74 73 63 25 2b 73 63  25 0d 09 10 05 ed 0d 09  |otsc%+sc%.......|
00001650  1a 07 d9 23 41 0d 09 24  05 e1 0d 09 2e 05 3a 0d  |...#A..$......:.|
00001660  09 38 1b dd f2 73 61 76  64 61 74 3a ef 32 33 2c  |.8...savdat:.23,|
00001670  31 2c 30 3b 30 3b 30 3b  30 3b 0d 09 42 32 f1 8a  |1,0;0;0;0;..B2..|
00001680  31 2c 33 30 29 22 20 20  20 20 20 20 53 61 76 69  |1,30)"      Savi|
00001690  6e 67 20 64 61 74 61 2e  20 50 6c 65 61 73 65 20  |ng data. Please |
000016a0  77 61 69 74 2e 2e 2e 20  20 20 22 3b 0d 09 4c 10  |wait...   ";..L.|
000016b0  41 3d ad 22 47 2e 53 41  44 41 54 22 0d 09 56 0a  |A=."G.SADAT"..V.|
000016c0  e8 23 41 2c 4e 25 0d 09  60 09 cf 23 41 3d 30 0d  |.#A,N%..`..#A=0.|
000016d0  09 6a 0a f1 23 41 2c 4e  25 0d 09 74 11 cf 23 41  |.j..#A,N%..t..#A|
000016e0  3d 28 4e 25 2a 31 35 29  2b 35 0d 09 7e 14 f1 23  |=(N%*15)+5..~..#|
000016f0  41 2c 4d 4d 25 2c 73 63  25 2c 77 69 6e 25 0d 09  |A,MM%,sc%,win%..|
00001700  88 09 cf 23 41 3d 30 0d  09 92 0b 4e 25 3d 4e 25  |...#A=0....N%=N%|
00001710  2b 31 0d 09 9c 0a f1 23  41 2c 4e 25 0d 09 a6 07  |+1.....#A,N%....|
00001720  d9 23 41 0d 09 b0 32 f1  8a 31 2c 33 30 29 22 20  |.#A...2..1,30)" |
00001730  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00001750  20 20 20 22 3b 0d 09 ba  05 e1 0d 09 c4 05 3a 0d  |   ";.........:.|
00001760  09 ce 52 2a 4b 2e 30 20  2a 54 2e 7c 4d 46 4f 52  |..R*K.0 *T.|MFOR|
00001770  49 25 3d 30 54 4f 20 54  4f 50 2d 50 41 47 45 20  |I%=0TO TOP-PAGE |
00001780  53 54 45 50 34 3a 49 25  21 26 45 30 30 3d 49 25  |STEP4:I%!&E00=I%|
00001790  21 50 41 47 45 3a 4e 45  58 54 7c 4d 50 41 47 45  |!PAGE:NEXT|MPAGE|
000017a0  3d 26 45 30 30 7c 4d 4f  4c 44 7c 4d 52 55 4e 7c  |=&E00|MOLD|MRUN||
000017b0  4d 0d 09 d8 10 2a 46 58  31 33 38 2c 30 2c 31 32  |M....*FX138,0,12|
000017c0  38 0d ff                                          |8..|
000017c3
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 .