File: MASTER.FO of Tape: Sources/Other/new-14
(.FC,.FO Focal format converted to 'WRITE' listing)
C-MASTER.FO JAN-79 01.02 E;S $=2000;S I1=1;S I2=1;S ZU=1;S MS=0 01.05 D 6 01.12 S V=3;S H=0;D 30.35;D 30.4 01.15 D 4.55;D 29;IF (MS,<>,0)1.2,1.02 01.20 D 2;S CT=8;S I1=1;S I2=1 01.25 D 1.12;D 4.5 01.30 D 29;D 1.12;S K=0;F I=1,3;S P(I)=0 01.35 D 5;I (MS,=,0)1.02;I (K,<>,0)1.3;I (K,=,3)1.35 01.37 S P1=P(1);S P2=P(2);S P3=P(3) 01.40 I (CT,>,16)1.45;S MS=4.7;D 7;G 1.02 01.45 S CT=CT+1;S CV=CT;S CH=0;D 30.5;T %\1,CT-8,") ",P1,P2,P3 01.50 S AS=0;S GU=0;D 3;D 4 01.55 I (AS,=,3)1.25;S MS=4.75;D 7;G 1.02 02.10 D 2.9;S Z1=ZUF 02.20 D 2.9;S Z2=ZUF 02.25 I (Z1,=,Z2)2.3,2.2 02.30 D 2.9;S Z3=ZUF 02.35 I (Z3,=,Z1)2.4,2.3 02.40 I (Z3,=,Z2)2.45,2.3 02.45 R 02.90 S ZUF=FRAN();S ZUF=FITR(ZUF*10) 03.10 I (P1,=,Z1)3.15;S AS=AS+1;G 3.3 03.15 I (P1,=,Z2)3.2;S GU=GU+1;G 3.3 03.20 I (P1,=,Z3)3.3;S GU=GU+1;G 3.3 03.30 C 03.35 I (P2,=,Z1)3.4;S GU=GU+1;G 3.55 03.40 I (P2,=,Z2)3.45;S AS=AS+1;G 3.55 03.45 I (P2,=,Z3)3.55;S GU=GU+1;G 3.55 03.55 C 03.60 I (P3,=,Z1)3.65;S GU=GU+1;G 3.8 03.65 I (P3,=,Z2)3.7;S GU=GU+1;G 3.8 03.70 I (P3,=,Z3)3.8;S AS=AS+1;G 3.8 03.80 R 04.05 S CH=25;D 30.5 04.10 I (AS,>,0)4.2;F I=1,AS;T " ASS " 04.20 I (GU,>,0)4.3;F I=1,GU;T " GUT " 04.30 I (GU+AS,=,0);T "-----------------------" 04.40 R 04.50 T "Geben Sie eine dreistellige Zahl ein!",! 04.55 T "Bitte warten und eine Taste druecken" 04.60 T "Schlechte Eingabe!" 04.65 T :23"* Zeit abgelaufen!!" 04.70 T :23"* Zu viele Zuege!!" 04.75 T :23"* Sie haben es geschafft!!" 05.05 I (IN,=,0)5.1;D 29;I (MS,<>,0)5.1;R 05.10 I (IN,>=,176)5.8;I (IN,<=,185)5.8 05.15 S V=3;S H=K;D 30.35 05.20 S K=K+1;S P(K)=IN-176 05.30 S Z=FOUT(IN) 05.40 S IN=0;R 05.80 D 1.12;D 4.6 05.90 S K=0;S IN=0;R 06.10 D 30.3;D 30.45 06.15 T :,:18,"D A T A P L A N M A S T E R M I N D"!! 06.20 T :65,"Zeit: " 06.25 T !!!!,"Eingabe:",:31,"Ergebnisse:"! 06.30 T :23,"*****************************" 06.35 F I=1,11;D 6.95 06.40 D 6.3 06.50 R 06.95 T !,:23,"*",:51,"*" 07.10 S V=19;S H=0;D 30.35 07.20 D 6.3 07.30 F I=1,4;D 6.95 07.40 D 6.3 07.50 S V=21;S H=0;D 30.35 07.60 D MS 07.70 F I=1,50;S Z=FSIN(1) 29.10 S $=2000;S I1=1 29.20 I ($,=,2000)29.9;S I1=I1+1;I (I1,<,12)29.25,29.2 29.25 S I2=I2+1;S ZU=FRAN();D 30.55;T %3,I2 29.30 I (I2,>,120)29.1;S MS=4.65;D 7;R 29.90 S IN=FIN() 30.10 D 30.99;T "A";CURSOR U 30.15 D 30.99;T "B";CURSOR D 30.20 D 30.99;T "C";CURSOR R 30.25 D 30.99;T "D";CURSOR L 30.30 D 30.99;T "H";CURSOR H 30.35 D 30.99;T "Y";S Z=FOUT(32+V);S Z=FOUT(32+H) 30.40 D 30.99;T "K";CERASE EOL 30.45 D 30.99;T "J";CERASE EOS 30.50 S V=CV;S H=CH;D 30.35 30.55 S V=2;S H=70;D 30.35;CLOCK 30.99 T #;O I TTY:;S Z=FOUT(155);