File KNOBEL.FC (FOCAL source file)

Directory of image this file is from
This file as a plain text file

()0I[BTC-PS/8 FOCAL, 1971?MB[BABEISPIEL?MB$BBWUERFELSPIEL?MB=BCNACHDEM DER EINSATZ GELEISTET IST,WIRD DURCH?MCWBDTIPPEN DER TASTE "RETURN" DER WUERFEL ROLLEN:?MC	BJS B=0;T !!"WUERFELSPIEL"!?MC=BLT "HOECHSTER EINSATZ IST DM 1000,--"!?MIDBMT "KLEINSTER EINS
TZ IST DM    1,--"!!?MD!BVI (A-1)3.40,1.26,1.26?MD2BZI (A-FITR(A))3.50,1.30,3.50?MEMB^T "TIPPE RETURN";A M;D 2;S D=C;D 2;T " ";S D=D+C?ME[B I (D-7)1.42,3.20,1.42?ME)B(I (D-2)1.50,3.30,1.50?ME7B*I (D-11)1.40,3.20,1.40?MFEB2I (D-3)1.60,3.30,1.60?MFXB<A M;D 
;S E=C;D 2;T " ";S E=E+C?MF&CHI (E-7)1.74,3.30,1.74?MF4CJI (E-D)1.60,3.20,1.60?MGODJS C=FITR(10*FABS(FRAN()));I (C-6)2.20,2.20,2.10?MG DTI (C-1)2.10;T %1," "C;RETURN?MH%FJD 1.12;G 1.2?MHHF^S B=B-A;T %6.0, !"VERLOREN! IHR KONTO STEHT: "B,!;G 1.2?MHQF(D 1.1
;G 1.2?MF2T "KEINE PFENNIGE BITTE!",!;G 1.2?MG)FTS B=B+A;T %6.0, !"GEWONNEN! IHR KONTO STEHT: "B,!;G 1.2?MDSBTA "IHREN EINSATZ BITTE -"A;I (1000-A)3.1?M.1L S KNOBEL?M?MSATZ BITTE -"A;I (1000-A)3.1?M.1?M?M3.3,3.15?MJIF^S V=V+1;

Note: Lines longer than 256 characters were wrapped



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search