home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / MISC / REC.ZIP / GATO.REC < prev    next >
Encoding:
INI File  |  1986-12-01  |  5.6 KB  |  103 lines
  1. [GATO.REC]
  2. {{(JZD'your turn: give me a number between 1 and 9'Ixtz<{(Jx|;)~(xRA;;)}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<(j<'[2'>(Oa;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. (J(A)JZD'         :'I@j@A@B@C@Dz<'Answer t to terminate, h for help, anything else to continue'Ixt>z<{(Jx|;)~(xRA;;)}x~(JZ<('T'Ez;J't'Ez;>)>JZD'T'I;JZJZ<('H'Ez;J'h'Ez;>)>JZDxQ;JZD;)>:
  59. JZD'Stop'I;
  60. Z;)}~
  61. {((Jj':'UQD':'ED\64-(0=)%;0,25K^&L%;)
  62. ('.'U<(8a;xb;)Q|D>;Z'.'IJj:)
  63. '.'FJD(3a;xb;)Q|JZDI;) u
  64. (255='Not Found'I;) v
  65. (Zz(d' 'I:;)JZ;) b
  66. (w0%(f:;)w;) -
  67. (cmpx-n;) 0
  68. (128,26k;) 5
  69. (x+'This program plays tic-tac-toe on a board numbered as follows:
  70.  
  71.  1 | 2 | 3
  72. ---+---+---
  73.  4 | 5 | 6
  74. ---+---+---
  75.  7 | 8 | 9
  76.  
  77. Press "return" to begin'TL;) Q
  78. ((B13%ED;;)J(10%FD:;)Z;) ~
  79. (13%Fz;26%F((2b);J6666,EA;zBj;)z;) |
  80. (|0|0|0|pLpGnpG6-mSpG8+n&S;) 3
  81. (x00x3;) `
  82. (mx0n&mx0nx3;) z
  83. (30$r128eqL26k20K0=L;DLL) y
  84. (('L/'FDZ<(' 'FjJ;;)QD>
  85. ((B;;)' 'ED;;);'';)mZ
  86. 188@0pG66-,127$Sx@
  87. 'uvb-05Q~|3`zy'I<z(BQD@s:;)>@i
  88. 33@0pG30$SnI
  89. <@u(A' 'EZD'CNVLIB  REC'I;;)JQD>&S
  90. @5,30$r15K(@vu\64+%':'|&11G|':'|TLqt_;LL;)
  91. 't # #mQ 'm0''CLpLr32$SLZz;) x
  92. (Jj(' 'ED:;)(' 'U;Z;)QZI<(AB;'TTY:'I;)31$m
  93. ('TTY:'E4x`;xu130,33xz;)QZD>&pG8+0&SrS;) i
  94. (pG$r&\pG+127$r+S;) s
  95. (Z>zZ<(J@|J><z@~J;@y:Z26%I:)26%ELnL0,30$S;
  96. J('['ED']'FDJ<Z((2b)>JZD;QDlyw&FwJZD>;w:):Z;)
  97. >J<'[!]'FDBQD\pG+127$r+mJq32$rC
  98. mpGlyG-'w'$r'x'$r-
  99. (NLnLq'x'$rC&'x'$SnS;32$SnnS;)D::) w
  100. (@x<<@w>JZD>J'Next: '32$r!|TLxQ
  101. (A;{(Jx|;) ~ (xR;;)}x~;);)} %
  102. (@%@~xTxE;) }
  103.