Zeeslag jjclR(N)=0:S(NvkC)=0R:C(N)=0P:I(Nh,A$,B$=h)=0B:A(N,N=0:N)=0b:K$(NN)=N,N=0:N)=0-:O(NN)=N,N=0:N)=0Y:X(NN)=N,N=0:N)=0P:C$(N=0:N)=0:N(C$=0:$)=0:H$(N8)=0:D(H$h)=0:U$(S$N)=$,N=0:N)=0:S$(N,S$4g)=0:P(N\)=0:B$(N)=0x:T$()=0:M$()=0:V(Nd,Nffh)=0k:M()=0-0:F()=0::0:E(N)=0I 730  1530 236099\,150 &1:4:4:0: 2 1040 < F&com=1b$:s$:b$:#1;p$ Pcom=1290" Z com=0 d=com=0:b$:l$:b$:"Welke coordinaten ? (a..) ";x$ n*x$=""űx$>3űx$<2100d x9x$(1)<97aůx$(1)>122z100d 8x$(2)<491ůx$(2)>579100d Ex$=3x$(3)<480ůx$(3)>579100d 9x$(2)<1Űx$(2)>20100d >s1=(x$(1)-94^)+(32 *x$(2))-31 .sy=x$(2):sx=(x$(1))-94^ d=12+(*5) .05|L,40(:d keer=keer+1 dc$(s1)=""c$(s1)=""c$(s1)""c$(s1)="":l$(s1)="":sy,sx;1;"":75K:280 "c$(s1)=145ps=ps+1 "c$(s1)=146ps=ps+1 Oc$(s1)>128Ưc$(s1)<147Ưc$(s1)144c$(s1)="":l$(s1)="" 7l$(s1)=""n=110 :.2~L,-35#:n ,ps=2sy,sx;2;"":530  60< com=1:60< "#ga=1ga=0:320@ ,x2=3+(*26) 6y2=1+(*20) 8s2=x2+(y2*32 )-31 :code1=s$(s2-1) <code2=s$(s2+1) >,code1=150code2=150300, @s2=x2+(y2*32 )-31 Jcode=s$(s2) T*code<129code>148290" ^ n=12+(*5) h!.05|L,30:502:n r9code=147code=144code=151500 |code=145li=1 code=146rt=1 Zcode>128code<147s$(s2)="":n=110 :.2~L,-40(:n :b$:s$:b$:#1;p$ *li=0x2=x2-1:sp=sp+1 "li=1rt=1530 #li=1kr=0ga=1 li=1kr=kr+1 !li=1kr1x2=x2+sp li=1x2=x2+1 Uga=1x2>3s$(s2-1)="":y2,x2-2-sp;1;"":75K #ga=1com=0:60<  320@ +code=147code=144s$(s2)="" y2,x2;1;"":75K com=0:60< ** controle winnaar ** .com=0boots=boots+1:ps=0 &Rcom=1bootc=bootc+1:sp=0:li=0:rt=0:kr=0 0n=120 :m=17 D m:m:n Nn=13 S 2 Xam=13:.1}L,5:2+*18,3+*20;" SOS ":m:5 ZXm=13:.5,5:2+*18,3+*20;" SOS ":m \bm=13:.1}L,5:2+*18,3+*20;" SOS ":m:502 bn l 4 vboots=5660 bootc=5660  60< (:0:1:1:7: boots=57,0;"U heeft van de computer gewonnen"''"in ";keer;" beurten"'''8;1;" GEFELICITEERD !!!" bootc=5 7,0;"De gevechtscomputer heeft u verslagen"''"in ";keer;" beurten"'''8;1;" PECH GEHAD !!!" h=13 M.1}L,11 :.1}L,11 :.8L,16:.05|L,11 O.05|L,16:.05|L,11 :.05|L,16:.5,20 h "Nog een spel ? (j/n)";j$ j$="j"j$="J" /:10 ,10 ;1;"TOT ZIENS !": *** graphics ***  n=07  d:"d"+n,d n  n=07  b:"b"+n,b  n *n=07 4 c:"c"+n,c >n Hn=07 R f:"f"+n,f \n fn=07 p g:"g"+n,g zn n=07  h:"h"+n,h n n=07  a:"a"+n,a n B85U,0,1,0,1,0,1,0 I0,480,15,7,255,127,63?,31 M8,16,32 ,192,255,254,252,248 I4,72H,36$,149,98b,85U,58:,70F E85U,0,1,568,579,568,1,0 A0,1,0,1,0,1,0,1 C85U,0,1,0,1,0,1,85U  ** opzetten scherm ** #a$=" " $#d$=" " .c$=" 1"+a$+"1 "+" 2"+a$+"2 "+" 3"+a$+"3 "+" 4"+a$+"4 "+" 5"+a$+"5 "+" 6"+a$+"6 "+" 7"+a$+"7 "+" 8"+a$+"8 "+" 9"+a$+"9 "+"10"+a$+"10"+"11"+a$+"11"+"12"+a$+"12"+"13"+a$+"13"+"14"+a$+"14"+"15"+a$+"15"+"16"+a$+"16"+"17"+a$+"17"+"18"+a$+"18"+"19"+a$+"19"+"20"+d$+"20" 8s$=c$:l$=c$ =-p$=" *-*-* COMBAT RR2 *-*-* " B$b$=" abcdefghijklmnopqrstuvwxyz" Lz$(5,5) Vz$(1)="" `z$(2)="" jz$(3)="" tz$(4)="" ~z$(5)="" n=15 :b$:s$:b$ N21,3;"coordinaten boot ";n;" ";1;"->";0;" ";z$(n) " (a..) ";x$ +x$=""űx$>3űx$<21170 :x$(1)<97aůx$(1)>122z1170 9x$(2)<491ůx$(2)>5791170 Fx$=3x$(3)<480ůx$(3)>5791170 :x$(2)<1Űx$(2)>201170 >s1=(x$(1)-94^)+(32 *x$(2))-31 .sy=x$(2):sx=(x$(1))-94^  tal=5  $z$(n,4)=" "tal=tal-1 $z$(n,5)=" "tal=tal-1 sx+tal>291170 (Ss$(s1-1)>128Ưs$(s1-1)<147Ưs$(s1)1441170 2Ss$(s1+1)>128Ưs$(s1+1)<147Ưs$(s1)1441170 <m=1tal F{s$(s1-1+m)147Ưs$(s1-1+m)14410 ,10 ;1;"INVOER FOUT":150:10808 Ps$(s1-1+m)=z$(n,m) Zm:n d:b$:s$:b$ nQ#1;1;" Ogenblik s.v.p. ":100d xc$=l$ n=15  tal=5 $z$(n,4)=" "tal=tal-1 $z$(n,5)=" "tal=tal-1 x2=3+(*26) y2=1+(*20) s2=x2+(y2*32 )-31 Oc$(s2)147ůc$(s2+tal-1)147Ưc$(s2)1441400x m=1tal c$(s2-1+m)=z$(n,m) m:n -:9 ,5;"O.K. U mag beginnen," /11 ,9 ;"veel geluk !!!":150  Zps=0:boots=0:bootc=0:sp=0:kr=0:li=0:rt=0 'keer=0:ga=0:com=0 &0:1:1:7: #" SUPER-ZEESLAG " """ ,G'''" U moet een zeeslag uitvechten tegen een vijandelijke computer." 6F''" U krijgt eerst de kans om uw vloot in slagorde op te stellen." @'''12 ;"SUCCES" J'21,0;"DRUK OP EEN TOETS" T=""1610J ^ h