'23nd listing 6/1/91
WINDOW 3,,,16:game=0
palette 0,0,0,1
palette 1,1,1,1
palette 2,0,0,0
palette 3,1,0.5,0
line (25,20)-(275,70),2,bf:line (325,20)-(575,70),2,bf
line (25,110)-(275,160),2,bf:line (325,110)-(575,160),2,bf
circle (87,45),4,1:paint (87,45),1,1
circle (212,45),4,1:paint (212,45),1,1
circle (340,25),4,1:paint (340,25),1,1
circle (435,65),4,1:paint (435,65),1,1
circle (465,25),4,1:paint (465,25),1,1
circle (560,65),4,1:paint (560,65),1,1
circle (40,115),4,1:paint (40,115),1,1
circle (87,135),4,1:paint (87,135),1,1
circle (135,155),4,1:paint (135,155),1,1
circle (165,115),4,1:paint (165,115),1,1
circle (212,135),4,1:paint (212,135),1,1
circle (260,155),4,1:paint (260,155),1,1
circle (340,115),4,1:paint (340,115),1,1
circle (435,115),4,1:paint (435,115),1,1
circle (465,115),4,1:paint (465,115),1,1
circle (560,115),4,1:paint (560,115),1,1
circle (340,155),4,1:paint (340,155),1,1
circle (435,155),4,1:paint (435,155),1,1
circle (465,155),4,1:paint (465,155),1,1
circle (560,155),4,1:paint (560,155),1,1
color 3:locate 11,30:print "...D O M I N O S..."
color 1:locate 23,30:input "Press enter to continue";jji$
CLS:color 3:locate 2,28
print "...D O M I N O S..."
color 1
LOCATE 12,19:INPUT "What is your Name (5 letter limit)";R$:CLS
if R$="" then R$="Playr"
IF LEN(R$)>5 THEN R$=LEFT$(R$,5)
color 3:locate 2,28:print "...D O M I N O S..."
color 1:locate 9,19:print "There are three speeds of play:":print
print " 1. Enter 0 for a very fast game."
print " 2. Enter 1 for a normal game.
print " 3. Enter 2 for a slow game."
locate 15,19:input "Enter 0 or 1 or 2";ite
if ite<>0 or ite<>1 or ite<>2 then ite=1
cls:color 3:locate 2,30:print "...D O M I N O S..."
color 1:locate 11,25:print R$;", do you like to Cheat...?"
locate 13,30:input "Enter Yes or No";no$
if left$(NO$,1)="Y" or left$(no$,1)="y" then ch=1 else ch=2
MENU 5,0,1,"Information"
MENU 5,1,1,"Game Information"
IF CH=1 THEN
MENU 5,2,1,"Cheating on Computer"
menu 5,3,1,"Cheating on Boneyard"
end if
on menu gosub cheating
menu on
900 CLS:RANDOMIZE TIMER
TIMER ON
DIM R(30,2) 'R=INITIAL GAME DOT FORMATION ARRAY
DIM m(30) 'M=INITIAL GAME RND SELECTION ARRAY
DIM s(30,2) 'DOT ARRAY FOR DRAWING ON SCREEN
DIM t(30) 'T=RND SELECTION ARRAY FOR DRAWING DOTS ON SCREEN
DIM c(25,2) 'C=COMPUTER DOMINO IN PLAY ARRAY
DIM p(25,2) 'P=PLAYER DOMINO IN PLAY ARRAY
dom=1 'FIRST PLAY DOMINO
bone=14 '14 ORIGINAL DOMINOS IN BONEYARD
comp=7 '7 ORIGINAL COMPUTER DOMINOS
pomp=7 '7 ORIGINAL PLAYER DOMINOS
p4=INT(2000*RND)+1:FOR se=1 TO p4:NEXT
GOSUB SHUFFLE
FOR vt=1 TO 7
cscore=cscore+p(vt,1)+p(vt,2)
pscore=pscore+c(vt,1)+c(vt,2)
NEXT vt
LOCATE 18,2:PRINT R$;"'s";" Dominos";
LOCATE 22,2:PRINT "Computer's Dominos";
LINE (3,132)-(630,195),3,B:LINE (2,132)-(2,195),3
LINE (3,163)-(631,163),3:LINE (3,179)-(631,179),3:LINE (631,132)-(631,195),3
LINE (225,179)-(225,195),3:LINE (226,179)-(226,195),3
LINE (458,179)-(458,195),3:LINE (459,179)-(459,195),3
FOR gt=1 TO 14:R(m(gt),1)=9:R(m(gt),2)=9:NEXT gt
GOSUB STARTGAME
IF play=1 THEN GOSUB PLAYERDOMINO
IF play=2 THEN GOSUB COMPDRAW:GOSUB PLAYERDOMINO:x=40:y=21
locate 24,2:print "Computer Score=";cscore;
locate 24,31:print R$;"'s Score=";pscore;
locate 24,60:print "Boneyard No.=";bone;
GOSUB gameplay
END
STARTGAME: 'DETERMINES WHO STARTS GAME
COLOR 3
FOR V1=6 TO 0 STEP -1 'SEES WHO HAS HIGHEST DOUBLET
FOR U=1 TO 7
IF (p(U,1)=p(U,2)) AND p(U,1)=V1 THEN
play=1:dot=p(U,1):LOCATE 11,30:PRINT R$;" Starts Game":PRINT
PRINT TAB (9)"Click Left Mouse on the Player Domino with";p(U,1);"-";p(U,1);"Dot Arrangement"
SOUND 880,2:x=160:y=169:FOR a=1 TO 7:LINE (x,y)-(x+16,y+6),2,BF
x=x+24:NEXT a:RETURN
END IF
IF (c(U,1)=c(U,2)) AND c(U,1)=V1 THEN
dot=c(U,1):t1=TIMER:play=2:LOCATE 11,27:PRINT "Computer Starts Game"
SOUND 880,2:GOTO 190
END IF
NEXT U
NEXT V1
190 FOR t=1 TO 7:s(t,1)=c(t,1):s(t,2)=c(t,2):NEXT t
FOR PO=1 TO 4000:t2=TIMER:x=15:y=21:a=U
IF ply=0 AND INT(t2-t1)=2 THEN
LINE (60,50)-(600,130),0,BF:LINE (x,y+10)-(x+25,y-10),2,BF
GOSUB VERTDOTS:dom=dom+1:GOSUB CDRAW:RETURN
END IF
NEXT PO
RETURN
gameplay: 'SUB FOR PLAYING GAME
IF ply=0 THEN GOTO 200
IF pomp=0 THEN R=1:GOSUB winner
FOR Z1=1 TO pomp
IF p(Z1,1)=dot OR p(Z1,2)=dot AND ply<>0 THEN R=1:GOSUB whoplay:GOTO 200
NEXT Z1
z6=pomp:z7=bone:r=3:gosub whoplay
FOR R9=1 TO 28
IF R(m(R9),1)<=6 OR R(m(R9),2)<=6 THEN
pomp=pomp+1:bone=bone-1 'ADDS DOMINOS TO PLAYERS PILE
p(pomp,1)=R(m(R9),1):p(pomp,2)=R(m(R9),2)
R(m(R9),1)=9:R(m(R9),2)=9
IF p(pomp,1)=dot OR p(pomp,2)=dot THEN
horiz=x:vert=y:add=1:r=5:gosub whoplay:gosub playerdomino 'add=1 is delay timer for display
x=horiz:y=vert:r=1:add=0:gosub whoplay:goto 200
END IF
end if
NEXT R9
locate 24,73:print bone;
horiz=x:vert=y:gosub playerdomino
x=horiz:y=vert:R=1:GOSUB whoplay
IF bone=0 AND (p(pomp,1)<>dot OR p(pomp,2)<>dot) THEN
R=4:GOSUB whoplay:GOSUB tim:GOSUB computerdomino:GOTO gameplay
END IF
200 WHILE MOUSE(0)=0:WEND
xx=MOUSE(3):YY=MOUSE(4)
IF ply=0 THEN
LEFT=134+(51*(U-1))+4*(U-1):RIGHT=134+(51*(U-1))+4*(U-1)+51
TOP=135:BOTTOM=145 'TOP DOMINO ROW
END IF
IF ply=0 AND xx>LEFT AND xx<RIGHT AND YY>TOP AND YY<BOTTOM THEN
LINE (60,50)-(629,130),0,BF:x=15:y=21:a=U
LINE (x,y+10)-(x+25,y-10),2,BF:GOSUB VERTDOTS:p(U,1)=7:p(U,2)=7
dom=dom+1
GOSUB PLAYERDOMINO:pomp=pomp-1:R=2:x=40:y=21:ply=90:GOSUB whoplay
GOSUB computerdomino
END IF
IF ply=0 THEN GOTO gameplay
FOR a=1 TO pomp 'LOOP IS FOR PLAYING AFTER FIRST MOVE
IF a<=9 THEN LEFT=134+(51*(a-1))+4*(a-1):RIGHT=134+(51*(a-1))+4*(a-1)+51
IF a>=10 THEN LEFT=134+(51*(a-1-9))+4*(a-1-8):RIGHT=134+(51*(a-1-9))+4*(a-1-9)+51
IF (xx>LEFT AND xx<RIGHT) AND (YY>135 AND YY<145) AND xx<>zz AND a<=9 THEN ben=1 ELSE ben=0
IF (xx>LEFT AND xx<RIGHT) AND (YY>149 AND YY<159) AND xx<>zz AND a>=10 THEN bent=2 ELSE bent=0
'DOMINOS 1-10 ARE TOP HORIZONTAL ROW ON SCREEN
'DOMINOS 24-28 ARE LOWEST HORIZONTAL ROW ON SCREEN
IF (ben=1 OR bent=2) AND p(a,1)=dot AND p(a,1)<>p(a,2) AND (dom<=10 OR dom>=24) THEN
LINE (x,y-5)-(x+51,y+5),2,BF:s(a,1)=p(a,1):s(a,2)=p(a,2)
GOSUB horizDOTS:dom=dom+1:horiz=x:vert=y:dot=p(a,2):p(a,1)=7
p(a,2)=7:GOSUB PLAYERDOMINO:pomp=pomp-1:x=horiz+51:y=vert:R=2
GOSUB whoplay:GOSUB tim:GOSUB computerdomino:GOSUB tim:GOTO gameplay
END IF
IF (ben=1 OR bent=2) AND p(a,2)=dot AND p(a,1)<>p(a,2) AND (dom<=10 OR dom>=24) THEN
LINE (x,y-5)-(x+51,y+5),2,BF:s(a,1)=p(a,2):s(a,2)=p(a,1)
GOSUB horizDOTS:dom=dom+1:horiz=x:vert=y:dot=p(a,1):p(a,1)=7:p(a,2)=7
GOSUB PLAYERDOMINO:pomp=pomp-1:x=horiz+51:y=vert:R=2:GOSUB whoplay
GOSUB tim:GOSUB computerdomino:GOSUB tim:GOTO gameplay
END IF
IF (ben=1 OR bent=2) AND p(a,1)=dot AND p(a,1)=p(a,2) AND (dom<=10 OR dom>=24) THEN
LINE (x,y+10)-(x+25,y-10),2,BF:s(a,1)=p(a,1):s(a,2)=p(a,2)
GOSUB VERTDOTS:dom=dom+1:horiz=x:vert=y:dot=p(a,2):p(a,1)=7:p(a,2)=7
GOSUB PLAYERDOMINO:pomp=pomp-1:x=horiz+25:y=vert:R=2:GOSUB whoplay
GOSUB tim:GOSUB computerdomino:GOSUB tim:GOTO gameplay
END IF
'DOMINOS 11-13 ARE VERTICAL RIGHT ROW ON SCREEN
IF (ben=1 OR bent=2) AND p(a,1)=dot AND p(a,1)<>p(a,2) AND dom=11 THEN
y=26:LINE (x,y+10)-(x+25,y-10),2,BF:s(a,1)=p(a,1):s(a,2)=p(a,2)
GOSUB VERTDOTS:dom=dom+1:horiz=x:vert=y:dot=p(a,2):p(a,1)=7
p(a,2)=7:GOSUB PLAYERDOMINO:pomp=pomp-1:x=horiz:y=vert+20:R=2
GOSUB whoplay:GOSUB tim:GOSUB computerdomino:GOSUB tim:GOTO gameplay
END IF
IF (ben=1 OR bent=2) AND p(a,2)=dot AND p(a,1)<>p(a,2) AND dom=11 THEN
y=26:LINE (x,y+10)-(x+25,y-10),2,BF:s(a,1)=p(a,2):s(a,2)=p(a,1)
GOSUB VERTDOTS:dom=dom+1:horiz=x:vert=y:dot=p(a,1):p(a,1)=7
p(a,2)=7:GOSUB PLAYERDOMINO:pomp=pomp-1:x=horiz:y=vert+20:R=2
GOSUB whoplay:GOSUB tim:GOSUB computerdomino:GOSUB tim:GOTO gameplay
END IF
IF (ben=1 OR bent=2) AND p(a,1)=dot AND p(a,1)=p(a,2) AND dom=11 THEN
y=21:LINE (x,y+10)-(x+25,y-10),2,BF:s(a,1)=p(a,1):s(a,2)=p(a,2)
GOSUB VERTDOTS:dom=dom+1:horiz=x:vert=y:dot=p(a,2):p(a,1)=7
p(a,2)=7:GOSUB PLAYERDOMINO:pomp=pomp-1:x=horiz:y=vert+20:R=2
GOSUB whoplay:GOSUB tim:GOSUB computerdomino:GOSUB tim:GOTO gameplay
END IF
IF (ben=1 OR bent=2) AND p(a,1)=dot AND p(a,1)<>p(a,2) AND (dom=12 OR dom=22) THEN
LINE (x,y+10)-(x+25,y-10),2,BF:s(a,1)=p(a,1):s(a,2)=p(a,2)
GOSUB VERTDOTS:dom=dom+1:horiz=x:vert=y:dot=p(a,2):p(a,1)=7
p(a,2)=7:GOSUB PLAYERDOMINO:pomp=pomp-1:x=horiz:y=vert+20:R=2
GOSUB whoplay:GOSUB tim:GOSUB computerdomino:GOSUB tim:GOTO gameplay
END IF
IF (ben=1 OR bent=2) AND p(a,2)=dot AND p(a,1)<>p(a,2) AND (dom=12 OR dom=22) THEN
LINE (x,y+10)-(x+25,y-10),2,BF:s(a,1)=p(a,2):s(a,2)=p(a,1)
GOSUB VERTDOTS:dom=dom+1:horiz=x:vert=y:dot=p(a,1):p(a,1)=7
p(a,2)=7:GOSUB PLAYERDOMINO:pomp=pomp-1:x=horiz:y=vert+20:R=2
GOSUB whoplay:GOSUB tim:GOSUB computerdomino:GOSUB tim:GOTO gameplay
END IF
IF (ben=1 OR bent=2) AND p(a,1)=dot AND p(a,1)=p(a,2) AND (dom=12 OR dom=22) THEN
x=x-13:y=y-5:LINE (x,y-5)-(x+51,y+5),2,BF:s(a,1)=p(a,1)
s(a,2)=p(a,2):GOSUB horizDOTS:dom=dom+1:horiz=x:vert=y:dot=p(a,2)
p(a,1)=7:p(a,2)=7:GOSUB PLAYERDOMINO:pomp=pomp-1:x=horiz+13:y=vert+15
R=2:GOSUB whoplay:GOSUB tim:GOSUB computerdomino:GOSUB tim:GOTO gameplay
END IF
IF (ben=1 OR bent=2) AND p(a,1)=dot AND p(a,1)<>p(a,2) AND dom=13 THEN
LINE (x,y+10)-(x+25,y-10),2,BF:s(a,1)=p(a,1):s(a,2)=p(a,2)
GOSUB VERTDOTS:dom=dom+1:horiz=x:vert=y:dot=p(a,2):p(a,1)=7:p(a,2)=7
GOSUB PLAYERDOMINO:pomp=pomp-1:x=horiz:y=vert+5:R=2:GOSUB whoplay
GOSUB tim:GOSUB computerdomino:GOSUB tim:GOTO gameplay
END IF
IF (ben=1 OR bent=2) AND p(a,2)=dot AND p(a,1)<>p(a,2) AND dom=13 THEN
LINE (x,y+10)-(x+25,y-10),2,BF:s(a,1)=p(a,2):s(a,2)=p(a,1)
GOSUB VERTDOTS:dom=dom+1:horiz=x:vert=y:dot=p(a,1):p(a,1)=7:p(a,2)=7
GOSUB PLAYERDOMINO:pomp=pomp-1:x=horiz:y=vert+5:R=2:GOSUB whoplay
GOSUB tim:GOSUB computerdomino:GOSUB tim:GOTO gameplay
END IF
IF (ben=1 OR bent=2) AND p(a,1)=dot AND p(a,1)=p(a,2) AND dom=13 THEN
x=x-13:y=y-5:LINE (x,y-5)-(x+51,y+5),2,BF:s(a,1)=p(a,1)
s(a,2)=p(a,2):GOSUB horizDOTS:dom=dom+1:horiz=x:vert=y:dot=p(a,2)
p(a,1)=7:p(a,2)=7:GOSUB PLAYERDOMINO:pomp=pomp-1:x=horiz:y=vert
R=2:GOSUB whoplay:GOSUB tim:GOSUB computerdomino:GOSUB tim:GOTO gameplay
END IF
'DOMINOS 14-20 ARE MIDDLE HORIZONTAL ROW ON SCREEN
IF (ben=1 OR bent=2) AND p(a,1)=dot AND p(a,1)<>p(a,2) AND (dom>=14 AND dom<=20) THEN
x=x-51:horiz=x:LINE (x,y-5)-(x+51,y+5),2,BF:s(a,1)=p(a,2):s(a,2)=p(a,1)
GOSUB horizDOTS:dom=dom+1:vert=y:dot=p(a,2):p(a,1)=7
p(a,2)=7:GOSUB PLAYERDOMINO:pomp=pomp-1:x=horiz:y=vert:R=2
GOSUB whoplay:GOSUB tim:GOSUB computerdomino:GOSUB tim:GOTO gameplay
END IF
IF (ben=1 OR bent=2) AND p(a,2)=dot AND p(a,1)<>p(a,2) AND (dom>=14 AND dom<=20) THEN
x=x-51:horiz=x:LINE (x,y-5)-(x+51,y+5),2,BF:s(a,1)=p(a,1):s(a,2)=p(a,2)
GOSUB horizDOTS:dom=dom+1:vert=y:dot=p(a,1):p(a,1)=7:p(a,2)=7
GOSUB PLAYERDOMINO:pomp=pomp-1:x=horiz:y=vert:R=2:GOSUB whoplay
GOSUB tim:GOSUB computerdomino:GOSUB tim:GOTO gameplay
END IF
IF (ben=1 OR bent=2) AND p(a,1)=dot AND p(a,1)=p(a,2) AND (dom>=14 AND dom<=20) THEN
x=x-25:horiz=x:LINE (x,y+10)-(x+25,y-10),2,BF:s(a,1)=p(a,1):s(a,2)=p(a,2)
GOSUB VERTDOTS:dom=dom+1:vert=y:dot=p(a,2):p(a,1)=7:p(a,2)=7
GOSUB PLAYERDOMINO:pomp=pomp-1:x=horiz:y=vert:R=2:GOSUB whoplay
GOSUB tim:GOSUB computerdomino:GOSUB tim:GOTO gameplay
END IF
'DOMINOS 21-23 ARE LEFT VERTICAL ROW ON SCREEN
IF (ben=1 OR bent=2) AND p(a,1)=dot AND p(a,1)<>p(a,2) AND dom=21 THEN
x=x-25:y=y+5:LINE (x,y+10)-(x+25,y-10),2,BF:s(a,1)=p(a,1):s(a,2)=p(a,2)
GOSUB VERTDOTS:dom=dom+1:horiz=x:vert=y:dot=p(a,2):p(a,1)=7
p(a,2)=7:GOSUB PLAYERDOMINO:pomp=pomp-1:x=horiz:y=vert+20:R=2
GOSUB whoplay:GOSUB tim:GOSUB computerdomino:GOSUB tim:GOTO gameplay
END IF
IF (ben=1 OR bent=2) AND p(a,2)=dot AND p(a,1)<>p(a,2) AND dom=21 THEN
x=x-25:y=y+5:LINE (x,y+10)-(x+25,y-10),2,BF:s(a,1)=p(a,2):s(a,2)=p(a,1)
GOSUB VERTDOTS:dom=dom+1:horiz=x:vert=y:dot=p(a,1):p(a,1)=7
p(a,2)=7:GOSUB PLAYERDOMINO:pomp=pomp-1:x=horiz:y=vert+20:R=2
GOSUB whoplay:GOSUB tim:GOSUB computerdomino:GOSUB tim:GOTO gameplay
END IF
IF (ben=1 OR bent=2) AND p(a,1)=dot AND p(a,1)=p(a,2) AND dom=21 THEN
x=x-25:LINE (x,y+10)-(x+25,y-10),2,BF:s(a,1)=p(a,1):s(a,2)=p(a,2)
GOSUB VERTDOTS:dom=dom+1:horiz=x:vert=y:dot=p(a,2):p(a,1)=7
p(a,2)=7:GOSUB PLAYERDOMINO:pomp=pomp-1:x=horiz:y=vert+20:R=2
GOSUB whoplay:GOSUB tim:GOSUB computerdomino:GOSUB tim:GOTO gameplay
END IF
IF (ben=1 OR bent=2) AND p(a,1)=dot AND p(a,1)<>p(a,2) AND dom=23 THEN
LINE (x,y+10)-(x+25,y-10),2,BF:s(a,1)=p(a,1):s(a,2)=p(a,2)
GOSUB VERTDOTS:dom=dom+1:horiz=x:vert=y:dot=p(a,2):p(a,1)=7:p(a,2)=7
GOSUB PLAYERDOMINO:pomp=pomp-1:x=horiz+25:y=vert+5:R=2:GOSUB whoplay
GOSUB tim:GOSUB computerdomino:GOSUB tim:GOTO gameplay
END IF
IF (ben=1 OR bent=2) AND p(a,2)=dot AND p(a,1)<>p(a,2) AND dom=23 THEN
LINE (x,y+10)-(x+25,y-10),2,BF:s(a,1)=p(a,2):s(a,2)=p(a,1)
GOSUB VERTDOTS:dom=dom+1:horiz=x:vert=y:dot=p(a,1):p(a,1)=7:p(a,2)=7
GOSUB PLAYERDOMINO:pomp=pomp-1:x=horiz+25:y=vert+5:R=2:GOSUB whoplay
GOSUB tim:GOSUB computerdomino:GOSUB tim:GOTO gameplay
END IF
IF (ben=1 OR bent=2) AND p(a,1)=dot AND p(a,1)=p(a,2) AND dom=23 THEN
x=x-13:y=y-5:LINE (x,y-5)-(x+51,y+5),2,BF:s(a,1)=p(a,1)
s(a,2)=p(a,2):GOSUB horizDOTS:dom=dom+1:horiz=x:vert=y:dot=p(a,2)
p(a,1)=7:p(a,2)=7:GOSUB PLAYERDOMINO:pomp=pomp-1:x=horiz+51:y=vert
R=2:GOSUB whoplay:GOSUB tim:GOSUB computerdomino:GOSUB tim:GOTO gameplay
END IF
NEXT a
GOSUB tim
GOTO gameplay
RETURN
PLAYERDOMINO: 'DRAWING OF PLAYER DOMINOS ON LOWER SCREEN
zz=xx:cscore=0
FOR Z=1 TO pomp-1
IF p(Z,1)=7 THEN
p(Z,1)=p(Z+1,1)
p(Z,2)=p(Z+1,2)
p(Z+1,1)=7
p(Z+1,2)=7
END IF
NEXT Z
x=134:FOR t=1 TO pomp:s(t,1)=p(t,1):s(t,2)=p(t,2):NEXT t
LINE (133,133)-(629,160),0,BF
FOR a=1 TO pomp
IF p(a,1)=7 OR p(a,2)=7 THEN GOTO 340
IF a<=9 THEN y=140 'TOP ROW OF PLAYER DOMINOS
IF a=10 THEN x=134:y=154 'BOTTOM ROW OF PLAYER DOMINOS
LINE (x,y-5)-(x+51,y+5),2,BF
GOSUB horizDOTS
x=x+55:cscore=cscore+p(a,1)+p(a,2)
COLOR 1:LOCATE 24,17:PRINT cscore;
t11=timer
if add=1 and a>=z6 then
while int(t12-t11)<1
t12=timer
wend
z7=z7-1:sound 880,2:locate 24,73:print z7; 'z7=bone
end if
340 NEXT a
locate 24,73:print bone;
IF pomp=0 THEN R=1:GOSUB winner
RETURN
computerdomino: 'DRAWS FULL SIZE COMPUTER DOMINOS ON SCREEN
FOR t=1 TO comp:s(t,1)=c(t,1):s(t,2)=c(t,2):NEXT t
FOR a=1 TO comp
'DOMINOS 1-10 ARE TOP HORIZONTAL ROW ON SCREEN
'DOMINOS 11-13 ARE RIGHT VERTICAL ROW ON SCREEN
'DOMINOS 14-20 ARE MIDDLE HORIZONTAL ROW ON SCREEN
'DOMINOS 21-23 ARE LEFT VERTICAL ROW ON SCREEN
'DOMINOS 24-28 ARE LOWEST HORIZONTAL ROW ON SCREEN
IF c(a,1)=dot AND c(a,1)=c(a,2) AND (dom<=10 OR dom>=24) THEN gosub check
IF YU=1 THEN YU=0:GOTO 40
if c(a,1)=dot and c(a,1)=c(a,2) and (dom<=10 or dom>=24) then
LINE (x,y+10)-(x+25,y-10),2,BF:s(a,1)=c(a,1):s(a,2)=c(a,2)
GOSUB VERTDOTS:dom=dom+1:x=x+25:dot=c(a,2)
GOSUB CDRAW:GOSUB COMPDRAW:Y2=0:Y3=0:RETURN
END IF
if c(a,1)=dot and c(a,1)<>c(a,2) and (dom<=10 or dom>=24) then gosub check
if yu=1 then YU=0:GOTO 40
If c(a,1)=dot AND c(a,1)<>c(a,2) AND (dom<=10 OR dom>=24) THEN
LINE (x,y-5)-(x+51,y+5),2,BF:s(a,1)=c(a,1):s(a,2)=c(a,2)
GOSUB horizDOTS:dom=dom+1:x=x+51:dot=c(a,2)
GOSUB CDRAW:GOSUB COMPDRAW:Y2=0:Y3=0:RETURN
END IF
if c(a,2)=dot and c(a,1)<>c(a,2) and (dom<=10 or dom>=24) then gosub check
IF YU=1 THEN YU=0:GOTO 40
IF c(a,2)=dot AND c(a,1)<>c(a,2) AND (dom<=10 OR dom>=24) THEN
LINE (x,y-5)-(x+51,y+5),2,BF:s(a,1)=c(a,2):s(a,2)=c(a,1)
GOSUB horizDOTS:dom=dom+1:x=x+51:dot=c(a,1)
GOSUB CDRAW:GOSUB COMPDRAW:Y2=0:Y3=0:RETURN
END IF
IF C(A,1)=DOT AND C(A,1)<>C(A,2) AND DOM=11 THEN GOSUB CHECK
IF YU=1 THEN YU=0:GOTO 40
IF c(a,1)=dot AND c(a,1)<>c(a,2) AND dom=11 THEN
y=26:LINE (x,y-10)-(x+25,y+10),2,BF:s(a,1)=c(a,1):s(a,2)=c(a,2)
GOSUB VERTDOTS:dom=dom+1:dot=c(a,2):y=y+20
GOSUB CDRAW:GOSUB COMPDRAW:Y2=0:Y3=0:RETURN
END IF
IF C(A,2)=DOT AND C(A,1)<>C(A,2) AND DOM=11 THEN GOSUB CHECK
IF YU=1 THEN YU=0:GOTO 40
IF c(a,2)=dot AND c(a,1)<>c(a,2) AND dom=11 THEN
y=26:LINE (x,y-10)-(x+25,y+10),2,BF:s(a,1)=c(a,2):s(a,2)=c(a,1)
GOSUB VERTDOTS:dom=dom+1:dot=c(a,1):y=y+20
GOSUB CDRAW:GOSUB COMPDRAW:Y2=0:Y3=0:RETURN
END IF
IF c(a,1)=dot AND c(a,1)=c(a,2) AND dom=11 THEN GOSUB CHECK
IF YU=1 THEN YU=0:GOTO 40
IF C(A,1)=DOT AND C(A,1)=C(A,2) AND DOM=11 THEN
y=21:LINE (x,y+10)-(x+25,y-10),2,BF:s(a,1)=c(a,1):s(a,2)=c(a,2)
GOSUB VERTDOTS:dom=dom+1:dot=c(a,2):y=y+20
GOSUB CDRAW:GOSUB COMPDRAW:Y2=0:Y3=0:RETURN
END IF
IF c(a,1)=dot AND c(a,1)<>c(a,2) AND (dom=12 OR dom=22) THEN GOSUB CHECK
IF YU=1 THEN YU=0:GOTO 40
IF C(A,1)=DOT AND C(A,1)<>C(A,2) AND (DOM=12 OR DOM=22) THEN
LINE (x,y-10)-(x+25,y+10),2,BF:s(a,1)=c(a,1):s(a,2)=c(a,2)
GOSUB VERTDOTS:dom=dom+1:dot=c(a,2):y=y+20
GOSUB CDRAW:GOSUB COMPDRAW:Y2=0:Y3=0:RETURN
END IF
IF c(a,2)=dot AND c(a,1)<>c(a,2) AND (dom=12 OR dom=22) THEN GOSUB CHECK
IF YU=1 THEN YU=0:GOTO 40
IF C(A,2)=DOT AND C(A,1)<>C(A,2) AND (DOM=12 OR DOM=22) THEN
LINE (x,y-10)-(x+25,y+10),2,BF:s(a,1)=c(a,2):s(a,2)=c(a,1)
GOSUB VERTDOTS:dom=dom+1:dot=c(a,1):y=y+20
GOSUB CDRAW:GOSUB COMPDRAW:Y2=0:Y3=0:RETURN
END IF
IF c(a,1)=dot AND c(a,1)=c(a,2) AND (dom=12 OR dom=22) THEN GOSUB CHECK
IF YU=1 THEN YU=0:GOTO 40
IF C(A,1)=DOT AND C(A,1)=C(A,2) AND (DOM=12 OR DOM=22) THEN
x=x-13:y=y-5:LINE (x,y-5)-(x+51,y+5),2,BF:s(a,1)=c(a,1)
s(a,2)=c(a,2):GOSUB horizDOTS:dom=dom+1:dot=c(a,2):x=x+13:y=y+15
GOSUB CDRAW:GOSUB COMPDRAW:Y2=0:Y3=0:RETURN
END IF
IF c(a,1)=dot AND c(a,1)<>c(a,2) AND dom=13 THEN GOSUB CHECK
IF YU=1 THEN YU=0:GOTO 40
IF C(A,1)=DOT AND C(A,1)<>C(A,2) AND DOM=13 THEN
LINE (x,y-10)-(x+25,y+10),2,BF:s(a,1)=c(a,1):s(a,2)=c(a,2)
GOSUB VERTDOTS:dom=dom+1:dot=c(a,2):y=y+5
GOSUB CDRAW:GOSUB COMPDRAW:Y2=0:Y3=0:RETURN
END IF
IF c(a,2)=dot AND c(a,1)<>c(a,2) AND dom=13 THEN GOSUB CHECK
IF YU=1 THEN YU=0:GOTO 40
IF C(A,2)=DOT AND C(A,1)<>C(A,2) AND DOM=13 THEN
LINE (x,y-10)-(x+25,y+10),2,BF:s(a,1)=c(a,2):s(a,2)=c(a,1)
GOSUB VERTDOTS:dom=dom+1:dot=c(a,1):y=y+5
GOSUB CDRAW:GOSUB COMPDRAW:Y2=0:Y3=0:RETURN
END IF
IF c(a,1)=dot AND c(a,1)=c(a,2) AND dom=13 THEN GOSUB CHECK
IF YU=1 THEN YU=0:GOTO 40
IF C(A,1)=DOT AND C(A,1)=C(A,2) AND DOM=13 THEN
x=x-13:y=y-5:LINE (x,y-5)-(x+51,y+5),2,BF:s(a,1)=c(a,1)
s(a,2)=c(a,2):GOSUB horizDOTS:dom=dom+1:dot=c(a,2)
GOSUB CDRAW:GOSUB COMPDRAW:Y2=0:Y3=0:RETURN
END IF
IF c(a,1)=dot AND c(a,1)<>c(a,2) AND (dom>=14 AND dom<=20) THEN GOSUB CHECK
IF YU=1 THEN YU=0:GOTO 40
IF C(A,1)=DOT AND C(A,1)<>C(A,2) AND (DOM>=14 AND DOM<=20) THEN
x=x-51:LINE (x,y-5)-(x+51,y+5),2,BF:s(a,1)=c(a,2)
s(a,2)=c(a,1):GOSUB horizDOTS:dom=dom+1:dot=c(a,2)
GOSUB CDRAW:GOSUB COMPDRAW:Y2=0:Y3=0:RETURN
END IF
IF c(a,2)=dot AND c(a,1)<>c(a,2) AND (dom>=14 AND dom<=20) THEN GOSUB CHECK
IF YU=1 THEN YU=0:GOTO 40
IF C(A,2)=DOT AND C(A,1)<>C(A,2) AND (DOM>=14 AND DOM<=20) THEN
x=x-51:LINE (x,y-5)-(x+51,y+5),2,BF:s(a,1)=c(a,1)
s(a,2)=c(a,2):GOSUB horizDOTS:dom=dom+1:dot=c(a,1)
GOSUB CDRAW:GOSUB COMPDRAW:Y2=0:Y3=0:RETURN
END IF
IF c(a,1)=dot AND c(a,1)=c(a,2) AND (dom>=14 AND dom<=20) THEN GOSUB CHECK
IF YU=1 THEN YU=0:GOTO 40
IF C(A,1)=DOT AND C(A,1)+C(A,2) AND (DOM>=14 AND DOM<=20) THEN
x=x-25:LINE (x,y-10)-(x+25,y+10),2,BF:s(a,1)=c(a,1)
s(a,2)=c(a,2):GOSUB VERTDOTS:dom=dom+1:dot=c(a,1)
GOSUB CDRAW:GOSUB COMPDRAW:Y2=0:Y3=0:RETURN
END IF
IF c(a,1)=dot AND c(a,1)<>c(a,2) AND dom=21 THEN GOSUB CHECK
IF YU=1 THEN YU=0:GOTO 40
IF C(A,1)=DOT AND C(A,1)<>C(A,2) AND DOM=21 THEN
x=x-25:y=y+5:LINE (x,y-10)-(x+25,y+10),2,BF:s(a,1)=c(a,1):s(a,2)=c(a,2)
GOSUB VERTDOTS:dom=dom+1:dot=c(a,2):y=y+20
GOSUB CDRAW:GOSUB COMPDRAW:Y2=0:Y3=0:RETURN
END IF
IF c(a,2)=dot AND c(a,1)<>c(a,2) AND dom=21 THEN GOSUB CHECK
IF YU=1 THEN YU=0:GOTO 40
IF C(A,2)=DOT AND C(A,1)<>C(A,2) AND DOM=21 THEN
x=x-25:y=y+5:LINE (x,y-10)-(x+25,y+10),2,BF:s(a,1)=c(a,2):s(a,2)=c(a,1)
GOSUB VERTDOTS:dom=dom+1:dot=c(a,1):y=y+20
GOSUB CDRAW:GOSUB COMPDRAW:Y2=0:Y3=0:RETURN
END IF
IF c(a,1)=dot AND c(a,1)=c(a,2) AND dom=21 THEN GOSUB CHECK
IF YU=1 THEN YU=0:GOTO 40
IF C(A,1)=DOT AND C(A,1)=C(A,2) AND DOM=21 THEN
x=x-25:LINE (x,y+10)-(x+25,y-10),2,BF:s(a,1)=c(a,1):s(a,2)=c(a,2)
GOSUB VERTDOTS:dom=dom+1:dot=c(a,2):y=y+20
GOSUB CDRAW:GOSUB COMPDRAW:Y2=0:Y3=0:RETURN
END IF
IF c(a,1)=dot AND c(a,1)<>c(a,2) AND dom=23 THEN GOSUB CHECK
IF YU=1 THEN YU=0:GOTO 40
IF C(A,1)=DOT AND C(A,1)<>C(A,2) AND DOT=23 THEN
LINE (x,y-10)-(x+25,y+10),2,BF:s(a,1)=c(a,1):s(a,2)=c(a,2)
GOSUB VERTDOTS:dom=dom+1:dot=c(a,2):x=x+25:y=y+5
GOSUB CDRAW:GOSUB COMPDRAW:Y2=0:Y3=0:RETURN
END IF
IF c(a,2)=dot AND c(a,1)<>c(a,2) AND dom=23 THEN GOSUB CHECK
IF YU=1 THEN YU=0:GOTO 40
IF C(A,2)=DOT AND C(A,1)<>C(A,2) AND DOM=23 THEN
LINE (x,y-10)-(x+25,y+10),2,BF:s(a,1)=c(a,2):s(a,2)=c(a,1)
GOSUB VERTDOTS:dom=dom+1:dot=c(a,1):x=x+25:y=y+5
GOSUB CDRAW:GOSUB COMPDRAW:Y2=0:Y3=0:RETURN
END IF
IF c(a,1)=dot AND c(a,1)=c(a,2) AND dom=23 THEN GOSUB CHECK
IF YU=1 THEN YU=0:GOTO 40
IF C(A,1)=DOT AND C(A,1)=C(A,2) AND DOM=23 THEN
x=x-13:y=y-5:LINE (x,y-5)-(x+51,y+5),2,BF:s(a,1)=c(a,1)
s(a,2)=c(a,2):GOSUB horizDOTS:dom=dom+1:dot=c(a,2)
x=x+51:GOSUB CDRAW:GOSUB COMPDRAW:Y2=0:Y3=0:RETURN
END IF
40 NEXT a
IF Y2=2 THEN Y3=3:YU=0:GOTO COMPUTERDOMINO 'A MATCH WAS FOUND ON FIRST ROUND
FOR R9=1 TO 28
IF R(m(R9),1)<=6 OR R(m(R9),2)<=6 THEN
comp=comp+1 'ADDS DOMINOS TO COMPUTERS PILE
c(comp,1)=R(m(R9),1):c(comp,2)=R(m(R9),2)
R(m(R9),1)=9:R(m(R9),2)=9:bone=bone-1
LOCATE 24,73:PRINT bone;
GOSUB COMPDRAW:SOUND 880,2
GOTO computerdomino
END IF
NEXT R9
IF R=4 AND bone=0 THEN GOSUB winner
RETURN
CDRAW: 'RENUMBERS USED COMPUTER DOMINOS IN ITS ARRAY
c(a,1)=8:c(a,2)=8:SOUND 880,2
FOR LIK=1 TO comp-1
IF LIK=comp THEN RETURN
IF c(LIK,1)=8 OR c(LIK,2)=8 THEN
c(LIK,1)=c(LIK+1,1)
c(LIK,2)=c(LIK+1,2)
c(LIK+1,1)=8
c(LIK+1,2)=8
END IF
NEXT LIK
comp=comp-1
RETURN
COMPDRAW: 'DRAWS LITTLE COMPUTER DOMINOS ON LOWER SCREEN
pscore=0
IF ply=0 AND play=2 THEN comp=6
X9=160:Y9=169:ply=90
LINE (159,168)-(620,176),0,BF
FOR AT=1 TO comp
pscore=pscore+c(AT,1)+c(AT,2)
LINE (X9,Y9)-(X9+16,Y9+6),2,BF:X9=X9+24:NEXT AT
COLOR 1:LOCATE 24,40+LEN(R$):PRINT pscore;
IF comp=0 THEN R=2:GOSUB winner
RETURN
whoplay: 'SHOWS WHOSE TURN TO PLAY NEXT ON UPPER LEFT SCREEN
LINE (0,0)-(635,10),0,BF
LOCATE 1,2:COLOR 3
IF R=1 THEN PRINT R$;"'s";" turn to Play..."
IF R=2 THEN PRINT "Computer's turn to Play..."
if r=3 then print "Checking ";r$;"'s";" dominos"
IF R=4 THEN PRINT "The Boneyard is empty, ";R$;" is unable to Play, therefore Computer will Play":SOUND 880,2
if r=5 then
print R$;", you have to draw from the Boneyard since you don't have a";dot
end if
COLOR 1
RETURN
CHECK: 'COMPUTER CHECKING DOMINOS
if y3=3 then yu=0:return
FOR GT=1 TO POMP
IF C(A,1)=DOT AND (P(GT,1)=C(A,2) OR P(GT,2)=C(A,2)) THEN YU=1:Y2=2:RETURN
IF C(A,2)=DOT AND (P(GT,1)=C(A,1) OR P(GT,2)=C(A,1)) THEN YU=1:Y2=2:RETURN
NEXT GT
RETURN
CHEATING:
IF MENU(1)=1 THEN GOSUB Information
IF MENU(1)=2 and ch=1 THEN GOSUB OPPCHEATER 'ch=1 player cheats on oppnt
IF MENU(1)=3 and ch=1 THEN GOSUB BONECHEATER 'ch=1 player cheats on byard
RETURN
Information: 'SHOWS GAMES PLAYED
WINDOW 6," .....Game Information.....",(10,10)-(375,75),16
d=p+c:PRINT
PRINT "Games Played: ";c+p
IF d<1 THEN d=1
PRINT "Computer Wins: ";c
print R$;" Wins: ";p
PRINT r$;" wins";int((p/(d))*100);"percent of the time."
PRINT
INPUT "Enter any key to continue";gt$
WINDOW CLOSE 6
RETURN
OPPCHEATER: 'LOOKS AT COMPUTERS DOMINOS
WINDOW 4," .....Why are You Cheating.....",(10,10)-(350,180),16
PRINT "The Computer has the following dominos:":PRINT:hi=1
FOR gy=1 TO comp
PRINT TAB(15) c(gy,1);c(gy,2)
hi=hi+1:NEXT:PRINT
INPUT "Enter any key to continue";fr$
WINDOW CLOSE 4
RETURN
BONECHEATER: 'LOOKS AT DOMINOS IN BONEYARD
WINDOW 5," .....Why are You Cheating.....",(10,10)-(350,180),16
If bone=0 then
print "The Boneyard is empty.........."
print:print:print:print:print
goto 678
end if
PRINT "The Boneyard has the following Dominos:":PRINT
FOR gy=1 TO 28
IF R(m(gy),1)<=6 OR R(m(gy),2)<=6 THEN
PRINT TAB(15) R(m(gy),1);R(m(gy),2)
END IF
NEXT gy
678 INPUT "Enter any key to continue";fo$
WINDOW CLOSE 5
RETURN
SHUFFLE: 'DOMINO ARRAY FORMATION
FOR a=1 TO 28
READ R(a,1):READ R(a,2):NEXT a:RESTORE
FOR i=1 TO 28:m(i)=i:NEXT i
FOR i=1 TO 28:x=INT(28*RND)+1
TP=m(i):m(i)=m(x):m(x)=TP:NEXT i
FOR t1=1 TO 7:p(t1,1)=R(m(t1),1):p(t1,2)=R(m(t1),2)
NEXT t1
FOR t2=1 TO 7:c(t2,1)=R(m(t2+7),1):c(t2,2)=R(m(t2+7),2)
NEXT t2
DATA 0,0,0,1,0,2,0,3,0,4,0,5,0,6
DATA 1,1,1,2,1,3,1,4,1,5,1,6
DATA 2,2,2,3,2,4,2,5,2,6
DATA 3,3,3,4,3,5,3,6
DATA 4,4,4,5,4,6
DATA 5,5,5,6
DATA 6,6
RETURN
horizDOTS: 'DOMINO DOTS IN HORIZONTAL LAYOUT
IF s(a,1)=1 THEN PSET (x+12,y),1:PSET (x+13,y),1
IF s(a,1)=2 THEN
PSET (x+4,y-3),1:PSET (x+5,y-3),1
PSET (x+20,y+3),1:PSET (x+21,y+3),1
END IF
IF s(a,1)=3 THEN
PSET (x+4,y-3),1:PSET (x+5,y-3),1:PSET (x+12,y),1
PSET (x+13,y),1:PSET (x+20,y+3),1:PSET (x+21,y+3),1
END IF
IF s(a,1)=4 THEN
PSET (x+4,y-3),1:PSET (x+5,y-3),1:PSET (x+20,y-3),1
PSET (x+21,y-3),1:PSET (x+4,y+3),1
PSET (x+5,y+3),1:PSET (x+20,y+3),1:PSET (x+21,y+3),1
END IF
IF s(a,1)=5 THEN
PSET (x+4,y-3),1:PSET (x+5,y-3),1:PSET (x+20,y-3),1
PSET (x+21,y-3),1:PSET (x+12,y),1:PSET (x+13,y),1
PSET (x+4,y+3),1:PSET (x+5,y+3),1:PSET (x+20,y+3),1
PSET (x+21,y+3),1
END IF
IF s(a,1)=6 THEN
PSET (x+4,y-3),1:PSET (x+5,y-3),1:PSET (x+12,y-3),1
PSET (x+13,y-3),1:PSET (x+20,y-3),1:PSET (x+21,y-3),1
PSET (x+4,y+3),1:PSET (x+5,y+3),1:PSET (x+12,y+3),1
PSET (x+13,y+3),1:PSET (x+20,y+3),1:PSET (x+21,y+3),1
END IF
IF s(a,2)=1 THEN PSET (x+12+25,y),1:PSET (x+13+25,y),1
IF s(a,2)=2 THEN
PSET (x+4+25,y-3),1:PSET (x+5+25,y-3),1
PSET (x+20+25,y+3),1:PSET (x+21+25,y+3),1
END IF
IF s(a,2)=3 THEN
PSET (x+4+25,y-3),1:PSET (x+5+25,y-3),1
PSET (x+12+25,y),1:PSET (x+13+25,y),1
PSET (x+20+25,y+3),1:PSET (x+21+25,y+3),1
END IF
IF s(a,2)=4 THEN
PSET (x+4+25,y-3),1:PSET (x+5+25,y-3),1
PSET (x+20+25,y-3),1:PSET (x+21+25,y-3),1
PSET (x+4+25,y+3),1:PSET (x+5+25,y+3),1
PSET (x+20+25,y+3),1:PSET (x+21+25,y+3),1
END IF
IF s(a,2)=5 THEN
PSET (x+4+25,y-3),1:PSET (x+5+25,y-3),1:PSET (x+20+25,y-3),1
PSET (x+21+25,y-3),1:PSET (x+12+25,y),1:PSET (x+13+25,y),1
PSET (x+4+25,y+3),1:PSET (x+5+25,y+3),1
PSET (x+20+25,y+3),1:PSET (x+21+25,y+3),1
END IF
IF s(a,2)=6 THEN
PSET (x+4+25,y-3),1:PSET (x+5+25,y-3),1:PSET (x+12+25,y-3),1
PSET (x+13+25,y-3),1:PSET (x+20+25,y-3),1:PSET (x+21+25,y-3),1
PSET (x+4+25,y+3),1:PSET (x+5+25,y+3),1:PSET (x+12+25,y+3),1
PSET (x+13+25,y+3),1:PSET (x+20+25,y+3),1:PSET (x+21+25,y+3),1
END IF
RETURN
VERTDOTS: 'DOMINO DOTS IN VERTICAL LAYOUT
IF s(a,1)=1 THEN PSET(x+12,y-5),1:PSET(x+13,y-5),1
IF s(a,1)=2 THEN
PSET(x+4,y-8),1:PSET(x+5,y-8),1
PSET(x+20,y-2),1:PSET(x+21,y-2),1
END IF
IF s(a,1)=3 THEN
PSET(x+4,y-8),1:PSET(x+5,y-8),1:PSET(x+12,y-5),1
PSET(x+13,y-5),1:PSET(x+20,y-2),1:PSET(x+21,y-2),1
END IF
IF s(a,1)=4 THEN
PSET(x+4,y-2),1:PSET(x+5,y-2),1:PSET(x+20,y-2),1
PSET(x+21,y-2),1:PSET(x+4,y-8),1:PSET(x+5,y-8),1
PSET(x+20,y-8),1:PSET(x+21,y-8),1
END IF
IF s(a,1)=5 THEN
PSET(x+4,y-2),1:PSET(x+5,y-2),1:PSET(x+20,y-2),1
PSET(x+21,y-2),1:PSET(x+12,y-5),1:PSET(x+13,y-5),1
PSET(x+4,y-8),1:PSET(x+5,y-8),1
PSET(x+20,y-8),1:PSET(x+21,y-8),1
END IF
IF s(a,1)=6 THEN
PSET(x+4,y-2),1:PSET(x+5,y-2),1:PSET(x+20,y-2),1
PSET(x+21,y-2),1:PSET(x+4,y-5),1:PSET(x+5,y-5),1
PSET(x+20,y-5),1:PSET(x+21,y-5),1:PSET(x+4,y-8),1
PSET(x+5,y-8),1:PSET(x+20,y-8),1:PSET(x+21,y-8),1
END IF
IF s(a,2)=1 THEN PSET(x+12,y+5),1:PSET(x+13,y+5),1
IF s(a,2)=2 THEN
PSET(x+4,y+2),1:PSET(x+5,y+2),1
PSET(x+20,y+8),1:PSET(x+21,y+8),1
END IF
IF s(a,2)=3 THEN
PSET(x+4,y+2),1:PSET(x+5,y+2),1:PSET(x+12,y+5),1
PSET(x+13,y+5),1:PSET(x+20,y+8),1:PSET(x+21,y+8),1
END IF
IF s(a,2)=4 THEN
PSET(x+4,y+2),1:PSET(x+5,y+2),1:PSET(x+20,y+2),1
PSET(x+21,y+2),1:PSET(x+4,y+8),1:PSET(x+5,y+8),1
PSET(x+20,y+8),1:PSET(x+21,y+8),1
END IF
IF s(a,2)=5 THEN
PSET(x+4,y+2),1:PSET(x+5,y+2),1:PSET(x+20,y+2),1
PSET(x+21,y+2),1:PSET(x+12,y+5),1:PSET(x+13,y+5),1
PSET(x+4,y+8),1:PSET(x+5,y+8),1:PSET(x+20,y+8),1
PSET(x+21,y+8),1
END IF
IF s(a,2)=6 THEN
PSET(x+4,y+2),1:PSET(x+5,y+2),1:PSET(x+20,y+2),1
PSET(x+21,y+2),1:PSET(x+4,y+5),1:PSET(x+5,y+5),1
PSET(x+20,y+5),1:PSET(x+21,y+5),1:PSET(x+4,y+8),1
PSET(x+5,y+8),1:PSET(x+20,y+8),1:PSET(x+21,y+8),1
END IF
RETURN
tim: 'DELAY TIMER TO SLOW DOWN COMPILER
IF pomp=0 THEN R=1:GOSUB winner
if ite=0 then return
T6=TIMER
WHILE INT(T7-T6)<ite+1
T7=TIMER
IF INT(T7-T6)=ite+1 THEN RETURN
WEND
RETURN
winner: 'GAME WINNING STATEMENT
t4=TIMER
WHILE INT(t5-t4)<3
t5=TIMER
IF INT(t5-t4)=3 THEN GOTO 1234
WEND
1234 LINE (100,40)-(540,100),2,BF:COLOR 3,2
IF R=1 THEN
p=p+1:LOCATE 8,34:PRINT R$;" Wins"
LOCATE 11,22:INPUT "Enter any key to start another game";jy$
END IF
IF R=2 THEN
c=c+1:LOCATE 8,32:PRINT "Computer Wins"
LOCATE 11,22:INPUT "Enter any key to start another game";jy$
END IF
IF R=4 THEN
LOCATE 7,24:PRINT "Neither player has a ";dot;", therefore";
IF cscore>pscore THEN
c=c+1:LOCATE 9,21
PRINT "The Computer wins with a higher score of";cscore
LOCATE 12,21:INPUT "Enter any key to start another game";ft$
END IF
IF pscore>cscore THEN
p=p+1:LOCATE 9,23
PRINT R$;" wins with a higher score of ";pscore
LOCATE 12,21:INPUT "Enter any key to start another game";ft$
END IF
END IF
CLS:COLOR 1,0:cscore=0:pscore=0:play=0:ply=0:vt=0:dom=0:bone=0:comp=0
pomp=0:se=0:p4=0:x=0:y=0:R=0:m=0:dot=0:a=0:horiz=0:vert=0:YU=0:Y2=0
ben=0:bent=0:hi=0:gy=0:i=0:t1=0:t2=0:t3=0:t4=0:t5=0:d=0
ERASE R,m,s,t,c,p
GOTO 900
RETURN
