home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / exoten / rec / maze.rec < prev    next >
Encoding:
INI File  |  1990-07-11  |  1.8 KB  |  42 lines
  1. [MAZE.REC]
  2. {{(''0 1 2 3 4x);)~
  3. (0x(1x(2x(3x(4x((@~J'('EzZ<(@njJ><0x](A);>)>' 'Ez{(' 'Ez(l('/'(Fz;ZzqL)qL1x]L;Y)L;x{AB:);)#(' '0x>;)}JZD1x[z<@I>0x[')'I;
  4. @~J'('EzZ<(@njJ><0x](A);>)>' 'EzZ<(@njJ><1x](A);>)>' 'Ez{(Z<(' 'Ez0x];J0x];>)>' ('Ez{(')'EzZ<(' 'Ez;J;>)>4x];)#(')'3x>;)};)#(2x<;)}JZDz<3x[5x(6x({(''5 6x);)~((@~JZ<(@njJ><5x](A);>)>Z<(' 'Ez;J;>)>6x]JZD'('I5x[' 'I1x[' 'I2x[4x[z<@I>0x[@M(J'$'EzJZD;Z;)>z<6x[:;)Z>@~2x:;)};
  5. @~JZD'$'I;
  6. Z;)@~5x:;)}M
  7. {(Z<('A''Z'Mz;J'a''z'Mz;J'0''9'Mz;>)>;)a
  8. (@a(Z<@a>:J>;);)n
  9. ('('EzZ<(@n(Z<' 'Ez@n>:J>;);J;>)>')'Ez;)l
  10. (@n' 'Ez@l;)p
  11. (JZD0x[(J9x](A)JZD;JZD' 'I;);)I
  12. (''0 8 9x);)~
  13. (0x(8x(9x((@~J26%EzJZD;
  14. @~JZ<('('EzZ<(@njJ><9x](A);>)>' 'EzZ<(@njJ><8x](A);>)>' ('Ez@p(Z<' 'Ez@p>:J>;)'))'EzjJ><0x](A);>)>JZD'Initial: 'I9x['; final: 'I8x[xtz<z<'('Iz<0x['/('I@M(J'$'EzJZD;Z;)>')'I1x(2x({(''1 2x);)~((@~JZ<(65(a;L)z')'FzjJ><1x](A);>)>2x]JZD1x[2573,I>z<2x[:;)JZ2573,IZ>@~2x:;)}xt>z<{(Jx|;)~(xRA;;)}x~>:
  15. @~J(A)JZD'(ni nf (na (na1 na2 ... nak) ... nz (nz1 ... nzj)))'Ixtz<{(Jx|;)~(xRA;;)}x~>:
  16. @~JZD'not a maze'Ixt:
  17. Z;)@~3x:;)}~
  18. {(-1='Not Found'I;) v
  19. ((' 'FZD;Z;)0%IJ;) u
  20. (x+'Terminated'TLxE_) M
  21. ((B13%ED;;)J(10%FD:;)J(26%FBAZD;;)Z;) ~
  22. (13%Fz;26%F((2b);J6666,EA;zBj;)z;) |
  23. (512eqm29$rn|63K0(=)(a;L)LzZD(B26%ED:;)Y;DLL) y
  24. (J(2573FDZQmD;''m;)l30$SJ('L/'FDZ<(' 'FjJ;;)QD>
  25. ((B;;)' 'ED;;);'';)mZ
  26. 188cmpw'M'$r(f:;)wnpG66-,127$Sx@
  27. 'vuM~|y'I<z(BQD@s:;)>0,31$S
  28. nI<(A1b':'(E)'\'(E);'CNVLIB.REC'I;;)0%IJQD>
  29. 30$ryGI<@ppGm(pL61K-1(=);LLL@o:lyG' Not Found'|T_)
  30. 29$SnLLLLJZD>
  31. 't 'm(32$r0=0''CLpLr32$S;;)LZz;) x
  32. (';'FDJ<((A);1b'\'E;'\'I;)JQD>lyG|;) o
  33. ('PATH='(F)JZD;(0%U;zZ;)QJZD(''=;';'=;I';'I;)J;) p
  34. (pG$r&\pG+127$r+S;) s
  35. (Z>zZ<(J@|J><z@~J;@y:Z26%I:)26%EnL0pG29$rpGm62knS;
  36. J('['ED']'FDJ<Z((2b)>JZD;QDlyw&FwJZD>;w:):Z;)
  37. >J<'[!]'FDBQD\pG+127$r+mJq32$rC
  38. mpGlyG-'w'$r'x'$r-
  39. (NLnLq'x'$rC&'x'$SnS;32$SnnS;)D::) w
  40. (@x<<@w>JZD>;)} %
  41. (@%@~xTxE;) }
  42.