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