Home » CEEFAX disks » telesoftware1.adl » Games/DOMINO2

Games/DOMINO2

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 » CEEFAX disks » telesoftware1.adl
Filename: Games/DOMINO2
Read OK: ✔
File size: 12F5 bytes
Load address: 1900
Exec address: 8023
File contents
   10REM"�DOMINO By R.F.Bloodworth 1986
   15IFPAGE>&1200PROCR
   20DIMA%(1,13),B%(1,13),C%(1),D%(1),I%(1),F%(27),G%(27),H%(6),N$(1):G=RND(-TIME):B$=STRING$(39," "):ONERRORSTOP
   30MODE7:VDU23;8202;0;0;0;:PROCi:REPEATPROCg:MODE1:PROCq:PROCj:MODE7:VDU23;8202;0;0;0;:PROCp:UNTILA%:END
   40DEFPROCi:VDU23,230;0;0;0;0,23,231;0,0,24,24;0,0,23,232,0,96,96;0,6,6,0,23,233,0,96,96,24,24,6,6,0,23,234,0,102,102;0,102,102,0,23,235,0,102,102,24,24,102,102,0,23,236,0,102,0,102,0,102;0:A%=0:w%=0:x%=0:y%=0:N$(0)="BEEB":*TV0,1
   50T$="��DOMINOES":PRINTTAB(12,1)T$'SPC12T$''"�The object is to lay all your pieces"'"�before the computer does and to have"'"�least spots if you both knock.":INPUT'"�Please enter your name :- "N$(1):PROCs(5):IFLENN$(1)>9N$(1)=LEFT$(N$(1),9)
   60PRINT'"�Your dominoes will be displayed at"'"�the foot of the screen."''"�To lay a domino type the numbers on"'"�each end of it & H or T for Head or"'"�Tail to indicate which end to lay."''"�For example if you wanted to lay a"
   70PRINT"�six/three at the head of the chain"'"�you would type 6 3 H."''"�If you can't go , press K to knock."'''SPC5"�PRESS SPACE BAR TO START";:REPEATUNTILGET:ENDPROC
   80DEFPROCg:FORH%=0TO6:H%(H%)=7:NEXT:N%=-1:FORH%=6TO0STEP-1:FORM%=H%TO0STEP-1:N%=N%+1:G%(N%)=M%:F%(N%)=H%:NEXT,:FORI%=0TO13:FORK%=0TO1
   90J%=RND(28)-1:IFF%(J%)=-1GOTO90ELSEA%(K%,I%)=F%(J%):B%(K%,I%)=G%(J%):F%(J%)=TRUE:G%(J%)=TRUE:NEXT,:C%(0)=13:C%(1)=13:I%(0)=0:I%(1)=0:B%=0:H%=0:M%=0:ENDPROC
  100DEFPROCq:VDU19,0,4;0;19,1,0;0;23;8202;0;0;0;:a%=0:b%=1:c%=1:d%=0:e%=2:s%=4:t%=4:u%=9:v%=10:O%=2:GCOL0,132:CLG:COLOUR132:COLOUR1:PRINTTAB(7,1)"DOMINOES by R.F.Bloodworth"TAB(0,3)"Head"TAB(0,16)"Tail":ENDPROC
  110DEFPROCj:C%=FN1:IFC%=1GOTO130
  120C%=0:PROCc:IFI%(0)PROCt(0):ENDPROC:ELSEIFD%(0)ANDD%(1)PROCh:ENDPROC
  130PROCe:IFI%(1)PROCt(1):ENDPROC:ELSEIFD%(0)ANDD%(1)PROCh:ENDPROC:ELSEGOTO120
  140DEFFN1:r%=RND(2)-1:PROCn(r%):COLOUR1:COLOUR132:PRINTTAB(0,25)N$(r%)" GOES FIRST":PROCs(25):PRINTTAB(LENN$(r%),25)SPC11:IFr%=1B%=TRUE:=1:ELSE=0
  150DEFPROCn(N%):PRINTTAB(0,25)N$(N%)TAB(13,30)"YOUR DOMINOES";:ENDPROC
  160DEFPROCd:FORI%=0TO13:IFA%(1,I%)=-1COLOUR132:PRINTTAB(I%*2+6,27)CHR$230+CHR$10+CHR$8+CHR$230:GOTO170ELSECOLOUR129:COLOUR3:PRINTTAB(I%*2+6,27)CHR$(230+A%(1,I%))+CHR$8+CHR$10+CHR$(230+B%(1,I%))
  170NEXT:ENDPROC
  180DEFFN2:COLOUR1:COLOUR132:*FX21
  190PRINTTAB(0,25)B$TAB(0,25)N$(1)" LAYS:- "SPC9;:l%=GET-48:IFl%=27:=0
  200PRINTTAB((LENN$(1)+8),25);l%",";:m%=GET-48:PRINT;m%;:Q%=GET:IFQ%=84n%=1:ELSEIFQ%=72n%=0:ELSEVDU7:GOTO190
  210PRINTSPC1CHR$Q%:F%=0:FORI%=1TO14:IFl%=A%(1,I%-1)ANDm%=B%(1,I%-1)ORm%=A%(1,I%-1)ANDl%=B%(1,I%-1)F%=I%
  220NEXT:IFF%=0VDU7:GOTO190ELSE=F%
  230DEFPROCc:P%=0:f%=0:g%=0:h%=0:i%=0:FORI%=1TO14:IFA%(0,I%-1)=H%f%=FN3(B%(0,I%-1),M%,I%):h%=1:PROCa:ELSEIFA%(0,I%-1)=M%f%=FN3(H%,B%(0,I%-1),I%):h%=0:PROCa
  240IFB%(0,I%-1)=H%f%=FN3(A%(0,I%-1),M%,I%):h%=1:PROCa:ELSEIFB%(0,I%-1)=M%f%=FN3(H%,A%(0,I%-1),I%):h%=0:PROCa
  250NEXT:IFP%=0D%(0)=TRUE:PROCk(0):ENDPROC:ELSED%(0)=0:PROCu(A%(0,P%-1),B%(0,P%-1),i%):PROCl(A%(0,P%-1),B%(0,P%-1),i%):A%(0,P%-1)=TRUE:B%(0,P%-1)=TRUE:C%(0)=C%(0)-1:IFC%(0)=-1I%(0)=TRUE:ELSEI%(0)=0
  260ENDPROC
  270DEFFN3(H%,M%,I%):IFC%(1)=1:=31
  280o%=0:p%=0:q%=0:FORz%=0TO13:IFz%=I%GOTO300ELSEIF((A%(0,z%)=H%)OR(A%(0,z%)=M%))o%=13-H%(B%(0,z%)):IFo%>p%p%=o%:q%=z%
  290IF((B%(0,z%)=M%)OR(B%(0,z%)=H%))o%=14-H%(A%(0,z%)):IFo%>p%p%=o%:q%=z%
  300NEXT:IF(H%(H%)+H%(M%)=0)ANDq%>0=p%+14
  310IFq%>0=p%ELSE=13-H%(H%)+H%(M%)
  320DEFPROCa:IFf%>g%g%=f%:P%=I%:i%=h%
  330IFf%=g%IFRND(2)=1P%=I%:i%=h%
  340ENDPROC
  350DEFPROCl(j%,k%,L%):IFL%=0GOTO360ELSEIFH%=j%PROCo(j%,k%):H%=k%:ENDPROC:ELSEIFH%=k%PROCo(k%,j%):H%=j%:ENDPROC
  360IFM%=j%PROCr(j%,k%):M%=k%:ENDPROC:ELSEIFM%=k%PROCr(k%,j%):M%=j%:ENDPROC
  370ENDPROC
  380DEFPROCe
  390PROCd:z%=FN2:IFz%=0D%(1)=TRUE:PROCk(1):GOTO420ELSED%(1)=0:IFNOTB%ANDn%=1IFNOT(l%=H%ORm%=H%)VDU7:GOTO390
  400IFNOTB%ANDn%=0IFNOT((l%=M%)OR(m%=M%))VDU7:GOTO390
  410IFB%H%=l%:M%=m%:PROCu(H%,M%,n%):A%(1,z%-1)=TRUE:B%(1,z%-1)=TRUE:PROCr(H%,M%):C%(1)=C%(1)-1:H%(H%)=H%(H%)-1:H%(M%)=H%(M%)-1:B%=0:ELSEPROCm(l%,m%,n%,z%)
  420PROCd:PROCs(5):COLOUR132:PRINTTAB(0,25)B$:ENDPROC
  430DEFPROCt(N%):COLOUR1:COLOUR132:PRINTTAB(0,25)B$TAB((11-LENN$(N%))/2,25)N$(N%)" IS THE WINNER!  Press SPACE":PROCb:REPEATUNTILGET=32:IFN%=0w%=w%+1:ELSEx%=x%+1
  440ENDPROC
  450DEFPROCh:PROCf:COLOUR1:PRINTTAB(4,18)"Computer Spots=";D%"  Your spots=";G%:IFD%=G%PRINTTAB(0,25)SPC6"IT'S A DRAW !!   Press SPACE":PROCb:REPEATUNTILGET=32:y%=y%+1:ENDPROC
  460IFD%>G%PROCt(1):ENDPROC:ELSEPROCt(0):ENDPROC
  470DEFPROCp:T$="��DOMINOES SCORE TABLE":PRINT'SPC7T$'SPC7T$'''"�"SPC9N$(0)STRING$(13,".");w%'''"�"SPC9N$(1)STRING$((17-LENN$(1)),".");x%'''"�"SPC9"DRAWN"STRING$(12,".");y%'''''"�"SPC11"ANOTHER GAME ?";:REPEATG=GET:UNTILG=78ORG=89:CLS:IFG=78A%=TRUE
  480ENDPROC
  490DEFPROCs(E%):TIME=0:REPEATUNTILTIME>E%*10:ENDPROC
  500DEFPROCo(H%,M%):IFs%<34GOTO510ELSEIFO%=0O%=2:a%=0:b%=1ELSEIFO%=1O%=0:a%=-1:b%=0ELSEO%=1
  510IFs%>4GOTO520ELSEIFO%=0O%=2:a%=0:b%=1ELSEIFO%=1O%=0:a%=1:b%=0ELSEO%=1
  520s%=s%+a%:u%=u%+b%:COLOUR3:COLOUR129:PRINTTAB(s%,u%)(CHR$(230+H%)):s%=s%+a%:u%=u%+b%:PRINTTAB(s%,u%)(CHR$(230+M%)):ENDPROC
  530DEFPROCr(H%,M%):IFt%<34GOTO540ELSEIFe%=0e%=2:d%=0:c%=1:ELSEIFe%=1e%=0:d%=TRUE:c%=0ELSEe%=1
  540IFt%>4GOTO550ELSEIFe%=0e%=2:d%=0:c%=1ELSEIFe%=1e%=0:d%=1:c%=0ELSEe%=1
  550t%=t%+d%:v%=v%-c%:COLOUR3:COLOUR129:PRINTTAB(t%,v%)(CHR$(230+H%)):t%=t%+d%:v%=v%-c%:PRINTTAB(t%,v%)(CHR$(230+M%)):ENDPROC
  560DEFPROCu(H%,M%,L%):COLOUR132:COLOUR1:PRINTTAB(0,25)N$(C%)" LAYS:- ";H%",";M%" ";:IFL%=0PRINT"H";:ELSEPRINT"T";
  570PRINTSPC9:PROCs(15):ENDPROC
  580DEFPROCk(r%):COLOUR1:COLOUR132:PRINTTAB(0,25)N$(r%)" KNOCKS"SPC9:PROCs(2):SOUND0,-15,6,1:PROCs(2):SOUND0,-15,6,1:PROCs(5):ENDPROC
  590DEFPROCm(l%,m%,n%,z%):PROCl(l%,m%,n%):H%(l%)=H%(l%)-1:H%(m%)=H%(m%)-1:A%(1,z%-1)=TRUE:B%(1,z%-1)=TRUE:C%(1)=C%(1)-1:IFC%(1)=-1I%(1)=TRUE:ELSEI%(1)=0
  600ENDPROC
  610DEFPROCb:FORI%=0TO13:IFA%(0,I%)=-1COLOUR1:COLOUR132:PRINTTAB(12,20)"BEEB'S DOMINOES"TAB(I%*2+6,22)CHR$230+CHR$10+CHR$8+CHR$230:GOTO620ELSECOLOUR3:COLOUR129:PRINTTAB(I%*2+6,22)CHR$(230+A%(0,I%))+CHR$8+CHR$10+CHR$(230+B%(0,I%))
  620NEXT:ENDPROC
  630DEFPROCf:D%=0:G%=0:FORI%=0TO13:IFA%(0,I%)<>-1D%=D%+A%(0,I%)+B%(0,I%)
  640NEXT:FORI%=0TO13:IFA%(1,I%)<>-1G%=G%+A%(1,I%)+B%(1,I%)
  650NEXT:ENDPROC
  660DEFPROCR:FORR%=0TO(TOP-PAGE)STEP4:R%!&1200=R%!PAGE:NEXT:*KEY9O.|MRUN|M
  670*FX138,0,137
  680PAGE=&1200:END


