TjN?"o! 6|:\l>=Wq8099|E9EE99|8ME9\|8ME99|8l8E99|8lMojT>[![>,T|>T|~~~~||((|(|#0;1;1;"NYOMJ EGY GOMBOT,HA TOVBBLPSZ"  0:  80P ATORPED & "Y  "  E, ,    ; 6")))      " B Oi)un  pv:10 ,5;"ENTER-t NYOMJ":0: !@>>#&#= $$$~$$~$>(> >bd&F(*D:  >>> ||8X~|||>|<| |||800||||~~| >>< ||||:\[2\[y[*Z[:\[2\[y!!:\[2\[y2\[y PA˂ 80˂‚[+F! ?8099E9E9E9E9E99|8E9E99|8lMME99|8lMZ ['lh)J?z& g& i #  @R:) \\]n]>>kyooo\:3f[iPX!`HP! ! $  PW!^[{"\ P҉" K SR4[/[P -TORPED NYITRAI BASIC-BAN  NYITRAI 98'  ꠓ (KEZETES BETK 2 2590 <BETUKOD 41852,768 FUDG CODE USR "A",168 P:a(2,10 ,10 ):b(2,4,4) Z'b$=" " di=14 nj=15-i x$b(1,i,j)=i:b(2,i,j)=i j i &1:7:1:0: 2180 ""ELHELYEZZEM HAJIDAT ? (I) ";o$ o$"i"250 45;14,5;"1 ANYAHAJ 4 ELEMBL" 44;15,5;"2 CIRKL 3 ELEMBL" 43;16,5;"3 ROMBOL 2 ELEMBL" 42;17,5;"4 NASZD 1 ELEMBL" m=41-1 t=15-m u=2:630v u=1:630v t:m 540 :2;12 ,0;"NYITRAI TORPED JTK 1998'" 413 ,0;"ADD MEG A HAJID KOORDINTIT!" m=41-1 t=15-m "c(m,2) , i=1m 619-m,0;a$(m) @.19-m,18;t;".HAJ";" ";i;".ELEM" J 1790 T1a(2,s1,o1)01470:330J ^)s1,20+o1;1;m+1;" " ha(2,s1,o1)=10 *m+t r"c(i,1)=s1:c(i,2)=o1 |i m=1490  i=1m  h=1 j=1̺m i=j460 Kc(i,1)=c(j,1)ƽ(c(i,2)-c(j,2))=1h=0 Kc(i,2)=c(j,2)ƽ(c(i,1)-c(j,1))=1h=0 j h1550 i u=2:1690 $19-m,17;b$(18) u=1:630v t m 21,0;b$; &62;20,3;"A HAJIMAT ELREJTETTEM," 0P2;21,3;"AZ ";7;"CEN";2;" VGTELEN VIZEIN." :(i=110 :j=110 D0a(1,i,j)=6a(1,i,j)=0 N0a(2,i,j)=6a(2,i,j)=0 Xj:i b s2=0 l 850R vc(m,2) s1=1+(10 *) o1=1+(10 *)  i=1m  n=0 %n=n+1:n>10 1630^ >.5740 s2=s1-1+(3*) #s2=0s2=11 700 a(u,s2,o1)0680 s1=s2:780  o2=o1-1+(3*) #o2=0o2=11 740 a(u,s1,o2)0680 o1=o2  "c(i,1)=s1:c(i,2)=o1 4u=2s1,o1+20;1;m+1;" "  a(u,s1,o1)=10 *m+t *i 4 1690 >/ti=33!-6*m+2*t-u:1510 H R 2060  \u=21260 f72;13 ,0;"LDD KI A HROM RAKTT:" pl=13 z)13 +2*l,4;l;".RAKTA" ti=8:1510  1790 t=a(1,s1,o1)  t6t0970 j21,0;"IDE MR";1;" LTTEL,";0;"ISMTELD MEG!" ti=0:1510 125}:910 L13 +2*l,14;1;("NEM "t=0);2;"TALLT" t1020 37;s1,o1+(20u=2);1;"*" ti=2*u:1510  a(u,s1,o1)=6:1210 3s1,o1+(20u=2);1;2;"x" ti=15:1510 $t1=(t/10 ):t2=t-10 *t1 a(u,s1,o1)=-t $b(u,t1,t2)=b(u,t1,t2)-1 .3u=2b(2,t1,t2)>0s2=s1:o2=o1 8 b(u,t1,t2)>01210 Bti=20:1510 LB13 +2*l,20;1;",";2;"ELSLLYEDT!" Vu=2s2=0 ` 1980 jv=0:1920 tv1210 ~iu=12;21,0;" GRATULLOK,TE";1;" GYZTL! ";0 `u=23;21,0;"N ";1;"GYZTEM";0;" A KEMNY CSATBAN! " Ki=140(:.05|L,10 +20*-(20u=2):i *2;"JTSSZUNK MG EGYET ? (I) ";o$ o$="i"80P  u=2125} l u=1+(u=1) u=2125}  850R >3;13 ,0;"MOST N LVM KI A 'HARPOON'-T:" l=13 )13 +2*l,4;l;".RAKTA"  s21340< s1=1+(10 *) o1=1+(10 *) (?a(2,s1,o1)=6a(2,s1,o1)<01300 2 1430 < 1420 Fi=18 Ps1,o1 Zs1=s1+s2:o1=o1+o2 d;s1<1s1>10 o1<1o1>10 1400x n?a(2,s1,o1)=0a(2,s1,o1)61430 xi s2=0:1300 -1,0,0,-1,0,1,1,0,-1,-1,-1,1,1,-1,1,1 t=a(2,s1,o1) ti=10 :1510 O21,7*l;(s1+96`);21,7*l+2;(o1+47/)  970 a hibas lepes ?2;21,0;"RVNYTELEN LPS,ISMTELD MEG !" q=180P:q   a hangok q=12 .01z# =,ti/2 q: a hibas hajo >2;21,0;"RVNYTELEN HAJ,ISMTELD MEG !" "q=180P:q , j=1m 6.a(2,c(j,1),c(j,2))=0 @;c(j,1),c(j,2)+20;1;1;" " Jj T 300, ^hibas hajotorles hj=1i-1 r(a(u,c(j,1),c(j,2))=0 |;c(j,1),c(j,2)+20;1;7;" " j  630v a korbepottyozes  i=1m -j=c(i,1)-1c(i,1)+1 "j=0j=11 1770 -k=c(i,2)-1c(i,2)+1 "k=0k=11 1760 *(a(u,j,k)/10 )ma(u,j,k)=6 k j i: bemeneti koordinatak 21,0;b$ #7;21,0;"SOR=" =""1820 &s1=-96` 0H21,4;(s1+96`);2;21,16;"OSZLOP=" :""1850: D=""1860D No1=-47/ X$21,23;(o1+47/); b""1890b l;s1<1s1>10 o1<1o1>10 1790 v a jetek vege i=14 j=15-i b(u,i,j)0 j:i  v=1: sullyedt kiiras i=110 j=110 a(u,i,j)-t2040 *u=1i,j;1;t1+1;"X" u=221004 j:i   az uzenetek torlese i=13 21  i,0;b$ *i: 4$az elsullyedt hajo korbepottyozese >w=i-1i+1 H"w<1w>10 2170z Rz=j-1j+1 \"z<1z>10 2160p f0a(2,w,z)=0a(2,w,z)=6 pz zw:  a jatekmezo i=87W1678 .05|L,i/100d &7:8,i:80P,0 168,i:80P,0 .01z# =,i/502 i i=888X8 .01z# =,i/502  i,167:0,-80P *i+160,167:0,-80P i G5;0,1;"0123456789";0,21;"0123456789" i=110 =5;i,0;(i+64@);i,20;(i+64@) .025{L,i $c11 ,12 ;1;2;"TORPED";0;5;12 ,11 ;"NYITRAI 98'" )5;2,12 ;"ANYAHAJ";4;3,12 ;"CIRKL";3;4,12 ;"ROMBOL";2;5,12 ;"NASZD" .i: 8a="a"-768:a Ba="a"-767 L&ah=(a/256):al=a-256*ah V 2440 `+i=011 :b:23296[+i,b:i j 23300[,al:23301[,ah tb=23296[ ~(236066\,al:236077\,ah-1 j33!,0,61=,17,0,0,1,0,3,237,176,201 2480 i=18:x$ %j=07:a:x$+j,a:j:i K"",4,8,60<,66B,66B,126~,66B,0 I"",4,8,568,4,60<,68D,58:,0 M"",4,8,126~,64@,124|,64@,126~,0 K"",4,8,60<,68D,120x,64@,60<,0 L"",20,60<,86V,66B,66B,66B,60<,0 K"",20,0,568,68D,68D,68D,568,0 K"",36$,0,66B,66B,66B,66B,60<,0 K"",20,40(,0,68D,68D,68D,568,0 2580 +i=014: @. #  +) 882300 PRINT INK 5; AT 0,1;"0123456789"; AT 0,21;"0123456789"2310 FOR i=1 TO 10 2320 PRINT INK 5; AT i,0; CHR$ ( i+64); AT i,20; CHR$ (i+64)2330 BEEP .025,i 2340 PRINT AT 11,12; FLASH 1; IN $K 2;"TORPED"; FLASH 0; INK 5; AT 12,11;"NYITRAI 98'"2345 PRINT INK 5; AT 2,12;"ANYAH )AJ"; INK 4; AT 3,12;"CIRKL"; INK 3; AT 4,12;"ROMBOL"; INK 2; AT 5,12;"NASZD"cls:print at 10,5;"ENTER-t NYOMJ":PAUSE 0:RUNNEXT i: RETURN  .2360 LET a= USR "a"-768: CLEAR a 82370 LET a= USR "a"-767  B2380 LET ah= INT (a/256): LET al L=a-256*ah2390 RESTORE 2440 V HP Oh ~|||||~|~~||||8||f||||~f~f<|8p|||||8 $$~|~|$$~~> |8p8~~~~$~~~~$~~~~8|~~|||~~8p~~|||8~~|||~|~~~~~~|||~8p8~~$|~|~~~~8$X$~~$~| ~ 8|||f|||~f~f<|||||||8|$ $  |8 p | 8|||||||||||||8'' 23296+i,b: NEXT i  23296+i,b: NEXT i ZATOT ?"ZATOT ? I/N "  80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80V 2782300 PRINT INK 5; AT 0,1;"0123456789"; AT 0,21;"0123456789" 5; AT 12,11;"NYITRAI 98'""1239TREQP01@0&00 00!!! !0!> @!P!G( ~#(S:>2 > ~G#(x>>yQ!ta8߾ #(7 (~#(ܷxQ8RUSt[.[u