02 rem ---------------------------------------------------------------
04 rem TicTacToe, written in BASIC on a DEC pdp8e 12-bit minicomputer.
06 rem Copyright (c) A. David Levine 1974, 2001.  All Rights Reserved.
08 rem ---------------------------------------------------------------

10 a=a+1:s(a)=a+48:ifa<9the10:gos22:k=x:d=5:ifx=5thed=1:gos22
12 reac,d,e,f,g,h:ifc<>5.5*(k+x)-4.5*abs(k-x)the12:res:gos22:k=x/2
14 c=c*10:d=f:ifabs(350-c)=100the16:ifx=ethe18:d=e:j=6:got18
16 ifx<>9thed=10-x:ifint(k)=ktheg=f:h=10-g:ifx<>ethe18:h=g:g=9
18 gos22:d=g:ifx=gthed=h:ifd=gthej=6:x=6
20 reab:ifb=254thex=4:ifabs(b-c-k)=kthej=x:ifb>0the20:ifj=4thegos22
22 s(d)=48:b=b+1:prichr$(s(b))" ";:ifint(b/3)=b/3the23:pri"* ";:got22
23 pri:ifb=9the24:pri"*********":got22
24 pri:b=0:ifj>4the42:inpx:ifs(x)<>x+48the24:s(x)=88:j=j+1:pri:return
26 dat253,280,457,460,254,257,350,452,453,570,590,0
28 dat12,3,7,4,6,8,13,2,8,6,4,7,14,7,3,2,8,6,16,8,2,3,7,4,17,4,6,8,2,3
30 dat18,6,4,7,3,2,19,8,2,3,7,4,23,1,9,6,4,8,24,1,9,3,7,8,25,8,3,7,4,0
32 dat26,3,7,1,9,8,27,6,4,1,9,8,28,1,9,7,3,4,29,4,6,3,7,8,34,8,2,1,9,6
34 dat35,7,4,6,8,2,36,9,1,2,8,4,37,4,6,9,1,2,38,4,6,9,1,2,39,6,4,8,2,1
36 dat45,6,7,3,2,0,46,7,3,9,1,8,47,1,9,8,2,6,48,7,3,1,9,6,49,2,8,7,3,6
38 dat56,4,7,3,2,8,57,3,2,8,4,6,58,2,3,7,4,6,59,3,2,8,4,6,67,2,8,9,1,4
40 dat68,9,1,3,7,4,69,3,7,8,2,4,78,9,1,4,6,2,79,8,2,4,6,3,89,7,3,6,4,2
42 ifj=5thepri"tie game. ";:ifj=6thepri"you lost. ";:a=0:d=0:j=0
44 pri"play again";:inpb$:ifb$>="y"the10:end