Tx?(x!6Z:\8E9E99|8lM)U|8lM!P!'ȯ![>6E99|8|8lE9E99|8|8lMZ@ Zq!'![>  U|~~||D|(D|(D| (||(|||~~TUU%0HX|~~wRR77@1E99E99|8|8Mvaarw3E99|8M8E99|8MxxT>[![>!O({O({ 66|$~$$~$( <bd&F0d>dd<0  00~0> 0`<0 0 >>  |ff|lf<`<f<~f<ffff<ffff~$f<UvUUfl`|`癙矃UUUUfU~UfUfU'`fflf``f`fffff```癙矓ßUUUU< g$(33!)="" ? g$(34")=" " @ g$(35#)=" 9" A g$(36$)="" B g$(37%)="" C g$(38&)=" " D g$(39')="10" E g$(40()="" F g$(41))="" G g$(42*)=" " H g$(43+)="11" I g$(44,)="" J g$(45-)="" K g$(46.)=" " L g$(47/)="12" M g$(480)="" N g$(491)="" O g$(502)=" " P g$(513)="13" Q g$(524)="" R g$(535)="" S g$(546)=" " T g$(557)="14" U g$(568)="" V g$(579)="" W g$(58:)=" " X g$(59;)="15" Y g$(60<)="" Z g$(61=)=" " [ g$(62>)=" " \ g$(63?)=" " ] g$(64@)=" " ^ g$(65A)="" _ g$(66B)=" " ` g$(67C)="16" a g$(68D)="" bi=0160 dD1:1:0::480,152:159,0 e(63?,167:0,-159 f'480,120x:159,0 g(96`,167:0,-159 h&480,88X:159,0 i)128,167:0,-159 j&480,568:159,0 k)160,167:0,-159 l&480,23:159,0 m)192,167:0,-159 nL2;1;0,21;"NyitraiSOFT";1,24;"2004" oi=1190 pi=23106 s.01z# =,-10 J 170:x=18:k(x,1),k(x,2),k(x,3):x 15,64@,251,21,232,251,27,128,252,37%,40(,253,47/,208,253,557,120x,254,65A,24,255,68D,184,255 a=14:f=4*a-1:b=14:c=4*b+4:p=4*(a-1)+b:c(p,1)=f:c(p,2)=c:b:a 2000 w=1:f=0 Cx=116:a=4*(x-1):x=16a=64@ 4b=14:(a+b)>k(w,1)w=w+1 1:6 - a+b61 =0:7:f=1 F(c(x,1)-1+b),c(x,2);g$(a+b):f=1f=0 b:.01z# =,a:x Y#0;"ITT LATOD A TELJES 16-OS KEPET NYOMD AZ ENTER-T A KEVERESHEZ ":0  6* keveres * 8<c=0:n=1+(*4):"(32+n)*10":f=0 ; x=116:p(x):x @O x=116:y=14:p=(4*p(x)-4)+y:W=1 B) p>k(w,1)w=w+1:322B F2:5 G)p61=f=1:0:7 HW (c(x,1)-1+y),c(x,2);g$(p):f=1f=0:2:5 I%y:.01z# =,p:x:0:7 J16,15,14,13 ,12 ,11 ,10 ,9 ,8,7,6,5,4,3,2,1 T 9 ,8,10 ,7,11 ,6,12 ,5,13 ,4,14,3,15,2,16,1 ^5,12 ,6,11 ,7,10 ,8,9 ,4,13 ,3,14,2,15,1,16 h12 ,5,13 ,4,14,3,15,2,16,1,11 ,6,10 ,7,9 ,8 m* iranyitas * o@21,1;"bal=5,jobb=8,fel=7,le=6,k=kever":b=0 r=""370r s.01z# =,10 tc$= w6 21,1;" " |+ (c$="5"c$="6"c$="7"c$="8")400 c$="k"3128 w30:21,1;"SZABALYTALAN,ISMETELD!":40(:21,1;"MOST MERRE ? ":370r  x=1 p(x)=16b=x:440  x=x+1:420 ?c$="5"(b=4b=8b=12 b=16)390 =c$="6"(b=1b=2b=3b=4)390 Ac$="7"(b=13 b=14b=15b=16)390 >c$="8"(b=1b=5b=9 b=13 )390 "c$="8"m=(b-1):520 "c$="7"m=(b+4):520 "c$="6"m=(b-4):520 m=(b+1) #w=1:p=4*p(m)-4  !c=c+1:1,1;c x=14 - (p+x)>k(w,1)w=w+1:540 0B2:5:(c(b,1)-1+x),c(b,2);g$(p+x) :^0:6:(c(m,1)-1+x),c(m,2);g$(60<+x):x:0:6 ?a=p(b):p(b)=p(m):p(m)=a D x=1 Nx>16620l Xp(x)x365m bx=x+1:590N vx=14 L2:5:14+x,20;g$(64@+x):x:0:7  "UJABB JATEKOT? (i/n) ";x$  x$="i"3106 0:7:  3000 i=1:100d >"3000 :i=2:100d 0:7:#0;"EREDETI KEP"  iD 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16}@%(/7xAD      SQ@fcpw 15-os puzzle 128K basicban k ;"2004"  p @ # 881 REM kocka 15-os puzzle  128K basicban  run 2 REM jatekgyaros 2004  3 BORDER 1: PAPER 1: INK 0: CLS 4 BEEP .01,-105 LET i=010 DIM g$(68,4): DIM k(8,3): D IM c(16,2): DIM p(16)30 LET g$(1)="" 31 LET g$(2)=" " 32 LET g$(3)=" 1"  33 LET g$(4)="" !34 LET g$(5)="" "35 LET g$(6)=" " #36 LET g$(7)=" 2" $37 LET g$(8)="" %38 LET g$(9)="" & @P!88q8p8p8p8p8p8p8p8p8p8p8p8''39 LET g$(10)=" " 'ER-T A KEVERESHEZ ": PAUSEER-T A KEVERESHEZ ": PAUSEER-T A KEVERESHEZ ": PAUSEER-T A KEVERESHEZ ": PAUSEER-T A KEVERESHEZ ": PAUSEER-T A KEVERESHEZ ": PAUSEER-T A KEVERESHEZ ": PAUSEER-T A KEVERESHEZ ": PAUSEER-T A KEVERESHEZ ": PAUSEER-T A KEVERESHEZ ": PAUSEER-T A KEVERESHEZ ": PAUSEER-T A KEVERESHEZ ": PAUSEER-T A KEVERESHEZ ": PAUSEER-T A KEVERESHEZ ": PAUSEER-T A KEVERESHEZ ": PAUSEER-T A KEVERESHEZ ": PAUSEER-T A KEVERESHEZ ": PAUSEER-T A KEVERESHEZ ": PAUSEER-T A KEVERESHEZ ": PAUSEER-T A KEVERESHEZ ": PAUSE&575 LET a=p(b): LET p(b)=p(m): ?(m,1)-1+x),c(m,2);g$(60+x):E 40: PRINT AT 21,1;"MOST MERRE ? ": GO TO 37NEXT a 3EQP01@0&00 00!!! !0!> @!P!G( ~#(S:>2 > ~G#(x>>yQ!ta8߾ #(7 (~#(ܷxQ8ruRSt>x[u