C ZWEI ASCII-ZEICHEN IN DEZIMALZAHL UEBERSETZEN
C DAS ERSTE ZEICHEN STEHT IN BIT 0...5, DAS ZWEITE IN BIT 6...11
1	READ(1,100)IZ
100	FORMAT('IZ = 'A2)
	WRITE(1,101)IZ
101	FORMAT('     'I5/)
	GOTO 1
	END