T=x,?$Qx6X'E:\x6.)12345@7-]-M3x3xxxx3xx3,'=x.)ffDjCj&O%q}Rv2#>Nv>>BB<DHpHDB@~BfZBBBBbRJFB~BBB<~BBB@BB<@BB<<@~<@~@B # # <@H|xx\\\[j\xxDjRxxx\jԲX![!@P!!N K SR PSCHIFFE VERSENKEN  1983 by OMEGA-SOFT "a"-"10"::"9000" a$="":c="9":"9880" s=we 9d(e):(a$)'"Bugposition "'(s$(s,g+w));" : ";t$:a$=""  "8200"  f"2060" 2a$=""a$="Bitte ""a-j"" und ""0-9"" druecken. "  "2030"  =u$(x,y)" "a$="Diese Position ist schon belegt.":"2030" s>z"2210"  <(a$);"Richtung: Hoch oder Rechts ? ";t$:a$="" *t$="R"t$="r" 4t$="H"t$="h" >?t$"r"t$"h"a$="Bitte ""h"" oder ""r"" eingeben.":"2080" Hk=o̰s$(s,w)-w R(x=x+(t$="r")*(k>o):y=y+(t$="h")*(k>o) \<"8100":fa$="Das geht so nicht ! ":"2030" fd(w+g*k)=x:d(g+g*k)=y pk zi=w̰s$(s,w) x=d(g*i-w):y=d(g*i) $u$(x,y)=z:"17"-y,e+x;w;g;"" i:s:"2500" <"8100":fa$="Keine Seitenberuehrung ! ":"2030"  "2190" 4q,o;"Druecken Sie eine Taste... ":o:q,o;b$ i=m̰"16":i,"0";b$:i c=n:"9880" c="17":"9880" !l="10":c=o:t$="Sie":"8000" %l="10":c="29":t$="Ich":"8000" x=g̰"11":y=g̰"11" $u$(x,y)=z"17"-y,x+m;w;g;"" y:x #%"19",o;"Ich werfe eine Muenze..." ("x=wh:u$(x,w)=w:u$(x,h)=w:x 2&y=g̰"11":u$(w,y)=w:u$(h,y)=w:y <start=(".5"<) Z6o,"17";"Ihre Treffer 0";g,"16";"Meine Treffer 0" d\q-"1",o;"Druecken Sie eine Taste fuer "'w;"SIE"start;"MICH"start;o;" zum anfangen." n5i=ow:"232"*(w-start),"80"+i:"23"+e*start,o:i o:i="19"q:i,o;b$:i start"4000" me=o:"8970" k=wm "8960":a$="" ?װ".03",q:m:װ".03",q:(a$);"Feuer-Koordinaten ? ";t$:a$="" "8200":f"3045" 2a$=""a$="Bitte ""a-j"" und ""0-9"" druecken. " "3030" <v$(x,y)=wa$="Hier haben Sie schon hingefeuert":"3030" "v$(x,y)=zhit=w:enemy=enemy+w v$(x,y)zhit=o v$(x,y)=w  "8500" &o,"30";enemy:enemy="17""3500" k H "4000" %"20",o;w;" SIE HABEN GEWONNEN " #"Ein neues Spiel ? ";t$:t$=¯t$ t$="j"t$="J" t$="n"t$="N""9999" "3510" me=w:"8970" k=wm:"8960" trail"4160"  "8900" u$(x,y)=w"4030"  "8450" hit"4470" 1sunk=sunk+w:g,"30";sunk:sunk="17""4800" acc=o:end=w:h("4",g)  "8400"  "8300"  f"4460" "trail=w:tries=o ,dir=w+(n*) 1 x1=x:y1=y 6 "4470" @sense"4300" Jdir=dir+w:dir=zdir=w T!tries=tries+w:tries=z"4430" Y,x=x1+(dir=w)-(dir=g):y=y1+(dir=m)-(dir=n) ^u$(x,y)=w"4170" h "8450" |hit"4470" 1sunk=sunk+w:g,"30";sunk:sunk="17""4800"  "8400"  "8300"  f"4460" sense=w:end=w $dx=h(g,w)-h(w,w):dy=h(g,g)-h(w,g)  "4470"  "8800" u$(x,y)=w"4400"  "8450" hit"4500" 1sunk=sunk+w:g,"30";sunk:sunk="17""4800"  "8400"  "8300" "4470"-"10"*f 0end=-w : "8800" Du$(x,y)w"4320" Nk=k-w X'i=we:acc=w$(i)w$(i)="0":"4460" bi l "8700" vk  "3000" end=-w"4460" end=-w:"4470" #"20",o;w;" ICH HABE GEWONNEN "  "3510" Ac+t$>"32"t$=t$(̰"32"-c) J)xx=c+"16383"+"32"*(l+"56"*(l/"8")) T6f=(l="7"l="15"):chars="23606"+"256"*"23607" ^ i=w̱t$ ha=chars+"8"*t$(i) r xx=xx+w | j=o̰"15" 6xx+"256"*j-("2016"-"1792"*f)*(j>"7"),(a+j/"2") j:i: f=o:u$(x,y)" "f=w:  x"11"y"11"f=w:  i=-wwg u$(x+i,y)" "f=w u$(x,y+i)" "f=w i  f=o 4t$gf=w:a$="Bitte genau zwei Zeichen ": 02t$(w)<"0"t$(w)>"j"(t$(w)>"9"t$(w)<"a")f=w: :t$(w)<"a"t$=t$(g)+t$(w) Dt$(w)<"a"t$(w)>"j"f=w: Nt$(g)<"0"t$(g)>"9"f=w: Xx=t$-"95":y=t$(g)-"46": vf=o:accor1="24":or2="87" !Hmeor1="238":or2="88" !R l="17"-y !\c=x+"16"-"13"*me !f!xx=m+e*c-or1:yy="172"-e*l-or2 !p(w:e:or1,or2:xx,yy,".6"*(me-".5") !zi="50"̰"35"-m:װ".01",i:i !l,c;ٰ"6";g;"*" !+or1,or2:xx,yy,".6"*(me-".5"):o:ٰ"7" !bl,c;:hitg;ڰ"7";"":i=we:װ".025",-q:װ".025",-"30":i:"19","16";"TREFFER !" !6hitw;ڰ"7";"":"19","16";"DANEBEN !" ! "35": "i=wn:x=h(i,w):y=h(i,g) " j=w-w-g "x1=x+j:y1=y+j "!x1>wx1wy1o):y=y+(w-d)*(k>o) &4"8100":f"9720" &>d(w+g*k)=x:d(g+g*k)=y:k &H)i=w̰s$(s,w):u$(d(g*i-w),d(g*i))=z:i &Rs &Wq,"30";"0" &\%x=wh:y=wh:v$(x,y)=u$(x,y):y:x &f u$(h,h) &p=װ".2","40":q,o;"  DRUECKEN SIE EINE TASTE  ":o &zi=gq:i,o;b$:i & m,o;"SETZEN SIE IHRE FLOTTE:" & "2010" & z,c+w;l$ &<i=o̰"9":"6"+i,c;("57"-i);w;ڰ"7";r$;:("57"-i):i &"16",c+w;l$: owqlcTSCHIFFE VERSENKEN@fhar<^a0>|"" 256 2016 1792 C B~ '