Directory of image this file is from
This file as a plain text file
()0P-O C-PS/8 FOCAL, 1971?MB.BET "TIC-TAC-TOE. GEWINNEN IST MOEGLICH.",!?MCKBGT "*****",!,"*123*",!,"*456*",!,"*789*",!,"*****",!?MCWBJF B=1,1,9;S A(B)=0?MPWB(A "WER ZIEHT ZUERST (1=SIE,2=ICH)",A;I (A-1)1.5,9.1,1.5?MDIB<S A=A-6;I (A+4)2.05,2.25,2.05?MDRDES B=1;S C=1?MD)DGI (A(B)+A(B+C)+A(B+2*C)-A)2.09,3.1,2.09?MD>DIS B=B+3;S C=1;I (B-8)2.07,2.11,2.11?MEGDKS B=1;S C=3?ME^DMI (A(B)+A(B+C)+A(B+2*C)-A)2.15,3.1,2.15?ME3DOS B=B+1;S C=3 I (B-4)2.13,2.17,2.13?MFPDQS B=1;S C=4;I (A(B)+A(B+C)+A(B+2*C)-A)2.19,3.1,2.19?MF,DSS B=3;S C=2;I (A(B)+A(B+C)+A(B+2*C)-A)1.6,3.1,1.6?MGADYS A=0;I (A(1)*A(9)-1)2.27,2.29,2.27?MGRD[I (A3)*A(7)-1)2.35,2.29,2.35?MG/D]S A=A+2;I (9-A)2.35;I (-A(A)+.1)2.29;S A( )=4;G 2.9?MG5DS A=-1?MHOD%S A=A+1;S B=6*A*A-10*A+5;I (2-A)2.5,2.39,2.39?MH D I (-A(B))2.37;S A(B)=4;G 2.9?MH<D)S A=A+2;I (9-A)2.5;I (-A(A)+.1)2.41;S A(A)=4;G 2.9?MIVD2S B=FITR(FABS(10*FRAN()));I (A(B))2.5,2.55,2.5?MI!D7I (B)2.6,2.5,2.6?MI(D<S A(B)=4?MI.EZ 4.0?MI7E S A=-6;G 5.1?MJHFJI (A(B)-.1)3.3;S B=B+C;G 3.1?MJRF^S A(B)=4;G 2.9?MJYHET "****"?MJ0HJF B=1,3,7;T "*",!,"*";F A=B,1,A+2;D 4.2?MJ;HOT "*",!, "*****"?MKIHTI (A(A)-1)4.3,4.4,4.5?MKPH^T " ";R?MKWH(T "X";R?MK^H2T "0";R?MK0JJS A=A+9;S C=3;F B=1,1,3;D 5.5?MK>JTS C=1;F B=1,3,7;D 5.5?MLJJ^S C=2;S B=3;D 5.5?MLVJ(S C=4;S B=1;D 5.5?ML)J*I (A-12)5.1;I (A(1))1.1,9.1,9.1?ML?J2I (A(B)+A(B+C)+A(B+2*C)-A)5.7,5.75,5.7?MMCKFR?MMPKKI (A-12)5.9,5.8,5.9?MM,KPI (A(1))5.7;S A(1)=-1;T !,"ICH GEWINNE HA HA!",!;R?MO6KZI (A(1))5.7;S A 1)=-1;T !,"SIE GEWINNEN OH OH!",!;R?MN"RTT !;A "WELCHEN PLATZ "B;I (A(B))9.3,9.4,9.3?MN6R^T "KAESE! BITTE NOCHMALS!",!;G 9.2?MOR(S A(B)=1;G 9.7?MO!SFI (A(1)*A(2)*A(3)*A(4)*A(5)*A(6)*A(7)*A(8)*A(9))9.9,9.8,9.9?MP]SPG 1.5?MBTBAC TIC TAC TOE IN DEUTSCH?MNIRJI (A(1)*A(2)*A(3)*A(4)*A(5)*A(6)*A(7)*A(8)*A(9))9.9,9.2,9.9?MC B2S A=14?MSZT !,"UNENTSCHIEDEN!;G 1.5?M14L S TICTAC?M?MHIEDEN!;G 1.5?A(6)*A(7)*A(8)*A(9))9.9,9.2,9.9?5 DISABLES THIS OPTION)"!?MQ KFT "7 : IN ASK "!?MQ=KPT "8 & IN POWERS-OF-TEN NOTATION"!?MROKZT Note: Lines longer than 256 characters were wrapped