ZXTape!0Created with Ramsoft MakeTZXkostka Lx 100d  "set""a" d$6:0:9 :1 n x?17,0;6;" *** SZKLANA KOSTKA *** " -5;" IDEALNIE SYMULUJE PLASTYKOWA " -4;" *** TYLKO JEJ NIE ZBIJ! *** " 1000 2000 9 :1 617,0;"Wcisnij: klawisz koloru,potem" $"'T' lub 'R': obrot sciany zgodny" $"lub niezgodny z ruchem wskazowek" 0:0 ,k=0:m$="":2500  m$="" 617,0;"Jesli masz ochote uporzadkowac " $"kostke wcisnij klawisz 'u'. " $"Jesli spieszy Ci sie wcisnij 'h'"  3000  k$="h" &7k$="u"600X:7200 :5000:2500 0.5,-40(:530 X617,0;"Przytrzymaj klawisz 'h' dla " b$"zatrzymania porzadkowania kostki" f$"Wcisnij 'r' do ponownej kontroli" l a(6,14) e=19 c=16 a(c,e)=c+1 c e $(f=16:e=10 14 .a(f,e) 8e:f B2,3,4,5,6,3,1,5,6,4,1,2,6,4,5,6,5,1,3,2,4,6,2,1,6,5,4,3,2,1 Lu(546,2) Ve=1546 `f=12 ju(e,f) o.008zn,e tf:e ~7,8,6,10 ,5,12 ,7,12 ,9 ,12 ,10 ,10 ,11 ,8,9 ,8,8,10 1,7,2,9 ,3,11 ,4,9 ,5,7,4,5,3,3,2,5,3,7 7,18,5,18,3,18,2,20,1,22,3,22,5,22,6,20,4,20 7,23,8,25,9 ,27,10 ,25,11 ,23,10 ,21,9 ,19,8,21,9 ,23 11 ,6,10 ,4,9 ,2,7,2,5,2,6,4,7,6,9 ,6,8,4 3,28,5,28,7,28,6,26,5,24,3,24,1,24,2,26,4,26 a$(6,4) a$(1)="" a$(2)="" a$(3)=a$(1) a$(4)=a$(2) a$(5)="" a$(6)=a$(5) @4b(8):c(4,3):d(4,3) r.s=14:t=13:d(s,t) |t:s a5,4,3,3,2,1,7,6,5,1,8,7  f=16 e=19 z=e+9 *f-9 :a(f,e) lu(z,1),u(z,2);a$(f,12):u(z,1)+1,u(z,2);a$(f,34) .006yD,f*e e f  9   4 e=opy >f=a(k,e+9 ) H c=mny R)z=f*9 -9 +d(e,c):a(f,d(e,c)) \zu(z,1),u(z,2);a$(f,12):u(z,1)+1,u(z,2);a$(f,34):.004yn,z fc:e  p=vwy $z=k*9 -9 +p:f=k:a(k,p) zu(z,1),u(z,2);a$(f,12):u(z,1)+1,u(z,2);a$(f,34):.004yn,z p  9  3000 k$="q"500 *k$="t"k02800 :2500 *k$="r"k02600( :2500 /k$<"2"k$>"7".5,-40(:2500 5000 k06000p k=k$-1 6000p 2500 ( 7100 - 4000 2s=18 <%t=s+2:t>8t=t-8 F a(k,s)=b(t) Ps Zs=14 _5g=a(k,s+9 ):x=s+1:x=5x=1 dt=13 na(g,d(s,t))=c(x,t) xt:s Nv=8:w=1:o=4:p=1:m=3:n=1:y=-1 21004  7100 4000 s=18 %t=s-2:t<1t=t+8  a(k,s)=b(t) s "s=14 '5g=a(k,s+9 ):x=s-1:x=0x=4 ,t=13 6a(g,d(s,t))=c(x,t) @t:s JMv=1:w=8:o=1:p=4:m=1:n=3:y=1 T 21004 ^ ""3000 =""3010 k$= .01z# =,40(  s=18  b(s)=a(k,s) s s=14 g=a(k,s+9 ) t=13 c(s,t)=a(g,d(s,t)) t:s  ;14,0;31;29;28;32 ڰk$ $"Punkt na centralnym kwadracie " $"okresla sciane do obrotu. " $"Aby ulozyc kostke wcisnij 'q'. " 12 ,14;"FRONT":14,15;0;ٰk$;a$(k$-1,12);15;a$(k$-1,34) 8:8:1 (14,15;"";15;"" 0:9 :0 | p3qb=u(k*9 ,1):qb1=u(k*9 ,2) u8:8:1 zqb,qb1;"" qb+1,qb1;"" 9 :0:0  m$=""7130 2k=m$(1)k$m$(2)m$=m$(3):  m$=k$+m$  m$=k+m$   6000p >k=m$(1) H!k$=(k+1):t$=m$(2) Mm$=m$(3) R5010:6000p \t$="t"2605- ft$="r"2805 k="h"7275k m ="r" pm$""7200  z #' #("kostka"5 #)"set""a",168 rrz6kbgxvwo mnyTr!6                  +AAMK set XL0 8