mload J!32199}:"":"":"" Daniudg 6}89*\#*{\^###NF~~wͪ"w4/@@@@@@@!]E" @@ pSsnd [}:H\???B˧Cz:H\???B˧C.:H\???B˧Cmaze \6:2:1: .23675{\,198:23676|\,127 ( 9000(# <9valid=0:x=108l:y=11 :time=5000 AW:4,10 ;"Which maze ?";16,1;"type a number between 1 and 7" B=""66B C4()<491()>557()=067C Dmaze=-480:75K J 66B P 8000@ na= p=time=time-1:0,27;0;time:2 sa=0110n valid=32407~ (valid=023300[:110n 32211} K(32200})<32 (32201})>1547000X:end routine 110n ~a=535((x-1,y)+(x-1,y-7)+(x-1,y-4))=0valid=1:x=x-1:1200 ka=546(x,y-8)=0Ʃ(x+7,y-8)=0valid=1:y=y-1:1200 $ka=557(x,y+1)=0Ʃ(x+7,y+1)=0valid=1:y=y+1:1200 .|a=568((x+8,y)+(x+8,y-7)+(x+8,y-4))=0valid=1:x=x+1:1200 3.otherwise set valid to 0 and goto end of sub 8)valid=0:23300[:1200  Xend subroutine ]Ii=120:2:5:233506[:1:6:i b90,9 ;"your score is ";1,9 ;time li=1500:i vW0,9 ;"do you want to try ";1,9 ;"again y or n " =""7040  ="y" /="n":9500%:describe future programs  7040  B 1: Tj=3212 ^<i=031:j,i;"":.005y# =,i-15:i hj rP0,143:0,-143:255,143:0,-143 | i=14315-32 j=80P20864@ j,i:0,-12 j i ]i=12731-32 :j=48017664@:j,i:0,-12 :j:i ,32200},x:32201},y:32211}  s$=" "+"" which maze to display maze=78700! maze=68694! maze=58685! maze=48670! maze=38600! maze=28460 ! l set up maze v verticals 20,10 ;" " E20,18;" ";18,6;" ";18,14;" " 18,22;" ";16,26;" ";14,6;" ";14,14;" ";14,22;" ";12 ,10 ;" ";12 ,18;" " Y8,10 ;" ";8,26;" ";6,14;" ";4,26;" " horiz s$=" "+"" m19,2;s$;19,28;s$;17,8;s$;17,19;s$;15,28;s$ 13 ,8;s$;13 ,14;s$;11 ,19;s$;11 ,24;s$;9 ,16;s$;9 ,29;s$;7,20;s$;5,8;s$;7,2;s$;3,3;s$ print dog 3,0;2;"";1,3;"dog";0,0;0;"";1,0;"";2,0;"" !>0,15;0;1;maze:8900":return ! 2nd maze ! horizontals ! s$=" "+"" ! 19,3;s$;19,28;s$;17,3;s$;17,24;s$;15,3;s$;15,20;s$;15,28;s$;13 ,8;s$;13 ,24;s$;11 ,8;s$;11 ,24;s$;11 ,28;s$;9 ,20;s$;9 ,28;s$;7,12 ;s$;7,27;s$;5,8;s$;5,16;s$;3,3;s$ !4 verticals !H20,10 ;" ";20,18;" ";20,26;" ";18,14;" ";16,26;" ";14,14;" ";12 ,18;" ";10 ,14;" ";8,18;" ";6,22;" ";4,18;" " !R 8430 ! 3rd maze ! s$=" "+"" !]20,10 ;" ";18,22;" ";16,10 ;" ";10 ,22;" " !U19,3;s$;19,16;s$;17,3;s$;17,28;s$;15,16;s$;15,28;s$;13 ,16;s$;13 ,28;s$;11 ,12 ;s$;11 ,28;s$;9 ,8;s$;9 ,16;s$;7,3;s$;7,16;s$;5,3;s$;3,3;s$ ! 8430 ! 4th maze !19,24;s$;17,20;s$;15,24;s$;15,20;s$;13 ,16;s$;13 ,24;s$;11 ,12 ;s$;11 ,24;s$;9 ,2;s$;9 ,24;s$;7,8;s$;5,8;s$;3,3;s$ !\20,10 ;" ";20,18;" ";18,22;" ";10 ,6;" " !8430 :draw dog ! 5th maze !,19,3;s$;19,20;s$;17,3;s$;17,20;s$;15,8;s$;15,24;s$;13 ,8;s$;13 ,24;s$;11 ,16;s$;11 ,20;s$;9 ,20;s$;7,20;s$;5,12 ;s$;3,3;s$ !r20,10 ;" ";20,18;" ";12 ,10 ;" ";6,14;" ";4,10 ;" " ! 8430 ! 6th maze !)19,12 ;s$;19,16;s$;17,8;s$;17,20;s$;15,20;s$;13 ,8;s$;11 ,24;s$;9 ,8;s$;9 ,12 ;s$;9 ,24;s$;7,8;s$;7,16;s$;5,12 ;s$;3,3;s$ !r14,14;" ";12 ,10 ;" ";12 ,18;" ";8,18;" ";4,10 ;" " ! 8430 ! 7th maze "o19,24;s$;17,24;s$;17,28;s$;15,20;s$;15,28;s$ "13 ,8;s$;13 ,28;s$;11 ,8;s$;9 ,16;s$;7,16;s$;5,8;s$;3,3;s$ "20,10 ;" ";20,18;" ";14,14;" ";12 ,26;" ";10 ,14;" ";6,14;" " " 8430 " #2 #<=1,10 ;"M A Z E";2,10 ;"" #Fb5,1;"Can you find your way through";6,1;"the maze and reach the dog ?" #PX14 ,5;3;"5";0;" - left ";3;"8";0;" - right" #ZW16,5;3;"7";0;" - up ";3;"6";0;" - down" #d?21,0;0;1;"press enter to continue" #nf8,1;"Your score starts at 5000 and gets lower, so you must find your way quickly." #%i=120:23400h[:i #0:23400h[ # %describe future programs %!,i=110 :.05|L,i-5:i %&7:5:0: %0u1,1;1;1;"Stell Software ";0;"hope you";2,1;"enjoyed these programs." %:5,10 ;"Ask for :-";9 ,5;0;5;"Micros for Children - 2";11 ,5;"Micros for Children - 3" %?;15,1;0;"at your local computer shop." %D:20,10 ;1;1;"-- coming soon --" %Ii=1400:i %l:end of prog % %!i="b""b"+47/:a:i,a:i %0,5,10 ,9 ,9 ,18,44,,84T,0,128,64@,64@,254,36$,10 ,44, %111o,16,18,21,32 ,32 ,32 ,62>,208,64@,64@,64@,64@,64@,64@,64@ %33!,93],133,69E,34",21,10 ,0,64@,64@,32 ,32 ,144,112p,144,0 &8"anisndudg"32200},5666:"maze30eve"1 ' M(23653e\+256*23654f\)-(23635S\+256*23636T\) ^alixly imazT3