6,#6:,#6dH. nP.AT168,"*****************" xP.AT200,"** Z I U L **" P.AT232,"*****************" P.AT294,"DEJAN RISTANOVI\ 84." P.AT0,""; P.AT480,""; F.I=32TO448STEP32 P.ATI,"";ATI+30;"";:N.I: A=KEY(0):H. P.AT12,"* ZIUL *" P.AT44,"" P. P." TREBA DA UPRAVLJA^ PATULJ-":P."KOM ZIULOM KOJI SE IZNENADA NA-":P."^AO U TAJANSTVENOM LAVIRINTU -" P."DOMU STRA^NOG [AROBNJAKA MAR-":P."DUKA. MARDUK, NA SVU SRE\U, NI-":P."JE KOD KU\E ALI MNO^TVO ZLIH" P."DUHOVA KOJI ]IVE U LAVIRINTU SA":P."NESTRPLJANJEM O[EKUJU NJEGOV":P."POVRATAK SVAKOGA TRENUTKA." P." JEDINI NA[IN DA ZIUL SPASE":P."GLAVU JE DA NADJE SAKRIVENI":P."PRSTEN KOJI \E GA UPUTITI KA I-" P."ZLAZU KADA MU TO BUDE NALO]ENO.";:A=KEY(0):H. "P." MARDUKU JE VEOMA STALO DO":P."PRSTENA PA GA JE DOBRO SAKRIO":P."MASKIRAV^I GA U KRIVINU. ON JE,": ,P."MEDJUTIM, NAPRASNO NAPUSTIO DOM":P."PA MASKA NIJE SAVR^ENA - KADA":P."ZIUL NAGAZI NA FOL-KRIVINU BI\E" 6P."UPU\EN U SLEDE\U SOBU U PRAVCU":P."KRETANJA A NE U FIKSNU SOBU KAO":P."KOD OBI[NIH KRIVINA." @P." ZIUL MO]E DA UZME PRSTEN SA-":P."MO AKO PRONADJE NA[IN DA DODJE":P."U SOBU U KOJOJ JE OVAJ SKRIVEN." JP."PRI TOM \E MU MO]DA POMO\I AMU-":P."LETI KOJI SU RAZBACANI PO LAVI-":P."RINTU I [IJA SME^NA IMENA NE" TP."TREBA NIKAKO PODCENJIVATI I [A-";:A=K.(0):H.:P."ROBNI ^TAPI\ KOJI JE MASKIRAN U":P."JEDNOG OD DEMONA. SRE\NI VLAS-" ^P."NIK [AROBNOG ^TAPI\A MO]E DA SE":P."TELEPORTUJE UKOLIKO SE POMIRI":P."SA GUBITKOM SVIH AMULETA I NOV-" hP."CA KOJI POSEDUJE U TOKU LETA.":P."NOVAC, NAJPRE, MO]E DA POSLU]I":P."ZA POTPLA\IVANJE DJAVOLA (SVUDA" rP."TA KORUPCIJA) A NE SUMNJAMO DA":P."ZIUL MO]E FINO DA GA UPOTREBI":P."PO SPASAVANJU IZ LAVIRINTA (MO-" |P."]DA KUPI JEDAN RA[UNAR GALAKSI-":P."JA I PO[NE DA IGRA OVU IGRU!?)." P.:P."SLEDE KOMANDE KOJE ZIUL RAZUME:";:A=KEY(0):H. P."NORTH ILI N" P."SOUTH ILI S" P."EAST ILI E" P."WEST ILI W" P."MAPA ILI M" P."FENJER ILI F" P."LAMPA ILI L" P."BORBA ILI B" P."TELEPORT ILI T" P."KRAJ ILI K" A=KEY(0):H. P." PAR ZAVR^NIH NAPOMENA:":P.:P."(1) ZIUL JE PRESLAB ZA BORBU":P." AKO NEMA AMULET.":P. P."(2) AMULETI SE BRZO TRO^E":P.:P."(3) ZALIHA SVE\A ZA FENJER NI-":P." JE NEOGRANI[ENA." P.:P."(4) DJAVOLI NE VOLE SVETLOST!" A=KEY(0):H. &P." ZA UNO^ENJE BITNOG DELA OVOG":P."PROGRAMA OTKUCAJTE OLD. PROG-":P."RAM SE ZATIM STARTUJE SA RUN." 0P.AT360; V6 6,=<-=<> !(m,!v,( !(m,')!,>2+!,"+  >*w#* Z I U L *D. RISTANOVI\ 84.w( [( ,!,Ú!,ÚMATìMAT̬,`,E :+oͼ (ͼ =0Ïͼ 2 m 7! ZA=U.(&2C3A):B.&2BB2,10:A.(29) dT.0:F.I=0TO16:T.X$(I):N.I:F.I=20TO29:T.X$(I):N.I nH.:P." OTKUCAJ NIVO IGRE:":P."(1 = POCETNIK, 6 = MAJSTOR)";:I.N:G=0 xIF(N<1)+(N>6)G.110:E.H=0 }M=110+I.(R.*(12-N)):S=10 F.I=1TO9:F.J=1TO9:MAT(I,J)=100:N.J:N.I:F.I=0TO9:MAT(0,I)=0:N.I A=103:C.1000:A=101:C.1000 F.I=1TO18+R.*N A=I.(RND*89+11):IFA/10=I.(A/10)G.160:E.C.1000:N.I:U=A F.I=1TO7:A=I*100+100:C.1000:N.I F.A=1TON+4:C.1000:N.A:A=104:C.1000 R=I.(R.*(N+4)+1) H.:P."OK, ZIUL, STIGAO SI U LAVIRINT" P."NALAZIS SE U SOBI";Y;X P.:P."STA HOCES DA URADIS? ";:I.X$:P. F.I=0TO9:IFEQX$,X$(I)G.1000*I+2000:E.IFB.(P.X$)=B.(P.X$(I))G.1000*I+2000 N.I:P."ZIULI SU GLUPI!?" M=M-1:IFM>0G.220 ,P.:IFH=2E.P."VRATI0 SE GLADNI CAROBNJAK,":IFH=1H=2:P."ALI TE PRSTEN STITI":G.220:E.G.2220 6P."NEKI ZIULI ZNAJU DA PREKINU;":P."OSTALE POJEDE CAROBNJAK.":G.2230 X=I.(R.*9+1):Y=I.(R.*9+1):IFMAT(X,Y)=100E.G.1000 IFA=I.(10*Y+X)G.1000:E.MAT(X,Y)=A:R. L#"NORTH","SOUTH","EAST","WEST","MAPA","LAMPA","BORBA","KRAJ","TELEPORT","FENJER" V#"PRLJAVO ZUTO","MEKA STENA","SJAJNA ZICA","OPALNO OKO","PLAVI PLAMEN","PALANTIR","SILMARIL" `#"SCHLOCK","YNGVI","GOLLUM","MARDUK","LOKI","AZATOTH","DAGON","ABRACAX","SAURON","SATAN" Z=-1:T=0 X=X+Z:Y=Y+T:IFX<1X=9:E.IFX>9X=1:E.IFY<1Y=9:E.IFY>9Y=1 P."DOSAO SI U SOBU ";Y;X A=MAT(X,Y):IFA<0A=-A IFA=103MAT(X,Y)=-A:G.2002 IFA<200G.2100 P."TU JE ";X$(8+A/100) MAT(0,A/100-2)=2+I.(R.*2) MAT(X,Y)=104:A=104:G.260 4IFA=101P."I NASAO SVECE":S=S+10:G.2050 >IFA=104P."I NAISAO NA SVOJE TRAGOVE!":G.260 HIFA>10G.2310 MIFA=RP."I TU NASAO CAROBNI STAP!":R=10:G.2050 RP."OH, NE!":P."TU JE ";X$(A+19):I=0 \IFMAT(0,I)>0P."ALI TE ";X$(10+I);" STITI!":MAT(X,Y)=-A:G.260 fI=I+1:IFI<7 G.2140 pP.X$(A+19);" JE VEOMA PODMITLJIV;" zP."KOLKO DUKATA OCES DA MU DAS";:I.P:IFP>GP.:P.X$(A+19);"UVEK JEDE VARALICE,":G.2220 IFP<10+R.*5P.:P.X$(A+19);" TE JE SMRVIO!":G.2230 P.X$(A+19);" TE OSTAVLJA NA MIRU -":P."...ZA SADA!":G=G-P:MAT(X,Y)=-A:G.260 P."PA TE JE POJEO!" P.:P."I TAKO SI IZGUBIO!" P.:P."OCES OPET";:I.X$:IFB.(P.X$)=68P.:P."NEKI ZIULI NIKADA NE UCE!":F.I=1TO1000:N.I:G.100 P."DOBRO DA SI SE OPAMETIO":S.  IFA<100MAT(X,Y)=-A:Y=I.(I.(A/10)+.5):X=I.(10*(A/10-Y)+.5):G.2010  P=I.(R.*5+1):G=G+P:P."I TU NASAO";P;" ZLATNIKA":P."IMAS ";G;" ZLATNIKA":G.2050 Z=1:T=0:G.2002 G.2010 Z=0:T=1:G.2002 Z=0:T=-1:G.2002 G.2010 pP=U.(14):H.:F.I=1TO9:F.J=1TO9 zB=MAT(I,J):IFB<0B=-B IFB=104P." T";:G.6500 IFMAT(I,J)>-1P." ??";:G.6500 IFB=100P." $$";:G.6500 IFB>10G.6100E.P." D"; B.W.(&2A68),B+47:W.&2A68,W.(&2A68)+1:G.6500 IFB>199B=B/100-1:P." A";:G.6050 IFB=101P." S";:G.6500 IFB=103B=U P.B; dN.J:P.:N.I:P=U.(22):G.210 XP."NA KOJU STRANU GLEDAS";:I.X$:Z=0:T=0:B=B.(P.X$) bIFB=78Z=-1:E.IFB=83Z=1:E.IFB=69T=1:E.IFB=87T=-1:E.P." SVASTA":G.7000 lI=X+Z:J=Y+T:IFI=0I=9:E.IFI=10I=1:E.IFJ=0J=9:E.IFJ=10J=1 nB=MAT(I,J):IFB<0B=B qMAT(I,J)=-B:IFB<10P.:P."PROBUDIO SI DJAVOLA!":P."I ON TE JE POVUKAO...":X=I:Y=J:G.2010 vP."VIDIS ";:IFB>199P."AMULET":E.IFB=101P."SVECE":E.IFB=100P."PARE":E.IFB=104P."SVOJ TRAG":E.P."KRIVINU" G.260 @IFA<11E.P."PRVO NADJI DJAVOLA PA SE BORI!":G.260 EP."OTKUCAJ BROJ AMAJLIJE KOJOM BI":P."DA NAPADAS";:I.P:IFMAT(0,P)<1P." DA - SAMO STO JE NEMAS":G.260 JP.X$(P+10);" NAPADA I":P.X$(A+19);" STRADA OSTAVLJAJUCI":MAT(0,P)=MAT(0,P)-1 OP=I.(RND*40+10):P.P;" ZLATNIKA.":G=G+P:G.2050 (#IFH=0P.:P."IGRU SI,NARAVNO,IZGUBIO!":E.P.:P."IGRU SI (ZACUDO) DOBIO!!!":P."I OSTAJE TI";G;" DUKATA" <#G.2240 'IFR<10P."LUDACKI JE TELEPORTOVATI SE BEZ":P."CAROBNOG STAPA!!!":G.260 'P."GDE HOCES DA SE TELEPORTUJES?":P."X KOORDINATA ";:I.Y:P."Y KOORDINATA ";:I.X:G=0:F.I=0TO6:MAT(0,I)=0:N.I 'IF(MAT(X,Y)=103)+(MAT(X,Y)=-103)P."***** PRSTEN *****":H=1:G.2050 $'G.2010 *S=S-1:IFS<0P."NEMAS SVECA":G.260:E.F.I=X-1TOX+1:F.J=Y-1TOY+1:IF(I<1)+(I>9)G.6500 +IF(J<1)+(J>9)G.6500:E.B=MAT(I,J):IFB<0B=-B +MAT(I,J)=-B:G.6020