10	!
	!	GAME OF ACEY-DUCEY TAKEN FROM THE DEC GAME BOOK AND
	!	CONVERTED TO RSTS/E 
	!	BY CHARLIE GEHMAN
	!	NMH SUMMER SCHOOL		12-JULY-74
	!
	!	KEYED IN BY TIMOTHY SHANE MCCOY
	!	AT CENTRAL STATE UNIVERSITY
	!	ON PDP 11/45
	!	VERSION RSTS/E V6C
	!
20	PRINT "WECOME TO THE GAME OF ACEY-DUCEY!!!!"
	\ PRINT
	\ PRINT 
	\ PRINT
30	RANDOM
	\ PRINT "DO YOU NEED INSTRUCTIONS";
	\ INPUT I$
	\ IF ASCII(I$) = 89
	  THEN 40
	  ELSE 70
40	ON ERROR GOTO 60
	\ OPEN "[2,50]ACEYDU.TXT" FOR INPUT AS FILE 1%
50	INPUT LINE #1%,A$
	\ PRINT A$;
	\ GOTO 50
60	CLOSE 1%
70	N% = 100%
	\ Q% = 100%
80	PRINT 
	\ PRINT "YOU NOW HAVE"Q%"DOLLARS."
	\ GOTO 110
90	Q% = Q% + M%
	\ GOTO 80
100	Q% = Q% - M%
	\ GOTO 80
110	PRINT "AND HERE ARE YOUR CARDS....."
120	A% = INT(13%*RND) + 2%
130	IF A% < 2%
	THEN 120
	ELSE IF A% > 14
	     THEN 120
140	B% = INT(13%*RND) + 2%
	\ IF B% < 2%
	  THEN 140
	  ELSE IF A% >= B%
	       THEN 120
	       ELSE IF A% < 11
	            THEN 150
		    ELSE IF A% = 11
	 	         THEN 160
		         ELSE IF A% = 12
		              THEN 170
			      ELSE IF A% = 13
			           THEN 180
				   ELSE IF A% = 14
				        THEN 190
150	PRINT A%
	\ GOTO 200
160	PRINT "JACK"
	\ GOTO 200
170	PRINT "QUEEN"
	\ GOTO 200
180	PRINT "KING"
	\ GOTO 200
190	PRINT "ACE"
200	IF B% < 11
	THEN 210
	ELSE IF B% = 11
	     THEN 220
	     ELSE IF B% = 12
	          THEN 230
		  ELSE IF B% = 13
		       THEN 240
		       ELSE IF B% = 14
			    THEN 250
210	PRINT B%
	\ GOTO 260
220	PRINT "JACK"
	\ GOTO 260
230	PRINT "QUEEN"
	\ GOTO 260
240	PRINT "KING"
	\ GOTO 260
250	PRINT "ACE"
260	PRINT
	\ PRINT "WHAT'S THE BET(MAX. $"Q%") ";
	\ INPUT M%
	\ IF M% < 0% 
	  THEN 270
	  ELSE IF M% <> 0
	       THEN 280
	       ELSE PRINT "YOU LOUSY CHICKEN!!!!"
	       \ PRINT 
	       \ GOTO 80
270	PRINT 
	\ PRINT "PLEASE BET POSITIVE AMOUNTS, YOU SCHMUCK!"
	\ GOTO 260
280	IF M% <= Q%
	THEN 290
	ELSE PRINT "SORRY, BUT YOU CAN ONLY BET WHAT YOU GOT, ";
	\ PRINT "WHICH IS $";Q%
	\ GOTO 260
290	PRINT 
	\ C% = INT(13%*RND) + 2%
	\ IF C% < 2%
	  THEN 290
	  ELSE IF C% > 14%
	       THEN 290
	       ELSE IF C% < 11
		    THEN 300
		    ELSE IF C% = 11
		         THEN 310
			 ELSE IF C% = 12
			      THEN 320
			      ELSE IF C% = 13
				   THEN 330
				   ELSE IF C% = 14
				        THEN 340
300	PRINT C%
	\ GOTO 350
310	PRINT "JACK"
	\ GOTO 350
320	PRINT "QUEEN"
	\ GOTO 350
330	PRINT "KING"
	\ GOTO 350
340	PRINT "ACE"
350	IF C% > A%
	THEN 360
	ELSE GOTO 370
360	IF C% >= B%
	THEN 370
	ELSE PRINT "YOU WIN!!!"
	\ GOTO 90
370	PRINT "HOUSE WINS!!!"
	\ IF M% < Q%
	  THEN 100
	  ELSE GOTO 380
380	PRINT 
	\ PRINT "SORRY, SUCKER, YOU BLEW YOUR WAD";
	\ PRINT " AND I CAN'T GIVE YOU CREDIT"
	\ PRINT 
	\ PRINT 
	\ PRINT "PLAY AGAIN SOME OTHER TIME.....  BYE NOW!!!"
	\ END