0,7,14,7,1MC00:C11:C22:C33:C44:C55:C66:C77:C88:C99_(SC3072:LL40v2A(19,11),B(19,11)<A$(1)"NORTH":A$(2)"EAST":A$(3)"SOUTH":A$(4)"WEST"FW$"" PSP$" ";ZM1C0:"ENTER DIMENSIONS OF LABYRINTH:"Nd"HOW WIDE";HinHC0H19"";:100|x"HOW DEEP";VVC0V10"";:120"NOW CREATING A"H"X"V"LABYRINTHAHVC1QC0:ZC0:X(H(H))C1AAXA(X,0)C1:CC2RX:SC1:260#RH2401SV230DRC1:SC1:250YRC1:SSC1:250dRRC1zA(R,SC1)C0200RC1C0580A(RC1,SC1)580SC1C0420"A(R,SC2)420,RH3406A(RC1,SC1)340@X(C3(C1))C1JX890,930,970TSV370,^ZC1400:hQC1:380JrA(R,S)400_|X(C3(C1))C1sX890,930,1040X(C2(C1))C1390RH520A(RC1,SC1)520SV470ZC1500QC1:480A(R,S)500X(C3(C1))C1X890,970,1040,X(C2(C1))C15490CSV550QZC1890_QC1:560o&A(R,S)8900X(C2(C1))C1:X890,1040DSC1C0760NA(R,SC2)760XRH700bA(RC1,SC1)700lSV650vZC1680QC1:660A(R,S)680*X(C3(C1))C1>X930,970,1040SX(C2(C1))C1\670jSV730xZC1930QC1:740A(R,S)930X(C2(C1))C1X930,1040RH840A(RC1,SC1)840 SV810ZC1970 QC1:820*A(R,S)970-4X(C2(C1))C1=>X970,1040KHSV870YRZC1200g\QC1:880wfA(R,S)200p1040zA(RC1,SC1)CCCC1:B(RC1,SC1)C2:RRC1CA1140QC0:260A(R,SC2)CCCC1B(R,SC2)C1:SSC1:CA1140QC0:2600A(RC1,SC1)CNCCC1:B(R,SC1)C01000eB(R,SC1)C3:1010vB(R,SC1)C2RRC1CA1140580QC11100A(R,S)C:CCC1:B(R,SC1)C01070$B(R,SC1)C3:1080.B(R,SC1)C1 8SSC1:CA1140B260LZC14VB(R,SC1)C01130O`B(R,SC1)C3:QC0:200tjB(R,SC1)C1:QC0:RC1:SC1:250tZC1X(H(C1))C1:B(X,VC1)B(X,VC1)C1~1160:SC12LL18HLLV2AA,30:1420 PRINT MAZE ***M1C1:"";:V111190IC111V::-JVC1C1:19H)@IC1H:" ";WB(I,JC1)C01250nB(I,JC1)C21250z" ";1260" ";I" ": FINISH LINE19H)" "; IC1H:" ";B(I,JC1)C21330" ";(13402" ";<I:FJ0P19H)"";:IC1H?ZIAA1390Pd" ";:1400]n" ";dxIo" ":xWAAJC0VC1IC1HJ1480IWA(I,J)(C3B(I,J))C2:1500MC1:1490M(A(I,JC1)2)C2 A(I,J)(C3B(I,J))C2MC8IC1MC1:15205M(A(IC1,J)4)C4IA(I,J)A(I,J)MPIWJa"";XW:YC0:ZC1:LEC1:REC1"2270,"YOU CAN GIVE THE FOLLOWING INSTRUCTIONS:";6"F-MOVE FORWARDS ONE BLOCK;"@"L-TURN LEFT90 DEGRESS;"&J"R-TURN RIGHT90 DEGREES;"8T"H-HELP!">^ih1160:"YOU ARE HERE , FACING "A$(Z)rSCLL1218HLLV2X(LL2)Y,102|YV4420"WHAT NOW?";Z$:Z$""1680Z$"L"1740Z$"R"1760Z$"F"2220#Z$"H"1640-1680EZZC1:ZC1ZZC4O2270gZZC1:ZC4ZZC4q2270wZC1A1AC1:B1BC1:1840ZC2BVA1A:B1B:1840ZC3A1AC1:B1BC1:1840ZC4BC1A1A:B1BC2:1840&LEC1:0FA(A1,B1):ZC11860A:IC2Z:F(F14)C2(FC1)C8:TDLE(FC2)C2:tNZC1A1AC1:B1BC1:1920XZC2BC1A1A:B1BC2:1920bZC3A1AC1:B1BC1:1920lZC4BVA1A:B1B:1920vREC1:FA(A1,B1):ZC11940IC2Z:F(F14)C2(FC1)C8:1RE(FC2)C2:@BC02030PBVEC3:kFA(A,BC1):ZC11990IC2Z:F(F14)C2(FC1)C8:CFC1:D(F4)C4:E(F2)C2CC01790DC01870CC0:DC0:EC1Z12080 EC1 AWEC0 ' ZC3EC2:< *ZC2AHEC2:R 4ZC4AC1EC2:X >g HEC02180z RZC1BBC1: \ZC2AAC1: fZC3BBC1: pZC4AAC1: z"";: EC02200 ""; SC1 !AX:BY!1950!2120'!XA:YB6!EC01660B!AX:BYL!1950c! DISPLAY 5 DEPTHSo!TC15y! 2420! ETC5:2360! 2120!$ 1950!. EC1TC5:2360!8 T!B XWYC0ZC12410 "L XWYC0ZC12170:"EXTERNAL WALL":2400"V 24105"` 2170:"YOU'RE OUTSIDE!?"j 1660_"t T2430,2790,3230,3670,4150u"~ DISPLAY DEPTH 1" "";" EC2" EC0EC12190:" IC121:CC1"";:2530" YC0""(W$,(IC1)C1,C8);:2530# LEC1"";:2530/# IC2"";:2530M# I18"";:2530a# " ";x# EC022);:2560# YC0""(W$,(IC1)C1,22);:2560# "";# DC1"":2620# YC0""(W$,(IC1)C1,C8):2620$ REC1"":26204$ IC2"":2620I$( I18"":2620Z$2 " "`$< $F IC1C3:CC1(XWYC0)2690$P IC12660$Z LEC0"";:2700$d ""(SP$,C8I)""(SP$,IC1);$n IC12700$x 2710% C9I)""(SP$,IC1);:IC12710D% EC0"";:2720d% " ";~% DC1(XWYC0)2760% IC12750% REC0"ͣ":2770% ""(SP$,IC1)""(SP$,C8I):2770% ""(SP$,IC1)""% I% & DISPLAY DEPTH 2'& "";:Z$""D& IC1C2:Z$;:CC02840a& IC1)"";C2I);:2870t& "";:2870& IC1C4):2870&" LEC1"";:2870&, "";&6 EC0IC114);:2890&@ "";&J DC02910'T C2I)"":2940'^ IC1:29403'h REC1"":2940<'r ""B'| i' IC115:Z$;:CC1"";:3000' LEC1"";:3000' IC3"";:3000' I12" ";:3000' " ";' EC0"";:3020( "";( DC1"":30705( REC1"":3070O( IC3"":3070h( I12" ":3070r( ""x( ( IC14:Z$;:CC13130( IC13120( LEC0"";:3140(& " ";:3140(0 ""(SP$,C4I)""(SP$,IC1);:3150$): C4I)""(SP$,IC1);:IC13150H)D EC0"";:3160`)N " ";o)X DC13200)b IC13190)l REC0"ͣ":3210)v ""(SP$,IC1)""(SP$,C4I):3210) ""(SP$,IC1)"":3210) I) * DISPLAY DEPTH 3* "";:Z$Z$""6* IC13:Z$;:CC03270R* IC1)""C3I);:3300j* IC3"";:3300* LEC1"";:3300* "";* EC0IC2"";:3320* "";* DC03340* 3I)"":3370* IC3:3370+ REC1"":3370+ ""+* D+4 IC19:Z$;:CC1"";:3430]+> LEC1"";:3430u+H IC2"";:3430+R IC7" ";:3430+\ " ";+f EC0"";:3450+p "";+z DC1"":3500+ REC1"":3500 , IC2"":3500&, IC7" ":3500/, ""5, Q, IC13:Z$;:CC13570a, IC13540{, LEC0"";:3580, ""(SP$,C3I)""(SP$,IC1);, IC13580, 3590, C3I)""(SP$,IC1);:3550, EC0"";:3600 -" ";-DC13640(-IC13630A-$REC0"ͣ":3650j-.""(SP$,IC1)""(SP$,C3I):3650-8""(SP$,IC1)""-BI-L-V DISPLAY DEPTH 4-`"";:Z$Z$""-jIC12:Z$;:CC03710-tIC1)""C2I);:3740.~IC1"";:3740&.LEC1"";:37401."";O.EC0IC1"";:3760\."";k.DC03790{.IC1"";."":3820.IC1:3820.REC1"":3820.""..IC15:Z$;:CC1"";:3880/LEC1"";:3880/ IC1"";:38801/I4"";:3880>/" ";W/(EC0"";:3900f/2"";{/<DC1"":3950/FREC1"":3950/PIC1"":3950/ZIC4" ":3950/d""/n/xIC12:Z$;:CC14020/IC139900LEC0"";:4050:0""(SP$,C2I)""(SP$,IC1);I0IC14050S04060c0IC1"";n0"";0IC2" ";:40600EC0"";:40700" ";0DC141100IC141000REC0"ͣ":4130 1""(SP$,IC1)" "(SP$,C2I):4130!1"";:IC2" ";*1""11"I71,M16 DISPLAY DEPTH 5i1@"";:Z$Z$""}1JZ$;:CC041901T"";:42001^"";1hEC0"";:42201r"";1|DC042401"":42501""1IC13:Z$;:CC14270 2"";:42802"";-2EC0"";:430082"";M2DC0"":4320V2""\2p2Z$;:CC143502"";:43602"";2EC1" ";:43802"";2DC144002&"":441020""2:2D"YOU'RE OUT!3NM1"":4460'3X"HERE IS THE MAZE":179013b1160H3l"ANOTHER GAME";Z$W3vZ$"Y"90]3q3I010:J0193("0"((A(J,I)),2),2)"";:J::I3:3JV101:I1H3("0"((B(I,J)),2),2)"";:I::J