ZXTape! 0Created with Ramsoft MakeTZXHello h 59999_ 6:6: "" 0,0;:"" (0,0;:"" 20,0;:"" piccy 0u5UU?_UU_ՀU߀ 07W }U5WUUUWU݀Uj? ?{j{  ] UW׀UUUUW UՀ_ ?* *uWu|_?UUՀ_UUU u5? ?>* _UUX? UVp|?UUUUUU UVUPU_ ?~?򪪪 {?UU` WT? UU?UUUVxUXU<UT?UW{|?  :|~*{<UUUX_UUU_>UUUP?`U5UVUU{<*?𪪪*?j?{<UTUPWUUUW5UU@U>U`UUUUU{<?*{<UUOUUU_{<U_UV?{<_X UU(L >ffUUUUUUT`ꪪ{<{<?j&M ffUUUUUW{<UUP{<?5UU <<<<UUUUUU`{<ꪠ{<jUUUUUq{<?UU@{<_UUU_UUUUUU{<?{<nj<<<?UWUUU{<WV{|UW&M 8ff`UUUWUUUUT?{< (L f<|ꪪꪪ00000002444400000555550000000000000011024444000005555500000000220000110244440222255555000000002244001100000002222555550003333022<4000000000002222011111003333022<<444000022222222011111003333000<<444000022220000011111003333000<<<44000022220000011111110000000<<<<4440022220000011111111000000<<<<<440000044400011111111000000<<<<<<44000044400000111111000000<<<<<<<4444444400000011111000000<<<<<<<<444400000000011111000000<<<<<<<<<44411000000000000077770<<<<<<<<<<441004077770<<<<<<<<<<444444077770<<<<<<<<<<<44444077770<<<<<<<<<<<<4444077770<<<<<<<<<<<<<444000000<<<<<<<<<<<<<<444000000000000000<<<<<<<<<<<<<<<44000000000000000<<<<<<<<<<<<<<<<4444444444444444<<<<<<<<<<<<<<<<<444444444444444<<<<<<<<<<<<<<<<<<44444444444444grafix X?????rytin `R?X<|xxf<0 0`0 ~~`0 0`fff~fff~~ xflxlf```bf8ll8ff|``8lvff|lfff>|`lvff8<ff<`flxl8<lfffffff<ll8lfff>|~ 0~pppvnppl=1  400 X **PAUSE** b_9 ,25;6;0;"PRESS";10 ,26;"ANY";11 ,26;"KEY" l&.2~L,10 :.2~L,10 v""630v =""640 `9 ,25;6;0;" ";10 ,26;" ";11 ,26;" "  **PLAYERS NAMES** .3,10 : z=1np h8,12 ;"PLAYER ";Z;10 ,8;"YOUR NAME PLEASE";12 ,9 ;"(max 9 letters)" u$ %u$>10 űu$<1740 $u$=b$(̺(10 -u$)/2)+u$  w$(z)=u$ ,f=110 :.03{u\,f*3:f z  90Z **INSTRUCTIONS**  50,0;6;" ****L U D O****"  COL=4 *2,0;COL;"EACH PLAYER HAS 4 PIECES OF ONE COLOUR,THE IDEA IS TO GET ALL YOUR PIECES AROUND THE BOARD ANDBACK TO ~HOME~. TO GET A PIECE OUT INTO PLAY A SIX MUST BE THROWN.IF HOWEVER YOU HAVE PIECE(S) IN PLAY THE SIX MAY BE USED TO MOVE A PIECE ALREADY IN PLAY." K:COL;"PROMPTS ON THE RIGHT OF THE SCREEN WILL TELL YOU WHAT TO DO."  ::" PRESS ANY KEY " +COL=COL+1:COL>6COL=4 =""4020 :7:40( **CHOOSE PIECE** o(pl,1)+h(pl,1)=1o(pl,2)+h(pl,2)=1o(pl,3)+h(pl,3)=1o(pl,4)+h(pl,4)=1 >9 ,24;6;0;"CHOOSE";10 ,25;"YOUR";11 ,25;"PIECE";13 ,24;"MARKED";14,25;"~!#~";15,26;"%&";17,24;"Z-LEFT";18,24;"X-RIGHT";19,24;"O-UP";20,24;"K-DOWN";21,24;"P-SELECT"  6000p (0,10 )>568ink=((0,10 )-568):m$=(""inkpl)+("!#"ink=pl):n$=(""inkpl)+("%&"ink=pl):5030 ink=0:m$="":n$="" m=0:n=10 'm,n;ink;0;m$;m+1,n;n$ 6="z"ƫ(m,n-2)>557n>05100 +="x"ƫ(m,n+2)>5575150 6="o"ƫ(m-2,n)>557m>05200P 7="k"ƫ(m+2,n)>557m<215250 '="p".03{u\,20:5300  5040 **MARKER LEFT** 'm,n;7;ink;m$;m+1,n;n$ 8(m,n-2)=568m$="":n$="":ink=0 x(m,n-2)>568ink=((m,n-2))-568:m$=(""inkpl)+("!#"ink=pl):n$=(""inkpl)+("%&"ink=pl) !n=n-2:.02{# =,10  **MARKER RIGHT** #'m,n;7;ink;m$;m+1,n;n$ (8(m,n+2)=568m$="":n$="":ink=0 -x(m,n+2)>568ink=((m,n+2))-568:m$=(""inkpl)+("!#"ink=pl):n$=(""inkpl)+("%&"ink=pl) 2!n=n+2:.02{# =,10 K P**MARKER UP** U'm,n;7;ink;m$;m+1,n;n$ Z8(m-1,n)=568m$="":n$="":ink=0 _x(m-1,n)>568ink=((m-1,n))-568:m$=(""inkpl)+("!#"ink=pl):n$=(""inkpl)+("%&"ink=pl) d!m=m-2:.02{# =,10 } **MARKER DOWN** 'm,n;7;ink;m$;m+1,n;n$ 8(m+2,n)=568m$="":n$="":ink=0 x(m+2,n)>568ink=((m+2,n))-568:m$=(""inkpl)+("!#"ink=pl):n$=(""inkpl)+("%&"ink=pl) !m=m+2:.02{# =,10  **PIECE CHOSEN** ink=((m,n)) plink5050 9z=821:z,23;6;" ":z z=14 !x(pl,z)=my(pl,z)=n5370 z m$="":n$="":ink=0 **MOVE PIECE** f=1r1 ".x(pl,z)=0y(pl,z)<165500| ,_x(pl,z)=4y(pl,z)<4x(pl,z)=4y(pl,z)<20y(pl,z)165500| 6Py(pl,z)=16x(pl,z)<4y(pl,z)=16x(pl,z)<205550 @/y(pl,z)=20x(pl,z)<165550 JPx(pl,z)=16y(pl,z)>16x(pl,z)=16y(pl,z)>05600 T.x(pl,z)=20y(pl,z)>45600 ^Ny(pl,z)=4x(pl,z)>16y(pl,z)=4x(pl,z)>05650 h-y(pl,z)=0x(pl,Z)>45650 m 5700D nf o 6100 p 5800 r |**MOVE PIECE RIGHT** ?x(pl,z),y(pl,z);ink;7;m$;x(pl,z)+1,y(pl,z);n$ D(x(pl,z),y(pl,z)+2)=568ink=0:m$="":n$="" b(x(pl,z),y(pl,z)+2)568ink=((x(pl,z),y(pl,z)+2)-568):m$="":n$="" y(pl,z)=y(pl,z)+2 Mx(pl,z),y(pl,z);pl;"";x(pl,z)+1,y(pl,z);"":.04|# =,25  5485m **MOVE PIECE DOWN** ?x(pl,z),y(pl,z);ink;7;m$;x(pl,z)+1,y(pl,z);n$ D(x(pl,z)+2,y(pl,z))=568ink=0:m$="":n$="" b(x(pl,z)+2,y(pl,z))568ink=((x(pl,z)+2,y(pl,z))-568):m$="":n$="" x(pl,z)=x(pl,z)+2 Mx(pl,z),y(pl,z);pl;"";x(pl,z)+1,y(pl,z);"":.04|# =,25  5485m **MOVE PIECE LEFT** ?x(pl,z),y(pl,z);ink;7;m$;x(pl,z)+1,y(pl,z);n$ D(x(pl,z),y(pl,z)-1)=568ink=0:m$="":n$="" b(x(pl,z),y(pl,z)-1)568ink=((x(pl,z),y(pl,z)-1)-568):m$="":n$="" y(pl,z)=y(pl,z)-2 Mx(pl,z),y(pl,z);pl;"";x(pl,z)+1,y(pl,z);"":.04|# =,25  5485m **MOVE PIECE UP** ?x(pl,z),y(pl,z);ink;7;m$;x(pl,z)+1,y(pl,z);n$ &D(x(pl,z)-1,y(pl,z))=568ink=0:m$="":n$="" 0b(x(pl,z)-1,y(pl,z))568ink=((x(pl,z)-1,y(pl,z))-568):m$="":n$="" 5x(pl,z)=x(pl,z)-2 :Mx(pl,z),y(pl,z);pl;"";x(pl,z)+1,y(pl,z);"":.04|# =,25 ? 5485m D **HOME???** NWpl=1x(pl,z)=10 y(pl,z)=010 ,0;ink;m$;11 ,0;n$:g=2e(pl)*22:10 ,g;1;7;"";11 ,g;"":.02{# =,g*4:10 ,g;0;1;"";11 ,g;"":g:e(pl)=e(pl)-1:x(pl,z)=10 :y(pl,z)=g-2:h(pl,z)=0:5487o Xypl=2x(pl,z)=20y(pl,z)=10 20,10 ;ink;m$;21,10 ;n$:g=18(20-(e(pl)*2))-2:g,10 ;2;7;"";g+1,10 ;"":.02{# =,g*2:g,10 ;0;2;"";g+1,10 ;"":g:e(pl)=e(pl)-1:x(pl,z)=g+2:y(pl,z)=10 :h(pl,z)=0:5487o bgpl=3x(pl,z)=10 y(pl,z)=2010 ,20;ink;m$;11 ,20;n$:g=1820-(e(pl)*2)-2:10 ,g;3;7;"";11 ,g;"":.02{# =,g*2:10 ,g;0;3;"";11 ,g;"":g:e(pl)=e(pl)-1:x(pl,z)=10 :y(pl,z)=g+2:h(pl,z)=0:5487o lgpl=4x(pl,z)=0y(pl,z)=10 0,10 ;ink;m$;1,10 ;n$:g=2e(pl)*22:g,10 ;4;7;"";g+1,10 ;"":.02{# =,g*2:g,10 ;0;4;"";g+1,10 ;"":g:e(pl)=e(pl)-1:x(pl,z)=g-2:y(pl,z)=10 :h(pl,z)=0:5487o  5486n **LAND ON FULL SQUARE** F=14 g=14 0x(pl,z)=x(f,g)y(pl,z)=y(f,g)fpl5850 g:f  bs(f,g),t(f,g);5;f;"";s(f,g)+1,t(f,g);"":.3,20:.3,0 .o(f,g)=0:x(f,g)=s(f,g):y(f,g)=t(f,g)   **WINNER** z=14  Gx(win,z),y(win,z);win;1;"";x(win,z)+1,y(win,z);"" *z / COL=0 4z=0192 >Pz,22;6;col;w$(pl);z+1,22;col+1;" WINS " C.02{# =,Z*2 H 21,22;"PRESS ~P~" R="p"502 Wz \+col=col+1:col>3col=0 a 59404 p**HOLLOW PIECES** zq=14 ex(pl,q),y(pl,q);7;pl;7-2*(o(pl,q)=0);"!#";x(pl,q)+1,y(pl,q);"%&" q  **PRINT NORMAL** q=14 \x(pl,q),y(pl,q);7-2*(o(pl,q)=0);pl;"";x(pl,q)+1,y(pl,q);"" q  @**ROLL DICE** Jr1=(*6)+1 Tz=130 ^v2,27;0;7;d$(2);3,27;d$(34):d$=d$(3)+d$(2) h.02{# =,z*2:z rd$=" " |d1=(r1*4)-3 c2,27;0;7;d$(d1d1+1);3,27;d$(d1+2d1+3)  o(pl,1)+h(pl,1)=1o(pl,2)+h(pl,2)=1o(pl,3)+h(pl,3)=1o(pl,4)+h(pl,4)=18160 [o(pl,1)=1o(pl,2)=1o(pl,3)=1o(pl,4)=1 /pl=1g=0:g1=4:8300l 0pl=2g=16:g1=0:8300l 1pl=3g=20:g1=16:8300l 0pl=4g=4:g1=20:8300l \10 ,23;6;"ANOTHER";11 ,24;"PIECE?";12 ,25;"Y/N" M="y"q=10 12 :q,22;6;" ":q:8160 C="n"q=10 12 :q,22;6;" ":q:  8130 \10 ,23;6;" ";11 ,24;" ";12 ,25;" " z=14 o(pl,z)=1z o(pl,z)=1 **GET ONE OUT** Gx(pl,z),y(pl,z);5;0;"";x(pl,z)+1,y(pl,z);"" .pl=1x(pl,z)=0:y(pl,z)=4 &/pl=2x(pl,z)=16:y(pl,z)=0 00pl=3x(pl,z)=20:y(pl,z)=16 :/pl=4x(pl,z)=4:y(pl,z)=20 DBx(pl,z),y(pl,z);7;pl;"";x(pl,z)+1,y(pl,z);"" N 400 b l**CAN IT GO OUT** v(g,g1)=5688120 (g,g1)=568+pl "0,0,0,2,2,0,2,2,18,0,18,2,20,0,20,2,18,18,18,20,20,18,20,20,0,18,0,20,2,18,2,20 #' #(19000(#:z=0167:q:""+z,q:z #2I0,3,15,31,63?,63?,127,127 #