ZXTape! PAKMEN II '4:0:0:4: ctrl=0:p$="@" ke$(21,32 ):a(4):b(4):a$(4):H$(3):t(5):r$(5,20) max=0 p=0:v=5  n=0 ( 5U1,1," ",1,29," ",19,1," ",19,29," " 6=e$(1)="################################":e$(1) 7=e$(2)="#******************************#":e$(2) 8=e$(3)="#.#.#######.###########*###*##*#":e$(3) 9=e$(4)="#*********#*##*#####*##*****##*#":e$(4) :=e$(5)="#*#*#####*#*##*#####*##*#*#****#":e$(5) ;=e$(6)="#*#*#####*#*##*#####*##*######*#":e$(6) <=e$(7)="#*#*********##*******##***##*#*#":e$(7) ==e$(8)="#*#**##*#*####*#####*####*#****#":e$(8) >=e$(9 )="#*##*####******#***#*********#*#":e$(9 ) ??e$(10 )="#*############*#*#*#*#######*#*#":e$(10 ) F?e$(11 )="#****************#*#*#######*#*#":e$(11 ) G?e$(12 )="#*############*#*#*#*#######*#*#":e$(12 ) H?e$(13 )="#*##*####******#***#*********#*#":e$(13 ) I?e$(14)="#*#**##*#*####*#####*####*#****#":e$(14) J?e$(15)="#*#*********##*******##***##*#*#":e$(15) K?e$(16)="#*#*#####*#*##*#####*##*######*#":e$(16) L?e$(17)="#*#*#####*#*##*#####*##*#*#****#":e$(17) M?e$(18)="#*********#*##*#####*##*****##*#":e$(18) N?e$(19)="#.#.#######.###########*###*##*#":e$(19) O?e$(20)="#*****.************************#":e$(20) P?e$(21)="################################":e$(21) n n=n-5 s N=250 u0H=10 -10 -.5:.02{# =,H:H xi=14 "x=(*21):y=(*31) (x,y)="*"n=n-1 x,y;1;"%";0:i 3a=9 :b=17:1:a,b;"&":0 0:i=14 a(i),b(i),a$(i) i r=0 i=14 a,b;" ":e$(a,b)=" " OLDA=A:OLDB=B ="5"b=b-1:p$="`" (="6")a=a+1:p$=":" (="7")a=a-1:p$="?" ="8"b=b+1:p$="&"  ctrl=ctrl (a,b)="#"A=OLDA:B=OLDB '(a,b)="*"n=n-1:p=p+10 "8(a,b)="%"r=30:1,20:p=p+20 ,ka,b;6;(p$ctrl=1)+("@"ctrl=0);0,0;n,p;" ";" ";max;0,8;v .'.01z# =,5:.01z# =,10 1v0490 6 r=r-1 @"a(i),b(i);e$(a(i),b(i)+1) Ja(i)>aa(i)=a(i)-1 Ta(i)Bb(i)=b(i)-1 hb(i)0.1}L,10 a(i)=ab(i)=b420 n=0:30 i:210 .r0p=p+502:1.25 ,25 *r<0v=v-1:1,-5 v0:490 i=14 a(i),b(i);a$(i) i  170  :"K*R*A*J" ""IMAS^^^^ ";P;" ^^^POENA^^^" GP>t(5)"UNESI SVJE IME ";r$(5):t(5)=P:1000 0"REKORD DRZI ";r$(1);" SA ";MAX;" POENA" ="D"Ŧ="d"20 ="N"Ŧ="n"""  520 X3H$(1)="#":H$(2)="%":H$(3)="*" b A$(I)=H$((*3+1)) lA(I),B(I);A$(I) v (i=14:j=i+15 t(i)>t(j)1060$ fff=t(i):t(i)=t(j):t(j)=fff !f$=r$(i):r$(i)=r$(j):r$(j)=f$ $j:i .;i=15:i;".";5;r$(i);25;t(i):i 3max=t(1) 8 510 U1,1," ",1,29," ",19,1," ",19,29," " '4"":236066\,64@:236077\,216: C x@z$$å>(> >bd&F>||~  >> <~wcA >>~8>~<>BB<DHpHDB@@@@@~BfZBBBBbRJFB>|8