C-PS/8 FOCAL, 1971
 1.01 BEISPIEL
 1.02 WUERFELSPIEL
 1.03 NACHDEM DER EINSATZ GELEISTET IST,WIRD DURCH
 1.04 TIPPEN DER TASTE "RETURN" DER WUERFEL ROLLEN:
 1.10 S B=0;T !!"WUERFELSPIEL"!
 1.12 T "HOECHSTER EINSATZ IST DM 1000,--"!
 1.13 T "KLEINSTER EINSATZ IST DM    1,--"!!
 1.20 A "IHREN EINSATZ BITTE -"A;I (1000-A)3.1
 1.22 I (A-1)3.40,1.26,1.26
 1.26 I (A-FITR(A))3.50,1.30,3.50
 1.30 T "TIPPE RETURN";A M;D 2;S D=C;D 2;T " ";S D=D+C
 1.32 I (D-7)1.42,3.20,1.42
 1.40 I (D-2)1.50,3.30,1.50
 1.42 I (D-11)1.40,3.20,1.40
 1.50 I (D-3)1.60,3.30,1.60
 1.60 A M;D 2;S E=C;D 2;T " ";S E=E+C
 1.72 I (E-7)1.74,3.30,1.74
 1.74 I (E-D)1.60,3.20,1.60
 2.10 S C=FITR(10*FABS(FRAN()));I (C-6)2.20,2.20,2.10
 2.20 I (C-1)2.10;T %1," "C;RETURN
 3.10 D 1.12;G 1.2
 3.20 S B=B+A;T %6.0, !"GEWONNEN! IHR KONTO STEHT: "B,!;G 1.2
 3.30 S B=B-A;T %6.0, !"VERLOREN! IHR KONTO STEHT: "B,!;G 1.2
 3.40 D 1.13;G 1.2
 3.50 T "KEINE PFENNIGE BITTE!",!;G 1.2