4RYV20a20k2 2^2 c$(y,x,s)=17+(4*ni)+16+r$(s,1)+19+(ni*(s2y))+22+y+x+r$(s,23)+22+(y+1)+x+r$(s,4) ":23658j\,8:660 !bp,40(:l1n=j:502 (J1=J1*(QQ>1)+4*(QQ=1):n1=J1-3:n1=(n1n1>0)+(n1<1):n2=J1+3:n2=(n2n2<8)+(7n2>7):N=n1:g=12:e$(g)=Z$:f=15:K=Nn2:g$(g,f,K)="0":K:G$(G,F,8)="0":f:g 2:t=t(1,n):ry=0:k1t=t-k1:tK1=0: <l1t3106 Fzz=3:f=0 POk=t-f:kz=k+zz:g=0:s1=-1:s2=-1:s3=-1:s4=-1 Zd=n+f:dz=d-zz d6k<1k>6kz<1kz>6140 nJtp=(2*(k+g),7+2*n):340T:s1=s1+tp+(S1=-1) x6d<1d>7dz<1dz>7140 Ntp=(2*(k+g),7+2*(d-g)):340T:s2=s2+tp+(S2=-1) d=n-f:dz=d+zz 6d<1d>7dz<1dz>7190 Jtp=(2*t,7+2*(d+g)):340T:s3=s3+tp+(S3=-1) 6k<1k>6kz<1kz>6190 Ntp=(2*(k+g),7+2*(d+g)):340T:s4=s4+tp+(S4=-1) ""="S"1150~ g=g+1:gzz90Z g=1 5tp=r$(g,1):340T:Z=(4-K1L1)+L1 L=(Z-L1-K1)*TP:l1s1=ls2=ls3=ls4=lG$(g,z,n)=(g$(g,z,n)+(s1=l)+(s2=l)+(s3=l)+(s4=l)):(Z)>G$(g,5,N)g$(g,5,n)=(z) Ql1s1=ls2=ls3=ls4=lry=l*(l=4l=524(l=3l=39'k1)) ryk1930 'k1K1=RY:K1T(2,N)=0: #z=z+1:z4230 #g=g+1:g2220 "f=f+1:fzz80P ,l1 6n=n+1:nn2502 @g=12:N=N1N2:G$(G,1,N)=(G$(G,1,N)+G$(G,2,N)+G$(G,3,N)+G$(G,4,N)):N:f=15:N=17:g$(g,f,8)=(G$(G,F,8)G$(G,F,N)G$(G,F,8))+(G$(G,F,N)G$(G,F,N)>G$(G,F,8)) J N:f:g: ThTP=TP-(64@TP>64@):TP=TP*(TP5):tp=tp+(tp+1tp=6)-(1tp=2): ^j2=x:ts=0:R=0:f=17:ts=ts+(t(1,f)=0):T(2,f)=(t(1,f)0T(3,F)0):T(2,f)0r=r+1:e$(1,r)=f hF:e$(1,8)=R r$e$(1,8)"0"440 |c$(y,j2,4) J=(e$(1,(*e$(1,8)+1))e$(1,8)"0")+(4+(*2+.5)-(*2+.5)(ME$(1,8)="0")):JT(1,J)2,10 :390 Nj2=7+j*2:c$(y,j2,s):ry=0:k1=1:30:jK1 3K1T(3,j)=0:bp,-40(:350^ JQ=1 D.1}L,30:.1}L,20:.1}L,30:370r IV=0:EZ=0:h=(1g$(1,5,8)>g$(2,5,8))+(2g$(2,5,8)>g$(1,5,8))+(sg$(1,5,8)=g$(2,5,8)):m=g$(H,5,8) HH1=(1H=2)+(2H=1):m1=g$(H1,5,8) h2=h:620l ug$(h2,5,E$(2,F))=MG$(H2,M,E$(2,F))=G$(H2,M,8)r=r+1:e$(1,r)=e$(2,f) 0F=F+1:FǰE$(2,8)470  640 r>1520  %M2=(M(MM1M1))+(M1M<1M1) 620l+R M$=G$(H2,M2,8) &GG$(H2,M2,E$(2,F))=M$r=r+1:e$(1,r)=e$(2,f) 00F=F+1:FǰE$(2,8)550& :5RM$=(M$-1):F=1:M$>"0"550& D 640 N?(RR>1)M2MH2=(HH2=H1)+(H1H2=H):H2=h1530 X,RR>1M2=M2-1:M2530 b l8E$(2)=E$(1):E$(1)=Z$:EZ=EZ+1 v.R=0:F=1:M$="":IV=IV+1: 1e$(1,8)=r:""="s"1150~  0:0:1:4:0::"V 2.0a";#0;7;"Wait some Moments!"'"This Game is SUPER..megaSlooww!!";#0;"Chr$13 Production!!ynnuF sisirC"  1340< Yq=1:st=1:F=12:G=15:G$(F,G)=Z$:G:E$(F)=Z$:F 980:st=0 ;s=(q/2=(q/2))+1:q0=q:sr=s:j=4 Ɨq1=((q+1)/2):qq=(4q14)+(Q1q1<4):l1=(a$(s)=d$):x=26*(s=2)+2:tp=r$(s,1):340T:c=tp нy=12 :Y2=10 :ni=0:c$(y,x,s);14,x;0;(" "Q1>11 );21-q1:1140t:y=10 0-2:bp,-y+20:c$(y2,x,4);c$(y,x,s):Y2=Y:y:y=0:c$(y,x,4):x=5+(22*(s=2))(2*j)+72-(4s=2):c$(y,x+2-(4s=1),4);c$(y,x,s):x:x=2*j+7:c$(y,x-2+(4s=2),4);c$(y,x,s) L1780  Ubp,13 :p$="Spec think,make thee or read one":1100L:q>130 bp,13 :p$="Well... What do you guess??":1100L:q=1j=4+(*3+.5)-(*3+.5) "l1=0:q>1350^ ry=0:c$(y,x,4):x=2*j+7:bp,13 :p$="Ready"+23+21+" to go?":1100L:850R  bp,0:1110V Gj=j+((i$="8"i$=9 )j<7)-((i$="5"i$=8)j>1)  3c$(y,x,4):x=j*2+7:c$(y,x,s) *i$="S"1150~ 4T(1,J)780  > i$="0"i$=13 850R H 780  RJ1=J:t=t(1,j) \ini=1:y=0(t-1)*22:bp,-y+20:c$(y,x,3):c$(y+2,x,s) f/ yni=0:c$(y,x,4):ni=1 py z6q$(q)=°(t(1,j)+j):Q>1kon30 #t(1,j)=t(1,J)-1 $q=q+1:q42*700  i$="vol" ry1;c$(y,x,s):f=0255ͧ:254,f:f:f=51-1:g=09 f:19,10 ;1;X$;گr$(s,1);g;a$(s);O$;0'20,9 ;"has them all"'21,11 ;"rOOOOwed up!":bp,f*g:g:f ?i$="vol"21,0;"All stones used, this is remise" Vp$=" Do you want a revanche? (Y/N) ":1:1090B:i$"Y"i$"N"950 i$="N"660 "f=1:1650r:680 st=1 \ni=1:x=9 212:y=212 2:c$(y,x,3):y:x 61:71G,159:0,-96`:113q,0:0,96`:1,-1:0,-96`:-115s,0:0,96`:-1,-1:0,-96`:117u,0:0,96`:1,-1:0,-96`:-119w,0:0,96` i1;66B,63?:-15,-15,.81O\(:5,-3,.5:45-,13 m1;189,63?:15,-15,-.81O\(:-5,-3,-.5:-45-,13 x=2:y=12 :c$(y,x,1);y+2,x;9 ;21:x=28:c$(y,x,2);y+2,x;9 ;21 st=1 30:340T:f=1̱q$:k$=(q$(f)):y=14-2*k$(1):x=2*k$(2)+7:k=(F/2=(F/2))+1:c$(Y,x,k):P$="For next q":1070.:f $%GA=15+(7*+.5): .p=0:p0=p 8"p$="Press a Key "+p$:1100L Bp=0:p0=1 L2"":#0;9 ;17;r$(s,1);p$ V/i$="":p:i$=:p0i$"N"i$"Y"1110V `""1120` j"p=1:p0=0:4: t%p$=a$(s)+"is at turn":1100L: ~Op$="You pressed 'S' Do You Stop? Y/N":7:1090B:i$="Y"930 "": af1110V:1:0,DR:255,0:0:DR=DR-(1DR>120x)+(39'DR120x):1320(+PL: fa1200 Ope=(15360<+l$(d)*8+a):b=0:l$(d)=" "a=A1:wi=wi/4 peb=B1:.001wn,0 T=pe-2*(pe/2) i$=:i$"" XFA=0:T1:ac-b*wi,do-a*ta-TT:1-wi,0:0:TT=TT+1 "TTTd1af=1  a=0: ("r$(1,1)=(*9 ) 2eni=0:c$(0,x,4):x=(*16)*2:c$(0,x,s):.001wn,x:I$=: <F=0:1650r F:''''1;4,6;"O";4,11 ;"N";4,20;"R";4,24;"O"'5,3;"4";5,17;"a";5,29;"W";0;''"The Aim of the Game is to Get"'" 4 stones on a row.";" This is OK horizontal,vertical and diagonal" PF"You can challenge this computer by typing 'Spectrum'";"as a player" ZFa$(2)=d$:a$(1)="You ":c$=a$(1)+a$(2) dwi=4:ta=6:ac=36$:do=163:l$="4 ON a ROW":d1=l$:a1=7:B1=7:d=1:a=0:fa=0:af=0:T=0:DR=159 n23561 \,0 x`p$="Press "+X$+"KEY"+O$+" to "+X$+"S"+O$+"tart or player "+X$+"1"+O$+"/"+X$+"2"+O$:1100L 13 ,0;"Player ";X$;"1";O$;"=";a$(1)'"Player ";X$;"2";O$;"=";a$(2)''"'";X$;"S";O$;"' Start&Stop","'";X$;"L";O$;"' leave now'"''9 ;1;"IN-GAME KEYS:";0'"'5' Left","'S' Stop"'"'8' Right","'0' Drop" hc$=c$(11 )+c$(10 ):1170:1100L:i$"1"I$"!"i$"2"i$"S"i$"L"1410 i$="L"0 ui$="1"I$="2"23658j\,0:I=I$-480:("Player"+I$+X$+A$(I)+O$+"TO");a$(I):12 +I,9 ;a$(I) ^f=12:I$="!"A$(F)="spectrum "a$(f)="SPECTRUM "a$(f)="sPECTRUM "a$(f)=d$ f L23658j\,8:c$=a$(1)+a$(2):I$"S"I$"!"1410 ,p$="for 1st turn!":1060$:10808 11170:GAI$=""GA=GA-1:1490 :a$(1)=c$(10 ):13 ,9 ;a$(1) :a$(2)=c$(11 ):14,9 ;a$(2) Ec=0:p$="for color!":1060$:10808:f=(+.5) Nf=f:1170:c=2+(4f):GAI$=""GA=GA-1:1530 r$(1,1)=c:c$(12 ,18,1):c=2+(4f):r$(2,1)=c:c$(14,18,2) <PL=10 :p$="and toggel X / O":1060$:10808 Cs=(+1.5@):1170:GAI$=""GA=GA-1:1560 "2f=s-1:r$(1,2)=(s$f)+(t$f) ,%r$(2,2)=(s$f)+(t$f) 6@c$(12 ,18,1):c$(14,18,2) @a$(1)d$a$(2)d$a$(1)y$a$(2)y$p$="Do you want 4onarow check (Y/N)":S=(+1.5@):1170:1100L:i$"N"i$"Y"1600@ JPkon=(i$="Y"i$=""a$(1)=d$a$(2)=d$A$(1)=Y$A$(2)=Y$) T?p$="and GoGo! "+a$(1):1060$:GA=GA*GA:10808 ^CS=(+1.5@):1170:GAI$=""GA=GA-1:1630^ h23561 \,35#: r.05|L,59;:k=0:g=k:d=k:dz=k:kz=k:t=k:g$(2,5,8):e$(2,8):n=k:z=k:l=k:s1=k:s2=k:s3=k:s4=k:tt=k:J=K:J1=K:J2=K | ni=k:y=k:x=k:T(3,7):s=1:r=k:ry=k:a=k:b=k:c=k:p=1:M=K:M1=K:M2=K:H=K:H1=K:H2=K:p0=k:shw=0:IV=0:EZ=0:k=17:t(1,k)=6:T(2,K)=1:T(3,K)=1:k:K=G:k1=g:f pl=0:bp=.01z# =:bl=.2~L:a$(2,10 ):r$(4,5)::f=k95_:y$:"a"+f,y$:f:u$="":s$="":t$="":f$=" ":f=13:r$(f)=5+u$:f:r$(4)=5+f$ od$="Spectrum ":y$="Crisis ":O$=20+0:X$=20+1:Z$="00000000":q$(42*): )"0","3","15","31","63","63","127","127" /"0","192","240","248","252","252","254","254" )"127","127","63","63","31","15","3","0" /"254","254","252","252","248","240","192","0" )"0","3","15","31","60","59","119","118" ."0","192","240","248","60","220","238","110" )"118","119","59","60","31","15","3","0" ."110","238","220","60","248","240","192","0" )"0","3","15","31","55","59","125","126" /"0","192","240","248","236","220","190","126" )"126","125","59","55","31","15","3","0" /"126","190","220","236","248","240","192","0" &::n$="4RYV20a20k":n$10 :n$ N 4RYV20a20k