100	RANDOMIZE
200	!
	!	THIS PROGRAM COMPLETELY ORIGINAL AND 
	!	CREATED BY MARC PARKER
	!	WRITTEN BY ERIC MARK RINTELL
	!
	!	KEYED IN BY TIMOTHY SHANE MCCOY
	!	AT CENTRAL STATE UNIVERSITY
	!	ON PDP 11/45
	!	VERSION RSTS/E  V6C
	!
400	PRINT "THIS IS THE GAME OF DICE"
500	INPUT "DO YOU WANT INSTRUCTIONS (Y OR N)";A$
600	IF A$ = "Y"
	THEN 700
	ELSE GOTO 1700
700	PRINT "   *A 7 OR 11 AUTOMATICALLY WINS"
800	PRINT "   **A 2,3, OR 12 AUTOMATICALLY LOSES"
900	PRINT "   ****ANY OTHER NUMBER BECOMES YOUR POINT AND YOU"
1000	PRINT "   *****MUST ROLL YOUR POINT AGAIN TO WIN; ";
	\ PRINT "IF IN THE PROCESS OF"
1100	PRINT "   ****DOING THIS YOU ROLL A 7 OR 11 THEN YOU LOSE."
1200	PRINT "IF YOU WIN, THE PAYOFF IS 4 TO 1; IF YOU LOSE THE COMPUTER"
1300	PRINT "WILL AUTOMATICALLY SUBTRACT YOUR BET.  THE LIMIT ON THE BANK"
1400	PRINT "IS 500 DOLLARS. IF YOU WANT TO CONTINUE, TYPE Y IF NOT"
1500	PRINT "THEN TYPE N."
1700	PRINT
1800	F = INT(20 * RND) + 1
1900	PRINT "YOU START OUT WITH "F" DOLLARS."
2000	PRINT "YOU NOW HAVE "F" DOLLARS IN YOUR ACCOUNT."
2100	INPUT "HOW MUCH DO YOU WANT TO BET";B
2200	IF B > F
	THEN PRINT "OVERDRAWN; YOU CAN'T BET MORE THEN "F" DOLLARS."
	\ GOTO 2100
2300	IF B <= 0
	THEN PRINT "YOU HAVE TO BET OVER ZERO."
	\ GOTO 2100
2400	PRINT
	\ PRINT "FIRST DIE", "SECOND DIE", "TOTAL"
2500	C = INT(6 * RND) + 1
2600	D = INT(6 * RND) + 1
2700	E = D + C
2800	PRINT C,D,E
2900	PRINT "YOUR ROLL IS "E
3000	IF E = 2 OR E = 3 OR E = 12
	THEN GOTO 3300
3100	IF E = 7 OR E = 11 
	THEN GOTO 3800
3200	GOTO 4300
3300	PRINT "SORRY, YOU CAN'T WIN THEM ALL"
3400	F = F - B
3500	PRINT "YOUR ACCOUNT NOW CONTAINS "F" DOLLARS."
3600	IF F <= 0
	THEN 5300
3700	GOTO 5700
3800	PRINT "LUCKY BREAK!!!!"
3900	F = (B*4) + F
4000	PRINT "YOUR ACCOUNT NOW CONTAINS "F" DOLLARS."
4100	IF F >= 500
	THEN GOTO 5500
4200	GOTO 5700
4300	PRINT "YOUR POINT IS "E
4400	G = INT(6 * RND) + 1
4500	H = INT(6 * RND) + 1
4600	I = G + H
4700	PRINT "YOUR NEW ROLL IS "G" AND "H"............."I"
4800	IF I = E
	THEN PRINT "YOU WIN!!"
	\ GOTO 3800
4900	IF I = 7 OR I = 11
	THEN PRINT "YOU LOSE!!"
	\ GOTO 3300
5000	PRINT "ROLL AGAIN"
	\ GOTO 4400
5100	INPUT "DO YOU WANT TO PLAY AGAIN";J$
5200	IF J$ = "Y"
	THEN GOTO 1700
5250	IF J$ = "N"
	THEN GOTO 5600
5300	PRINT "YOU'RE BROKE-TOUGH LUCK!"
5400	GOTO 5100
5500	PRINT "YOU HAVE BROKE THE BANK!!!!"
	\ GOTO 5100
5600	PRINT "IT WAS FUN PLAYING WITH YOU-PLEASE COME BACK"
	\ GOTO 6000
5700	INPUT "DO YOU WANT TO TRY SOME MORE";K$
5800	IF K$ = "N"
	THEN GOTO 5600
5900	IF K$ = "Y"
	THEN F = F
	\ GOTO 2000
6000	END