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

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

---

C ACU-FOCAL12,1973

01.10 S B=0;T !!"WUERFELSPIELCHEN"!,"OBERE GREBZE FR. 1000.-"!
01.11 T "GEIZIGSTER EINSATZ IST FR. 1.- !"!
01.20 ASK "IHR EINSATZ IST" ,A; I (1000-A) 3.1
01.22 I (A-1)3.4, 1.26, 1.26
01.26 IF (A-FITR(A)) 3.5, 1.3, 3.5
01.30 ASK M
01.32 DO 2
01.34 SET D=C
01.36 DO 2
01.38 SET E=C
01.40 I (D-C) 3.20, 1.42, 3.30
01.42 GOTO 1.30

02.10 S Q1=FRAN()
02.11 S C=(FABS(FITR(100*Q1)))-(FABS((FITR(10*Q1))*10))
02.12 I (C-6) 2.2, 2.2, 2.1
02.20 I (C-1) 2.1; T %1, "  "C; RETURN

03.10 T "KEIN UNSINN BITTE ! HOECHSTER EINSATZ WAR DOCH 1000.- FR."!
03.11 G 1.2
03.20 S B=B+A; T %7,!"GEWONNEN, IHR KONTOSTAND IST "B,!!;G 1.2
03.30 S B=B-A; T %7,!"VERLOREN!!!, IHR KONTOSTAND IST  "B,!!;G 1.2
03.40 T "KOENNEN SIE EIGENTLICH NICHT LESEN?"!
03.41 T "MINIMALER EINSATZ 1.- FR."!;G 1.2
03.50 T "KEINE RAEPPLER BITTE!"!; GOTO 1.2

---