$�"�DOMINO By R.F.Bloodworth 1986
�>&1200�R
Z�A%(1,13),B%(1,13),C%(1),D%(1),I%(1),F%(27),G%(27),H%(6),N$(1):G=�(-�):B$=�39," "):�
B�7:�23;8202;0;0;0;:�i:��g:�1:�q:�j:�7:�23;8202;0;0;0;:�p:�A%:�
(���i:�23,230;0;0;0;0,23,231;0,0,24,24;0,0,23,232,0,96,96;0,6,6,0,23,233,0,96,96,24,24,6,6,0,23,234,0,102,102;0,102,102,0,23,235,0,102,102,24,24,102,102,0,23,236,0,102,0,102,0,102;0:A%=0:w%=0:x%=0:y%=0:N$(0)="BEEB":*TV0,1
2�T$="��DOMINOES":�12,1)T$'�12T$''"�The object is to lay all your pieces"'"�before the computer does and to have"'"�least spots if you both knock.":�'"�Please enter your name :- "N$(1):�s(5):�N$(1)>9N$(1)=�N$(1),9)
<��'"�Your dominoes will be displayed at"'"�the foot of the screen."''"�To lay a domino type the numbers on"'"�each end of it & H or T for Head or"'"�Tail to indicate which end to lay."''"�For example if you wanted to lay a"
F��"�six/three at the head of the chain"'"�you would type 6 3 H."''"�If you can't go , press K to knock."'''�5"�PRESS SPACE BAR TO START";:���:�
Pg��g:�H%=0�6:H%(H%)=7:�:N%=-1:�H%=6�0�-1:�M%=H%�0�-1:N%=N%+1:G%(N%)=M%:F%(N%)=H%:�,:�I%=0�13:�K%=0�1
Z�J%=�(28)-1:�F%(J%)=-1�DZ@�A%(K%,I%)=F%(J%):B%(K%,I%)=G%(J%):F%(J%)=�:G%(J%)=�:�,:C%(0)=13:C%(1)=13:I%(0)=0:I%(1)=0:B%=0:H%=0:M%=0:�
d���q:�19,0,4;0;19,1,0;0;23;8202;0;0;0;:a%=0:b%=1:c%=1:d%=0:e%=2:s%=4:t%=4:u%=9:v%=10:O%=2:�0,132:�:�132:�1:�7,1)"DOMINOES by R.F.Bloodworth"�0,3)"Head"�0,16)"Tail":�
n��j:C%=�1:�C%=1�tB@
x+C%=0:�c:�I%(0)�t(0):�:��D%(0)�D%(1)�h:�
�-�e:�I%(1)�t(1):�:��D%(0)�D%(1)�h:�:��Dx@
�dݤ1:r%=�(2)-1:�n(r%):�1:�132:�0,25)N$(r%)" GOES FIRST":�s(25):�N$(r%),25)�11:�r%=1B%=�:=1:�=0
�2��n(N%):�0,25)N$(N%)�13,30)"YOUR DOMINOES";:�
���d:�I%=0�13:�A%(1,I%)=-1�132:�I%*2+6,27)�230+�10+�8+�230:�tj@��129:�3:�I%*2+6,27)�(230+A%(1,I%))+�8+�10+�(230+B%(1,I%))
��:�
�ݤ2:�1:�132:*FX21
�7�0,25)B$�0,25)N$(1)" LAYS:- "�9;:l%=�-48:�l%=27:=0
�O�(�N$(1)+8),25);l%",";:m%=�-48:�;m%;:Q%=�:�Q%=84n%=1:��Q%=72n%=0:��7:�t~@
�V�1�Q%:F%=0:�I%=1�14:�l%=A%(1,I%-1)�m%=B%(1,I%-1)�m%=A%(1,I%-1)�l%=B%(1,I%-1)F%=I%
��:�F%=0�7:�t~@�=F%
���c:P%=0:f%=0:g%=0:h%=0:i%=0:�I%=1�14:�A%(0,I%-1)=H%f%=�3(B%(0,I%-1),M%,I%):h%=1:�a:��A%(0,I%-1)=M%f%=�3(H%,B%(0,I%-1),I%):h%=0:�a
�`�B%(0,I%-1)=H%f%=�3(A%(0,I%-1),M%,I%):h%=1:�a:��B%(0,I%-1)=M%f%=�3(H%,A%(0,I%-1),I%):h%=0:�a
���:�P%=0D%(0)=�:�k(0):�:�D%(0)=0:�u(A%(0,P%-1),B%(0,P%-1),i%):�l(A%(0,P%-1),B%(0,P%-1),i%):A%(0,P%-1)=�:B%(0,P%-1)=�:C%(0)=C%(0)-1:�C%(0)=-1I%(0)=�:�I%(0)=0
�
ݤ3(H%,M%,I%):�C%(1)=1:=31
jo%=0:p%=0:q%=0:�z%=0�13:�z%=I%�TlA��((A%(0,z%)=H%)�(A%(0,z%)=M%))o%=13-H%(B%(0,z%)):�o%>p%p%=o%:q%=z%
"F�((B%(0,z%)=M%)�(B%(0,z%)=H%))o%=14-H%(A%(0,z%)):�o%>p%p%=o%:q%=z%
,#�:�(H%(H%)+H%(M%)=0)�q%>0=p%+14
6�q%>0=p%�=13-H%(H%)+H%(M%)
@��a:�f%>g%g%=f%:P%=I%:i%=h%
J�f%=g%�(2)=1P%=I%:i%=h%
T�
^M��l(j%,k%,L%):�L%=0�DhA��H%=j%�o(j%,k%):H%=k%:�:��H%=k%�o(k%,j%):H%=j%:�
h4�M%=j%�r(j%,k%):M%=k%:�:��M%=k%�r(k%,j%):M%=j%:�
r�
|��e
�N�d:z%=�2:�z%=0D%(1)=�:�k(1):�tdA�D%(1)=0:�B%�n%=1�(l%=H%�m%=H%)�7:�tFA
�(�B%�n%=0�((l%=M%)�(m%=M%))�7:�tFA
���B%H%=l%:M%=m%:�u(H%,M%,n%):A%(1,z%-1)=�:B%(1,z%-1)=�:�r(H%,M%):C%(1)=C%(1)-1:H%(H%)=H%(H%)-1:H%(M%)=H%(M%)-1:B%=0:��m(l%,m%,n%,z%)
��d:�s(5):�132:�0,25)B$:�
�t��t(N%):�1:�132:�0,25)B$�(11-�N$(N%))/2,25)N$(N%)" IS THE WINNER!  Press SPACE":�b:���=32:�N%=0w%=w%+1:�x%=x%+1
��
�}��h:�f:�1:�4,18)"Computer Spots=";D%"  Your spots=";G%:�D%=G%�0,25)�6"IT'S A DRAW !!   Press SPACE":�b:���=32:y%=y%+1:�
��D%>G%�t(1):�:��t(0):�
ֺ��p:T$="��DOMINOES SCORE TABLE":�'�7T$'�7T$'''"�"�9N$(0)�13,".");w%'''"�"�9N$(1)�(17-�N$(1)),".");x%'''"�"�9"DRAWN"�12,".");y%'''''"�"�11"ANOTHER GAME ?";:�G=�:�G=78�G=89:�:�G=78A%=�
��
���s(E%):�=0:���>E%*10:�
�H��o(H%,M%):�s%<34�d~A��O%=0O%=2:a%=0:b%=1��O%=1O%=0:a%=-1:b%=0�O%=1
�;�s%>4�THB��O%=0O%=2:a%=0:b%=1��O%=1O%=0:a%=1:b%=0�O%=1
Ys%=s%+a%:u%=u%+b%:�3:�129:�s%,u%)(�(230+H%)):s%=s%+a%:u%=u%+b%:�s%,u%)(�(230+M%)):�
H��r(H%,M%):�t%<34�T\B��e%=0e%=2:d%=0:c%=1:��e%=1e%=0:d%=�:c%=0�e%=1
;�t%>4�TfB��e%=0e%=2:d%=0:c%=1��e%=1e%=0:d%=1:c%=0�e%=1
&Yt%=t%+d%:v%=v%-c%:�3:�129:�t%,v%)(�(230+H%)):t%=t%+d%:v%=v%-c%:�t%,v%)(�(230+M%)):�
0P��u(H%,M%,L%):�132:�1:�0,25)N$(C%)" LAYS:- ";H%",";M%" ";:�L%=0�"H";:��"T";
:�9:�s(15):�
DV��k(r%):�1:�132:�0,25)N$(r%)" KNOCKS"�9:�s(2):�0,-15,6,1:�s(2):�0,-15,6,1:�s(5):�
N���m(l%,m%,n%,z%):�l(l%,m%,n%):H%(l%)=H%(l%)-1:H%(m%)=H%(m%)-1:A%(1,z%-1)=�:B%(1,z%-1)=�:C%(1)=C%(1)-1:�C%(1)=-1I%(1)=�:�I%(1)=0
X�
b���b:�I%=0�13:�A%(0,I%)=-1�1:�132:�12,20)"BEEB'S DOMINOES"�I%*2+6,22)�230+�10+�8+�230:�DlB��3:�129:�I%*2+6,22)�(230+A%(0,I%))+�8+�10+�(230+B%(0,I%))
l�:�
v?��f:D%=0:G%=0:�I%=0�13:�A%(0,I%)<>-1D%=D%+A%(0,I%)+B%(0,I%)
�3�:�I%=0�13:�A%(1,I%)<>-1G%=G%+A%(1,I%)+B%(1,I%)
��:�
�5��R:�R%=0�(�P-�)�4:R%!&1200=R%!�:�:*KEY9O.|MRUN|M
�*FX138,0,137
�
�=&1200:�
�
00000000  0d 00 0a 24 f4 22 86 44  4f 4d 49 4e 4f 20 42 79  |...$.".DOMINO By|
00000010  20 52 2e 46 2e 42 6c 6f  6f 64 77 6f 72 74 68 20  | R.F.Bloodworth |
00000020  31 39 38 36 0d 00 0f 0e  e7 90 3e 26 31 32 30 30  |1986......>&1200|
00000030  f2 52 0d 00 14 5a de 41  25 28 31 2c 31 33 29 2c  |.R...Z.A%(1,13),|
00000040  42 25 28 31 2c 31 33 29  2c 43 25 28 31 29 2c 44  |B%(1,13),C%(1),D|
00000050  25 28 31 29 2c 49 25 28  31 29 2c 46 25 28 32 37  |%(1),I%(1),F%(27|
00000060  29 2c 47 25 28 32 37 29  2c 48 25 28 36 29 2c 4e  |),G%(27),H%(6),N|
00000070  24 28 31 29 3a 47 3d b3  28 2d 91 29 3a 42 24 3d  |$(1):G=.(-.):B$=|
00000080  c4 33 39 2c 22 20 22 29  3a ee 85 fa 0d 00 1e 42  |.39," "):......B|
00000090  eb 37 3a ef 32 33 3b 38  32 30 32 3b 30 3b 30 3b  |.7:.23;8202;0;0;|
000000a0  30 3b 3a f2 69 3a f5 f2  67 3a eb 31 3a f2 71 3a  |0;:.i:..g:.1:.q:|
000000b0  f2 6a 3a eb 37 3a ef 32  33 3b 38 32 30 32 3b 30  |.j:.7:.23;8202;0|
000000c0  3b 30 3b 30 3b 3a f2 70  3a fd 41 25 3a e0 0d 00  |;0;0;:.p:.A%:...|
000000d0  28 df dd f2 69 3a ef 32  33 2c 32 33 30 3b 30 3b  |(...i:.23,230;0;|
000000e0  30 3b 30 3b 30 2c 32 33  2c 32 33 31 3b 30 2c 30  |0;0;0,23,231;0,0|
000000f0  2c 32 34 2c 32 34 3b 30  2c 30 2c 32 33 2c 32 33  |,24,24;0,0,23,23|
00000100  32 2c 30 2c 39 36 2c 39  36 3b 30 2c 36 2c 36 2c  |2,0,96,96;0,6,6,|
00000110  30 2c 32 33 2c 32 33 33  2c 30 2c 39 36 2c 39 36  |0,23,233,0,96,96|
00000120  2c 32 34 2c 32 34 2c 36  2c 36 2c 30 2c 32 33 2c  |,24,24,6,6,0,23,|
00000130  32 33 34 2c 30 2c 31 30  32 2c 31 30 32 3b 30 2c  |234,0,102,102;0,|
00000140  31 30 32 2c 31 30 32 2c  30 2c 32 33 2c 32 33 35  |102,102,0,23,235|
00000150  2c 30 2c 31 30 32 2c 31  30 32 2c 32 34 2c 32 34  |,0,102,102,24,24|
00000160  2c 31 30 32 2c 31 30 32  2c 30 2c 32 33 2c 32 33  |,102,102,0,23,23|
00000170  36 2c 30 2c 31 30 32 2c  30 2c 31 30 32 2c 30 2c  |6,0,102,0,102,0,|
00000180  31 30 32 3b 30 3a 41 25  3d 30 3a 77 25 3d 30 3a  |102;0:A%=0:w%=0:|
00000190  78 25 3d 30 3a 79 25 3d  30 3a 4e 24 28 30 29 3d  |x%=0:y%=0:N$(0)=|
000001a0  22 42 45 45 42 22 3a 2a  54 56 30 2c 31 0d 00 32  |"BEEB":*TV0,1..2|
000001b0  da 54 24 3d 22 8d 82 44  4f 4d 49 4e 4f 45 53 22  |.T$="..DOMINOES"|
000001c0  3a f1 8a 31 32 2c 31 29  54 24 27 89 31 32 54 24  |:..12,1)T$'.12T$|
000001d0  27 27 22 86 54 68 65 20  6f 62 6a 65 63 74 20 69  |''".The object i|
000001e0  73 20 74 6f 20 6c 61 79  20 61 6c 6c 20 79 6f 75  |s to lay all you|
000001f0  72 20 70 69 65 63 65 73  22 27 22 86 62 65 66 6f  |r pieces"'".befo|
00000200  72 65 20 74 68 65 20 63  6f 6d 70 75 74 65 72 20  |re the computer |
00000210  64 6f 65 73 20 61 6e 64  20 74 6f 20 68 61 76 65  |does and to have|
00000220  22 27 22 86 6c 65 61 73  74 20 73 70 6f 74 73 20  |"'".least spots |
00000230  69 66 20 79 6f 75 20 62  6f 74 68 20 6b 6e 6f 63  |if you both knoc|
00000240  6b 2e 22 3a e8 27 22 83  50 6c 65 61 73 65 20 65  |k.":.'".Please e|
00000250  6e 74 65 72 20 79 6f 75  72 20 6e 61 6d 65 20 3a  |nter your name :|
00000260  2d 20 22 4e 24 28 31 29  3a f2 73 28 35 29 3a e7  |- "N$(1):.s(5):.|
00000270  a9 4e 24 28 31 29 3e 39  4e 24 28 31 29 3d c0 4e  |.N$(1)>9N$(1)=.N|
00000280  24 28 31 29 2c 39 29 0d  00 3c e2 f1 27 22 86 59  |$(1),9)..<..'".Y|
00000290  6f 75 72 20 64 6f 6d 69  6e 6f 65 73 20 77 69 6c  |our dominoes wil|
000002a0  6c 20 62 65 20 64 69 73  70 6c 61 79 65 64 20 61  |l be displayed a|
000002b0  74 22 27 22 86 74 68 65  20 66 6f 6f 74 20 6f 66  |t"'".the foot of|
000002c0  20 74 68 65 20 73 63 72  65 65 6e 2e 22 27 27 22  | the screen."''"|
000002d0  83 54 6f 20 6c 61 79 20  61 20 64 6f 6d 69 6e 6f  |.To lay a domino|
000002e0  20 74 79 70 65 20 74 68  65 20 6e 75 6d 62 65 72  | type the number|
000002f0  73 20 6f 6e 22 27 22 83  65 61 63 68 20 65 6e 64  |s on"'".each end|
00000300  20 6f 66 20 69 74 20 26  20 48 20 6f 72 20 54 20  | of it & H or T |
00000310  66 6f 72 20 48 65 61 64  20 6f 72 22 27 22 83 54  |for Head or"'".T|
00000320  61 69 6c 20 74 6f 20 69  6e 64 69 63 61 74 65 20  |ail to indicate |
00000330  77 68 69 63 68 20 65 6e  64 20 74 6f 20 6c 61 79  |which end to lay|
00000340  2e 22 27 27 22 86 46 6f  72 20 65 78 61 6d 70 6c  |."''".For exampl|
00000350  65 20 69 66 20 79 6f 75  20 77 61 6e 74 65 64 20  |e if you wanted |
00000360  74 6f 20 6c 61 79 20 61  22 0d 00 46 92 f1 22 86  |to lay a"..F..".|
00000370  73 69 78 2f 74 68 72 65  65 20 61 74 20 74 68 65  |six/three at the|
00000380  20 68 65 61 64 20 6f 66  20 74 68 65 20 63 68 61  | head of the cha|
00000390  69 6e 22 27 22 86 79 6f  75 20 77 6f 75 6c 64 20  |in"'".you would |
000003a0  74 79 70 65 20 36 20 33  20 48 2e 22 27 27 22 83  |type 6 3 H."''".|
000003b0  49 66 20 79 6f 75 20 63  61 6e 27 74 20 67 6f 20  |If you can't go |
000003c0  2c 20 70 72 65 73 73 20  4b 20 74 6f 20 6b 6e 6f  |, press K to kno|
000003d0  63 6b 2e 22 27 27 27 89  35 22 82 50 52 45 53 53  |ck."'''.5".PRESS|
000003e0  20 53 50 41 43 45 20 42  41 52 20 54 4f 20 53 54  | SPACE BAR TO ST|
000003f0  41 52 54 22 3b 3a f5 fd  a5 3a e1 0d 00 50 67 dd  |ART";:...:...Pg.|
00000400  f2 67 3a e3 48 25 3d 30  b8 36 3a 48 25 28 48 25  |.g:.H%=0.6:H%(H%|
00000410  29 3d 37 3a ed 3a 4e 25  3d 2d 31 3a e3 48 25 3d  |)=7:.:N%=-1:.H%=|
00000420  36 b8 30 88 2d 31 3a e3  4d 25 3d 48 25 b8 30 88  |6.0.-1:.M%=H%.0.|
00000430  2d 31 3a 4e 25 3d 4e 25  2b 31 3a 47 25 28 4e 25  |-1:N%=N%+1:G%(N%|
00000440  29 3d 4d 25 3a 46 25 28  4e 25 29 3d 48 25 3a ed  |)=M%:F%(N%)=H%:.|
00000450  2c 3a e3 49 25 3d 30 b8  31 33 3a e3 4b 25 3d 30  |,:.I%=0.13:.K%=0|
00000460  b8 31 0d 00 5a 88 4a 25  3d b3 28 32 38 29 2d 31  |.1..Z.J%=.(28)-1|
00000470  3a e7 46 25 28 4a 25 29  3d 2d 31 e5 8d 44 5a 40  |:.F%(J%)=-1..DZ@|
00000480  8b 41 25 28 4b 25 2c 49  25 29 3d 46 25 28 4a 25  |.A%(K%,I%)=F%(J%|
00000490  29 3a 42 25 28 4b 25 2c  49 25 29 3d 47 25 28 4a  |):B%(K%,I%)=G%(J|
000004a0  25 29 3a 46 25 28 4a 25  29 3d b9 3a 47 25 28 4a  |%):F%(J%)=.:G%(J|
000004b0  25 29 3d b9 3a ed 2c 3a  43 25 28 30 29 3d 31 33  |%)=.:.,:C%(0)=13|
000004c0  3a 43 25 28 31 29 3d 31  33 3a 49 25 28 30 29 3d  |:C%(1)=13:I%(0)=|
000004d0  30 3a 49 25 28 31 29 3d  30 3a 42 25 3d 30 3a 48  |0:I%(1)=0:B%=0:H|
000004e0  25 3d 30 3a 4d 25 3d 30  3a e1 0d 00 64 a9 dd f2  |%=0:M%=0:...d...|
000004f0  71 3a ef 31 39 2c 30 2c  34 3b 30 3b 31 39 2c 31  |q:.19,0,4;0;19,1|
00000500  2c 30 3b 30 3b 32 33 3b  38 32 30 32 3b 30 3b 30  |,0;0;23;8202;0;0|
00000510  3b 30 3b 3a 61 25 3d 30  3a 62 25 3d 31 3a 63 25  |;0;:a%=0:b%=1:c%|
00000520  3d 31 3a 64 25 3d 30 3a  65 25 3d 32 3a 73 25 3d  |=1:d%=0:e%=2:s%=|
00000530  34 3a 74 25 3d 34 3a 75  25 3d 39 3a 76 25 3d 31  |4:t%=4:u%=9:v%=1|
00000540  30 3a 4f 25 3d 32 3a e6  30 2c 31 33 32 3a da 3a  |0:O%=2:.0,132:.:|
00000550  fb 31 33 32 3a fb 31 3a  f1 8a 37 2c 31 29 22 44  |.132:.1:..7,1)"D|
00000560  4f 4d 49 4e 4f 45 53 20  62 79 20 52 2e 46 2e 42  |OMINOES by R.F.B|
00000570  6c 6f 6f 64 77 6f 72 74  68 22 8a 30 2c 33 29 22  |loodworth".0,3)"|
00000580  48 65 61 64 22 8a 30 2c  31 36 29 22 54 61 69 6c  |Head".0,16)"Tail|
00000590  22 3a e1 0d 00 6e 18 dd  f2 6a 3a 43 25 3d a4 31  |":...n...j:C%=.1|
000005a0  3a e7 43 25 3d 31 e5 8d  74 42 40 0d 00 78 2b 43  |:.C%=1..tB@..x+C|
000005b0  25 3d 30 3a f2 63 3a e7  49 25 28 30 29 f2 74 28  |%=0:.c:.I%(0).t(|
000005c0  30 29 3a e1 3a 8b e7 44  25 28 30 29 80 44 25 28  |0):.:..D%(0).D%(|
000005d0  31 29 f2 68 3a e1 0d 00  82 2d f2 65 3a e7 49 25  |1).h:....-.e:.I%|
000005e0  28 31 29 f2 74 28 31 29  3a e1 3a 8b e7 44 25 28  |(1).t(1):.:..D%(|
000005f0  30 29 80 44 25 28 31 29  f2 68 3a e1 3a 8b e5 8d  |0).D%(1).h:.:...|
00000600  44 78 40 0d 00 8c 64 dd  a4 31 3a 72 25 3d b3 28  |Dx@...d..1:r%=.(|
00000610  32 29 2d 31 3a f2 6e 28  72 25 29 3a fb 31 3a fb  |2)-1:.n(r%):.1:.|
00000620  31 33 32 3a f1 8a 30 2c  32 35 29 4e 24 28 72 25  |132:..0,25)N$(r%|
00000630  29 22 20 47 4f 45 53 20  46 49 52 53 54 22 3a f2  |)" GOES FIRST":.|
00000640  73 28 32 35 29 3a f1 8a  a9 4e 24 28 72 25 29 2c  |s(25):...N$(r%),|
00000650  32 35 29 89 31 31 3a e7  72 25 3d 31 42 25 3d b9  |25).11:.r%=1B%=.|
00000660  3a 3d 31 3a 8b 3d 30 0d  00 96 32 dd f2 6e 28 4e  |:=1:.=0...2..n(N|
00000670  25 29 3a f1 8a 30 2c 32  35 29 4e 24 28 4e 25 29  |%):..0,25)N$(N%)|
00000680  8a 31 33 2c 33 30 29 22  59 4f 55 52 20 44 4f 4d  |.13,30)"YOUR DOM|
00000690  49 4e 4f 45 53 22 3b 3a  e1 0d 00 a0 7f dd f2 64  |INOES";:.......d|
000006a0  3a e3 49 25 3d 30 b8 31  33 3a e7 41 25 28 31 2c  |:.I%=0.13:.A%(1,|
000006b0  49 25 29 3d 2d 31 fb 31  33 32 3a f1 8a 49 25 2a  |I%)=-1.132:..I%*|
000006c0  32 2b 36 2c 32 37 29 bd  32 33 30 2b bd 31 30 2b  |2+6,27).230+.10+|
000006d0  bd 38 2b bd 32 33 30 3a  e5 8d 74 6a 40 8b fb 31  |.8+.230:..tj@..1|
000006e0  32 39 3a fb 33 3a f1 8a  49 25 2a 32 2b 36 2c 32  |29:.3:..I%*2+6,2|
000006f0  37 29 bd 28 32 33 30 2b  41 25 28 31 2c 49 25 29  |7).(230+A%(1,I%)|
00000700  29 2b bd 38 2b bd 31 30  2b bd 28 32 33 30 2b 42  |)+.8+.10+.(230+B|
00000710  25 28 31 2c 49 25 29 29  0d 00 aa 07 ed 3a e1 0d  |%(1,I%)).....:..|
00000720  00 b4 15 dd a4 32 3a fb  31 3a fb 31 33 32 3a 2a  |.....2:.1:.132:*|
00000730  46 58 32 31 0d 00 be 37  f1 8a 30 2c 32 35 29 42  |FX21...7..0,25)B|
00000740  24 8a 30 2c 32 35 29 4e  24 28 31 29 22 20 4c 41  |$.0,25)N$(1)" LA|
00000750  59 53 3a 2d 20 22 89 39  3b 3a 6c 25 3d a5 2d 34  |YS:- ".9;:l%=.-4|
00000760  38 3a e7 6c 25 3d 32 37  3a 3d 30 0d 00 c8 4f f1  |8:.l%=27:=0...O.|
00000770  8a 28 a9 4e 24 28 31 29  2b 38 29 2c 32 35 29 3b  |.(.N$(1)+8),25);|
00000780  6c 25 22 2c 22 3b 3a 6d  25 3d a5 2d 34 38 3a f1  |l%",";:m%=.-48:.|
00000790  3b 6d 25 3b 3a 51 25 3d  a5 3a e7 51 25 3d 38 34  |;m%;:Q%=.:.Q%=84|
000007a0  6e 25 3d 31 3a 8b e7 51  25 3d 37 32 6e 25 3d 30  |n%=1:..Q%=72n%=0|
000007b0  3a 8b ef 37 3a e5 8d 74  7e 40 0d 00 d2 56 f1 89  |:..7:..t~@...V..|
000007c0  31 bd 51 25 3a 46 25 3d  30 3a e3 49 25 3d 31 b8  |1.Q%:F%=0:.I%=1.|
000007d0  31 34 3a e7 6c 25 3d 41  25 28 31 2c 49 25 2d 31  |14:.l%=A%(1,I%-1|
000007e0  29 80 6d 25 3d 42 25 28  31 2c 49 25 2d 31 29 84  |).m%=B%(1,I%-1).|
000007f0  6d 25 3d 41 25 28 31 2c  49 25 2d 31 29 80 6c 25  |m%=A%(1,I%-1).l%|
00000800  3d 42 25 28 31 2c 49 25  2d 31 29 46 25 3d 49 25  |=B%(1,I%-1)F%=I%|
00000810  0d 00 dc 17 ed 3a e7 46  25 3d 30 ef 37 3a e5 8d  |.....:.F%=0.7:..|
00000820  74 7e 40 8b 3d 46 25 0d  00 e6 86 dd f2 63 3a 50  |t~@.=F%......c:P|
00000830  25 3d 30 3a 66 25 3d 30  3a 67 25 3d 30 3a 68 25  |%=0:f%=0:g%=0:h%|
00000840  3d 30 3a 69 25 3d 30 3a  e3 49 25 3d 31 b8 31 34  |=0:i%=0:.I%=1.14|
00000850  3a e7 41 25 28 30 2c 49  25 2d 31 29 3d 48 25 66  |:.A%(0,I%-1)=H%f|
00000860  25 3d a4 33 28 42 25 28  30 2c 49 25 2d 31 29 2c  |%=.3(B%(0,I%-1),|
00000870  4d 25 2c 49 25 29 3a 68  25 3d 31 3a f2 61 3a 8b  |M%,I%):h%=1:.a:.|
00000880  e7 41 25 28 30 2c 49 25  2d 31 29 3d 4d 25 66 25  |.A%(0,I%-1)=M%f%|
00000890  3d a4 33 28 48 25 2c 42  25 28 30 2c 49 25 2d 31  |=.3(H%,B%(0,I%-1|
000008a0  29 2c 49 25 29 3a 68 25  3d 30 3a f2 61 0d 00 f0  |),I%):h%=0:.a...|
000008b0  60 e7 42 25 28 30 2c 49  25 2d 31 29 3d 48 25 66  |`.B%(0,I%-1)=H%f|
000008c0  25 3d a4 33 28 41 25 28  30 2c 49 25 2d 31 29 2c  |%=.3(A%(0,I%-1),|
000008d0  4d 25 2c 49 25 29 3a 68  25 3d 31 3a f2 61 3a 8b  |M%,I%):h%=1:.a:.|
000008e0  e7 42 25 28 30 2c 49 25  2d 31 29 3d 4d 25 66 25  |.B%(0,I%-1)=M%f%|
000008f0  3d a4 33 28 48 25 2c 41  25 28 30 2c 49 25 2d 31  |=.3(H%,A%(0,I%-1|
00000900  29 2c 49 25 29 3a 68 25  3d 30 3a f2 61 0d 00 fa  |),I%):h%=0:.a...|
00000910  9f ed 3a e7 50 25 3d 30  44 25 28 30 29 3d b9 3a  |..:.P%=0D%(0)=.:|
00000920  f2 6b 28 30 29 3a e1 3a  8b 44 25 28 30 29 3d 30  |.k(0):.:.D%(0)=0|
00000930  3a f2 75 28 41 25 28 30  2c 50 25 2d 31 29 2c 42  |:.u(A%(0,P%-1),B|
00000940  25 28 30 2c 50 25 2d 31  29 2c 69 25 29 3a f2 6c  |%(0,P%-1),i%):.l|
00000950  28 41 25 28 30 2c 50 25  2d 31 29 2c 42 25 28 30  |(A%(0,P%-1),B%(0|
00000960  2c 50 25 2d 31 29 2c 69  25 29 3a 41 25 28 30 2c  |,P%-1),i%):A%(0,|
00000970  50 25 2d 31 29 3d b9 3a  42 25 28 30 2c 50 25 2d  |P%-1)=.:B%(0,P%-|
00000980  31 29 3d b9 3a 43 25 28  30 29 3d 43 25 28 30 29  |1)=.:C%(0)=C%(0)|
00000990  2d 31 3a e7 43 25 28 30  29 3d 2d 31 49 25 28 30  |-1:.C%(0)=-1I%(0|
000009a0  29 3d b9 3a 8b 49 25 28  30 29 3d 30 0d 01 04 05  |)=.:.I%(0)=0....|
000009b0  e1 0d 01 0e 1e dd a4 33  28 48 25 2c 4d 25 2c 49  |.......3(H%,M%,I|
000009c0  25 29 3a e7 43 25 28 31  29 3d 31 3a 3d 33 31 0d  |%):.C%(1)=1:=31.|
000009d0  01 18 6a 6f 25 3d 30 3a  70 25 3d 30 3a 71 25 3d  |..jo%=0:p%=0:q%=|
000009e0  30 3a e3 7a 25 3d 30 b8  31 33 3a e7 7a 25 3d 49  |0:.z%=0.13:.z%=I|
000009f0  25 e5 8d 54 6c 41 8b e7  28 28 41 25 28 30 2c 7a  |%..TlA..((A%(0,z|
00000a00  25 29 3d 48 25 29 84 28  41 25 28 30 2c 7a 25 29  |%)=H%).(A%(0,z%)|
00000a10  3d 4d 25 29 29 6f 25 3d  31 33 2d 48 25 28 42 25  |=M%))o%=13-H%(B%|
00000a20  28 30 2c 7a 25 29 29 3a  e7 6f 25 3e 70 25 70 25  |(0,z%)):.o%>p%p%|
00000a30  3d 6f 25 3a 71 25 3d 7a  25 0d 01 22 46 e7 28 28  |=o%:q%=z%.."F.((|
00000a40  42 25 28 30 2c 7a 25 29  3d 4d 25 29 84 28 42 25  |B%(0,z%)=M%).(B%|
00000a50  28 30 2c 7a 25 29 3d 48  25 29 29 6f 25 3d 31 34  |(0,z%)=H%))o%=14|
00000a60  2d 48 25 28 41 25 28 30  2c 7a 25 29 29 3a e7 6f  |-H%(A%(0,z%)):.o|
00000a70  25 3e 70 25 70 25 3d 6f  25 3a 71 25 3d 7a 25 0d  |%>p%p%=o%:q%=z%.|
00000a80  01 2c 23 ed 3a e7 28 48  25 28 48 25 29 2b 48 25  |.,#.:.(H%(H%)+H%|
00000a90  28 4d 25 29 3d 30 29 80  71 25 3e 30 3d 70 25 2b  |(M%)=0).q%>0=p%+|
00000aa0  31 34 0d 01 36 1e e7 71  25 3e 30 3d 70 25 8b 3d  |14..6..q%>0=p%.=|
00000ab0  31 33 2d 48 25 28 48 25  29 2b 48 25 28 4d 25 29  |13-H%(H%)+H%(M%)|
00000ac0  0d 01 40 1f dd f2 61 3a  e7 66 25 3e 67 25 67 25  |..@...a:.f%>g%g%|
00000ad0  3d 66 25 3a 50 25 3d 49  25 3a 69 25 3d 68 25 0d  |=f%:P%=I%:i%=h%.|
00000ae0  01 4a 1c e7 66 25 3d 67  25 e7 b3 28 32 29 3d 31  |.J..f%=g%..(2)=1|
00000af0  50 25 3d 49 25 3a 69 25  3d 68 25 0d 01 54 05 e1  |P%=I%:i%=h%..T..|
00000b00  0d 01 5e 4d dd f2 6c 28  6a 25 2c 6b 25 2c 4c 25  |..^M..l(j%,k%,L%|
00000b10  29 3a e7 4c 25 3d 30 e5  8d 44 68 41 8b e7 48 25  |):.L%=0..DhA..H%|
00000b20  3d 6a 25 f2 6f 28 6a 25  2c 6b 25 29 3a 48 25 3d  |=j%.o(j%,k%):H%=|
00000b30  6b 25 3a e1 3a 8b e7 48  25 3d 6b 25 f2 6f 28 6b  |k%:.:..H%=k%.o(k|
00000b40  25 2c 6a 25 29 3a 48 25  3d 6a 25 3a e1 0d 01 68  |%,j%):H%=j%:...h|
00000b50  34 e7 4d 25 3d 6a 25 f2  72 28 6a 25 2c 6b 25 29  |4.M%=j%.r(j%,k%)|
00000b60  3a 4d 25 3d 6b 25 3a e1  3a 8b e7 4d 25 3d 6b 25  |:M%=k%:.:..M%=k%|
00000b70  f2 72 28 6b 25 2c 6a 25  29 3a 4d 25 3d 6a 25 3a  |.r(k%,j%):M%=j%:|
00000b80  e1 0d 01 72 05 e1 0d 01  7c 07 dd f2 65 0d 01 86  |...r....|...e...|
00000b90  4e f2 64 3a 7a 25 3d a4  32 3a e7 7a 25 3d 30 44  |N.d:z%=.2:.z%=0D|
00000ba0  25 28 31 29 3d b9 3a f2  6b 28 31 29 3a e5 8d 74  |%(1)=.:.k(1):..t|
00000bb0  64 41 8b 44 25 28 31 29  3d 30 3a e7 ac 42 25 80  |dA.D%(1)=0:..B%.|
00000bc0  6e 25 3d 31 e7 ac 28 6c  25 3d 48 25 84 6d 25 3d  |n%=1..(l%=H%.m%=|
00000bd0  48 25 29 ef 37 3a e5 8d  74 46 41 0d 01 90 28 e7  |H%).7:..tFA...(.|
00000be0  ac 42 25 80 6e 25 3d 30  e7 ac 28 28 6c 25 3d 4d  |.B%.n%=0..((l%=M|
00000bf0  25 29 84 28 6d 25 3d 4d  25 29 29 ef 37 3a e5 8d  |%).(m%=M%)).7:..|
00000c00  74 46 41 0d 01 9a 87 e7  42 25 48 25 3d 6c 25 3a  |tFA.....B%H%=l%:|
00000c10  4d 25 3d 6d 25 3a f2 75  28 48 25 2c 4d 25 2c 6e  |M%=m%:.u(H%,M%,n|
00000c20  25 29 3a 41 25 28 31 2c  7a 25 2d 31 29 3d b9 3a  |%):A%(1,z%-1)=.:|
00000c30  42 25 28 31 2c 7a 25 2d  31 29 3d b9 3a f2 72 28  |B%(1,z%-1)=.:.r(|
00000c40  48 25 2c 4d 25 29 3a 43  25 28 31 29 3d 43 25 28  |H%,M%):C%(1)=C%(|
00000c50  31 29 2d 31 3a 48 25 28  48 25 29 3d 48 25 28 48  |1)-1:H%(H%)=H%(H|
00000c60  25 29 2d 31 3a 48 25 28  4d 25 29 3d 48 25 28 4d  |%)-1:H%(M%)=H%(M|
00000c70  25 29 2d 31 3a 42 25 3d  30 3a 8b f2 6d 28 6c 25  |%)-1:B%=0:..m(l%|
00000c80  2c 6d 25 2c 6e 25 2c 7a  25 29 0d 01 a4 1d f2 64  |,m%,n%,z%).....d|
00000c90  3a f2 73 28 35 29 3a fb  31 33 32 3a f1 8a 30 2c  |:.s(5):.132:..0,|
00000ca0  32 35 29 42 24 3a e1 0d  01 ae 74 dd f2 74 28 4e  |25)B$:....t..t(N|
00000cb0  25 29 3a fb 31 3a fb 31  33 32 3a f1 8a 30 2c 32  |%):.1:.132:..0,2|
00000cc0  35 29 42 24 8a 28 31 31  2d a9 4e 24 28 4e 25 29  |5)B$.(11-.N$(N%)|
00000cd0  29 2f 32 2c 32 35 29 4e  24 28 4e 25 29 22 20 49  |)/2,25)N$(N%)" I|
00000ce0  53 20 54 48 45 20 57 49  4e 4e 45 52 21 20 20 50  |S THE WINNER!  P|
00000cf0  72 65 73 73 20 53 50 41  43 45 22 3a f2 62 3a f5  |ress SPACE":.b:.|
00000d00  fd a5 3d 33 32 3a e7 4e  25 3d 30 77 25 3d 77 25  |..=32:.N%=0w%=w%|
00000d10  2b 31 3a 8b 78 25 3d 78  25 2b 31 0d 01 b8 05 e1  |+1:.x%=x%+1.....|
00000d20  0d 01 c2 7d dd f2 68 3a  f2 66 3a fb 31 3a f1 8a  |...}..h:.f:.1:..|
00000d30  34 2c 31 38 29 22 43 6f  6d 70 75 74 65 72 20 53  |4,18)"Computer S|
00000d40  70 6f 74 73 3d 22 3b 44  25 22 20 20 59 6f 75 72  |pots=";D%"  Your|
00000d50  20 73 70 6f 74 73 3d 22  3b 47 25 3a e7 44 25 3d  | spots=";G%:.D%=|
00000d60  47 25 f1 8a 30 2c 32 35  29 89 36 22 49 54 27 53  |G%..0,25).6"IT'S|
00000d70  20 41 20 44 52 41 57 20  21 21 20 20 20 50 72 65  | A DRAW !!   Pre|
00000d80  73 73 20 53 50 41 43 45  22 3a f2 62 3a f5 fd a5  |ss SPACE":.b:...|
00000d90  3d 33 32 3a 79 25 3d 79  25 2b 31 3a e1 0d 01 cc  |=32:y%=y%+1:....|
00000da0  1a e7 44 25 3e 47 25 f2  74 28 31 29 3a e1 3a 8b  |..D%>G%.t(1):.:.|
00000db0  f2 74 28 30 29 3a e1 0d  01 d6 ba dd f2 70 3a 54  |.t(0):.......p:T|
00000dc0  24 3d 22 8d 83 44 4f 4d  49 4e 4f 45 53 20 53 43  |$="..DOMINOES SC|
00000dd0  4f 52 45 20 54 41 42 4c  45 22 3a f1 27 89 37 54  |ORE TABLE":.'.7T|
00000de0  24 27 89 37 54 24 27 27  27 22 82 22 89 39 4e 24  |$'.7T$'''".".9N$|
00000df0  28 30 29 c4 31 33 2c 22  2e 22 29 3b 77 25 27 27  |(0).13,".");w%''|
00000e00  27 22 82 22 89 39 4e 24  28 31 29 c4 28 31 37 2d  |'".".9N$(1).(17-|
00000e10  a9 4e 24 28 31 29 29 2c  22 2e 22 29 3b 78 25 27  |.N$(1)),".");x%'|
00000e20  27 27 22 82 22 89 39 22  44 52 41 57 4e 22 c4 31  |''".".9"DRAWN".1|
00000e30  32 2c 22 2e 22 29 3b 79  25 27 27 27 27 27 22 83  |2,".");y%'''''".|
00000e40  22 89 31 31 22 41 4e 4f  54 48 45 52 20 47 41 4d  |".11"ANOTHER GAM|
00000e50  45 20 3f 22 3b 3a f5 47  3d a5 3a fd 47 3d 37 38  |E ?";:.G=.:.G=78|
00000e60  84 47 3d 38 39 3a db 3a  e7 47 3d 37 38 41 25 3d  |.G=89:.:.G=78A%=|
00000e70  b9 0d 01 e0 05 e1 0d 01  ea 1b dd f2 73 28 45 25  |............s(E%|
00000e80  29 3a d1 3d 30 3a f5 fd  91 3e 45 25 2a 31 30 3a  |):.=0:...>E%*10:|
00000e90  e1 0d 01 f4 48 dd f2 6f  28 48 25 2c 4d 25 29 3a  |....H..o(H%,M%):|
00000ea0  e7 73 25 3c 33 34 e5 8d  64 7e 41 8b e7 4f 25 3d  |.s%<34..d~A..O%=|
00000eb0  30 4f 25 3d 32 3a 61 25  3d 30 3a 62 25 3d 31 8b  |0O%=2:a%=0:b%=1.|
00000ec0  e7 4f 25 3d 31 4f 25 3d  30 3a 61 25 3d 2d 31 3a  |.O%=1O%=0:a%=-1:|
00000ed0  62 25 3d 30 8b 4f 25 3d  31 0d 01 fe 3b e7 73 25  |b%=0.O%=1...;.s%|
00000ee0  3e 34 e5 8d 54 48 42 8b  e7 4f 25 3d 30 4f 25 3d  |>4..THB..O%=0O%=|
00000ef0  32 3a 61 25 3d 30 3a 62  25 3d 31 8b e7 4f 25 3d  |2:a%=0:b%=1..O%=|
00000f00  31 4f 25 3d 30 3a 61 25  3d 31 3a 62 25 3d 30 8b  |1O%=0:a%=1:b%=0.|
00000f10  4f 25 3d 31 0d 02 08 59  73 25 3d 73 25 2b 61 25  |O%=1...Ys%=s%+a%|
00000f20  3a 75 25 3d 75 25 2b 62  25 3a fb 33 3a fb 31 32  |:u%=u%+b%:.3:.12|
00000f30  39 3a f1 8a 73 25 2c 75  25 29 28 bd 28 32 33 30  |9:..s%,u%)(.(230|
00000f40  2b 48 25 29 29 3a 73 25  3d 73 25 2b 61 25 3a 75  |+H%)):s%=s%+a%:u|
00000f50  25 3d 75 25 2b 62 25 3a  f1 8a 73 25 2c 75 25 29  |%=u%+b%:..s%,u%)|
00000f60  28 bd 28 32 33 30 2b 4d  25 29 29 3a e1 0d 02 12  |(.(230+M%)):....|
00000f70  48 dd f2 72 28 48 25 2c  4d 25 29 3a e7 74 25 3c  |H..r(H%,M%):.t%<|
00000f80  33 34 e5 8d 54 5c 42 8b  e7 65 25 3d 30 65 25 3d  |34..T\B..e%=0e%=|
00000f90  32 3a 64 25 3d 30 3a 63  25 3d 31 3a 8b e7 65 25  |2:d%=0:c%=1:..e%|
00000fa0  3d 31 65 25 3d 30 3a 64  25 3d b9 3a 63 25 3d 30  |=1e%=0:d%=.:c%=0|
00000fb0  8b 65 25 3d 31 0d 02 1c  3b e7 74 25 3e 34 e5 8d  |.e%=1...;.t%>4..|
00000fc0  54 66 42 8b e7 65 25 3d  30 65 25 3d 32 3a 64 25  |TfB..e%=0e%=2:d%|
00000fd0  3d 30 3a 63 25 3d 31 8b  e7 65 25 3d 31 65 25 3d  |=0:c%=1..e%=1e%=|
00000fe0  30 3a 64 25 3d 31 3a 63  25 3d 30 8b 65 25 3d 31  |0:d%=1:c%=0.e%=1|
00000ff0  0d 02 26 59 74 25 3d 74  25 2b 64 25 3a 76 25 3d  |..&Yt%=t%+d%:v%=|
00001000  76 25 2d 63 25 3a fb 33  3a fb 31 32 39 3a f1 8a  |v%-c%:.3:.129:..|
00001010  74 25 2c 76 25 29 28 bd  28 32 33 30 2b 48 25 29  |t%,v%)(.(230+H%)|
00001020  29 3a 74 25 3d 74 25 2b  64 25 3a 76 25 3d 76 25  |):t%=t%+d%:v%=v%|
00001030  2d 63 25 3a f1 8a 74 25  2c 76 25 29 28 bd 28 32  |-c%:..t%,v%)(.(2|
00001040  33 30 2b 4d 25 29 29 3a  e1 0d 02 30 50 dd f2 75  |30+M%)):...0P..u|
00001050  28 48 25 2c 4d 25 2c 4c  25 29 3a fb 31 33 32 3a  |(H%,M%,L%):.132:|
00001060  fb 31 3a f1 8a 30 2c 32  35 29 4e 24 28 43 25 29  |.1:..0,25)N$(C%)|
00001070  22 20 4c 41 59 53 3a 2d  20 22 3b 48 25 22 2c 22  |" LAYS:- ";H%","|
00001080  3b 4d 25 22 20 22 3b 3a  e7 4c 25 3d 30 f1 22 48  |;M%" ";:.L%=0."H|
00001090  22 3b 3a 8b f1 22 54 22  3b 0d 02 3a 10 f1 89 39  |";:.."T";..:...9|
000010a0  3a f2 73 28 31 35 29 3a  e1 0d 02 44 56 dd f2 6b  |:.s(15):...DV..k|
000010b0  28 72 25 29 3a fb 31 3a  fb 31 33 32 3a f1 8a 30  |(r%):.1:.132:..0|
000010c0  2c 32 35 29 4e 24 28 72  25 29 22 20 4b 4e 4f 43  |,25)N$(r%)" KNOC|
000010d0  4b 53 22 89 39 3a f2 73  28 32 29 3a d4 30 2c 2d  |KS".9:.s(2):.0,-|
000010e0  31 35 2c 36 2c 31 3a f2  73 28 32 29 3a d4 30 2c  |15,6,1:.s(2):.0,|
000010f0  2d 31 35 2c 36 2c 31 3a  f2 73 28 35 29 3a e1 0d  |-15,6,1:.s(5):..|
00001100  02 4e 83 dd f2 6d 28 6c  25 2c 6d 25 2c 6e 25 2c  |.N...m(l%,m%,n%,|
00001110  7a 25 29 3a f2 6c 28 6c  25 2c 6d 25 2c 6e 25 29  |z%):.l(l%,m%,n%)|
00001120  3a 48 25 28 6c 25 29 3d  48 25 28 6c 25 29 2d 31  |:H%(l%)=H%(l%)-1|
00001130  3a 48 25 28 6d 25 29 3d  48 25 28 6d 25 29 2d 31  |:H%(m%)=H%(m%)-1|
00001140  3a 41 25 28 31 2c 7a 25  2d 31 29 3d b9 3a 42 25  |:A%(1,z%-1)=.:B%|
00001150  28 31 2c 7a 25 2d 31 29  3d b9 3a 43 25 28 31 29  |(1,z%-1)=.:C%(1)|
00001160  3d 43 25 28 31 29 2d 31  3a e7 43 25 28 31 29 3d  |=C%(1)-1:.C%(1)=|
00001170  2d 31 49 25 28 31 29 3d  b9 3a 8b 49 25 28 31 29  |-1I%(1)=.:.I%(1)|
00001180  3d 30 0d 02 58 05 e1 0d  02 62 9a dd f2 62 3a e3  |=0..X....b...b:.|
00001190  49 25 3d 30 b8 31 33 3a  e7 41 25 28 30 2c 49 25  |I%=0.13:.A%(0,I%|
000011a0  29 3d 2d 31 fb 31 3a fb  31 33 32 3a f1 8a 31 32  |)=-1.1:.132:..12|
000011b0  2c 32 30 29 22 42 45 45  42 27 53 20 44 4f 4d 49  |,20)"BEEB'S DOMI|
000011c0  4e 4f 45 53 22 8a 49 25  2a 32 2b 36 2c 32 32 29  |NOES".I%*2+6,22)|
000011d0  bd 32 33 30 2b bd 31 30  2b bd 38 2b bd 32 33 30  |.230+.10+.8+.230|
000011e0  3a e5 8d 44 6c 42 8b fb  33 3a fb 31 32 39 3a f1  |:..DlB..3:.129:.|
000011f0  8a 49 25 2a 32 2b 36 2c  32 32 29 bd 28 32 33 30  |.I%*2+6,22).(230|
00001200  2b 41 25 28 30 2c 49 25  29 29 2b bd 38 2b bd 31  |+A%(0,I%))+.8+.1|
00001210  30 2b bd 28 32 33 30 2b  42 25 28 30 2c 49 25 29  |0+.(230+B%(0,I%)|
00001220  29 0d 02 6c 07 ed 3a e1  0d 02 76 3f dd f2 66 3a  |)..l..:...v?..f:|
00001230  44 25 3d 30 3a 47 25 3d  30 3a e3 49 25 3d 30 b8  |D%=0:G%=0:.I%=0.|
00001240  31 33 3a e7 41 25 28 30  2c 49 25 29 3c 3e 2d 31  |13:.A%(0,I%)<>-1|
00001250  44 25 3d 44 25 2b 41 25  28 30 2c 49 25 29 2b 42  |D%=D%+A%(0,I%)+B|
00001260  25 28 30 2c 49 25 29 0d  02 80 33 ed 3a e3 49 25  |%(0,I%)...3.:.I%|
00001270  3d 30 b8 31 33 3a e7 41  25 28 31 2c 49 25 29 3c  |=0.13:.A%(1,I%)<|
00001280  3e 2d 31 47 25 3d 47 25  2b 41 25 28 31 2c 49 25  |>-1G%=G%+A%(1,I%|
00001290  29 2b 42 25 28 31 2c 49  25 29 0d 02 8a 07 ed 3a  |)+B%(1,I%).....:|
000012a0  e1 0d 02 94 35 dd f2 52  3a e3 52 25 3d 30 b8 28  |....5..R:.R%=0.(|
000012b0  b8 50 2d 90 29 88 34 3a  52 25 21 26 31 32 30 30  |.P-.).4:R%!&1200|
000012c0  3d 52 25 21 90 3a ed 3a  2a 4b 45 59 39 4f 2e 7c  |=R%!.:.:*KEY9O.||
000012d0  4d 52 55 4e 7c 4d 0d 02  9e 10 2a 46 58 31 33 38  |MRUN|M....*FX138|
000012e0  2c 30 2c 31 33 37 0d 02  a8 0d d0 3d 26 31 32 30  |,0,137.....=&120|
000012f0  30 3a e0 0d ff                                    |0:...|
000012f5
Games/DOMINO2.m0
Games/DOMINO2.m1
Games/DOMINO2.m2
Games/DOMINO2.m4
Games/DOMINO2.m5

© Dominic Ford 2021–2024.

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