home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / exoten / rec / hilbert.rec < prev    next >
Encoding:
INI File  |  1990-07-11  |  2.6 KB  |  61 lines
  1. [HILBERT.REC]
  2. {{(J'0'EzJZD;
  3. JZ'&''m'x#0x({(''0x);)~((@~J0x]JZD@+z<0x[@b>z<@t@c@g>z<@->z<0x[@a>z<@t@c@g>z<0x[@a>z<@->z<@t@c@g>z<0x[@b>z<@+>;Z;)@~1x:;)};
  4. Z;)}a
  5. {(J'0'EzJZD;
  6. JZ'&''m'x#0x({(''0x);)~((@~J0x]JZD@-z<0x[@a>z<@t@c@g>z<@+>z<0x[@b>z<@t@c@g>z<0x[@b>z<@+>z<@t@c@g>z<0x[@a>z<@->;Z;)@~1x:;)};
  7. Z;)}b
  8. {(J'0'EzJZD9x[',0'I;
  9. J'1'EzJZD'0,'I9x[;
  10. J'2'EzJZD'-'I9x[',0'I;
  11. J'3'EzJZD'0,-'I9x[;
  12. Z;)}c
  13. {(''0x);)~
  14. (0x((@~J'-'Ez{(',0'Ez;)#(',0'0x>;)}JZD@Lz<'0'I(J(0x])x'D'12,al=1,cx='Iz<@X>',dx='Iz<@y>xG>z<64x['&''p'x#x":;)JZDZ>;
  15. @~J'0,-'Ez0x]JZD@Dz<'0'I(J(0x])x'D'12,al=1,cx='Iz<@x>',dx='Iz<@Y>xG>z<64x['&''p'x#x":;)JZDZ>;
  16. @~J{(',0'Ez;)#(',0'0x>;)}JZD@Rz<'0'I(J(0x])x'D'12,al=1,cx='Iz<@X>',dx='Iz<@y>xG>z<64x['&''p'x#x":;)JZDZ>;
  17. @~J'0,'Ez0x]JZD@Uz<'0'I(J(0x])x'D'12,al=1,cx='Iz<@x>',dx='Iz<@Y>xG>z<64x['&''p'x#x":;)JZDZ>;
  18. Z;)@~1x:;)}g
  19. {(JZD{(Jx|;)~('ARR:xy[1]'IxRA;;)}x~;)x
  20. (JZD{(Jx|;)~('ARR:xy[2]'IxRA;;)}x~;)y
  21. (JZD{(Jx|;)~('CTR:X'IxRA;;)}x~JQDO320+320/L#I;)X
  22. (JZD{(Jx|;)~('CTR:Y'IxRA;;)}x~JQDO200+200/L#I;)Y
  23. (JZD'CTR:X,'Iz<@x>',-1'IxWz<@l>;)L
  24. (JZD'CTR:Y,'Iz<@y>',-1'IxWz<@d>;)D
  25. (JZD'CTR:X,'Iz<@x>',1'IxWz<@r>;)R
  26. (JZD'CTR:Y,'Iz<@y>',1'IxWz<@u>;)U
  27. (JZD'ARR:xy[1],'Iz<@xJQDO0$ryGO-,320+320/L#I>xW;)l
  28. (JZD'ARR:xy[2],'Iz<@yJQDO0$ryGO-,200+200/L#I>xW;)d
  29. (JZD'ARR:xy[1],'Iz<@xJQDO0$ryGO+320/L#I>xW;)r
  30. (JZD'ARR:xy[2],'Iz<@yJQDO0$ryGO+200/L#I>xW;)u
  31. (JZD{(Jx|;)~('ARR:xy[3]'IxRA;;)}x~;)t
  32. (JZD'ARR:xy[3],'Iz<@tJQDO^4/L#I>xW;)+
  33. (JZD'ARR:xy[3],'Iz<@tJQDO3+4/L#I>xW;)-
  34. (J'1''7'Mz(A)x''.'Iz<'199/(2^'I64x['-1)'I'&''f'x#>8x(9x({(''8 9x);)~((@~J{('.'Ez9x];)#('.'8x>;)}JZD'ARR:xy,3,6'I'r'xOz<'CTR:X'I'r'xO>z<'CTR:Y'I'r'xO>z<'ARR:xy[1],60'IxW>z<'ARR:xy[2],0'IxW>z<'ARR:xy[3],0'IxW>z<'0,al=4'IxG>z<'11,bl=0,bh=1'IxG>z<8x[@a>z<'12,al=1,cx='Iz<@x>',dx='Iz<@y>xG>RLz<'0,al=3'IxG>;Z;)@~2x:;)}x";
  35. JZD{(Jx|;)~('TTY:digit? (1-6) 'IxRA;;)}x~:
  36. Z;)}~
  37. {(-1='Not Found'I;) v
  38. ((' 'FZD;Z;)0%IJ;) u
  39. (x+'Terminated'TLxE_) M
  40. ((B13%ED;;)J(10%FD:;)J(26%FBAZD;;)Z;) ~
  41. (13%Fz;26%F((2b);J6666,EA;zBj;)z;) |
  42. (512eqm29$rn|63K0(=)(a;L)LzZD(B26%ED:;)Y;DLL) y
  43. (J(2573FDZQmD;''m;)l30$SJ('L/'FDZ<(' 'FjJ;;)QD>
  44. ((B;;)' 'ED;;);'';)mZ
  45. 188cmpw'M'$r(f:;)wnpG66-,127$Sx@
  46. 'vuM~|y'I<z(BQD@s:;)>0,31$S
  47. nI<(A1b':'(E)'\'(E);'CNVLIB.REC'I;;)0%IJQD>
  48. 30$ryGI<@ppGm(pL61K-1(=);LLL@o:lyG' Not Found'|T_)
  49. 29$SnLLLLJZD>
  50. '#^# #mG #p64a c W #fO Or'm(32$r0=0''CLpLr32$S;;)LZz;) x
  51. (';'FDJ<((A);1b'\'E;'\'I;)JQD>lyG|;) o
  52. ('PATH='(F)JZD;(0%U;zZ;)QJZD(''=;';'=;I';'I;)J;) p
  53. (pG$r&\pG+127$r+S;) s
  54. (Z>zZ<(J@|J><z@~J;@y:Z26%I:)26%EnL0pG29$rpGm62knS;
  55. J('['ED']'FDJ<Z((2b)>JZD;QDlyw&FwJZD>;w:):Z;)
  56. >J<'[!]'FDBQD\pG+127$r+mJq32$rC
  57. mpGlyG-'w'$r'x'$r-
  58. (NLnLq'x'$rC&'x'$SnS;32$SnnS;)D::) w
  59. (@x<<@w>JZD>;)} %
  60. (@%@~xTxE;) }
  61.