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

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

---

C-EXERC .FC SEP-75

01.10 I (TY,=,0)1.3;E
01.20 S TY=1;S OD=10;S OR=10;S AB=1
01.30 S GA=2;S GB=2

02.10 T !"JETZT, BITTE ";D 30+TY/10;

03.05 S QE=.1;D TY+10
03.10 T %GA,A,"  ";D 30.05+TY/10;T %GB,"  ",B,"  ="
03.30 A RE
03.40 S QE=.6;D  TY+10

11.05 G 11+QE
11.10 D 20
11.59 R
11.99 R

20.05 F I=0,FRAN()*10;S Z=FRAN()
20.10 S A=FITR(OD*(FRAN()-.5)); S A1=FITR(OD*(FRAN()-.5))
20.20 S B=FITR(OR*(FRAN()-.5));S B1=FITR(OR*(FRAN()-.5))
20.30 G  AB/10+20.4
20.40 R
20.50 S A=FABS(A);S A1=FABS(A1)
20.60 S B=FABS(B);S B1=FABS(B1)

30.10 T "UND RECHNEN"
30.15 T "+"
30.20 T "WEG RECHNEN
30.25 T "-"
30.30 T "MAL RECHNEN
30.35 T "X
30.40 T "TEILEN
30.45 T "./.

---