040 print "TIC TAC TOE BY E.SCHOO"
050 input "GAMES?"W
060 for J=1to W;clear ;SM=0
170 BC=35;FC=232
180 CX=-20;CY=40;print #1,"1"
190 CX=0;CY=40;print #1,"2"
200 CX=20;CY=40;print #1,"3"
210 CX=-40;CY=20;print #1,"1"
220 CX=-40;CY=0;print #1,"2"
230 CX=-40;CY=-20;print #1,"3"
300 line -30,-30,4
310 line -30,30,1
320 line 30,30,1
330 line 30,-30,1
340 line -30,-30,1
350 line -10,-30,4
360 line -10,30,1
370 line 10,30,4
380 line 10,-30,1
390 line 30,-30,4
400 line 30,-10,4
410 line -30,-10,1
420 line -30,10,4
430 line 30,10,1
450 P=1
501 A=0
502 B=0
503 C=0
504 D=0
505 E=0
506 F=0
507 G=0
508 H=0
509 I=0
600 Z=11
601 V=12
602 U=13
603 R=21
604 Y=22
605 O=23
606 N=31
607 K=32
608 L=33
1400 for M=1to 9
1420 if P=1;goto 1460
1440 S=10;goto 1520
1460 S=5
1480 CX=-70;CY=-40
1500 SM=1
1520 if P=1goto 1610
1540 print KN(2)|divided_by|8+26
1550 if TR(2)=0goto 1480
1560 T=KN(2)|divided_by|8+26
1570 print T;print "   ?"
1580 if JY(2)=1goto 1540
1590 if TR(2)=0goto 1570
1595 goto 1662
1600 goto (1700+T)
1610 print KN(1)|divided_by|8+26
1620 if TR(1)=0goto 1480
1630 T=KN(1)|divided_by|8+26
1640 print T;print "   ?"
1650 if JY(1)goto 1610
1660 if TR(1)=0goto 1640
1662 if T=Zgoto 1664
1663 goto 1665
1664 Z=0;goto 1698
1665 if T=Vgoto 1667
1666 goto 1668
1667 V=0;goto 1698
1668 if T=Ugoto 1670
1669 goto 1671
1670 U=0;goto 1698
1671 if T=Rgoto 1673
1672 goto 1674
1673 R=0;goto 1698
1674 if T=Ygoto 1676
1675 goto 1677
1676 Y=0;goto 1698
1677 if T=Ogoto 1679
1678 goto 1680
1679 O=0;goto 1698
1680 if T=Ngoto 1682
1681 goto 1683
1682 N=0;goto 1698
1683 if T=Kgoto 1685
1684 goto 1686
1685 K=0;goto 1698
1686 if T=Lgoto 1688
1687 goto 1689
1688 L=0;goto 1698
1689 if P=1goto 1610
1690 goto 1540
1698 goto 1700
1700 goto (1700+T)
1711 A=A+S;goto  1800
1712 B=B+S;goto  1800
1713 C=C+S;goto 1800
1721 D=D+S;goto  1800
1722 E=E+S;goto  1800
1723 F=F+S;goto  1800
1731 G=G+S;goto  1800
1732 H=H+S;goto  1800
1733 I=I+S;goto  1800
1790 print 7;print B
1800 goto (1800+T)
1811 CX=-20;CY=20;goto  1850
1812 CX=0;CY=20;goto  1850
1813 CX=20;CY=20;goto  1850
1821 CX=-20;CY=0;goto 1850
1822 CX=0;CY=0;goto  1850
1823 CX=20;CY=0
1824 goto 1850
1831 CX=-20;CY=-20;goto 1850
1832 CX=0;CY=-20;goto  1850
1833 CX=20;CY=-20;goto  1850
1850 if P=1goto 1870
1860 print "O";goto 1880
1870 print "X"
1880 CX=-70;CY=-40
2000 if P=1goto 2030
2010 T=1000
2020 goto 2040
2030 T=125
2040 if A|*|B|*|C=Tgoto 2150
2050 if D|*|E|*|F=Tgoto 2150
2060 if G|*|H|*|I=Tgoto 2150
2070 if C|*|E|*|G=Tgoto 2150
2080 if A|*|E|*|I=Tgoto 2150
2090 if A|*|D|*|G=Tgoto 2150
2100 if B|*|E|*|H=Tgoto 2150
2110 if F|*|I|*|G=Tgoto 2150
2112 if M=9goto 2145
2114 CX=-70;CY=-40
2115 if P=1goto 2130
2120 P=P-1;print "PLAYER 1"
2125 goto 2140
2130 P=P+1;print "PLAYER 2"
2140 next M
2145 print "TIED";next J
2150 print "WON"
2155 M=9
2160 next J


