home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / exoten / rec / pinwhl2.rec < prev    next >
Encoding:
INI File  |  1990-07-11  |  4.0 KB  |  94 lines
  1. [PINWHL2.REC]
  2. {{(JZD'1.11.3.11.7.7.11.3.11.1.'I;)0
  3. (JZDz<@00x(1x({(''0 1x);)~((@~J{('.'Ez1x];)#('.'0x>;)}JZDz<@02x(3x({(''2 3x);)~((@~J{('.'Ez3x];)#('.'2x>;)}JZDz<@04x(5x({(''4 5x);)~((@~J{('.'Ez5x];)#('.'4x>;)}JZD0$ryGO2$ryGO4$ryGO++12/L#I@e@g>z<5x[:;)Z>@~2x:;)}>z<3x[:;)Z>@~2x:;)}>z<1x[:;)Z>@~2x:;)};
  4. Z;)}a
  5. {(J'10'EzJZD'3,-5'I;
  6. J'11'EzJZD'5,-3'I;
  7. J'0'EzJZD'6,0'I;
  8. J'1'EzJZD'5,3'I;
  9. J'2'EzJZD'3,5'I;
  10. J'3'EzJZD'0,6'I;
  11. J'4'EzJZD'-3,5'I;
  12. J'5'EzJZD'-5,3'I;
  13. J'6'EzJZD'-6,0'I;
  14. J'7'EzJZD'-5,-3'I;
  15. J'8'EzJZD'-3,-5'I;
  16. J'9'EzJZD'0,-6'I;
  17. Z;)}e
  18. {(J'10'EzJZD'5,-8'I;
  19. J'11'EzJZD'8,-5'I;
  20. J'0'EzJZD'10,0'I;
  21. J'1'EzJZD'8,5'I;
  22. J'2'EzJZD'5,8'I;
  23. J'3'EzJZD'0,10'I;
  24. J'4'EzJZD'-5,8'I;
  25. J'5'EzJZD'-8,5'I;
  26. J'6'EzJZD'-10,0'I;
  27. J'7'EzJZD'-8,-5'I;
  28. J'8'EzJZD'-5,-8'I;
  29. J'9'EzJZD'0,-10'I;
  30. Z;)}c
  31. {(J'10'EzJZD'10,-17'I;
  32. J'11'EzJZD'17,-10'I;
  33. J'0'EzJZD'20,0'I;
  34. J'1'EzJZD'17,10'I;
  35. J'2'EzJZD'10,17'I;
  36. J'3'EzJZD'0,20'I;
  37. J'4'EzJZD'-10,17'I;
  38. J'5'EzJZD'-17,10'I;
  39. J'6'EzJZD'-20,0'I;
  40. J'7'EzJZD'-17,-10'I;
  41. J'8'EzJZD'-10,-17'I;
  42. J'9'EzJZD'0,-20'I;
  43. Z;)}b
  44. {(''0 1x);)~
  45. (0x(1x((@~J'-'Ez{(',0'Ez;)#(',0'0x>;)}JZD@Lz<'0'I(J(0x])x'D'12,al=2,cx='Iz<@X>',dx='Iz<@y>xG>z<64x['&''p'x#x":;)JZDZ>;
  46. @~J'0,-'Ez1x]JZD@Dz<'0'I(J(1x])x'D'12,al=2,cx='Iz<@x>',dx='Iz<@Y>xG>z<64x['&''p'x#x":;)JZDZ>;
  47. @~J{(',0'Ez;)#(',0'0x>;)}JZD@Rz<'0'I(J(0x])x'D'12,al=2,cx='Iz<@X>',dx='Iz<@y>xG>z<64x['&''p'x#x":;)JZDZ>;
  48. @~J'0,'Ez1x]JZD@Uz<'0'I(J(1x])x'D'12,al=2,cx='Iz<@x>',dx='Iz<@Y>xG>z<64x['&''p'x#x":;)JZDZ>;
  49. @~J'-'Ez{(',-'Ez1x];)#(',-'0x>;)}JZD0x[','I1x['&''>'x#(J't'EzJZD@Lz<'0'I(J(0x])x'D'12,al=2,cx='Iz<@X>',dx='Iz<'-'I64x[@w>xG>z<64x['&''p'x#x":;)JZDZ>z<@d>;JZD@Dz<'0'I(J(1x])x'D'12,al=2,cx='Iz<'-'I64x[@v>',dx='Iz<@Y>xG>z<64x['&''p'x#x":;)JZDZ>z<@l>;);
  50. @~J{(',-'Ez1x];)#(',-'0x>;)}JZD0x[','I1x['&''>'x#(J't'EzJZD@Rz<'0'I(J(0x])x'D'12,al=2,cx='Iz<@X>',dx='Iz<'-'I64x[@w>xG>z<64x['&''p'x#x":;)JZDZ>z<@d>;JZD@Dz<'0'I(J(1x])x'D'12,al=2,cx='Iz<'+'I64x[@v>',dx='Iz<@Y>xG>z<64x['&''p'x#x":;)JZDZ>z<@r>;);
  51. @~J'-'Ez{(','Ez1x];)#(','0x>;)}JZD0x[','I1x['&''>'x#(J't'EzJZD@Lz<'0'I(J(0x])x'D'12,al=2,cx='Iz<@X>',dx='Iz<'+'I64x[@w>xG>z<64x['&''p'x#x":;)JZDZ>z<@u>;JZD@Uz<'0'I(J(1x])x'D'12,al=2,cx='Iz<'-'I64x[@v>',dx='Iz<@Y>xG>z<64x['&''p'x#x":;)JZDZ>z<@l>;);
  52. @~J{(','Ez1x];)#(','0x>;)}JZD0x[','I1x['&''>'x#(J't'EzJZD@Rz<'0'I(J(0x])x'D'12,al=2,cx='Iz<@X>',dx='Iz<'+'I64x[@w>xG>z<64x['&''p'x#x":;)JZDZ>z<@u>;JZD@Uz<'0'I(J(1x])x'D'12,al=2,cx='Iz<'+'I64x[@v>',dx='Iz<@Y>xG>z<64x['&''p'x#x":;)JZDZ>z<@r>;);
  53. Z;)@~2x:;)}g
  54. {(JZD{(Jx|;)~('ARR:xy[1]'IxRA;;)}x~;)x
  55. (JZD{(Jx|;)~('ARR:xy[2]'IxRA;;)}x~;)y
  56. (JZD{(Jx|;)~('CTR:X'IxRA;;)}x~JQDO320+320/L#I;)X
  57. (JZD{(Jx|;)~('CTR:Y'IxRA;;)}x~JQDO200+200/L#I;)Y
  58. (JZD'CTR:X,'Iz<@x>',-1'IxWz<@l>;)L
  59. (JZD'CTR:Y,'Iz<@y>',-1'IxWz<@d>;)D
  60. (JZD'CTR:X,'Iz<@x>',1'IxWz<@r>;)R
  61. (JZD'CTR:Y,'Iz<@y>',1'IxWz<@u>;)U
  62. (JZD'ARR:xy[1],'Iz<@xJQDO0$ryGO-,320+320/L#I>xW;)l
  63. (JZD'ARR:xy[2],'Iz<@yJQDO1$ryGO-,200+200/L#I>xW;)d
  64. (JZD'ARR:xy[1],'Iz<@xJQDO0$ryGO+320/L#I>xW;)r
  65. (JZD'ARR:xy[2],'Iz<@yJQDO1$ryGO+200/L#I>xW;)u
  66. (JZAQDO0$ryGO*1$ryGO/&LJQD('-'=~;L;)320+@xJQDO+320/L#I;)v
  67. (JZAQDO1$ryGO*0$ryGO/&LJQD('-'=~;L;)200+@yJQDO+200/L#I;)w
  68. (JZD'ARR:xy,2,6'I'r'xOz<'CTR:X'I'r'xO>z<'CTR:Y'I'r'xO>z<'ARR:xy[1],10'IxW>z<'ARR:xy[2],100'IxW>z<'0,al=4'IxG>z<'11,bl=1,bh=1'IxG>z<@a>RLz<'0,al=3'IxG>;
  69. Z;)}~
  70. {(-1='Not Found'I;) v
  71. ((' 'FZD;Z;)0%IJ;) u
  72. (x+'Terminated'TLxE_) M
  73. ((B13%ED;;)J(10%FD:;)J(26%FBAZD;;)Z;) ~
  74. (13%Fz;26%F((2b);J6666,EA;zBj;)z;) |
  75. (512eqm29$rn|63K0(=)(a;L)LzZD(B26%ED:;)Y;DLL) y
  76. (J(2573FDZQmD;''m;)l30$SJ('L/'FDZ<(' 'FjJ;;)QD>
  77. ((B;;)' 'ED;;);'';)mZ
  78. 188cmpw'M'$r(f:;)wnpG66-,127$Sx@
  79. 'vuM~|y'I<z(BQD@s:;)>0,31$S
  80. nI<(A1b':'(E)'\'(E);'CNVLIB.REC'I;;)0%IJQD>
  81. 30$ryGI<@ppGm(pL61K-1(=);LLL@o:lyG' Not Found'|T_)
  82. 29$SnLLLLJZD>
  83. '#%G # #p64#>a c W O Or'm(32$r0=0''CLpLr32$S;;)LZz;) x
  84. (';'FDJ<((A);1b'\'E;'\'I;)JQD>lyG|;) o
  85. ('PATH='(F)JZD;(0%U;zZ;)QJZD(''=;';'=;I';'I;)J;) p
  86. (pG$r&\pG+127$r+S;) s
  87. (Z>zZ<(J@|J><z@~J;@y:Z26%I:)26%EnL0pG29$rpGm62knS;
  88. J('['ED']'FDJ<Z((2b)>JZD;QDlyw&FwJZD>;w:):Z;)
  89. >J<'[!]'FDBQD\pG+127$r+mJq32$rC
  90. mpGlyG-'w'$r'x'$r-
  91. (NLnLq'x'$rC&'x'$SnS;32$SnnS;)D::) w
  92. (@x<<@w>JZD>;)} %
  93. (@%@~xTxE;) }
  94.