statki 4%44 5:5: 55:5:2,10 ;"P R O G R A M" .6,4;" " (.7,4;" " 2+8,4;" " <.9 ,4;" " F/10 ,4;" " P/11 ,4;" " Z/12 ,4;" " dA16,4;1;1;"PRESS ANY KEY TO CONTINUE" l'18,1;"PROGR. KOP - 9800" n520,0;" COPYRIGHT BY J.CICHORSKI 1984" xI0:x=110 :z=xx+50210 :.02{# =,z:z:x &:9 ,8;"Jestem SPECTRUM" ..1}L,20:" JAK MASZ NA IMI ? ";c$ Uc$=0űc$10 .3,17:.1}L,10 :10 :140 i=1̱c$ +c$(i)97ac$(i)=(c$(i)-32 ) i p$=c$(c$) p$="A"p$="k":180 p$="m" ):.3,-10 :.1}L,-3 41,1;"Po wygenerowaniu pola gry przy-" G3,1;"sta";:8;1;",p do generowania twoich" 45,1;"statko";:8;1;"'w" (7,1;"Wprowadzaj symbole:" D10 ,2;"r - gdy chcesz rysowac";:8;1;"'" C12 ,2;"z - gdy chcesz zmazac";:8;1;"'" n14,2;"k - gdy chcesz kon";:8;1;"'";:"czyc";:8;1;"'";:" genero-" 16,6;"wanie" A18,4;1;1;"PRESS ANY KEY TO CONTINUE" -0:.3,0:.1}L,7  UH(12 ,12 ):C(12 ,12 ):T(16,3):V(5,2)  fwg1=0:wg2=0:p1=0:p2=0:sum1=0:sum2=0:z1=0:z2=0  g$="z"   1500 "Fs$=" " # $@.1}L,20:"CZY CHCESZ GENEROWA SAM SWOJE OKRTY ",a$ %Ha$=0.3,17:.1}L,10 :10 :292$ &a$=a$(1) (a$="t"300, *ta$="n".3,-10 :.1}L,-3:fl=0:2000:18,0;s$:9000(#:3106 +p.3,17:.1}L,10 :18,0;"NIE ROZUMIEM. ODPOWIEDZ t LUB n":10 :292$ ,I18,0;s$:.3,-10 :.1}L,-3:3000 -18,0;s$ 1 6}18,1;1;1;"GENEROWANIE STATKW SPECTRUM":.1}L,17:.2~L,10 :.3,0: @ 2000 J18,0;s$:s$ Tg$="z":b$="z" ^).1}L,20:" KTO ZACZYNA ? ";a$ `Ha$=0.3,17:.1}L,10 :10 :350^ ca$=a$(1) h)a$="j"18,0;s$:420 r)a$="t"18,1;s$:600X |Y.3,17:.1}L,10 :18,1;"NIE ROZUMIEM NAPISZ ja LUB ty" 10 :350^  Ruch gracza C.1}L,20:" GDZIE STRZELASZ ? ";b$:18,0;s$ Hb$1.3,17:.1}L,10 :10 :420 a$=b$(1) b$=b$(2̱b$) a$<97aůa$>106 jůb$(1)<491ůb$(1)>579.3,17:.1}L,10 :10 :420 j=b$  8000@ b=1.3,17:.1}L,10 :18,0;"SYMBOL WIERSZA ";a$;" Z POZA ZAKRESU":.3,17:.1}L,10 :10 :420 ։j<1j>10 .3,17:.1}L,10 :18,0;"NUMER KOLUMNY ";j;" Z POZA ZAKRESU":10 :420 18,0;s$  j=j+1  6000p p1=p1+1 t$="n".3,10 :.2~L,0:18,1;1;"PUDO";:3+i,18+j;1;"":610b 3+i,18+j;"" t$="z"18,1;1;1;"TRAFIONY ZATOPIONY !!!":n=5020-1:.01z# =,n:n:.1}L,30:z1=z1+1:5600 &z18,1;1;"TRAFIONY !!!":0.5,10 :0.5,5:0.5,0:0.5,-2: 0z15800  XRuch Spectrum bEg$="z".1}L,30:4000:.1}L,30:630v l 5000 qz25800  vSprawdzenie czy trafiony  i=T(s,2):j=T(s,3) ,3+i,3+j;1;1;"?"  a$=(95_+i):j1=j-1 1.1}L,20:"CZY TRAFIONY ? ";(a$;j1),b$ >b$=0.3,17:.1}L,10 :670 b$=b$(1) 1b$="t"b$="z"H(i,j)=1:g$=b$:730 *b$="n"b$="p"H(i,j)=2:730 c.3,17:.1}L,10 :18,0;"NIE ROZUMIEM. ODPOWIEDZ t LUB n LUB z": 10 :670 18,0;s$:s$ ,3+i,3+j;1;1;"?" 2b$="n"b$="p"3+i,3+j;1;"" 2b$="t"b$="z"3+i,3+j;1;"" p2=p2+1 b$="z"z2=z2+1  z25800  b$="z"9600%  410  Zakonczenie %ez=060<1:.01z# =,z:z:.1}L,30:.1}L,20:.1}L,25 *z2=5870f /wg1=wg1+1:sum1=sum1+p1 418,0;"WYGRA "; >p$="k"8;"A": H18,6;"E " M 850R R*19,0;" PO ";p1;" STRZAACH" \ 900 f18,0;"WYGRAEM" p*19,0;" PO ";p2;" STRZAACH" zwg2=wg2+1:sum2=sum2+p2 fl=1:9000(# 0.1}L,20:"CZY GRAMY JESZCZE RAZ ";a$ Ha$=0.3,17:.1}L,10 :10 :900 ,18,0;s$:19,0;s$ a$=a$(1) Ka$="t"p1=0:p2=0:z1=0:z2=0:g$="z":270 a$="n"950 .3,17:.1}L,10 :18,0;"NIE ROZUMIEM! ODPOWIEDZ ""tak"" LUB ""nie""" :10 :900 ;:.1}L,30:.1}L,20:.1}L,25 2,9 ;"WYNIK GRY" *5,5;"WYGRAEM ";wg2;" RAZY" wg2991 %6,5;"PRZECITNA ILO" '7,5;"STRZAW=";sum2/wg2 10 ,5;"WYGRA"; p$="k"8;"A"; "E ";wg1;" RAZY" +wg111 ,5;"PRZECITNA ILO" -wg112 ,5;"STRZAW=";sum1/wg1 &16,12 ;"DZIEKUJ ZA GR" $17,12 ;"TWJ SPECTRUM" ;.2~L,30:.2~L,20:.1}L,10 : Generowanie pola gry .1,7;c$:.3,30:Imie 11,21;"SPECTRUM":.3,30 a$="1234567890" Q3,5;a$:.3,30:3,20;a$:.3,30 j=110 [4+j,3;(96`+j):4+j,18;(96`+j):.01z# =,j+20 "j ,x=010 640(,568+x*8 @80P,0 J160,568+x*8 T80P,0 Y.01z# =,x+20 ^x hx=010 r40(+x*8,568 |0,80P 160+x*8,568 0,80P .01z# =,x+30 x  Generowanie okretow Zerowanie tablicy i=112 j=112  C(i,j)=0:H(i,j)=0 j  i *Dane o wielkosci okretow 4)5,4,3,3,2 >m=15 Hw M119,1;"Generowanie ";w;" masztowca" R#w1=w:b=0:b1=0:w3=m \i=(*10 )+2 fj=(*10 )+2 pC(i,j)02140\ z C(i,j)=w3 ;w1=w1-1:r=1:V(r,1)=i:V(r,2)=j  2500 #b=12600( :2130R k=116  i1=i:j1=j  w4=(*4) ) w4=0i1>2i1=i1-1 * w4=1j1<11 j1=j1+1 * w4=2i1<11 i1=i1+1 ) w4=3j1>2j1=j1-1 $8 C(i1,j1)=0i2=i:j2=j:i=i1:j=j1:2370B .k 8*C(i1,j1)02600( :2130R B 2500 `^b=0C(i,j)=w3:w1=w1-1:r=r+1:V(r,1)=i:V(r,2)=j:2430~ j3b14b1=b1+1:i=i2:j=j2:2280 o 2600( t 2130R ~w1>02280 m 21004  b=0 k=-11  l=-11 ?i+k<1i+k>12 j+l<1j+l>12 2540 / C(i+k,j+l)0C(i+k,j+l)w3b=1 l k  ( k=1r 2i=v(k,1) <j=v(k,2) FC(i,j)=0 Pk d "Wprowadzanie okretow gr acza .3,0:.2~L,10 :.1}L,20:16,0;"WYGENERUJ:":17,1;"5-,4-,3-,3-,2-MASZTOWIEC":10 18,0;s$ ;.1}L,20:"RYSUJESZ-r ZMAZUJESZ-z KOCZYSZ-k",a$ Ia$=0.3,17:.1}L,10 :10 :3030 a$=a$(1) $a$="k"16,0;s$:s$: a$="r"a$="z"3110& g.3,17:.1}L,10 :18,0;"NIE ROZUMIEM! ODPOWIEDZ: r, z, k.":10  3030 &18,0;s$ +d$=a$ ,d$="r"31200 -?.1}L,20:"GDZIE ZMAZUJESZ",b$:18,0;s$ .Ib$<2.3,17:.1}L,10 :10 :3117- / 31255 0).1}L,20:"GDZIE RYSUJESZ?",b$ 118,0;s$ 2Ib$1.3,17:.1}L,10 :10 :31200 5a$=b$(1) 6b$=b$(2̱b$) 7j=b$ : 8000@ Db=1.3,17:.1}L,10 :18,0;"STMBOL WIERSZA ";a$;" Z POZA ZAKRESU":10 :31200 N18,0;s$ bj<1j>10 .3,17:.1}L,10 :18,0;"NUMER KOLUMNY ";j;" Z POZA ZAKRESU":10 :31200 l18,0;s$ "d$="r"3+i,4+j;"" "d$="z"3+i,4+j;"" 3030 %Generowanie losowego tr afienia g$="z" i=(*10 )+2 j=(*10 )+2 H(i,j)04020  s=1 T(1,1)=0 T(1,2)=i T(1,3)=j  'Szukanie w otoczeniu trafienia  b=0  i=T(s,2):j=T(s,3) 1H(i,j)1T(s,1)=05110 "T(s,1)=15050 "T(s,1)=25070 "T(s,1)=35090 "T(s,1)=45110 T(s,1)=0H(i-1,j)=0i>2b=1:s=s+1:T(s,1)=1:T(s,2)=i-1:T(s,3)=j:  i=i-1 H(i+1,j+1)=0i<11 j<11 b=1:s=s+1:T(s,1)=2:T(s,2)=i+1:T(s,3)=j+1: i=i+1:j=j+1 ΕH(i+1,j-1)=0i<11 j>2b=1:s=s+1:T(s,1)=3:T(s,2)=i+1:T(s,3)=j-1: i=i+1:j=j-1 H(i-1,j-1)=0i>2j>2b=1:s=s+1:T(s,1)=4:T(s,2)=i-1:T(s,3)=j-1: s=15150 #T(s,1)=0s=s-1  T(s,1)=0  5020 z2=z2+1 (z25 2 4000 < pCzy trafiony z18,0;s$ C(i,j)=0t$="n": "w=C(i,j):t$="t":C(i,j)=0  b=0 k=211 l=211 C(k,l)=wb=1 l k b=0t$="z"  J b=0 Ti=a$-95_ ^!i0i12 b=1 h #(i=112 #2j=112 #<:C(i,j)03+i,3+fl*15+j;fl;"" #Fj #Pi #Z %:18,1;1;1;"ANALIZUJ SYTUACJ" %k=211 %l=211 %TH(k,l)=1H(k-1,l-1)= 0H(k-1,l-1)=2 %DH(k,l)=1H(k-1,l)= 0H(k-1,l)=2 %TH(k,l)=1H(k-1,l+1)= 0H(k-1,l+1)=2 %DH(k,l)=1H(k,l-1)= 0H(k,l-1)=2 %DH(k,l)=1H(k,l+1)= 0H(k,l+1)=2 %TH(k,l)=1H(k+1,l-1)= 0H(k+1,l-1)=2 %DH(k,l)=1H(k+1,l)= 0H(k+1,l)=2 %TH(k,l)=1H(k+1,l+1)= 0H(k+1,l+1)=2 %l %k %18,0;s$ % %!"shipsg" "a",20*8 % 10 &HY:5,0;"nagr. statkow":"statki"9700%:"shipsg""a",20*8 &R5,5;1;"ZWERYFIKUJ ""statki""":7,0;1;"przylacz kabel":"statki":"shipsg""a",20*8 &\5:5,0;"OK OK OK OK OK OK OK O K....": shipsg X *UPTժTPU* $$BB~BBB>>BB<~@~@@~@@P`@~BfZBBBJbRJFBA@@A>