TtN?t!6!D:\l8<E9E9E99E99E99|8E9E99E99E9E99E9E9|8l8E99|8lMttT>[![>||UUUUp<>0xh|f08||! p7 qqp3?HHP~~~~(||((|(|||||BB|DB<@<B<@!@>>#&#= $$$~$$~$>(> >bd&F(*D:  >>> ||8X~|||>|<| |||800||||~~| >>f>f>f>f>f>f>f>f>f>f>f>f>f>f>f>f'+pppp$0000000000000000'~+~~$8888888888888888                '|||~.||||||||~|||~|||P .H q((||||~|||f|| |~~|~|||~ |||||||||~!0~|f~~|||||||0H0|~|~|~|||~~$$|||~0~f ~~~~ ~ x~f~~7xx~~~7q7~~$$~xf   phf>>ph!phpph8<  ||8 <|<||<| <|38><|p  p>f>>>f >f?p>f ~~ ~0~~0 P0l~~ll0||||| |~|~| |||||~ 8~~|| |||8p88~~  ||88|||8((  ( ((,[||||~|||||||||||||~~||||~< 0000000000000000[7<~~~~B xxxxxxxxxxxxxxxx7777777777777777[| phphphphphphphphphphphphphphphph[|8|8>|8 <|<|<|<|<|<|<|<|<|<|<|<|<|<|<|<|[ppp >f>f>f>f>f>f>f>f>f>f>f>f>f>f>f>f[~l 0000000000000000[ |||| ~8||||||||||||||| 8888888888888888                @g+(  (  ( :\[2\[y[*Z[:\[2\[y!!:\[2\[y2\[y Pam1510am`m[+! ?E9E9E9E9E99|8lME99|8lE99|8lM8 ['lh)J?z&U g& # @Tt^\\]b]ttbZttt\B[SG X! PP!!   PW!{"\ PNYITRAI BASIC 1998' POKE 2 K SR4[/[PNYITRAISOFT 2004 ~JTKGYROS 1982-BEN ZX81-EN 2004-BEN SPECATULATOR EMULTORON 1:1:7: 'A$="" 'B$="" *0,0;A$;20,0;A$ *1,0;B$;21,0;B$ A JTK MAGYARZATA 06;3,7;"RKA S A LIBK..." d6;5,4;"EZ A JTK EGY KZMONDST";6,3;"IDZ,SOK LIBA RKT GYZ." 6;8,4;"A FELADAT AZ,HOGY BE KELL";9 ,8;"KERTENI A RKT,";10 ,4;"S A SAROKBA KELL ZRNI." 6;12 ,4;"IRNYTS 5=BALRA,";13 ,14;"8=JOBBRA";14,4;"VLTANI A LIBK";15,4;"KZTT ""V""-VEL LEHET" m6;17,1;"ELSZR 4 LIBD VAN,MAJD SZ-";18,1;"MUK CSKKEN HROMRA,KETTRE." ,2;19,11 ;"KEZDHETJK ?" B7;11 ,25;" ";12 ,25;" " r7;13 ,25;"";2;"";7;"";14,25;"";2;"";7;"" B7;15,25;" ";16,25;" "  0   RKA S A LIBK (d(10 ,10 ) 2x(4):y(4) <a(4):b(4) F 1370Z P 940 Z$h=(*3)+2:1110V d 650 n 140 x 100d qj>6 21,0;"A RKA LP" Qd(qi+2,qj+2)d(qi+2,qj)d(qi,qj+2)d(qi,qj)1420 m=1 410 &qi+n<1qi+n>8210 )d(qi+n+1,qj+m+1)340T _d(qi+n+2,qj+m+2)=1d(qi+n,qj+m+2)=1qj<7qj>1m=-m )d(qi+n+1,qj+m+1)340T /oi=qioj=qjm=-m:n=(-.5):180 oi=qi:oj=qj *7;qy,qx;" ";qy+1,qx;" " qx=qx+n*2 qy=qy+m*2 37;2;qy,qx;"";qy+1,qx;"" &d(qi+n+1,qj+m+1)=2 ""d(qi+1,qj+1)=0 , qi=qi+n 6 qj=qj+m @qj=81470 J Tn=-n ^(d(qi+n+1,qj+m+1)1 hm=-m rqj<4n=1 |(d(qi+n+1,qj+m+1)1 n=-n  n=(qi<5)-(qi5) r= "r>.5qi>3470 qi>7460 t(d(qi+3,qj+3)=0d(qi+2,qj+3)=0)d(qi+2,qj+2)=0n=-1: qi<4r>.5 s(d(qi-3,qj+3)=0d(qi-2,qj+3)=0)d(qi-2,qj+2)=0n=1: r>.5440  a(hm)=a(hm)+m b(hm)=b(hm)-1 3d(a(hm)+1,b(hm)+1)05600 *d(a(hm)-m+1,b(hm)+2)=0 (d(a(hm)+1,b(hm)+1)=1 & 600X 0a(hm)=a(hm)-m :b(hm)=b(hm)+1 D1,-10 N 650 X?7;y(hm),x(hm);0;" ";y(hm)+1,x(hm);" " by(hm)=y(hm)-2 lx(hm)=x(hm)+m*2 vH7;1;y(hm),x(hm);1;"";y(hm)+1,x(hm);""  (21,0;"LPSED? ":3 HELY .1}L,6 m$= m$=""670 m$="v"m$="V"730 m$="5"m=-1:500 m$="8"m=+1:500  770 !21,15;"VLTASZ? I" a$= a$="n"a$="N"1470  650  880p  hm=hm+1 hm>hhm=1  8204 * 4$f=22528X+x(hm)+y(hm)*32 >f,f+128 H"f+1,(f+1)+128 R$f+32 ,(f+32 )+128 \$f+33!,(f+33!)+128 f p$f=22528X+x(hm)+y(hm)*32 zf,f-128 "f+1,(f+1)-128 $f+32 ,(f+32 )-128 $f+33!,(f+33!)-128   A TBLA 3,8; i=14 j=18 3;7;" "; %j/4=(j/4):8; j j=18 3;7;" "; %j/4=(j/4):8; j i j1:63?,23:129,0:0,129:-129,0:0,-129 a61=,21:133,0:0,133:-133,0:0,-133 $a59;,19:137,0:0,137:-137,0:0,-137 .1:A=311 :195+A,133:0,-120x:-120x,0:78N,20-A:128,0:A Bg2;10 ,26;"BAL =5";11 ,26;"JOBB=8";0;13 ,26;"VLT=V" L V i=1h `x=i*4+6 j51;7;17,x;"";18,x;"" t&d(i*2+1,9 )=1 ~x(i)=x y(i)=17  hm=1 a(i)=i*2 b(i)=8 i  8204  qi=5  qj=1 qx=qi*2+6  qy=3 37;2;qy,qx;"";qy+1,qx;"" i=110 d(i,1)=1  d(1,i)=1 d(10 ,i)=1 d(i,10 )=1 (i 2"d(qi+1,qj+1)=2 < oi=0 F oj=0 P Z4:0 d 4 n pr2;0,9 ;"RKA ";0;"S A ";1;"LIBK";1,8;6;" BEKERTS JTK" x 4  ;1;21,0;"GYZTL,ELFOGTAD A RKT!! " n=010  .5,n n  1510 >2;21,0;"A RKA KIJUTOTT,S GYZTT.... " n=0-10 -1  .5,n n "MGEGYSZER ?";a$ a$="i"a$="I"  L10 ,5;"SOK SIKERT KVNOK,";12 ,9 ;"LEGKZELEBB..." A B "-VEL LEHET" tBK";1,8;6;" BEKERTS JTK"  JTEKGYROS " 1,15;"VLTASZ? 11,15;"VLTASZ? 11,15;"VLTASZ? I1,15;"VLTASZ? I" 11,15;"VLTASZ? I" 1,15;"VLTASZ? I"  >v m);""  A,0;"LPSED? ":3 HELY  ;" ";  ;"S A ";1;"LIBK";1,8;6;" BEKERTS JTK"  JTEKGYROS " 1,15;"VLTASZ? 11,15;"VLTASZ? 11,15;"VLTASZ? I1,15;"VLTASZ? I" 11,15;"VLTASZ? I" 1,15;"VLTASZ? I"  >v m);""   @ # 88550 GO TO 600&560 LET a(hm)=a(hm)-m 0570 LET b(hm)=b(hm)+1 :580 BEEP 1,-10D590 GO TO 650N600 PRINT PAPER 7; AT y(hm),x(hXm); FLASH 0;" "; AT y(hm)+1,x(hm);" "610 LET y(hm)=y(hm)-2 b620 LET x(hm)=x(hm)+m*2l630 PRINT PAPER 7; INK 1; AT y(vhm),x(hm); FLASH 1;""; AT y(hm)+1,x(hm);""640 RETURN 650 PRINT AT 21,0;"LPSED? ": REM 3 HELYRUN 660 BEEP .1,6670 LET m$= INKEY$ 680 IF m$="" THEN GO TO 670690 IF m$="v" OR m$="V" THEN GO `HP !!q8p8p8p8p8p8p8p8p8p8p8p8'' TO 730 TO 730THEN GO TO 560 THEN GO TO 560 THEN GO TO 560 THEN GO TO 560 THEN GO TO 560 THEN GO TO 560 THEN GO TO 560 THEN GO TO 560 THEN GO TO 560 THEN GO TO 560 THEN GO TO 560 THEN GO TO 560 THEN GO TO 560 THEN GO TO 560 THEN GO TO 560 THEN GO TO 560 THEN GO TO 560 THEN GO TO 560 THEN GO TO 560 520 IF d(a(hm)+1,b(hm)+1) <> 0 2,qj+3)=0) AND d(qi-2,qj+2) 14,25;""; INK 2;""; INK 7;""I."&GO TO$QP01@0&00 00!!! !0!> @!P!G( ~#(S:>2 > ~G#(x>>yQ!ta8߾ #(7 (~#(ܷxQ8RUNAtw[u