File: TIC.FC of Tape: Various/ETH/fc1

(.FC,.FO Focal format converted to 'WRITE' listing) 

---

C ACU-FOCAL12,1973

01.01 T "TIC TAC TOE.",!,"GEWINNEN IST AUCH MOEGLICH!!!",!
01.07 T !,"*****",!,"*123*",!,"*456*",!,"*789*",!,"*****",!
01.10 F B=1,1,9;S A(B)=0
01.40 T !;A "WER ZIEHT ZUERST ? (1=SIE,2=ICH)",A; I (A-1)1.5,9.1,1.5
01.50 T !;S A=14
01.60 S A=A-6;I (A+4)2.05,2.25,2.05

02.05 S B=1;S C=1
02.07 I (A(B)+A(B+C)+A(B+2*C)-A)2.09,3.1,2.09
02.09 S B=B+3;S C=1;I (B-8)2.07,2.11,2.11
02.11 S B=1;S C=3
02.13 I (A(B)+A(B+C)+A(B+2*C)-A)2.15,3.1,2.15
02.15 S B=B+1;S C=3;I (B-4)2.13,2.17,2.13
02.17 S B=1;S C=4;I (A(B)+A(B+C)+A(B+2*C)-A)2.19,3.1,2.19
02.19 S B=3;S C=2;I (A(B)+A(B+C)+A(B+2*C)-A)1.6,3.1,1.6
02.25 S A=0;I (A(1)*A(9)-1)2.27,2.29,2.27
02.27 I (A(3)*A(7)-1)2.35,2.29,2.35
02.29 S A=A+2;I (9-A)2.35;I (-A(A)+.1)2.29;S A(A)=4;G 2.9
02.35 S A=-1
02.37 S A=A+1;S B=6*A*A-10*A+5;I (2-A)2.5,2.39,2.39
02.39 I (-A(B))2.37;S A(B)=4;G 2.9
02.41 S A=A+2;I (9-A)2.5;I (-A(A)+.1)2.41;S A(A)=4;G 2.9
02.50 S B=FITR(FABS(10*FRAN()));I (A(B))2.5,2.55,2.5
02.55 I (B)2.6,2.5,2.6
02.60 S A(B)=4
02.90 D 4.0
02.95 S A=-6;G 5.1

03.10 I (A(B)-.1)3.3;S B=B+C;G 3.1
03.30 S A(B)=4;G 2.9

04.05 T "****"
04.10 F B=1,3,7;T "*",!,"*";F A=B,1,A+2;D 4.2
04.15 T "*",!,"*****"
04.20 I (A(A)-1)4.3,4.4,4.5
04.30 T " ";R
04.40 T "X";R
04.50 T "O";R

05.10 S A=A+9;S C=3;F B=1,1,3;D 5.5
05.20 S C=1;F B=1,3,7;D 5.5
05.30 S C=2;S B=3;D 5.5
05.40 S C=4;S B=1;D 5.5
05.42 I (A-12)5.1;I (A(1))1.1,9.1,9.1
05.50 I (A(B)+A(B+C)+A(B+2*C)-A)5.7,5.75,5.7
05.70 R
05.75 I (A-12)5.9,5.8,5.9
05.80 I (A(1))5.7;S A(1)=-1;T !!,"ICH GEWINNE HAHA!"!!;R
05.90 I (A(1))5.7;S A(1)=-1;T !!,"SIE GEWINNEN OHA!"!!;R

09.10 I (A(1)*A(3)*A(6)*A(2)*A(4)*A(5)*A(7)*A(8)*A(9))9.9,9.2,9.9
09.20 T !!;A "WELCHEN PLATZ ?",B;I (A(B))9.3,9.4,9.3
09.30 T "KAESE ! BITTE NOCHMALS !",!;G 9.2
09.40 S A(B)=1;G 9.7
09.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
09.80 G 1.5
09.90 T !!,"UNENTSCHIEDEN!",!;G 1.1

---