4ry3$.BAS ] ] b_ ͒;;o!@ x   OGyw$   # !Xx   OGyw# x iԻ[ZZheЪ`$J ETUU[mUZiUZ  )BBDHA%Z4TZJR%JEAڿu_ F@"J*vZj5zUv[k;++-*׺zzmU_WUvX6 G ' G / *@UBREQUZUZU***P B[]Z FJJj__Z]mW[ֵVjֺjZVjںV[[jmm۞۾ֽVV޶ݶ]k꛽&_BUR%UU UJPQkWV]5NQe] F~տߵn{kオYnUڵSv۶~~oo{_}7?_=~n{}_[;oMWUU*U*no Fаlj޵Z]P=JkUkVmU{wګ[[v~]ukvvk}j{]}u FP(PPP( @Ђ( Ftm۶mڷjjjnkݡaāE=WvZѪyZUnjۭw޶}wO>jujjVۭ[j_[UUURUUUQJ% F   %W'\Q%[jvݪ}۵m۶m}uuֵm۵]۵֫wvVVݫkߵouuj UTUjjQ FBAi*jiҽcUb@VU]꫶j[m׾^jڽužmҽo]=뽧MZݫkWծ[{ٵWw_vݪu{[Wj_{V55jk FmݫԩU* P *%ZjE+ֵUۭUkm[UWmo׺jj۷wڷm׭knv׽ߵmu۶mԺV{ FhԹjRIQJAAA*Uj[mUmU[[իuW[VkUwjm[VWU[[~k_Jվk}UWWuݮ~{VWr+UWE+V+VWu FP0HE5 KtKVkZZUVmj,]RU[ZwZ]Zuukm{UU[Zou[m[_տomվnU۪Wkmjzmmw__ F  +EUUjj)j[v۶շ}պ{ji{w[vյZmtڴ[mnۺ{}mm]Ukmuv F !ReJJb#UZjUZUZUjnZoo櫶ݻջmo}KwwMv]V=W-W|mVyjֽwmmokk޵ F@PP@ P@ @BUU UUUն]n[^Zmoy۶n}׽{j__־n}U{WWZժumܶXXR F A jTUTԫ*UkZ7j/7]Znտտj}n˪G]mmv_W/{]n~Z~~~}ozTQȠ"  F @*JUVzmVVݶzָvr`Ё @DBQRթգkVKWVgjպh` H@ F @UVK55nU&$*RER*VjյjZZݮ][nXP " @  F % JUUVUmw׽m7m[61D)UJUVUnUUUJURVRBH *%F; @ F    +UUmUۭ۵ݫuVջֽ]Z~k! RժUJUUmjR*QR*U7-[--_Zխ   FIECEEI!! AASUKUWo[[m[w[W{׽׻w[o;!)E%W[USM[]k[ߵWKۭ_kշU  x x x "C.BORN@hccnet.nl for any comment 80:0:0::23760\:"4ry3$.00x" 4ry3$.00x {d_}dJP(W,V)=(22528X+(2*W)*32 +7+2*V) CT(tB)=(13 (T-64@)=6)+((T-64@)=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,45) "C.BORN@hccnet.nl for any comment 6MAS=("S"+1):23658j\,8:810* O"S"-1,0:"S",0:"S"+1,1:20:RESET NET 05:bp,40(:l1n=j:502 (MN=1:g=12:e$(g)=Z$:f=16:g$(g,f)=Z$:f:g 2@t=t(1,n):k1t=t-k1:tK1=0: <l1t370r Ff=0:rk=0 PLs1=-1:s2=-1:s3=-1:s4=-1 Zk=t-f:kz=k+3 dd=n+f:dz=d-3 x"K1KZ6S1=S1+(S1=-1)+T(P(K,N))+T(P(K+1,N))+T(P(K+2,N))+T(P(K+3,N)):D7DZ1S2=S2+(S2=-1)+T(P(K,D))+t(P(K+1,D-1))+T(P(K+2,D-2))+t(P(K+3,D-3)) d=n-f:dz=d+3:D1DZ7S3=S3+(S3=-1)+t(P(T,D))+t(P(T,D+1))+t(P(T,D+2))+t(P(T,D+3)):K1KZ6S4=S4+(S4=-1)+t(P(K,D))+t(P(K+1,D+1))+t(P(K+2,D+2))+t(P(K+3,D+3))  H=1 >tp=r$(H,1):450:Z=(4-K1)*L1 ""="S"1345A ry=0:L=Z*TP:l1S1=LS2=LS3=LS4=LG$(H,z+1,n)=(g$(H,z+1,n)+(s1=l)+(s2=l)+(s3=l)+(s4=l)):(Z+1)>G$(H,5,N)g$(H,5,n)=(z+1) "wl1s1=ls2=ls3=ls4=lry=l*(l=4l=524((l=3l=39')k1)) ,1SHWee=H:E=Z:410:E=4:410 6ryk11110V @ryT(3,N)=1:rk=G$(1,5,N)"4"g$(2,5,n)"4":G$(H,6,N)=(G$(H,6,N)+1):SHWee=H:E=5:410 J#z=z+1:z3280 T#H=H+1:H2270 ^"f=f+1:f380P c8k1=RK:SHWK1P$="4ROW AHEAD":1300 h l1 r"n=n+1:n7502 | H=12:N=17:G$(H,1,N)=(G$(H,1,N)+G$(H,2,N)+G$(H,3,N)+G$(H,4,N)):N:f=16:N=17:g$(H,f,8)=(G$(H,F,8)G$(H,F,N)G$(H,F,8))+(G$(H,F,N)G$(H,F,N)>G$(H,F,8)) #SHWe=f-1:EE=H:410  N:f:H: 15,0;"m";X$;m;O$;"m1";X$;m1;O$;"M2";X$;M2;O$;15,24;"S";X$;S;O$;"q";X$;q;O$;"qq";X$;qq;O$;16,0;"H";X$;H;O$;"H1";X$;H1;O$;"h2";x$;h2;o$;16,24;"J";X$;J;O$;"k1";X$;k1;O$;17,0;"TP";X$;TP;O$;4;"z";X$;z;O$;"g";X$;g;O$;17,24;"IV";X$;IV;O$;"EZ";x$;EZ;o$;"F";X$;F;O$;18,0;"n";X$;N;O$;"RY";X$;RY;O$;6;"K";X$;K;O$;18,24;"l1";X$;l1;O$;"r";x$;r;o$;"L";X$;L;O$;" "ƱL=1  20,0;E$(1,7);1;E$(1,8);0;20,24;E$(2,7);1;E$(2,8);0;9 ;گR$(ee,1);15+E,ee*8;G$(ee,E+1,7);1;G$(ee,E+1,8) !N<821,N-1;T(1,N);21,7;1;T(1,8);0;21,(7+N);X$;T(2,N);21,15;1;T(2,8);0;O$;21,(15+N);T(3,N);21,23;1;T(3,8);0  hTP=TP-(64@TP>64@):TP=TP*(TP5):tp=tp+(tp+1tp=6)-(1tp=2):  P$="PROBLEEMPJE":1300: ր3:j3=x:ts=0:R=0:T(1,8)=0:T(2,8)=0:T(3,8)=0 Df=17:t(3,f)=t(3,f)*(g$(1,5,f)"4"g$(2,5,f)"4"):T(2,f)=(t(1,f)0T(3,F)1):T(1,8)=T(1,8)+(T(1,F)>0):T(2,8)=T(2,8)+T(2,F):T(3,8)=T(3,8)+T(3,F) 5T(2,f)0r=r+1:e$(1,r)=f :F:ts=7-t(1,8):e$(1,8)=R dTS=6F=17:J=F:F=(FT(1,F)=0)+(7T(1,F)0):F:  !SHWee=S:E=4:410 R>1590N 5c$(y,j3,4):SHWE=0:EE=1 &J=(e$(1+r,1+(*R)+(*E$(2,8)r)))+((4+(*3+.5)-(*3+.5))E$(2,8)="0"R):SHW410:E=E*(E5)+(E5):EEE=(1EE=2)+(2EE=1) (0JT(1,J).2~L,10 :550& 0yC$(Y,J3,4):j3=7+j*2:c$(y,j3,s):ry=0:k1=1:30:4 :AK1T(2,8)C$(Y,J3,4):470 D;.1}L,30:.1}L,20:.1}L,30: NIV=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) Sk1m4=0:m5=0:f=1r:m=g$(1,5,e$(1,f)):m4=(m4m4m)+(mm4m5):f:m=(m4m4m5)+(m5m5>m4):h=(m4>m5)+(2m5>m4)+(sm4=m5) Xh2=h:H1=(1H=2)+(2H=1):m1=g$(H1,5,8):k1m1=(m4m4m5)+(m5m51670  CM2=(M(MM1M1))+(M1M<1M1) 770+R "M$=G$(H2,M2,8) SG$(H2,M2,E$(2,F))=M$r=r+1:e$(1,r)=e$(2,f) 0F=F+1:FǰE$(2,8)700 5RM$=(M$-1):F=1:M$>"/"700 o(RR>1)M2MH2=(HH2=H1)+(H1H2=H):H2=h1680 >RR>1M2=M2-1:M2680  8E$(2)=E$(1):E$(1)=Z$:EZ=EZ+1  .R=0:F=1:M$="":IV=IV+1: 1e$(1,8)=r:""="s"1345A   *0:4:"V 3.0d";#0;7;"Wait some Moments!"'"This Game is SUPER..megaSlooww!!";#0;"Chr$13 Production!!sisirC ynnuF":1540 >Mq=1:F=12:G=17:G$(F,G)=Z$:G:E$(F)=Z$:F H1180:st=0 R>s=(q/2=(q/2))+1:B$=R$(S,7):I$="" \ZSHW=(B$=R$(3,7)):l1=(B$=R$(4,7)SHW):L2=L1 f-B$(B$)=" "B$=B$(̱B$-1):870f p5q0=q:sr=s:j=4:SHW21,0;A$;A$ zq1=((q+1)/2):qq=(4q14)+(Q1q1<4):x=26*(s=2)+2:tp=r$(s,1):450 y=12 :Y2=10 :ni=0:c$(y,x,s);14,x;0;(" "Q1>11 );21-q1:1340<: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) L1960 nwnw=sNT=1:2502 :J=J$(1)-(79OJ$(1)="S"):I$=("0"J$(1)"S")+(J$(1)J$(1)="S"):L1=0:980:wait for remoteSPECTRUM answer,no stone movement ^bp,13 :p$="Spec think,make thee or read one":1300:q>130:4 bp,13 :p$="Well... What do you guess??":1300:q=1j=4+(*3+.5)-(*3+.5) l1=0:q>1G$(1,5,J)<"4"G$(2,5,J)<"4"470:4:K1T(3,8)1) Nnwnwsj$(1)=i$:NT=1:2500 :Move here player= send info i$="S"1350F 3c$(y,x,4):x=j*2+7:c$(y,x,s) T(1,J)960 i$="0"1030  960 4L2nwnwsJ$(1)=J:NT=1:2500 t=t(1,j):G$(1,6,J)="0":G$(2,6,J)="0":t(3,j)=0:ni=1:y=0(t-1)*22:bp,-y+20:c$(y,x,3):c$(y+2,x,s) .yni=0:c$(y,x,4):ni=1 $y .Fq$=q$+°(t(1,j)+j):Q>1kon>030:4 8#t(1,j)=t(1,J)-1 B$q=q+1:q42*850R L@b$="Remise!":21,0;"All stones used, this is ";b$ V#wi=2:ta=4:do=524:l$=b$:d1=l$:PX=128-(WI*D1*4):d=1:a=0:fa=0:af=SHW:T=0:AC=PX+WI*8:px=px-wi*4:PY=DO+2:DL=(D1+1)*WI*8-1:P1=TA*8+3:P2=PY-P1 `EB$="STOP"B$="Remise!"C$=22+21+0:1150~ eRBR=0:PZ=0:C$=18+1+22+20+8+" "+20+1+("Has"b$y$)+("Have"b$=y$)+20+0+" "+20+1+"4"+20+0+" "+20+1+"On"+20+0+" "+20+1+"A"+20+0+" "+20+1+"Row"+20+0+" " j"":1;c$(y,x,s):f=02553:254,f:f:shw21,0;1;x$;گr$(s,1);9 ;b$;o$;0;(" has"b$y$);(" have"b$=y$);" them all onArow" tKf=51-1:g=09 f:bL,f*g:1370Z:g:f ~I$="":"":21,0;" Do you want a revanche?(Y/N) ":p$=r$(1,7)+">"+("YES"j$(35#)="Y")+"<<>>"+("YES"j$(36$)="Y")+"<"+R$(2,7):1:1370Z <nwnwsj$(35#)"Y"j$(35#)"N"j$(35#)=i$ 9nwnwsNT=1:2500 :NT=1:2502 Unwnw=sNT=1:2502 :J$(36$)"Y"j$(36$)"N"j$(36$)=i$ !nwnw=sNT=1:2500 /J$(35#)="Y"J$(36$)="Y"1170 l(i$"Y"i$"N")(nw((j$(35#)"N"j$(35#)"Y")(j$(36$)"N"j$(36$)"Y")))1150~ <i$="N"(nw(j$(35#)="N"j$(36$)="N"))810* "f=1:1860D:830> 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:4:450:f=1̱q$:k$=(q$(f)):y=2*k$(1):x=2*k$(2)+7:k=(F/2=(F/2))+1:c$(Y,x,k);y,x;f:P$="For next q":1270:f:0: /GA=15+(7*+.5):1280 p=0:p0=p "p$="Press a Key "+p$:1300  p=0:p0=1 ""1300 II=23560 \:23560\,0:I$=I:PRINT AT 0,0;I$;" ";I;" " n#0;1,0;A$;A$;1, (16-(P$/2)ƱP$32 );گR$(S,1);9 ;P$ #p0i$"N"i$"Y"1300 2(p=1:p0=0:4: <=p$=B$+(" are"b$=Y$)+(" is"b$Y$)+" at turn":1300: A2NWNWSJ$(1)="S":NT=1:2500 Fl$=p$:nwsp$="Game "+18+1+"PAUSE"+18+0+"d _-_ Do You Stop? Y/N":7:1290 :i$="Y"B$="STOP" IAnwnwsj$(1̱b$)=b$:p$="Sending answer"+b$:2500 KDnw=sp$="Network might want to stop":2502 :B$=J$(4) MB$="STOP"1110V P p$=l$:"": Zaf1380d \71:PX,PY:DL,0:PYP2PZBR=BR:BR;C$ _a0:PZ=(PZPY > P2)+(PZPYP2):PY=PY-(1+PZPY > P2)+(P1-PZPYP2):1520+PL: d&fa1400x+(30FA=2) nlpe=(236066\+256*236077\+l$(d)*8+a):b=0:l$(d)=" "a=7:wi=wi/4 xpeb=7:BP,0 :t1=1:T=pe-2*(pe/2):T0=T tpe=(pe/2):T=pe-2*(pe/2):T=T0b+T1<8T1=T1+1:1420 ""FA=2: FA=0:T01:ac-b*wi,do-a*ta-TT:1-wi*T1,0:0:TT=TT+1:TTd1af=1  a=0: .r$(1,1)=((*7+.5)) ni=0:c$(0,x,4):x=(*16)*2:1537-(1(nw=1NW=2)):c$(0,x,s):.001wn,x : .NWJ$"SEND"j$(1)<"8"2400` +MAS  F=0:1860D :BR=1:Y=8:C$=22+3+0+"4"+22+5+7+"O"+22+6+11 +"N"+22+2+16+"a"+22+6+21+"R"+22+5+25+"O"+22+4+29+"W"+19+0 -M$=" '"+X$+"C"+O$+"' for Copies are PD"+A$ uBR;C$;Y,0;"The Aim of the Game is to Get"'"4 stones on a row.This is OK"'"horizontal,vertical and diagonal" DY$;" can challenge this computer by typing 'Spectrum' as a player" "pR$(2,7)=R$(4,7):R$(1,7)=Y$+F$+F$(3):b$=R$(1)+R$(2) ,wi=4:ta=6:ac=36$:do=163:l$="4 ON a ROW":d1=l$:d=1:a=0:fa=0:af=0:T=0:T0=0:T1=0:PY=DO-WI:PX=0:PZ=0:P1=TA*6+TA/2:P2=PY-P1:DL=255 623561 \,0 @kp$="Press "+X$+"KEY"+O$+" to "+X$+"S"+O$+"tart or player "+X$+"1"+O$+"/"+X$+"2"+O$:P=1:1300 EY+9 ,0;(" "NET);X$;"S";O$;"tart ";((X$+"N"+O$+"et-Play!"+20+NTBS+"O"+("N!"NTBS)+("ff"ntbs))net);o$;" ";x$;"L";o$;"eave,Now!" GY+11 ,9 ;v$;"IN-GAME KEYS:";w$'"'";v$;"5";w$;"<>Right' '";v$;"0";w$;"\/Drop'"'" '";v$;"S";w$;"' Pause & Stop" HY+6,0;"Player";(R$(1,6)="R");R$(1,6);0;X$;"1";O$;"=";R$(1,7)'"Player";(R$(2,6)="R");R$(2,6);0;X$;"2";O$;"=";R$(2,7) JPRINT AT Y+6,0;"Player"; FLASH (R$(1,6)="R");R$(1,6); FLASH 0;X$;"1";O$;"=";R$(1,7 TO )'"Player"; FLASH (R$(2,6)="R");R$(2,6); FLASH 0;X$;"2";O$;"=";R$(2,7 TO ) L:17,23+(5NET);1;("___"stGA) M<MM=4M$(M$)<" ":m$=m$(M$-MM)+m$(̱M$-1-MM) Sk26179 :#0;0,0;m$(36$-(2M$(36$)<" ")-(2M$(35#)="C")) T]1300:1370Z:i$"1"I$"?"I$"!"i$"2"i$"S"i$"L"i$"N"i$"C"1610J Y2i$="C"p$="Saving Copy":1300:3000 ^i$="L"0 ci$="N"NETP$="who plays remote?player 0/1/2?":1300:1370Z:R$(1,6)=" ":R$(2,6)=" ":NW=I$-480:J$="SEND"(NW=1NW=2):i$="":nw<0nw>2I$="N":J$="":1635c fGJ$(4)="SEND"R$(NW,6)="R":B$=R$(1)+R$(2):"":NTBS=NW:NTBS#0;"Network Sending":"S",NTBS:mas=0:I$="":"S"+1,MAS:"s"-1,nw:*"N";1:#0;"Program":*"n";11858B:MAS=1:#0;"USR 'A'":*"n";1"a",168:"S"+1,MAS:"" hqi$="1"I$="2"23658j\,0:s=I$-480:2800 :Y+5+s,9 ;R$(s,7):1600@ rf=12:I$="!"R$(F,7)="spectrum "R$(f,7)="SPECTRUM "R$(f,7)="sPECTRUM "R$(f,7)=R$(4,7):i$"!"f=2:f:1608H |-I$="?"R$(f,7)=R$(3,7) f:2600( ePRINT AT y+5+F,6; FLASH (R$(F,6)="R");R$(F,6); FLASH 0; AT y+5+f,9;R$(f,7 TO ): NEXT f: GO SUB 2600 X23658j\,8:I$="S"J$="S"I$="!"J$="!"I$="?"J$="?"1370Z:1685  1600@ 17,0;A$;A$  p$="for 1st turn!":1260 P26179 ::1300:1370Z:GAI$=0GA=GA-1:1700  F=12:R$(F)=b$(1+(16f=2)16+(16f=2)):y+5+f,6;(r$(f,6)="R");r$(f,6);0;y+5+f,9 ;r$(f,7):f:nw=(1r$(1,6)="R")+(2r$(2,6)="R") Kp$="for color!":f=(+.5):1260:B$=R$(1)+R$(2): xf=f:1300:1370Z:c=2+(4f):r$(1,1)=c:GAI$=0GA=GA-1:1740 rc$(y+5,18,1):c=2+(4f):r$(2,1)=c:c$(y+7,18,2) LPL=10 :p$="and toggel X / O":1260:B$=R$(1)+R$(2) TF=(+.5):1300:1370Z:GAI$=0GA=GA-1:1770 ,r$(1,25)=(s$f)+(t$f) ,r$(2,25)=(s$f)+(t$f) Bc$(Y+5,18,1):c$(y+7,18,2) I$="":R$(1,7)R$(4,7)R$(2,7)R$(4,7)R$(1,7)R$(3,7)R$(2,7)R$(3,7)p$="Do you want 4onArow check (Y/N)":S=(+1.5@):1300:1370Z:i$"N"i$"Y"1810 kon=(i$="Y"i$=""R$(1,7)=R$(4,7)R$(2,7)=R$(4,7)R$(1,7)=R$(3,7)R$(2,7)=R$(3,7)) &p$="and"+((" There "+y$)r$(1,79 )=y$)+" GoGo! "+(R$(1,7)R$(1,79 )Y$):1260:GA=GA*GA 0US=(+1.5@):1300:1370Z:GAI$=0GA=GA-1:18400 :jPOKE 23561,35: IF net AND mas AND nw THEN LET j$()=R$(1)+R$(2)+ STR$ kon+ STR$ NW: INPUT "": GO SUB 2500 ?-23561 \,35#:GA=0:830> B0MAS=0:1875S:NTBS=1:P=1:4:4:#0;0,2;x$;"NET";o$;"Loading ' 4 On A Row ' !!":23561 \,35#:23658j\,8:*"n";1"a":nw=("s"-1):nw=(2nw=1)+(1nw=2):"s"-1,nw:2600( :1600@ D.05|L,59;:k=0:g=k:d=k:dz=k:kz=k:t=k:g$(2,13 ,8):e$(2,8):M$=" ":n=k:z=k:l=k:s1=k:s2=k:s3=k:s4=k:tt=k:J=K:j3=K N1ni=k:y=k:x=k:T(3,8):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:k:K=G:k1=g:q$="":I$="":st=1:f SP=22513W:1875S:F=140-1:A$:P+F,A$:F:A$:"201","251","187","211","79","153","18","62","29","218","75","237","187","219","243"," ":Dr=P:DR=DRDR<3:I1=ü(23734\):I1=(23766\I1) UvP=1:O$=20+0:X$=20+1:V$=19+1:W$=19+0:Z$="00000000" VNTBS="S":NET=(DrDr=1Dr=2)+I1:d$=("DISCiPLE>"+drdr)+("InterFace1>"+i1i1):PL=0:"":NET#0;0,0;"NetworkHardware";x$;d$;o$;:2699 +(I1>0)+(2Dr):#0;" Runs":MAS b)"0","3","15","31","63","63","127","127" l/"0","192","240","248","252","252","254","254" v)"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" ڼpl=0:bp=1/255:bl=1/502:bp,bl:bl,bp:f=k95_:y$:"a"+f,y$:#0;1,0;"":f:u$="":s$="":t$="":f$=" " r$(4,16):f=13:r$(f)=5+u$:f:r$(4)=5+f$:R$(3,712 )="Crisis":R$(4,714)="Spectrum":y$="You":nw=0:mas=0:j$(36$):NT=0:GA=0:i$="":MM1=0: `2502 :r$(1,1)=j$(1):x=J$(23):23560\,J$(4):i=23560\:i$=i:r$(1)=j$(520):r$(2)=j$(2136$):b$=j$(37%): a`J$=r$(1,1)+("0"ƱX=1)+x+i$+r$(1)+r$(2)+b$:2500 :J$="": J18,13 ;"sending":*"n";1j$():18,13 ;A$: L18,11 ;"receiving":*"n";1j$():18,11 ;A$: (b$=r$(1)+r$(2): )8r$(1)=b$(16):r$(2)=b$(17): 9"b$=b$(17)+b$(16): :INKEY$="0" "N";1::IF1 N1::DISCiPLE =SB=0:N$="":Y+5+s,9 ;v$;" ";x$;F$;F$;" " ;P$=V$+"Change Player "+s+" "+X$+R$(s,7)+O$+" TO " v23658j\,8*sb:1300:1370Z:(I$<12 I$>14)(I$<" "I$>"")i$=34"2820 )I$=14.1}L,20:sb=sb sbi$14i=(127i$="P")+(126~i$="A")+(125}i$="G")+(124|i$="S")+(123{i$="F")+(93]i$="Y")+(92\i$="D")+(91[i$="U"):isb=sb:LET i$= CHR$ i i2820 .N=N$:N>1N$=N$(̱N$-(i$=12 )) N=1i$=12 N$="" ,N$=N$+(i$I$" "I$""n<10 ):N=N$ i$=13 2840 4+SB;Y+5+s,9 ;N$;(8n=10 );(n=10 );1;V$;"_";W$;0;(x$n<9 );" ":2820 23658j\,8:P$=("Name OK?"+V$+x$+N$+o$+W$):P$=(P$N)+("Keep Name?"+V$+x$+R$(s,7)+o$+W$n):P$=P$+"("+X$+"Y"+O$+"/"+X$+"N"+O$+"):":1300:1370Z:i$"N"I$"Y"2840 I$="N"2800 "-R$(s,7)=(N$n)+(r$(s,7)n): c$="4ry3$.00x":p=0 ^netP$=d$+" Detected>>'T'= TAPE":1300:1370Z:i$ = "C"*"m";I1+Dr;c$0: I$="T"NET"":c$0: 3000 paNgdt   nzljyx}srabcmhhQA OXVWZ00000000tbeDy{# =USTF E You  Spectrum  Crisis  Spectrum YYou'$ m$L 4 ON a ROW piM+ 'C' for Copies are PD B  You  Spectrum P Saving CopyIC 4ry3$.00x