10	!
	!	TAKEN FROM THE DEC GAME BOOK AND ADAPTED TO RSTS/E
	!	BY CHARLIE GEHMAN, NMH SUMMER SCHOOL, 20-JULY-74.
	!	CREATES DIAMOND PATTERNS ON THE TELETYPE.
	!
15	!
	!	KEYED IN BY TIMOTHY SHANE MCCOY
	!	AT CENTRAL STATE UNIVERSITY
	!	ON PDP 11/45
	!	VERSION RSTS/E  V6C
	!
20	PRINT "DIAMONDS!"
	\ PRINT 
	\ PRINT 
	\ PRINT "FOR A NEAT PATTERN, TYPE IN AN ODD NUMBER BETWEEN"
	\ PRINT "FIVE AND THIRTY ONE--";
	\ INPUT R
	\ PRINT 
	\ PRINT
	\ PRINT
	\ Q = INT(60/R)
	\ FOR L% = 1% TO Q
	\ X = 1
	\ Y = R
	\ Z = 2
30	FOR N = X TO Y STEP Z
	\ PRINT TAB((R-N)/2);
	\ FOR M = 1 TO Q
	\ C = 1
40	FOR A = 1 TO N
	\ IF C = 1
	  THEN 50
	  ELSE IF C = 2
	       THEN 60
	       ELSE IF C = 3
	            THEN 70
	            ELSE PRINT "!"
	            \ GOTO 90
50	PRINT "D";
	\ GOTO 80
60	PRINT "E";
	\ GOTO 80
70	PRINT "C";
80	C = C + 1
90	NEXT A
100	IF M = Q
	THEN 110
	ELSE PRINT TAB(R*M+(R-M)/2);
	\ NEXT M
110	PRINT 
	\ NEXT N
	\ IF X <> 1
	  THEN 70
	  ELSE X = R-2
	  \ Y = 1
	  \ Z = -2
	  \ GOTO 30
120	NEXT L%
	\ END