\ \M?.\ 8D:\E9EE9E99|8E99E993)paE99|8Mq$3a\6e3^[\[>,U!:! [!MMME9EE99E99|8 P  8E99|8M\  \ ;]a![![>!`~##G+~##OE99E99E93E99E9E9E9M}(, 3 MXNWN\GWq!'`![> y>ϟ?|y?  pE99|8k^M9F8F\GWq!'![>~~aaaa6 "U%Er"UQRQU"8lx`<8<(8lll8((8lll88lll8Dlll88 ll=m(k,1,2):g=k-1:1000 Xm(k,1,2)=l(4-k)<(4-g)l=m(k,1,2):g=k-1 k: 2:4:1::a=06:76L+16*a,155:0,-96`:91[+16*a,155:0,-96`:.01z# =,a:a za=06:75K+16*a,155:0,-96`:92\+16*a,155:0,-96`:a xa=05:76L,59;+16*a:111o,0:76L,76L+16*a:111o,0:a  a=05:76L,60<+16*a:111o,0:76L,75K+16*a:111o,0:.02{# =,a:a ${0;0,0;a$(1,l(1));" ";s(1);7,a$(2,l(2));" ";s(2):0 .5a=17:15,8+2*a;a:a 8 B:vx=0:x=r:y=s:430:e$="i"vx=1000: DEq=1-q:x=r:y=s:430:q=1-q:e$="i"vx=999 F L2vx=m(k,m(k,1,1)+2,1+p): `@k=17:m(k,1,2)<-9971160 bfm(k,m(k,1,1)+2,1)=1:m(k,1,1)=m(k,1,1)+1 jm(k,1,1)<6q=1-p:r=k:s=m(k,1,1)+1:1100L:m(k,1,2)=m(k,1,2)-rp1*vx tgm(k,1,1)=m(k,1,1)-1:m(k,m(k,1,1)+2,1)=-1 ~pq=p+2:r=k:s=m(k,1,1)+1:1100L:m(k,1,2)=m(k,1,2)+rp1*vx ".";:k:q=p: x387,390,396,408,432,480,771,774,780 ,792,8160,864`,1539,1542,1548 ,1560,15840,1632`,3075 ,3078 ,3084 ,3096 ,31200 ,3168` ,6147,6150,6156 ,6168,61920,6240`,645,650,660,680,720,1285,1290 ,1300,1320(,1360P,2565 ,2570 ,2580 ,2600( ,2640P ,5125,5130 ,5140,5160(,5200P,1161,1170,1188,1224,2313 ,2322 ,2340$ ,2376H ,4617 ,4626,4644$,4680H,2193,2210,2244,4369,4386",4420D,4257,4290 @5c=1821:c,0;31;" ";:c: #(magyarzatok #- 7 #2Ga=021:a,0;" ";:a #<a=064@8 #F a/8 #Pya,a:255-2*a,0:0,175-2*a:2*a-255,0:0,2*a-175 #Z.1}L,a/4 #da #n 0 #xa=040( #236066\,200-a #236077\,186 #,2;9 ,9 ;" " #-2;11 ,9 ;" " #-2;12 ,9 ;"" #,2;8,9 ;"" #E2;10 ,9 ;"";1;" KOCKASAROK ";2;"" # .06|u\,a #a ##"Krsz jtkinformcit i/n ?";i$ #)i$"i"i$"n"i$"N"i$"I"9130# #i$="n"i$="N"200 #1:1:5: #23692\,255 #21,0 #&'5;"Ngyzetek a sarkokban.": #$"A jtk indtsakor vlaszhatsz," #$"hogy a Specrummal,vagy msik j-" #$"tkossal mred ssze kpesgedet" $#"A jtk lnyege egyszer,sarkok" $$"ban alakzatoknak ngyzetet kell" $$"formlni-a ngy kocka sarkainak-" $"$"Aki elbb elri,az pontot szerez" $,#"Ha lpsre kvetkezel,akkor 'S'" $6""betvel segtsget krhetsz.": $@""Ha gyengnek tallod a Spectru" $J#"mot, akkor jtssz a 3-ik foko-" $T""zattal,br ilyenkor egy kicsit" $^!"hosszabban fog gondolkodni.": $h$"Sok sikert kvn a jtkgyros": $r&'#0;" Nyomd le az ENTER-t." $| 0 $""9345$ &H4:4:0:: dF2b~     .G          0 `     0 `    0 `     0 `         ( P   ( P    ( P      $ H   $ H     " D   D  @B  ;b Q#1::a=06:76L+16*a,155:0,-96`:91[+16*a,155:0,-96`:.01z# =,a:a z# = =!O({O({ 66|$~$$~$( <bd&F0d>dd<0  00~0> 0`<0 0 >>  |ff|lf<`<f<~f<ffff<ffff~$f<Ab+ABB\P4HX HP! 88{ %~Ve` K SR4[/[PNgyzetek a sarkokban logikai jtk tlet: 1960-as bvr knyvek matemetikai jtkok kiadvnya alapjnE 5 NyitraiSOFT 2003! 1꒓ jtkgyros 7:7:0:  60000` s1:n= 0(30*31/10 )+6:ڥ*7;9 ;" ";:.0015wD,15:n %ڥ*5;9 ;"....":0 Y10 ,4;" ";12 ,4;" " ?1;11 ,4;1;" jtkgyros " &a=60004d60018r:b:a,b:a #3adatok a gpi kd rutinhoz (33!,96`,234,126~,35#,35#,166,71G,43+,126~,35#,35#,166,79O,201 -a kocka UDG-je 2#a=07:b:"a"+a,b:a 579ůp$<491180 'p=p$:p1p2180 7 Ga=021:a,0;" ";:a a=064@8 a/8 ya,a:255-2*a,0:0,175-2*a:2*a-255,0:0,2*a-175 .1}L,a/4 a 0 9070n# /p=1"Krem a neved ";x$:y$="Spectrum" Up=2"Els jtkos neve? ";x$'"Msodik jtkos neve? ";y$:p=0:4 jl(1)=x$:l(2)=y$:a$(1)=x$:a$(2)=y$:l(1)>12 l(1)=12 *l(2)>12 l(2)=12 74;6;14,8;"A kockk szne:" B4;0;16,7;x$;": ";7;y$;": " Np=1"Jtkfokozat (1-3) ? ";t$:t$>579ůt$<491220 P1230 1t=t$:t1t2t3220 .p=0t=0:a=1500:a .ts=t:s(1)=0:s(2)=0 Wrp1=(*2.5 +3.5`):rn1=(*2.5 +2.5 ):rm=502:zx=0: 'a$(2)"Spectrum "3106 !t<3p=1:3106 D"Kezded a jtkot i/n ";b$:b$"i"b$"n"b$"N"b$"I"280 " p=b$="n" ,b$="i"b$="I"zx=1 6k=17:l=27:m(k,l,1)=-1:l:m(k,1,1)=0:m=23:l=17:m(k,l,m)=0:l:m:k:1050 @S8000@:21,0;a$(p+1,l(p+1));" lp.";:rm=rm+1 J1p1a$(2)"Spectrum "340T Kzx=1q=p:780  L_zx=1:g=(*4)+3:g6g=4+((*2)+2)*(-.5) N 350^ T].8L,5:"Hov lpsz (1-7) ? ";b$:(b$>579ůb$<491)b$"s"340T Yb$"s"g=b$ ^)b$="s"q=0:t=3:780  hhg<1g>718,0;"Csak 1-tl 7-ig - ismteld":k=0500:k:320@ rg=g-1:m(g+1,1,1)=618,0;"Az oszlop ";g+1;" foglalt-ismteld":k=0500:k:320@ |Tt=ts:b$="h"18,0;31;" Javaslom ";g+1;"-t. ":340T m(g+1,1,1)=m(g+1,1,1)+1:m(g+1,m(g+1,1,1)+1,1)=p:400:420:e$"i"520  660 p=1a$(2)="Spectrum "15-2*m(g+1,1,1),2*g+10 ;1;d$(p+1):l=515:.2~L,l:l Q15-2*m(g+1,1,1),2*g+10 ;d$(p+1) *q=p:x=g:y=m(g+1,1,1) e$="n" #a=16:a=y470 (x+y-a>6x+y-a<0455 ‹m(x+1,a+1,1)=qm(x+y-a+1,y+1,1)=qm(x+y-a+1,a+1,1)=qe$="i":y8=1:480 (x-y+a>6x-y+a<0470 ̌m(x+1,a+1,1)=qm(x-y+a+1,y+1,1)=qm(x-y+a+1,a+1,1)=qe$="i":y8=-1:480 a  fvl=2^x+2^(y+6):60000`,(vl/256):60001a,vl-256*60000`  b=271G:60002b,(f(b,1)/256):60003c,f(b,1)-256*60002b:vm=60004d:vm=vl540  w21,0;"Bejegyzem a memrimba";18,0;"6 " b: p=1600X (f(b,2))>5 !f(b,2)<0620l  kf(b,2)=f(b,2)+1:f0=7:f(b,2)=1f(b,2)=2f0=f(b,2) & u5=1 060000`,(f(b,1)/256):60001a,f(b,1)-256*60000`:u=012 :60002b,(g(u+1)/256):60003c,g(u+1)-256*60002b:vx=60004d:vx=0580D :u<7uxu1=u <u>6uyu2=u-6 Du:m(x+1,u2+1,u5+1)=m(x+1,u2+1,u5+1)+f0:m(u1+1,y+1,u5+1)=m(u1+1,y+1,u5+1)+f0:m(u1+1,u2+1,u5+1)=m(u1+1,u2+1,u5+1)+f0 N Xf(b,2)>5 Z!f(b,2)>0640 [nf(b,2)=f(b,2)-1:f0=7:f(b,2)=-1f(b,2)=-2f0=-f(b,2) bu5=2:5600 lKf0=-7:f(b,2)=-1f(b,2)=-2f0=f(b,2) v$610b:f(b,2)=10 : Jf0=-7:f(b,2)=1f(b,2)=2f0=-f(b,2) %550&:f(b,2)=-10 : <g=17:m(g,1,1)6680 g Ne$"i"8000@:18,6;1;"Nincs tbb lps":750  e$"i"p=1-p:320@ s(p+1)=s(p+1)+1:8000@:19,1-l(p+1)/2;a$(p+1,l(p+1));" pontot rt el." 1;1;8;15-2*y,10 +2*x;" ";15-2*a,10 +2*x;" ";15-2*y,10 +2*(x+y8*(y-a));" ";15-2*a,10 +2*(x+y8*(y-a));" " a=143:b=13:.3+.2~L*(b=3),a+4:b:a:a=15:.3+.5*(a=5),11 -(3-a):a a=1500:a `0,0;a$(1,l(1));" ";s(1),a$(2,l(2));" ";s(2) I"Folytatod a jtkot i/n ? ";e$:e$"i"e$"n"e$"N"e$"I"750 e$="n"e$="N"9999' 0"Msik jtkost ";e$:e$="n"e$="N"780  e$="i"e$="I"250  762  +2;18,0;"Gondolkodom"; ,k=17:".";:.02{# =,0 Km(k,1,1)=6m(k,1,2)=-1000:810*  Rr=k-1:s=m(k,1,1)+1:1090B:m(k,1,2)=vx *Ak:990:m(g+1,1,2)>998380| 4k=17:m(k,1,1)<5q=1-p:r=k-1:s=m(k,1,1)+2:1090B:vx=1000m(k,1,2)=-999 >m(k,1,2)>-999".";:.02{# =,0:q=p:r=k-1:s=m(k,1,1)+1:1100L:m(k,1,2)=vx Hk Rt=1960 T"t=21120`:960 \?k=17:m(k,1,2)<-997950 ^`m(k,m(k,1,1)+2,1)=p:m(k,1,1)=m(k,1,1)+1 f^m=17:m(m,1,1)=6m(m,1,3)=-1000:880p k_q=1-p:r=m-1:s=m(m,1,1)+1:1100L:m(m,1,3)=vx pm:".";:.02{# =,0 zja=14:l=-100d:m=17:m(m,1,3)>ll=m(m,1,3):lq=m Wa:m(lq,1,3)=-1000:m(k,1,2)=m(k,1,2)-l*rn1 m q=p:r=k-1:s=m(k,1,1)+1:1090B:vx=1000m(k,1,2)=m(k,1,2)-rn1*rm gm(k,1,1)=m(k,1,1)-1:m(k,m(k,1,1)+2,1)=-1  @1 #  882 REM NyitraiSOFT 2003   5 REM jtkgyros  10 BORDER 7: PAPER 7: INK 0: C LS run 20 CLEAR 6000021 BRIGHT 1: FOR n= 0 TO (30*31/10)+6: PRINT PAPER RND *7; INK 9;" ";: BEEP .0015,15: NEXT n 22 PRINT PAPER RND *5; INK 9;"....": BRIGHT 0 24 PRINT AT 10,4;"  "; AT 12,4;"  "25 PRINT INK 1; AT 11,4; FLASH 1;" jtkgyros " @PP8h6<6|<|~|~66f6fff`f6|f|fff|f |>|~|`|`f``l0<`f`~f0008<~<|<~<8f`ff0`fn|ff8>|fv`f|0fff`fl0>ff<<` @!P!G( ~#(S:>2 > ~G#(x>>yQ!ta8߾ #(7 (~#(ܷxQ8ruEatD[u