ZXTape! 0Created with Ramsoft MakeTZX╓SORTING C Cpg E  √:я""к х:▐0:█0 їм21,0; я"" ╒PICTURE @UАсї     <       А           АА<           А А                          ААА|B<■<■B|~~       └          └└~■          └ └           ■           ■  └└└BBDDbBBb@BBBB@@fBBBB@???        р          ?рр №          р р           №           №  рррBBBBR@BR<BBB|@|ZB@BB|        Ё          ЁЁ °          Ё Ё           °           °  ЁЁЁ|~BBJNBJ||BB@@B|@B|@        °          °° Ё          ° °           Ё           Ё  °°°@BDDFBBFB@DBB@@B@BBD@ ?       № ?         №№ ?р          № ?№           р  ?         р?  №№№@Bxx>B<<>  MACBRIDE 1983 << (X╫1,10 :їм21,0;" PLEASE STOP THE TAPE AND WAIT ":э4000а 2 ╫1,20:э3200А :∙ 7ч2:┌6:┘0:√ 12 ╦ёn$=n$(╠12 ) Z+·пn$>96`╦ёn$(1)=┬(пn$-32 ) [gїм16,11 -▒n$/2;" Hello ";n$;" ";м18,1;"Will you help me sort these ?" _ э3200А d┌7:┘0:√ n|їм1,10 ;┘2;┌6;"ЛГГГГГГГЗ";м2,10 ;"КSORTINGЕ";м3,10 ;┘2;"ОМММММММН" x}їм5,2;"Here is how you can help";м7,2;"Paddington to sort his box";м9 ,2;"of mosaics,";n$ ВДїм12 ,2;"He will hold up a shape and";м14,2;"you must tell him the box";м16,2;"that it goes in." М6їм19,0;"You can sort by SHAPE or COLOUR." Цo╫.5   ,25:юм1,4;"  ENTER  1 for SHAPES   2 for COLOUR ";╩t$ к-·t$<"1"┼t$>"2"╦╫1,-12 :ь150Ц ┤ёt=░t$(1) ╛ э3200А ╚М√:їм10 ,2;"Paddington has got 30 tiles.";м12 ,2;"How many of those can you";м14,2;"help him with,";n$;"?" ▄<╫.5   ,25:ю" Please  ENTER  how many.";╩a$ ц·a$=""╦ь220▄ ЁNыz=1╠▒a$:·пa$(z)<480┼пa$(z)>579╦╫1,-12 :ь220▄ ёєz ·K·░a$>30╦їм21,0;" Too many ";n$;". Again....?":ь220▄  ·a$="0"╦ь220▄ ёno=░a$ #щe(5,3):щs(no,2)  э3200А Д<х900Д:ыN=1╠5:уE(N,1),E(N,2):єN ОWф6,3,16,3,16,13 ,16,27,6,27 Шч5:┌7:┘0:√ ▐ёsc=0:х1000ш шыN=1╠5:уL,C Є┌N-((N-6)╞T=1) №DїмL,C;" ";мL+6,C;" ";мL+8,C;" " N·t=1╦їмl+7,c+2;┌7;┬(143П+n);" ";┬(143П+n) 5ыX=1╠7:їмL+X,C;" ";мL+X,C+8;" ":єX  !їмL+7,C+4;┌7;N  єN:┌7 Wф1,1,11 ,1,11 ,11 ,11 ,21,1,21 $8їм3,14;"ХЦ";м4,14;┘1;"ЧШ" LыN=1╠no Q<їм5,13 ;┌6;" Щ ";м6,13 ;" " V#ёS(N,1)=║(е*5)+1 [*э3100 :·ez╦ёno=n-1:ь1370Z `#ёS(N,2)=║(е*5)+1 jHїм4,12 ;┘S(N,2);┬(143П+S(N,1));┘1;"Ъ" oїм20,0;┌7;u$ t9їм21,0;" Which box does this go in ? " ~(ю" Please  ENTER  box number";╩g$ И.·g$<"1"┼g$>"5"╦╫1,-12 :ь1150~ Тёg=░g$(1) Ь%·g=s(n,t)╦ёsc=sc+1:ь1195л ж0ёsu=0:э3000╕ :·su=1╦ь1150~ л э2000╨ ░'ыz=1╠16:їмl,c;┌8;" " ║'ёl=l+(le(g,1)) ─'ёc=c+(ce(g,2)) ╬7їмl,c;┌8;┘s(n,2);┬(143П+s(n,1)) ╪+·l=e(g,1)╞c=e(g,2)╦ёz=16 ▌╫.2~L╠╠╠,30-2*Z тєz ь#ёe(g,3)=e(g,3)+1 ЎCёex=2-(6╞e(g,3)/3=║(e(g,3)/3)) 5ёe(g,2)=e(g,2)+ex-(2*ex╞g>3)  Rёe(g,1)=e(g,1)-(2╞e(g,3)/3=║(e(g,3)/3)) єn F э3200А Z0√:їм8,4;"Score - ";sc;" out of ";no dю("Another game ";n$);╩a$ n·a$=""╦ь1380d xэ3300ф :·az╦ь100d ▄Rїм12 ,2;"Goodbye ";n$;".";м14,2;"Thank you for your help." ц'ю" Anyone else want to help ?";╩a$ Ёэ3300ф :·az╦√:ь60< @aїм16,2;" Please come again next time ";м18,2;" I need help,";n$;"! " д ь1700д ╨[їм4,12 ;┘1;" а";м3,13 ;┘S(N,2);┬(143П+S(N,1)) ╒╫.2~L╠╠╠,10 ┌^їм3,13 ;" ";м4,12 ;┘S(N,2);┬(143П+S(N,1));┘1;"Ъ" 4-┌8:ёL=4:ёC=12 :·G=1╦■ > Є10 Ш7їм4,12 ;┘1;" Ы";м5,13 ;"Ь" в;їм6,12 ;┘S(N,2);┬(143П+S(N,1)) м$ёL=6:ёC=12 :·G=2╦■ ╢ Є10 №7їм4,13 ;" ";м5,13 ;┘1;" Э" @їм6,12 ;" ";┘S(N,2);┬(143П+S(N,1)) ёC=14:·G=3╦■  Є10 ` їм5,14;┘1;"Ю" j?їм6,14;" ";┘S(N,2);┬(143П+S(N,1)) tёC=15:·G=4╦■ ~ Є10 ─Hїм5,14;┘1;"Я";┘S(N,2);┬(143П+S(N,1)) ╬їм6,15;" " ╪ёL=5:ёC=15:■ ╕їм21,0;u$ ┬#╫1,12 :╫1,0 ╠3юм0,0;(" Are you sure ?";n$;" ");╩a$ ╓·a$=""╦ь3010┬ █ э3300ф р_·az╦╫1,-24:їм21,0;" If you say so ";n$;u$(╠12 -▒n$);"":■ ъёsu=1:■ >їм20,0;" Press  E  to end the game " 0їм4,13 ;" " АU╫1,0:їм21,0;"  Press  ENTER  to go on. " Е'ёez=0:·ж="e"┼ж="E"╦ёez=1:■ К"Є0:·пж╔13 ╦ь3200А Ф╫.5   ,25:■ ф;ёaz=0:·a$(1)="y"┼a$(1)="Y"╦ёaz=1:■ ю#·a$(1)="n"┼a$(1)="N"╦■ °Bю"Please  ENTER  yes or no ";╩a$:·a$=""╦ь3320°  ь3300ф Ят а$х4000а:ыN=1╠17:уG$ кыR=0╠7:уB ┤Ї└G$+R,B:єR:єN ╛ьф"A",255 ,255 ,255 ,255 ,255 ,255 ,255 ,255 ,"B",0,0,255 ,255 ,255 ,255 ,0,0,"C",1,3,7,15,31,63?,127,255  ╚Эф"D",60<,126~,255 ,255 ,255 ,255 ,126~,60<,"E",0,8,28,62>,127,62>,28,8 ╥Ёф"F",31,31,12 ,11 ,15,20,491,232ш,"G",192└,224р,96`,160а,224р,80P,24,39',"H",28,63?,127,255 ,255 ,255 ,255 ,223▀ ▄ъф"I",112p,248°,252№,126~,127,231ч,255 ,223▀,"J",112p,80P,112p,0,0,0,0,0,"K",0,0,248°,190╛,255 ,63?,15,3 цщф"L",0,0,0,0,1,3,7,15,"M",15,31,30,60<,124|,120x,184╕,224р,"N",240Ё,240Ё,240Ё,240Ё,240Ё,240Ё,80P,112p Ёыф"O",240Ё,248°,120x,124|,62>,30,29,7,"P",240Ё,240Ё,248°,255 ,125},63?,28,0,"Q",28,20,60<,60<,63?,31,15,3 ·╬R(A,B)=║(е*A)+B ■ ИMї(╛23730▓\+256*╛23731│\)-(╛23653e\+256*╛23654f\) е·ь<юаc·░гяtоя│у°gе°б·Єкb│ї╒# NFredT1ЕP УAnoGQ╧╘MOSAICS ; ;cщ =  ┌7:┘0:√:я""к х:їм21,0;:я"" ╫PICTURE @UАс┐     <       А           АА<           А А                          ААА|B<■<■B|~~       └          └└~■          └ └           ■           ■  └└└BBDDbBBb@BBBB@@fBBBB@???        р          ?рр №          р р           №           №  рррBBBBR@BR<BBB|@|ZB@BB|        Ё          ЁЁ °          Ё Ё           °           °  ЁЁЁ|~BBJNBJ||BB@@B|@B|@        °          °° Ё          ° °           Ё           Ё  °°°@BDDFBBFB@DBB@@B@BBD@ ?       № ?         №№ ?р          № ?№           р  ?         р?  №№№@Bxx>B<<>  MACBRIDE 1983 << ( э5000И 2 э2000╨ <ч4:√:э4000а P їм1,18;"COLOUR DIP" dC▄1:ыN=1╠10 :їмN*2,1;┬(143П+N):єN nB▄0:ыP=0╠6:їм1,4+2*P;┘P;"П":єP x ┌8 В"·SW=1╦э3000╕ :ь60< ╚5╫.5   ,10 :ёPC=0:ёL=3:ёC=3 ╥0╫.01z#╫ =,10 :їмL,C;┘9 ;█1;"Й" ▄ Є0 ц їмL,C;" " ы·пж=13 ╦ь700╝ Ё э1000ш ··л(L,C)>64@╦ь300,  ь210╥ ,ёX=L/2+143П /3·L=1╞л(L,C)>568╦ёPC=(C-4)/2 17╫.01z#╫ =,20:їмL,C;┘PC;┬X;▐1;┬8;"Ы" 6 Є0 8·ж="P"┼ж="p"╦ь400Р :·пж=13 ╦ь700╝ ; їмL,C;" " @ э1000ш Ж ь303/ Рїмl,c;┘PC;┬x:ь100d ╝]їм19,4;" ";м21,6;" " ┴#ю"Do you want to do another ?";╩a$ ╞·a$=""╦ь700╝ ╨,·a$(1)="y"┼a$(1)="Y"╦ь740ф ┌,·a$(1)╔"n"╞a$(1)╔"N"╦ь700╝ ▀:їм21,3;"Goodbye.Hope you had fun.":ь735▀ фю"Same paper colour ?";╩a$ ю·a$=""╦ь740ф °,·a$(1)="n"┼a$(1)="N"╦ь780  ,·a$(1)╔"y"╞a$(1)╔"Y"╦ь740ф  ь60<  э21004:ь502 шёL=L+(ж="6")-(ж="7") ЄёL=L+(L<0)-(L>20) №ёC=C+(ж="8")-(ж="5") ёC=C+(C<0)-(C>30) ■ ╨ч6:┌7:√ ┌Gїм1,8;"MOSAIC PICTURES";м2,8;"ГГГГГГГГГГГГГГГ" ▀ э2200Ш ф\їм17,2;"Make your own mosaics with";м19,2;"the magic mosaic mover." ю/їм21,2;"Do you need instructions?" °%ю"Please ENTER yes or no.";╩a$ ¤·A$=""╦ь2040° Eёsw=0:·a$(1)="y"┼a$(1)="Y"╦ёSW=1:ь2070  -·A$(1)╔"N"╞A$(1)╔"n"╦ь2040° ?╫.5   ,20:їм10 ,22;"Thank you.":Є100d 44їм17,1;"What colour paper do you want?" >.їм19,1;"Press the colour number." H[┘9 :їм21,0;"  0   1   2   3   4   5   6  7 " R.Є0:·пж<480┼пж>557╦ь2130R \ёi=░ж fZ╫.5   ,20:їм18,0;" ";┌i;"Thank you";┌7;" " p Є150Ц z■ Шъїм4,12 ;┘2;"СРТ СРТ";м5,12 ;"РРРРРРРТ";м6,12 ;"РРРРРРРР";м7,12 ;"РРРРРРРР";м8,12 ;"РРРРРРРР";м9 ,12 ;┘2;"РРРРРРРП";м10 ,11 ;"СУ ФТ" в4їм11 ,11 ;┘2;"Р Х Х Р" м-їм12 ,10 ;"СУ ЩШ ФТ" ╢.їм13 ,9 ;"СУ ФППППППУ ФТ" └Кїм14,13 ;┘6;"ФППППУ";м15,10 ;┘1;"СППФРТСРУРРТ";м16,9 ;"СРРРРФУФУРРРРТ" ╩■ ╕Yїм3,4;"Ж Here is the tile mover";м5,6;"Move it like this." ┬й┘9 :їм6,14;" 7 ";┌I;м7,15;"Э";м9 ,9 ;" 5 ";┌I;" Ь Й Ю  8 ";м11 ,15;┌I;"Я";м12 ,14;" 6 " ╠Vїм13 ,5;"Pick up a tile,dip it";м14,5;"put it where you want." ╤їм15,5;"Move the Ж over a tile";м16,5;"to rub it out.";м17,5;"Press any key and watch" ╓ёj=i:ёi=6 р!ёsw=0:Є0:э4000а ъ4ёi=j:їм16,8;" Key pressed   " Ї┌8:х3300ф ■/ёT=0:ыZ=1╠6:┘0:ёa$="Ж" !э3200А :єZ:╫1,20 yыt=0╠7:їм6,t;" Ъ";м16,22;█1;8:╫1,10 :єt:їм16,22;8 ╫1,20 9ыt=1╠12 :┘0+(2╞t>5):ёa$="Ъ" э3200А :єT  їм5,10 ;┘2;"Т" ! ┘0 "*їм16,8;┌i;" " &|їм8,5;"You can use any tile ";м9 ,5;"as often as you like";м10 ,5;"to make your picture." (1щC$(4,11 ):ёC$(1)=" ХТ " *ёC$(2)=" РРРРРРРРРТ" ,ёC$(3)=" ФРЦЧРРЦЧРР" .ёC$(4)=" ЩШ ЩШ " 0}ыL=1╠4:ыC=1╠11 :їм11 +L,9 +C;┘1-(C$(L,C)>"Ф");C$(L,C):·C$(L,C)>" "╦╫.4L╠╠╠,10 5єC:єL V Є250· b_┘1:ёE=11 :ыC=10 ╠27:ыN=1╠4:їм11 +N,C;C$(N,1╠E):єN g·C>16╦ёE=E-1 j╫.2~L╠╠╠,-30 lєC q ┘0 v5їм17,6;"Press any key to play.":Є0 {■ АЮуl,c,k:їмl,c;█(A$="Ж");a$;м16,22;█1;┬k:╫1,10 :їм16,22;┬K:·Z=4┼t=6┼T=9 ┼T=11 ╦╫1,20 К їмl,c;" ":■ фЧф3,4,546,4,4,546,5,4,546,6,4,546,6,3,535,6,2,535 ю/ф6,8,557,5,8,557,4,8,557,3,8,557,2,8,557,1,8,557,2,8,546,3,8,546,4,8,546,4,9 ,568,4,10 ,568,5,10 ,80P аAыl=3╠18:їмl,4;┌i;" ":єl кl·sw=0╦їм19,4;"Press P to put tiles down.";м21,6;"Press ENTER to end." ┤■ И$х5000И:ыN=1╠16:уG$ ТыR=0╠7:уB ЬЇ└G$+R,B:єR:єN жFф"A",255 ,255 ,255 ,255 ,255 ,255 ,255 ,255 ,"B",1,3,7,15,31,63?,127,255 ,"C",128А,192└,224р,240Ё,248°,252№,254■,255 ,"F",60<,126~,255 ,255 ,255 ,255 ,126~,60< лаф"D",255 ,254■,252№,248°,240Ё,224р,192└,128А,"E",255 ,127,63?,31,15,7,3,1 ░Gф"G",3,15,63?,63?,127,127,255 ,255 ,"H",192└,240Ё,252№,252№,254■,254■,255 ,255 ,"I",255 ,255 ,254■,254■,252№,252№,240Ё,192└,"J",255 ,255 ,127,127,63?,63?,15,3 ╡Uф"k",128А,206╬,238ю,254■,136И,140М,142О,255  ║ъф"L",0,14,14,14,112p,112p,112p,0,"M",0,16,480,127,255 ,127,480,16,"N",16,568,124|,254■,568,568,568,568 ─Щф"O",8,12 ,254■,255 ,254■,12 ,8,0,"P",28,28,28,28,127,62>,28,8 ╬■ pMї(╛23730▓\+256*╛23731│\)-(╛23653e\+256*╛23654f\) юИЄТb│ўiьаЁnjЇ  ·■ уb kP├1 ХТ РРРРРРРРРТ ФРЦЧРРЦЧРР ЩШ ЩШ e░уxИGPAyes*