1 .
   2 .
   5 BC=8;FC=14;NT=3
   6 Y=3
  10 clear 
  20 box 0,-12,75,1,1;box 0,13,75,1,1;box -14,1,1,71,1;box 15,1,1,71,1
  30 A=0;B=0;C=0;D=0;E=0;F=0;G=0;H=0;I=0;U=0;W=0
  40 CX=-25;CY=25;print "1";CX=2;CY=25;print "2";CX=27;CY=25;print "3"
  50 CX=-25;CY=1;print "4";CX=2;CY=1;print "5";CX=27;CY=1;print "6"
  60 CX=-25;CY=-25;print "7";CX=2;CY=-25;print "8";CX=27;CY=-25;print "9"
  65 CX=-41;CY=40;print "X";CX=74;CY=30;print X
  66 CX=-41;CY=10;print "O",;CX=74;CY=0;print O,
  67 T=Y
  70 NT=3;CX=-80;CY=-20
  71 if T=3print "X"
  72 if T=12print "O"
  73 CX=-70;CY=-20;print " TURN"
  74 M=KP
  75 M=M-48
  76 if M<1goto 80
  77 if M>9goto 80
  78 goto 90
  80 NT=5;for L=1to 6;MU=87;MU=84;next L;&(9)=31;&(0)=8;&(1)=8;&(2)=148;&(3)=148
  81 CX=50;CY=30;print "TRY";CX=50;CY=20;print "AGAIN";CX=50;CY=10;print "DUMMY";goto 73
  90 if M#1goto 140
 100 if A=0goto 120
 101 if A#0goto 80
 120 A=T;CX=-25;CY=25
 130 goto 540
 140 if M#2goto 190
 150 if B=0goto 170
 151 if B#0goto 80
 170 B=T;CX=2;CY=25
 180 goto 540
 190 if M#3goto 240
 200 if C=0goto 220
 201 if C#0goto 80
 220 C=T;CX=27;CY=25
 230 goto 540
 240 if M#4goto 290
 250 if D=0goto 270
 251 if D#0goto 80
 270 D=T;CX=-25;CY=1
 280 goto 540
 290 if M#5goto 340
 300 if E=0goto 320
 301 if E#0goto 80
 320 E=T;CX=2;CY=1
 330 goto 540
 340 if M#6goto 390
 350 if F=0goto 370
 351 if F#0goto 80
 370 F=T;CX=27;CY=1
 380 goto 540
 390 if M#7goto 440
 400 if G=0goto 420
 401 if G#0goto 80
 420 G=T;CX=-25;CY=-25
 430 goto 540
 440 if M#8goto 490
 450 if H=0goto 470
 451 if H#0goto 80
 470 H=T;CX=2;CY=-25
 480 goto 540
 490 if M#9goto 70
 500 if I=0goto 520
 501 if I#0goto 80
 520 I=T;CX=27;CY=-25
 530 goto 540
 540 N=A+B+C;if Ndiv 3=Tgoto 640
 550 N=D+E+F;if Ndiv 3=Tgoto 640
 560 N=G+H+I;if Ndiv 3=Tgoto 640
 570 N=A+D+G;if Ndiv 3=Tgoto 640
 580 N=B+E+H;if Ndiv 3=Tgoto 640
 590 N=C+F+I;if Ndiv 3=Tgoto 640
 600 N=A+E+I;if Ndiv 3=Tgoto 640
 610 N=C+E+G;if Ndiv 3=Tgoto 640
 612 if N=3if N=6if N=12if N=15if N=18if N=24if N=27goto 670
 615 if N=9;if N=36goto 640
 620 U=U+1
 630 goto 670
 640 W=1;if T=3goto 660
 650 O=O+1;goto 670
 660 X=X+1
 670 if T=3print "X";box 60,20,40,40,2
 680 if T=12print "O";box 60,20,40,40,2
 690 if W=1goto 800
 700 if U=9NT=10;MU=51;MU=45;MU=51;MU=51;MU=45;MU=51;MU=51;MU=99;MU=55;MU=50;MU=49;MU=99;MU=54;MU=48;goto 5
 710 if T=12goto 725
 720 T=12;goto 70
 725 T=3;goto 70
 800 for V=1to 5
 810 &(19)=37;&(17)=31;&(21)=47;&(22)=31
 820 BC=14
 830 FC=8
 840 for S=30to 20step -1;&(16)=S;next S
 850 BC=8
 860 FC=14
 870 for S=20to 30;&(16)=S;next S
 880 next V
 890 for Z=22to 16step -1;&(Z)=0;next Z
 900 if Y=12goto 6
 910 Y=12;goto 10