˪M?{!6D:\!680 X123457|8|8|8M|8 |8M8uuD33u2u3u3u56e3Y'Zv>T|>T|~~~~||((|(|>#&#= $$$~$$~$>(> >bd&F(*D:  >>> ||8X~|||>|<| |||800||||~~| >>)opppp*~~o~~~~~l*~~||o|||~||||~~~|||~||||||8|||||||| (||||~||||||f|~~||||~~|||||||||~|||||||||~|~||f|~||~||~jf||||||||~f~~~~~~~f~~~jf8ffjf>||<||||||8|<8>>8j<|>8pppip~~~l~~i |||~|||||||~||||~|||||||||8|||||~|||||||~j|||||| @:\[2\[y[*Z[:\[2\[y!!:\[2\[y2\[y0 PAh] h]g][+! ?8E9E98E99E99E99E9E99E99|8lM8 ['lh)J?z& g&D # @QT0$0$.$s r\\]s9q0u1uts3u3u8u\#Dȃ X!PP!!$PW!{"\ PSt" K SR PNYITRAI BASIC 1998' POKE 23606,150 POKE 23607,162 KEZETES BETK  BETUKOD 41852,768 UDG CODE USR "A",168 $0:0:0:0 NAGYBETRE LLTVA POKE 23658,0 7:1:0:  9000(# d keyboard nk$= p k$="H"8000@:85004! q k$="Q" s(k$<"5"k$>"8")110n uSCORE=SCORE-1 x0k$="5"k$="6"k$="8":1200:85004! k$="7"1000:85004! Vmazey=exitymazex=exitx1;1,3;" KIJUTOTTL,PONTSZMOD:";score: 100d  move forward a(d$="N"mazey=1)(d$="S"mazey=15)(d$="E"mazex=15)(d$="W"mazex=1) 'd$="N"m$(mazey-1,mazex)" " 'd$="S"m$(mazey+1,mazex)" " 'd$="W"m$(mazey,mazex-1)" " 'd$="E"m$(mazey,mazex+1)" " <mazex=mazex+(d$="E"mazex15)-(d$="W"mazex1) $<mazey=mazey+(d$="S"mazey15)-(d$="N"mazey1) turn @k$="5"d$=("W"d$="N")+("S"d$="W")+("E"d$="S")+("N"d$="E") @k$="8"d$=("E"d$="N")+("N"d$="W")+("W"d$="S")+("S"d$="E") @k$="6"d$=("S"d$="N")+("E"d$="W")+("W"d$="S")+("W"d$="E")  E2000+(200d$="W")+(400d$="N")+(600Xd$="S")  facing east m=015-mazex  x=6*m _mazey=157000X:4000+(2000m$(mazey-1,mazex-m)=" "):2070 ^mazey=16000p:5000+(2000m$(mazey+1,mazex+m)=" "):2070 74000+(2000m$(mazey-1,mazex+m)=" ") 75000+(2000m$(mazey+1,mazex+m)=" ") Emazex+m+115m$(mazey,mazex+m+1)" "3500  m *  facing west m=0mazex-1  x=8*m _mazey=156000p:5000+(2000m$(mazey-1,mazex-m)=" "):2270 ^mazey=17000X:4000+(2000m$(mazey+1,mazex-m)=" "):2270 74000+(2000m$(mazey+1,mazex-m)=" ") 75000+(2000m$(mazey-1,mazex-m)=" ") Dmazex-m-11m$(mazey,mazex-m-1)" "3500 m  `facing north jm=0mazey-1 t x=m*8 y_mazex=157000X:4000+(2000m$(mazey-m,mazex-1)=" "):2470 z^mazex=16000p:5000+(2000m$(mazey-m,mazex+1)=" "):2470 ~74000+(2000m$(mazey-m,mazex-1)=" ") 75000+(2000m$(mazey-m,mazex+1)=" ") Dmazey-m-11m$(mazey-m-1,mazex)" "3500 m  (facing south 2m=015-mazey < x=8*m A_mazex=156000p:5000+(2000m$(mazey+m,mazex-1)=" "):2670n B^mazex=17000X:4000+(2000m$(mazey+m,mazex+1)=" "):2670n F74000+(2000m$(mazey+m,mazex+1)=" ") Z75000+(2000m$(mazey+m,mazex-1)=" ") nEmazex+m+115m$(mazey+m+1,mazex)" "3500 xm  wall ahead x=x+8 4x,x*5/8:255-(2*x),0 Sx,x*5/8+175-(10 *x/8):255-(2*x),0  draw blocked off wall on left x,x*5/8 8,5 (0,165-(10 *x/8) -8,5   draw blocked off wall on right 255-x,x*5/8 -8,5 '0,165-(5*x/4) 8,5  pdraw open corridor on left zx,x*5/8+5 8,0 '0,165-(5*x/4) -8,0  Xdraw open corridor on right b'255-x,x*5/8+5 l-8,0 v'0,165-(5*x/4) 8,0  @help J O'''' Ta=115 ^8;m$(a) ha r+9 ;mazey+3,mazex+7;"*" sZexity=1exity=152+(18exity=15),exitx+6;"KIJRAT" t3exity>1exity<15exity+3,4+(20exity=15);"Out" u^entryy=1entryy=152+(18entryy=15),entryx+6;"INDULS" v6entryy>1entryy<15entryy+3,5+(19entryx=15);"In" {"score=score-20:85004! | 100d: E2000+(200d$="W")+(400d$="N")+(600Xd$="S")  !4melyik iranyba ? !9score<0score=0 !>h#1;1,0;"IRNYOD MOST ";"SZAK"d$="N";"DL"d$="S";"KELET "d$="E";"NYUGAT "d$="W" !C=#1;1,26-score;1;"PONT=";score !M #2A LABI ADATAI #<" " #F" " #P" " #Z" " #d"  " #n"  " #x" " #"  " #" " #" " #"  " #"  " #" " #" " #" " #!entryx=8:entryy=15 #exitx=8:exity=1 #m$(15,15):maze # 9020<# #m=115 $m$(m) $m $mazex=entryx $"mazey=entryy $,d$="N" $-?:" LABIRINTUS":.05|L,0:.07}\(,12 $.5,1;"A JTKOT A NYILKURZORRAL LEHET IRNYITANI,SEGITSGET A 'H' BETVEL KRHETSZ.KEZDPONTSZ- MOD 320,MINDEN LPS EGY PONT, MINDEN SEGITSGKRS 20 PONT LEVONSSAL JR.AZ AKTULIS HELYZETEDET A '*'-JELZI." $/':::" NYOMD A SPACE-t,HA KEZDNK." $0=""92640$ $1score=320@ $2 8000@ $3 85004! $6 2400` $J 85004! $T $"maze"10 ntryntryxitxit           #azeazeDN ss* KURZORRAL LEHET IRNYITANI,SEGITSGET A 'H' BETVEL KRHETSZ.KEZDPONTSZ- MOD 320,MINDEN LPS EGY PONT, MINDEN SEGITSGKRS 20 PONT LEVONSSAL JR.AZ AKTULIS HELYZETEDET A '*'-JELZI."  @ #  n 882620 LET x=8*m <2625 IF mazex=15 THEN GO SUB 600 A0: GO SUB 5000+(2000 AND m$(mazey+m,mazex-1)=" "): GO TO 26702626 IF mazex=1 THEN GO SUB 7000 B: GO SUB 4000+(2000 AND m$(mazey+m,mazex+1)=" "): GO TO 26702630 GO SUB 4000+(2000 AND m$(ma Fzey+m,mazex+1)=" ")2650 GO SUB 5000+(2000 AND m$(ma Zzey+m,mazex-1)=" ")2670 IF mazex+m+1 >= 15 THEN IF  nm$(mazey+m+1,mazex) <> " " THEN GO TO 3500 SPECTRUM 2680 NEXT m x2690 RETURN  3500 REM wall ahead  3510 LET x=x+8 AP8hq8p8p8p8p8p8p8p8p8p8p8p8''3520 PLOT x,x*5/8: DRAW 255-(2*x ),0azey >= 1)azey >= 1)azey >= 1)azey >= 1)azey >= 1)azey >= 1)azey >= 1)azey >= 1)azey >= 1)azey >= 1)azey >= 1)azey >= 1)azey >= 1)azey >= 1)azey >= 1)azey >= 1)azey >= 1)azey >= 1)azey >= 1) 2470 IF mazex-m-1 >= 1 THEN IF m $(mazey-m-1,mazex) <> " " Tmazey-m,mazex+1)=" "): GO T"W" AND mazex=1) THEN RETURN < 351WNQP01@0&00 00!!! !0!> @!P!G( ~#(S:>2 > ~G#(x>>yQ!ta8߾ #(7 (~#(ܷxQ8SPECTRUtt [u