Directory of image this file is from
This file as a plain text file

C-PS/8 FOCAL, 1971
 1.01 C TIC TAC TOE IN DEUTSCH
 1.05 T "TIC-TAC-TOE.     GEWINNEN IST MOEGLICH.",!
 1.07 T "*****",!,"*123*",!,"*456*",!,"*789*",!,"*****",!
 1.10 F B=1,1,9;S A(B)=0
 1.40 A "WER ZIEHT ZUERST 
 (1=SIE,2=ICH)",A;I (A-1)1.5,9.1,1.5
 1.50 S A=14
 1.60 S A=A-6;I (A+4)2.05,2.25,2.05
 2.05 S B=1;S C=1
 2.07 I (A(B)+A(B+C)+A(B+2*C)-A)2.09,3.1,2.09
 2.09 S B=B+3;S C=1;I (B-8)2.07,2.11,2.11
 2.11 S B=1;S C=3
 2.13 I (A(B)+A(B+C)+A(B+2*C)-A)2.15,3.1,2.15
 2.15 S B=B+1;S C=3;I (B-4)2.13,2.17,2.13
 2.17 S B=1;S C=4;I (A(B)+A(B+C)+A(B+2*C)-A)2.19,3.1,2.19
 2.19 S B=3;S C=2;I (A(B)+A(B+C)+A(B+2*C)-A)1.6,3.1,1.6
 2.25 S A=0;I (A(1)*A(9)-1)2.27,2.29,2.27
 2.27 I (A3)*A(7)-1)2.35,2.29,2.35
 2.29 S A=A+2;I (9-A)2.35;I (-A(A)+.1)2.29;S A(A)=4;G 2.9
 2.35 S A=-1
 2.37 S A=A+1;S B=6*A*A-10*A+5;I (2-A)2.5,2.39,2.39
 2.39 I (-A(B))2.37;S A(B)=4;G 2.9
 2.41 S A=A+2;I (9-A)2.5;I (-A(A)+.1)2.41;S A(A)=4;G 2.9
 2.50 S B=FITR(FABS(10*FRAN()));I (A(B))2.5,2.55,2.5
 2.55 I (B)2.6,2.5,2.6
 2.60 S A(B)=4
 2.90 D 4.0
 2.95 S A=-6;G 5.1
 3.10 I (A(B)-.1)3.3;S B=B+C;G 3.1
 3.30 S A(B)=4;G 2.9
 4.05 T "****"
 4.10 F B=1,3,7;T "*",!,"*";F A=B,1,A+2;D 4.2
 4.15 T "*",!, "*****"
 4.20 I (A(A)-1)4.3,4.4,4.5
 4.30 T " ";R
 4.40 T "X";R
 4.50 T "0";R
 5.10 S A=A+9;S C=3;F B=1,1,3;D 5.5
 5.20 S C=1;F B=1,3,7;D 5.5
 5.30 S C=2;S B=3;D 5.5
 5.40 S C=4;S B=1;D 5.5
 5.42 I (A-12)5.1;I (A(1))1.1,9.1,9.1
 5.50 I (A(B)+A(B+C)+A(B+2*C)-A)5.7,5.75,5.7
 5.70 R
 5.75 I (A-12)5.9,5.8,5.9
 5.80 I (A(1))5.7;S A(1)=-1;T !,"ICH GEWINNE HA HA!",!;R
 5.90 I (A(1))5.7;S A(1)=-1;T !,"SIE GEWINNEN OH OH!",!;R
 9.10 I (A(1)*A(2)*A(3)*A(4)*A(5)*A(6)*A(7)*A(8)*A(9))9.9,9.2,9.9
 9.20 T !;A "WELCHEN PLATZ
"B;I (A(B))9.3,9.4,9.3
 9.30 T "KAESE! BITTE NOCHMALS!",!;G 9.2
 9.40 S A(B)=1;G 9.7
 9.70 I (A(1)*A(2)*A(3)*A(4)*A(5)*A(6)*A(7)*A(8)*A(9))9.9,9.8,9.9
 9.80 G 1.5
 9.90 T !,"UNENTSCHIEDEN!;G 1.5