TjN?mo!6D:\805 p @$$$~$$~$>(> >bd&F(*D:  >>> ||8X<|| >|||8888|l|88l8ll|8888>~@ pp8T"x ~8v_>?WAAQQQACCSC}UyEEUUEIyT\TTT >AA!!!T! $tt"rr R$"1Iɀ(( yr  )IASK@uyi; %ŕ1Ru񢨦B<)ia$$$a񒒟HHJJ )IIPP)9'WjjN AAA$$e$~BZB~]>AR\Wq!'X![>/{𐐐аpލ-    -ۍ ۱{~å~BB<DHpHDB@~BfZBBBBbRJFBl>8>>88888l>>888l8>888ǃǃ@|8|~~|8~||88~8~800~|8~8|8~|888~9ǃ9@88<|8||||<||888||88|<8|:8<0<0||8:8|88888: 9888||888|88|88<||||8888888|88|8||8888888888888|888|88888<888|8|8l|888~|||88|88|||88|8|l888l|8|88888l|888888~llll8ll|llll888lllllllll|llll|llllll|llllllll|8||||88||8|8|888|||||8||8||||88||88|8|8||88|8|8|8||8||8|||8||88>88888>888>88>>88888888>>8888>888>>>888888~|8|8|8~|||8||~||88~|~|888|8|8888|88|88|8|88~8|88|8~8|8||||88|88|:||8|8||8|8888|88||||888888888|88888|88|88|88|88|:8|84& 88888|l|8l|l|8888|888888>8>8|8|888|~8888888|8888@:\G:\O>[~w<[x@ggxo!:\[2\[y2\[y0 P[+! ?E98E98E99E99|8lE99|8lM5F=D ?@E9 ['lh)B?z&U g& A # @RJF#P#4!uu\\\$sbgiooo\4!f @ X!PX!\P#   X K SR PSZOKERESO JATEK JATEKGYAROS 2004' 5000:5500| 20:0:7::23658j\,8 236077\,246 Z9 ,9 ;"SZOKERESO":a$=" JATEK":g=110 :f=17:11 ,f+11 ;a$(f):23728\,11 :23729\,f+11 :.05|L,33!:23300[:f:g _ 7:200:9000(# ` 0 dA SZAVAK BEKERESE nL:"HANY SZO LESZ? (MAX. 10): ";npal:npal>10 npal<1110n s%p$(npal,10 ):z$(npal,7) uf=1npal xP(F);"- SZO ";": ";a$:a$<2űa$>10 .5,-33!:120x } p$(f)=a$ ~pf>1g=1f-1:p$(f)=p$(g)"":#0;">> EZ A SZO MAR SZEREPELT <<":100d:120x f>1g f 7000X h"":#0;1;2;"";0;" EGY KIS TURELMET ";1;"" SZAVAK ELTUNTETESE -x$(17,17,1):23672x\ f=1npal !23673y\,0:8000@ dir=(*8)+1 3a$=p$(f):7500L:c=1̱a$:a$(c)" "c len=c-1 23673y\151,-33!:f=721:f,0;"":f:"":#0;" CSEND LEGYEN,ELTEVESZTETTEM!! ":2,33!:150  wposx=(*17)+1:posy=(*17)+1:x$(posx,posy)a$(1)x$(posx,posy)32 1056  $1000+100d*dir Lposx+len181055 Q`v=posx(len+posx)-1:x$(v,posy)32 X$(v,posy)p$(f)((v+1)-posx)1055 Rv VHc=1:g=posx(len+posx)-1:x$(g,posy)=a$(c):c=c+1:g ` 1900l posx-len01055 iv=posx(posx-len)+1-1:x$(v,posy)32 x$(v,posy)p$(f)((posx+1)-v)1055 v Qc=1:g=posx(posx-len)+1-1:x$(g,posy)=a$(c):c=c+1:g  1900l posy+len181055 `v=posy(len+posy)-1:x$(posx,v)32 x$(posx,v)p$(f)((v+1)-posy)1055 v Hc=1:g=posy(len+posy)-1:x$(posx,g)=a$(c):c=c+1:g ( 1900l xposy-len01055 }iv=posy(posy-len)+1-1:x$(posx,v)32 x$(posx,v)p$(f)((posy+1)-v)1055 ~v Qc=1:g=posy(posy-len)+1-1:x$(posx,g)=a$(c):c=c+1:g  1900l 1posx+len18posy+len181055 cv=0len-1:x$(posx+v,posy+v)32 x$(posx+v,posy+v)p$(f)(v+1)1055 v ;g=0len-1:x$(posx+g,posy+g)=a$(g+1):g  1900l @/posx-len0posy-len01055 Ecv=0len-1:x$(posx-v,posy-v)32 x$(posx-v,posy-v)p$(f)(v+1)1055 Fv J;g=0len-1:x$(posx-g,posy-g)=a$(g+1):g T 1900l 0posx+len18posy-len01055 cv=0len-1:x$(posx+v,posy-v)32 x$(posx+v,posy-v)p$(f)(v+1)1055 v ;g=0len-1:x$(posx+g,posy-g)=a$(g+1):g  1900l 0posx-len0posy+len181055  cv=0len-1:x$(posx-v,posy+v)32 x$(posx-v,posy+v)p$(f)(v+1)1055 v ;g=0len-1:x$(posx-g,posy+g)=a$(g+1):g ljz$(f)(2)=posx:z$(f)(34)=posy:z$(f)(56)=len:z$(f)(7)=dir:f n7f=521:f,0;"":f qi"":#0;1;6;"";0;" ROGTON VEGZEK ";1;"" vue$(17,17):f=117:g=117:x$(f,g)=32 x$(f,g)=((*25)+65A) e$(g)(f)=x$(f,g):g:f 1,33!:"":f=521:f,0;"#":.01z# =,33!:f:f=215-1:f,0;e$(f-4):.01z# =,33!:f 0"":#0;"NYOMD AZ ""F""-T,HA FELADOD...." AZ IRANYITAS posy=9  posy,18;"" m=10 .1}L,33!:posy,18;" ":posy=posy+1:posy=npal+9 posy=npal+8 c=11 .1}L,33!:posy,18;" ":posy=posy-1:posy=8posy=9 ="0"6000p ="P"9500%  ="F"100d  2020 A PROGRAM ESZE  5050 f=23300[233440[ a:f,a f: 58:,176,92\,71G,58:,177,92\,79O,62>,0,22,4,245,205,30,91[,126~,15,119w,241,60<,21,200,195,16,91[,245,120x,230,24,246,64@,103g,241,132,103g,120x,230,7,15,15,15,129,111o,201 |SAJAT GRAFIKA  5550 f="a""i"+7 a:f,a f: 251,23,47/,223,0,0,0,0,123{,177,218,239,180,24,176,240,144,144,144,160,208,176,112p,240 222,141,219,247,45-,24,13 ,15,9 ,9 ,9 ,5,11 ,13 ,14,15,15,13 ,24,45-,247,219,141,222 0,0,0,0,239,23,11 ,253,240,176,24,180,239,219,177,123{,126~,195,165,129,165,153,195,126~ pOSSZEKEVERTEM MINDENT zx1=z$(posy-8)(2):y1=z$(posy-8)(34):len=z$(posy-8)(56):dir=z$(posy-8)(7) 6000p+100d*dir Bx2=x1+(len-1):y2=y1:stx=1:sty=1:6900 8Cx2=x1-(len-1):y2=y1:stx=-1:sty=1:6900 Bx2=x1:y2=y1+(len-1):stx=1:sty=1:6900 Cx2=x1:y2=y1-(len-1):stx=1:sty=-1:6900 dPx2=x1+(len-1):y2=y1+(len-1):stx=1:sty=1:6950& Rx2=x1-(len-1):y2=y1-(len-1):stx=-1:sty=-1:6950& ,Qx2=x1+(len-1):y2=y1-(len-1):stx=1:sty=-1:6950& Qx2=x1-(len-1):y2=y1+(len-1):stx=-1:sty=1:6950& 23672x\+256*23673y\:bright=(*2):ink=(*7)+1:f=x1x2stx:g=y1y2sty:col=f-1:fil=g+4:fil,col;1;1;ink;bright;" ":23728\,fil:23729\,col:v=18:23300[:.01z# =,33!:v:g:f: &s23672x\+256*23673y\:bright=(*2):ink=(*7)+1:f=0len-1:col=((x1+f)-1stx=1)+((x1-f)-1stx=-1):fil=(y1+f+4sty=1)+(y1-f+4sty=-1):fil,col;1;1;ink;bright;" ":23728\,fil:23729\,col:v=18:23300[:.01z# =,33!:v:f: X KEPERNYO ][t$=" SZOKERESO JATEK NYITRAISOFT JATEKGYAROS 2004' MAJUS" b2;1,6;t$ l5;0,0;"";5;4,0;"";5;21,17;" " vHf=13:5;f,0;"";5;f,31;"":f 5;4,31;"":f=520:5;f,17;"";5;f,31;"":f:5;4,17;"" 11: f=170 140 -2:1: 5,f: 245,0: f:0 [4:f=5212:f,0;"":.1}L,33!:f \f=205-2:4;f,0;"":.1}L,33!:f [3;7,18;"KERESENDOK:";2;7,18;1;" _" f=1npal:a$=p$(f):7500L:g=1v:8+f,18+g;a$(g):23728\,8+f:23729\,18+g:.01z# =,0:23300[:g:f  L(v=110 :a$(v)32 v Q v=v-1 V a$=a$(v) ` ag0;21,0;a$,:v=115:g=115:v,g;x$(g,v):0:g:v: @ BEOLVASAS T%85004!:v=0npal-f:c$:v ^1:2;11 ,2;" MAR CSAK";(" "npal-f1);(" "npal-f=1);12 ,2;" ";c$;13 ,2;" SZO VAN";(" "npal-f1);(" "npal-f=1);14,2;" HATRA " c 0 h !3SZAVAK SZAMA !4"AZ UTOLSO ","EGY ","KETTO ","HAROM ","NEGY ","OT ","HAT ","HET ","NYOLC ","KILENC " #( MAGYARAZAT #2A$="EBBEN A JATEKBAN 10 HOSSZU ES MAX.10 DARAB SZOT KELL AZ ELE- JEN BEIRNUNK,MELY @F #  885 REM SZOKERESO JATEKSPECTRUM 10 REM JATEKGYAROS 2004' 15 GO SUB 5000: GO SUB 550020 BORDER 0: PAPER 0: INK 7: CLS : POKE 23658,8 22 REM poke 23607,246 90 PRINT AT 9,9;"SZOKERESO": LZET a$=" JATEK": FOR g=1 TO 10: FOR f=1 TO 7: PRINT AT 11,f+11;a$(f): POKE 23728,11: POKE 23729,f+11: BEEP .05,33: RANDOMIZE USR 23300: NEXT f: NEXT g 95 INK 7: PAUSE 200: GO SUB 90_0096 BORDER 0`100 REM A SZAVAK BEKERESEd110 CLS : INPUT "HANY SZO LESZ?n (MAX. 10): ";npal: IF npal>10 OR npal<1 THEN GO TO 11  PPhOYPGOB.OYPGFOOO .FOOOALF N8.ALF .CASY1".CAS. .UO:. .U.P.BL .P.B"O. CG"O. :F"8 O:F"8OYPGOOOYPGFOOO LFOOOALF NCALF .CASY .CAS. .UOOP. .U.P.BL O.P.B"O. CNF"O. :F"8 YA:F"8OYPGOOOYPGFOOO LFOOOALF NCALF .CASY .CAS. .UOPO. .U.P.BLO .P.B"O. CFN"O. :F"8 AY:F"8OYPGO.BOYPGFOOO . FOOOALF N.8ALF .CASY"1.CAS. .UO:. .U.P.BL .P.B"O. CG"O. :F"8 O:F"8OYPGO "OYPGFOOO S:FOOOALF NU ALF .CASYBG.CAS. .UO O. .U.P.BL8 .P.B"O. C1S"O. :F"8 U:F"8OYPGO OYPGFOOO PFOOOALF NOALF .CASYF.CAS. .UOA. .U.P.BL..P.B"O. C."O. :F"8 O.:F"8OYPGO1OYPFOOO OOFOOALF N ALF.CASYNN.CA. .UOYY. ..P.BLOO.P."O. CLL"O.:F"8 CC:F"81" SO NO:NU ONY YBS YONGO UNOLYOL8BOYLCO C1 OC LS 8NL PCUP1YCPO8p8A 25,128:SNUN 1OTU UOTBOTPOFABGB O AL O NA8NAFN.A8 8YT1YTAY.L1S1O O .O.AUL2L2.OL"NBC0C0. C:D8SOLYYNUFFFOULCOOYBAAA BC LLO ...S PCCL8...U8PO C1...B1OFPP """ FOAOOPO:::8A .FFO 18''00 ": POKE 23728,fil: POKE 23 ": POKE 23728,fil: POKE 23 ": POKE 23728,fil: POKE 23 ": POKE 23728,fil: POKE 23 ": POKE 23728,fil: POKE 23 ": POKE 23728,fil: POKE 23 ": POKE 23728,fil: POKE 23 ": POKE 23728,fil: POKE 23 ": POKE 23728,fil: POKE 23 ": POKE 23728,fil: POKE 23 ": POKE 23728,fil: POKE 23 ": POKE 23728,fil: POKE 23 ": POKE 23728,fil: POKE 23 ": POKE 23728,fil: POKE 23 ": POKE 23728,fil: POKE 23 ": POKE 23728,fil: POKE 23 ": POKE 23728,fil: POKE 23 ": POKE 23728,fil: POKE 23 ": POKE 23728,fil: POKE 23n7066300 LET x2=x1: LET y2=y1+(len-1): LET stx=1: LET sty=1: GO TO 6900ND *7)+1: FOR f=x1 TO x2 STEP stx: FOR g=y1 TO y2 STEP sty: LET col=f-1: LET fil=g+4: PRINT AT fil,col; INVERSE 1; OVER 1; INK ink; BRIGHT bright;" ": POKE 23728,fil: POKE 23729,col: FOR v=1 TO 8: RANDOMIZE USR 23300: BEEP .01,33: NEXT v: NEXT g: NEXT f: RETURN 3: NEXT v: NEXT f: RETURN GO TOZEQP01@0&00 00!!! !0!> @!P!G( ~#(S:>2 > ~G#(x>>yQ!ta8߾ #(7 (~#(ܷxQ8SPECTRUt݇ [u