Atari 8-bit Source code

0Z=ADR("G; #I!09@EIBbrxhd`<?ikD("):C=%2+%2:O=C+C:V=O+O:W=V+V+O:K=560:T=23:DI.A(C),B(C),D(%3),P(1054),G$(%1):F.I=%0TOC:POK.106,$70+V*I:GR.T:A(C-I)=DPEEK(K)
1B(C-I)=DPEEK(88):N.I:POK.K-%1,%0:A=T-%1:G=158:F.Y=%2TOO-%1:B=PEEK(Z+25+Y):C.Y DIV%2:PL.A,%0:DR.B,%0:PL.G-A,%0:DR.G-B,%0:A=B+%2:N.Y:Y=95:A=134:P=B(%0):M.P,P+W,W*Y:C.%0:F.X=%0TO%1:_=X*Y:PL.T,_:DR.Y-V,W+V:DR.A+%1,_:C.%1:PL.T+%1,_:DR.A,_:C.%0:PAI.T+%1,_:N.X
2F.Y=%0TO%2:M.P,B(%3-Y),W*96:C.%3-Y:_=T-%1:E=Z+_-%1+Y*%2:A=PEEK(E):B=PEEK(E+%1):PL.A,A-_:DR.G-A,A-_:M.P+(A-_)*W,P+(A-_+%1)*W,B*W:N.Y:U=710:POK.106,192:GR.%0:POK.U,%0:?"Where's my cheese?":E=254:A=$6501:POK.A,E+%1:M.A,A+%2,E*%3+C:A=$6301
3POK.A,E-%2:M.A,A+%2,E:S=$6355:F.X=%0TO35STEP%2:E=Z+58+X:A=PEEK(E):B=PEEK(E+%1):IFA:F.Y=%0TOB-%1:POK.S+Y,PEEK(S+Y)!A:N.Y:END.:S=S+B:N.X:DO:POK.764,255:REP.:T.C:G$="":X=RAND(29)+%1:?:I."Difficulty: 1-30 [RETURN=random] ";X:?:I."One path [Y/N] ";G$
4N=INT(X)+%1:U.N>%1ANDN<V+V:?:?"Wait...";:M=N+%1:T=M*M+N-%1:D(%0)=-M:D(%1)=%1:D(%2)=M:D(%3)=-%1:F.Y=%0TOT:P(Y)=%0:N.Y:X=N:F.Y=%0TON:P(Y)=V:P(T-Y)=V:P(X)=V:X=X+M:N.Y:R=N*N-%2:X=N DIV%2+(M DIV%2)*M:P(X)=O:P(X-%1)=%2:L=N:W.R:IFL:D=RAND(C):I=C
5W.P(X+D(D))ANDI:D=(D+%1)MODC:I=I-%1:WE.:END.:IFI ANDL:P(X)=P(X)!%2^D:X=X+D(D):P(X)=P(X)!%2^((D+%2)MODC):L=L-%1:R=R-%1:EL.:X=RAND(N*M-%1)+M:W.P(X)&15=%0ORP(X+%1)*P(X-%1)*P(X+M)*P(X-M):X=X+%1:IFX>T-M:X=M:END.:WE.:?R;".";:L=N:END.:WE.:IFG$<>"Y":Y=%1:REP.
6X=RAND(N*M-%1)+M:D=RAND(C):R=X+D(D):IFP(X)!P(R)<V AND0=P(X)&%2^D:P(X)=P(X)!%2^D:P(R)=P(R)!%2^((D+%2)MODC):Y=Y+%1:END.:U.Y>N DIVC:END.:?:?:?"Ready? ";:GE.A:POK.$D407,$60:POK.K-%1,62:POK.623,%1:POK.$D01D,%3:M.Z+49,U-%3-%3,O+%1:M.Z+V,$D008,C+%1
7F=Z+33:X=M+RAND(N):D=RAND(C):A=T-M-RAND(N):P(A)=P(A)+V+V:_=W/%2-%1:DP._-%1,%0:DP._,%0:REP.:M.Z+O,Z,O:H=%0:REP.:F.T=%0TO%1:P=P(X+D(D)*H):E=F+C*H+%2*T:IFP&%2^((D+%1+%2*T)MODC):POK.Z+PEEK(E),PEEK(E+%1):END.:N.T:SO.:IFP&32:Q=F+O+%2+%2*H:_=PEEK(Q+%1)
8POK.Z+PEEK(Q),_:END.:S=A(H):Y=P&%2^D:H=H+%1:U.NOTY ORH>%2:IFY:S=A(%3):END.:PA.%0:DP.K,S:M.Z,$D000,O:PA.O:REP.:J=STICK(%0):U.J<15:A=X:X=X+D(D)*(J=14)*(%0<P(X)&%2^D):IFA<>X:SO.%0,200,O,O+C:END.:B=D:D=(D+(J=7)+%3*(J=11))MODC:IFB<>D:SO.%0,J,O,O:END.
9POK.77,%0:U.P(X)&32:M.Z+O,$D000,O:GR.%0:POK.U,%0:A=60:B=TIME/A:IF%1=PEEK($D014):B=B*1.2:END.:?"Completed in ";B DIVA;":";:Y=INT(B)MODA:IFY<O+%2:?%0;:END.:?Y;" (";N-%1;")":F.A=%0TO%3:F.B=%0TO%3:SO.B,100-B*V,O+%2,O:PA.%2:N.B:SO.:PA.%2:N.A:LOO.