100	!
	!	RSTS11-90 DICE.BAS MODIFIED 01-JAN-78
	!	WRITTEN BY ERIC MARK RINTELL '78
	!	ORIGINAL IDEA BY MARC PARKER
	!
	!	KEYED IN BY TIMOTHY SHANE MCCOY
	!	AT CENTRAL STATE UNIVERSITY
	!	ON PDP 11/45
	!	VERSION RSTS/E  V06C
	!
200	RANDOMIZE
	\ PRINT "WELCOME TO DICE--VERSION V06A-02-2A"
	\ INPUT "INSTRUCTIONS";A$
	\ IF INSTR(1%,A$,"N")
	  THEN 500
	  ELSE PRINT "     *A 7 OR 11 AUTOMATICALLY WINS"
	  \ PRINT "     *A 2,3, OR 11 AUTOMATICALLY LOSES"
300	PRINT "     *ANY OTHER NUMBER BECOMES YOUR POINT AND YOU"
	\ PRINT "     *MUST ROLL YOUR POINT AGAIN TO WIN; IF IN THE PROCESS"
	\ PRINT "     *OF DOING THIS YOU ROLL A 7 OR 11 THEN LOSE"
	\ PRINT
	\ PRINT
400	PRINT "YOU INPUT THE HOUSE LIMIT AND WINNING AMOUNT.  IF YOU WIN,"
	\ PRINT "THE PAYOFF IS 4 TO 1; IF YOU LOSE, YOUR BET IS SUBTRACTED"
	\ PRINT FOR A% = 1% TO 5%
500	PRINT "BY ERIC MARK RINTELL '78 FOR BONNIE WALD"
	\ INPUT "HOUSE LIMIT";A%"WINNING AMOUNT";A1%
	\ IF A1% >= A%
	  THEN PRINT "RE-ENTER, FOOL"
	  \ GOTO 500
600	A2% = ((INT(.33 * A1%)) * RND(0) ) + 1%
601	PRINT "YOU START OUT WITH $"CVT$$(NUM$(A2%),2%)
	\ PRINT
	\ PRINT
700	PRINT "YOU NOW HAVE"A2%"DOLLARS IN YOUR ACCOUNT"
	\ INPUT "HOW MUCH DO YOU WISH TO BET";A3%

	\ IF A3% > A2%
	  THEN PRINT "(HA,HA) YOU'RE GOOD FOR THE MONEY!"
	  \ GOTO 700
800	IF A3% <= 0%
	THEN  PRINT "WHAT ARE YOU BETTING-RUBLES"
	\ GOTO 700
900	PRINT
	\ PRINT "FIRST DIE","SECOND DIE","TOTAL"
	\ A4% =  (6% * RND) + 1%
	\ A5% = (6% * RND) + 1%
	\ A6% = A5% + A4%
	\ PRINT  A4%,A5%,A6%
	\ PRINT "YOUR ROLL IS"A6%
1000	IF A6% = 7% OR A6% = 11%
	THEN 1100
	ELSE IF A6% = 2% OR A6% = 3% OR A6% = 12%
	     THEN 1300
	     ELSE 1400
1100	PRINT  "LUCKY BREAK!!"
	\ A2% = (A3% * 4%) + A2%
	\ IF A2% < A1%
	  THEN 700
	  ELSE IF A2% > A% 
	        THEN 1200
	       ELSE PRINT "YOU WON--BUT YOU COULDN'T CLEAN OUT THE BANK, NURD!!"
	\ GOTO 1600
1200	PRINT "YOU BROKE THE BANK--YOU'LL BE ARRESTED"
	\ GOTO 1600
1300	PRINT "YOU BLEW IT SON!!"
	\ A2% = A2% - A3%
	\ IF A2% 
	  THEN 700
	  ELSE PRINT "YOU'RE BROKE-LEAVE $5 ON THE CPU"
	  \ GOTO 1600
1400	PRINT 
	\ PRINT "YOUR POINT IS"A6%
	\ PRINT
1500	A4% = (6% * RND) + 1%
	\ A5% = (6% * RND) + 1%
	\ A7% = A4% + A5%
	\ PRINT "THE NEW ROLL IS"A4%"AND"CVT$$(NUM$(A5%),128%)"..."CVT$$(NUM$(A7%),2%)
	\ IF A7% = A6% 
	  THEN 1100
	  ELSE IF A7% = 7% OR A7% = 11%
	       THEN 1300
	       ELSE 1500
1600	INPUT "CARE TO TRY YOUR LUCK AGAIN";A$
	\IF INSTR(1%,A$,"Y")
	 THEN 500
	 ELSE PRINT "GOODBYE, CHICKEN"
	 \ END