PROGRAM SMAA_B_SUBRUTIN_GENERELL
IMPLICIT NONE
CHARACTER(LEN=20) STORA_B
CHARACTER(LEN=20) SMAA_B

	STORA_B = 'AZBOeinåäöÅÄÖ123+?'
	CALL BYT(STORA_B, SMAA_B)
	WRITE(*,*) SMAA_B

END

SUBROUTINE BYT(STORA_B, SMAA_B)
IMPLICIT NONE
CHARACTER(LEN=*) STORA_B, SMAA_B
CHARACTER(LEN=1) SLASK
INTEGER I, LAENGD
	LAENGD = LEN(TRIM(STORA_B))
	SMAA_B = ''

	DO I = 1, LAENGD
	   SLASK = STORA_B(I:I)

	   SELECT CASE (SLASK)
	     CASE('A':'Z')
               	SMAA_B(I:I) = ACHAR(IACHAR(SLASK)+32)
	     CASE('Å')
		SMAA_B(I:I) = 'å'
	     CASE('Ä')
		SMAA_B(I:I) = 'ä'
	     CASE('Ö')
		SMAA_B(I:I) = 'ö'
	     CASE DEFAULT
              	SMAA_B(I:I) = SLASK
           END SELECT
	END DO

END SUBROUTINE BYT