PROGRAM MAKE
	LOGICAL*1 MAPOUT(128)
	ENCODE(128,10,MAPOUT)
10	FORMAT('::AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSs'
	1  'TtUuVvWwXxYyZz00112233445566778899++--**//(())$$',
	1  '==  ,,..##[[]]%%""__!!&&''''??<<>>@@\\^^;;' )
	J = 2
	DO 20 I=2,128
	IF( MAPOUT(I) .EQ. MAPOUT(I-1) ) GO TO 20
	MAPOUT(J) = MAPOUT(I)
	J = J+1
20	CONTINUE
	WRITE(5,30) ( MAPOUT(I), I=1,90 )
30	FORMAT(1X,90A1)
C
	J = 1
100	WRITE(5,110)
110	FORMAT('$??: ')
	READ(5,120) IS, IE
120	FORMAT(2I8)
C
	DO 1000 I=IS,IE
	WRITE(1,130) MAPOUT(J), MAPOUT(J), I
130	FORMAT(2A1,I4)
	J = J + 1
	IF( J .EQ. 91 ) GO TO 1100
1000	CONTINUE
	GO TO 100
C
1100	WRITE(5,1110) I
1110	FORMAT(I8)
	STOP
	END