home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / exoten / rec / gato.rec < prev    next >
Encoding:
INI File  |  1990-07-11  |  5.4 KB  |  88 lines
  1. [GATO.REC]
  2. {{(JZD{(Jx|;)~('TTY:Your turn; give me a number between 1 and 9: 'IxRA;;)}x~;)N
  3. (''0 1x);)~
  4. (0x(1x((@~JZ<(9(a;L)zjJ><0x](A);>)>':'EzZ<('1''9'MzjJ><1x](A);>)>(A)JZD0x[2x(3x({(''2 3x);)~((@~JZ<(j<1x['&''m'x#JQD>(Oa;L)zjJ><2x](A);>)>' 'Ez3x]JZD2x['X'I3x[;JZD'Not available'Ixtz<0x[@t>':'Iz<@N>;)@~2x:;)}:
  5. @~J9(a;L)z(A)JZ@tz<xt>@T;
  6. @~J{(':'Ez;)#(':'0x>;)}JZD0x[':'Iz<@N>:
  7. Z;)@~2x:;)}j
  8. {(JZQI<0x(1x(2x(3x({(''0 1 2 3x);)~((@~J@0@1@23x]JZD' 'I0x[' | 'I1x[' | 'I2x[z<3x[(J3(a;L)zJZD2573,I'---+---+---'I;JZD;)>xt>z<3x[:;)JZDZ>@~4x:;)};
  9. Z;)}t
  10. {(''0 1 2 3x);)~
  11. (0x(1x(2x(3x((@~JZ<({(Z<('00 'Ez;J'0 0'Ez;J' 00'Ez;>)>;)%(Z<(l@%;x{Jl3(a;L)z@%;x{Jl6(a;L)z@%;x{>)L>;)}jJ><{(3(a;L)z(A);)#(0x<;)};>)>1x]JZD0x['000'I1x[@tJZD@G;
  12. @~JZ<({(Z<(Z<('0'Ez2(a;L)z'0'Ez2(a;L)z' 'Ez;J'0'Ez2(a;L)z' 'Ez2(a;L)z'0'Ez;J' 'Ez2(a;L)z'0'Ez2(a;L)z'0'Ez;>)>jJ><1x](A);>)>;)%(Z<(l@%;x{Jl1(a;L)z@%;x{Jl2(a;L)z@%;x{>)L>;)}jJ><{(1x](A);)#(0x<;)};>)>2x]JZD0x[z<1x[3x(4x({(''3 4x);)~((@~JZ<(6(a;L)zjJ><3x](A);>)>' 'EzJZD3x['0'I;JZ@~JZ<(3(a;L)zjJ><3x](A);>)>' 'Ez4x]JZD3x['0'I4x[;JZ@~J' 'Ez4x]JZD'0'I4x[;Z;)@~2x:;)}>2x[@tJZD@G;
  13. @~J'0'EzZ<(3(a;L)zjJ><0x](A);>)>'0'EzZ<(3(a;L)zjJ><1x](A);>)>' 'EzJZD'0'I0x['0'I1x['0'I@tJZD@G;
  14. @~J' 'EzZ<(3(a;L)zjJ><0x](A);>)>'0'EzZ<(3(a;L)zjJ><1x](A);>)>'0'EzJZD'0'I0x['0'I1x['0'I@tJZD@G;
  15. @~JZ<(2(a;L)zjJ><0x](A);>)>'0'Ez@1'0'Ez@2' 'Ez3x]JZD0x['0'I1x['0'I2x['0'I3x[@tJZD@G;
  16. @~JZ<(2(a;L)zjJ><0x](A);>)>' 'Ez@1'0'Ez@2'0'Ez3x]JZD0x['0'I1x['0'I2x['0'I3x[@tJZD@G;
  17. @~JZ<({(Z<('XX 'Ez;J'X X'Ez;J' XX'Ez;>)>;)%(Z<(l@%;x{Jl3(a;L)z@%;x{Jl6(a;L)z@%;x{>)L>;)}jJ><{(3(a;L)z(A);)#(0x<;)}J{(1x](A);)#(0x<;)};>)>2x]JZD0x[z<1x[3x(4x({(''3 4x);)~((@~J{(' 'Ez4x];)#(' '3x>;)}JZD3x['0'I4x[;Z;)@~2x:;)}>2x[':'I;
  18. @~JZ<({(Z<(Z<('X'Ez2(a;L)z'X'Ez2(a;L)z' 'Ez;J'X'Ez2(a;L)z' 'Ez2(a;L)z'X'Ez;J' 'Ez2(a;L)z'X'Ez2(a;L)z'X'Ez;>)>jJ><1x](A);>)>;)%(Z<(l@%;x{Jl1(a;L)z@%;x{Jl2(a;L)z@%;x{>)L>;)}jJ><{(1x](A);)#(0x<;)};>)>2x]JZD0x[z<1x[3x(4x({(''3 4x);)~((@~JZ<(6(a;L)zjJ><3x](A);>)>' 'EzJZD3x['0'I;JZ@~JZ<(3(a;L)zjJ><3x](A);>)>' 'Ez4x]JZD3x['0'I4x[;JZ@~J' 'Ez4x]JZD'0'I4x[;Z;)@~2x:;)}>2x[':'I;
  19. @~J'X'EzZ<(3(a;L)zjJ><0x](A);>)>'X'EzZ<(3(a;L)zjJ><1x](A);>)>' 'EzJZD'X'I0x['X'I1x['0:'I;
  20. @~J' 'EzZ<(3(a;L)zjJ><0x](A);>)>'X'EzZ<(3(a;L)zjJ><1x](A);>)>'X'EzJZD'0'I0x['X'I1x['X:'I;
  21. @~JZ<(2(a;L)zjJ><0x](A);>)>'X'Ez@1'X'Ez@2' 'Ez3x]JZD0x['X'I1x['X'I2x['0'I3x[':'I;
  22. @~JZ<(2(a;L)zjJ><0x](A);>)>' 'Ez@1'X'Ez@2'X'Ez3x]JZD0x['0'I1x['X'I2x['X'I3x[':'I;
  23. Z;)@~4x:;)}T
  24. {(''0 1x);)~
  25. (0x(1x((@~J'    X    'EzJZD'0   X    'I@t':'I@j;
  26. @~JZ<(4(a;L)zjJ><0x](A);>)>' 'EzZ<(4(a;L)zjJ><1x](A);>)>JZD0x['0'I1x[@t':'I@j;
  27. Z;)@~2x:;)}A
  28. {(''0 1 2 3x);)~
  29. (0x(1x(2x(3x((@~J':'FzJZ@t@j;
  30. @~JZ<(Z<(l'X'Ez7(a;L)z'X'Ez;x{Jl2(a;L)z'X'Ez3(a;L)z'X'Ez2(a;L)z;x{>)L>jJ><@1' 'Ez0x](A);>)>JZD1x['0'I0x[@t':'I@j;
  31. @~JZ<('   'Ez3(a;L)zjJ><0x](A);>)>Z<(Z<('X'Ez2(a;L)z;J2(a;L)z'X'Ez;>)>jJ><@1@2@3(A);>)>JZD0x[z<1x[(J' 'EzJZD'0'I;Z;)>2x[z<3x[(J' 'EzJZD'0'I;Z;)>@t':'I@j;
  32. @~JZ<(Z<('X'Ez2(a;L)z;J2(a;L)z'X'Ez;>)>jJ><@1@2@3(A);>)>Z<(3(a;L)z'   'EzjJ><0x](A);>)>JZD1x[(J' 'EzJZD'0'I;Z;)2x[z<3x[(J' 'EzJZD'0'I;Z;)>0x[@t':'I@j;
  33. @~JZ<(Z<('X'Ez8(a;L)z;J6(a;L)z'X'Ez2(a;L)z;>)>jJ><@0@1'  0 'Ez@2@3' 'Ez(A);>)>JZD0x[(J' 'EzJZD'0'I;Z;)1x['  0 'Iz<2x[(J' 'EzJZD'0'I;Z;)>3x[' 'I@t':'I@j;
  34. @~JZ<(Z<(2(a;L)z'X'Ez6(a;L)z;J8(a;L)z'X'Ez;>)>jJ><' 'Ez@0@1' 0  'Ez@2@3(A);>)>JZD' 'I0x[z<1x[(J' 'EzJZD'0'I;Z;)>' 0  'I2x[z<3x[(J' 'EzJZD'0'I;Z;)>@t':'I@j;
  35. @~J'   'EzZ<(3(a;L)zjJ><0x](A);>)>@1@2@3JZD'   'I0x[z<0x[(J'X0'EzJZD'0'I;JZD1x[;)>2x[z<0x[(J'X0'EzJZD3x[;JZD'0'I;)>@t':'I@j;
  36. @~J@1@2@33(a;L)z{('   'Ez;)#('   '0x>;)}JZD0x[(J'X0'EzJZD'0'I;JZD1x[;)2x[z<0x[(J'X0'EzJZD3x[;JZD'0'I;)>0x['   'I@t':'I@j;
  37. @~J' 'Ez0x]JZD'0'I0x[@t':'I@j;
  38. @~JZ<(2(a;L)zjJ><0x](A);>)>' 'Ez1x]JZD0x['0'I1x[@t':'I@j;
  39. Z;)@~4x:;)}B
  40. {(''0 1 2 3x);)~
  41. (0x(1x(2x(3x((@~J(A)JZD;
  42. @~J':'FzJZ@t@j;
  43. @~JZ<(3(a;L)zjJ><0x](A);>)>' 0 'Ez1x]JZD0x['00 'I1x[@t':'I@j;
  44. @~J@0' 'EzZ<(2(a;L)zjJ><1x](A);>)>'0'EzZ<(2(a;L)zjJ><2x](A);>)>' 'Ez@3JZD0x['0'I1x['0'I2x[' 'I3x[@t':'I@j;
  45. @~J' 'Ez0x]JZD'0'I0x[@t':'I@j;
  46. @~J@0@1' 'Ez2x]JZD0x[1x['0'I2x[@t':'I@j;
  47. Z;)@~4x:;)}C
  48. {(''0 1x);)~
  49. (0x(1x((@~J(A)JZD;
  50. @~J':'FzJZ@tJZD'Tie'Ixt;
  51. @~J{(' 'Ez1x];)#(' '0x>;)}JZD0x['0'I1x[@tJZD'Tie'Ixt;
  52. Z;)@~2x:;)}D
  53. {(Z<(1(a;L)zjJ><0x](A);>)>;)0
  54. (Z<(1(a;L)zjJ><1x](A);>)>;)1
  55. (Z<(1(a;L)zjJ><2x](A);>)>;)2
  56. (Z<(1(a;L)zjJ><3x](A);>)>;)3
  57. (JZD' ====>  I win!  <===='Ixt;)G
  58. (JZD{(Jx|;)~('TTY:t terminates, p plays, <return> gives directions: 'IxRA;;)}x~;)E
  59. (J(A)JZD'This program plays tic-tac-toe on a board numbered'I2573,I' from 1 to 9 as follows:'I'0A0D0A0D'HI' 1 | 2 | 3'I2573,I'---+---+---'I2573,I' 4 | 5 | 6'I2573,I'---+---+---'I2573,I' 7 | 8 | 9'Ixtz<@E>:
  60. JZ<('P'Ez;J'p'Ez;>)>JZD'         :'I@j@A@B@C@Dz<@E>:
  61. JZ<('T'Ez;J't'Ez;>)>JZD'Stop'I;
  62. JZD@E:
  63. Z;)}~
  64. {(-1='Not Found'I;) v
  65. ((' 'FZD;Z;)0%IJ;) u
  66. (x+'Terminated'TLxE_) M
  67. ((B13%ED;;)J(10%FD:;)J(26%FBAZD;;)Z;) ~
  68. (13%Fz;26%F((2b);J6666,EA;zBj;)z;) |
  69. (512eqm29$rn|63K0(=)(a;L)LzZD(B26%ED:;)Y;DLL) y
  70. (J(2573FDZQmD;''m;)l30$SJ('L/'FDZ<(' 'FjJ;;)QD>
  71. ((B;;)' 'ED;;);'';)mZ
  72. 188cmpw'M'$r(f:;)wnpG66-,127$Sx@
  73. 'vuM~|y'I<z(BQD@s:;)>0,31$S
  74. nI<(A1b':'(E)'\'(E);'CNVLIB.REC'I;;)0%IJQD>
  75. 30$ryGI<@ppGm(pL61K-1(=);LLL@o:lyG' Not Found'|T_)
  76. 29$SnLLLLJZD>
  77. '# #mt 'm(32$r0=0''CLpLr32$S;;)LZz;) x
  78. (';'FDJ<((A);1b'\'E;'\'I;)JQD>lyG|;) o
  79. ('PATH='(F)JZD;(0%U;zZ;)QJZD(''=;';'=;I';'I;)J;) p
  80. (pG$r&\pG+127$r+S;) s
  81. (Z>zZ<(J@|J><z@~J;@y:Z26%I:)26%EnL0pG29$rpGm62knS;
  82. J('['ED']'FDJ<Z((2b)>JZD;QDlyw&FwJZD>;w:):Z;)
  83. >J<'[!]'FDBQD\pG+127$r+mJq32$rC
  84. mpGlyG-'w'$r'x'$r-
  85. (NLnLq'x'$rC&'x'$SnS;32$SnnS;)D::) w
  86. (@x<<@w>JZD>;)} %
  87. (@%@~xTxE;) }
  88.