c FORTRAN 77

c This program categorizes the shipping weight of objects.
c Under 20lbs, category 1
c under 100lbs, category 2
c under 200lbs, category 3
c under 300llbs, category 4
c any object above 400lbs, category 5

	PROGRAM shipping
c Delcare variables
	real weight

c Prompt for and enter the weight of the item.
	PRINT *,'Enter the weigth of the item.'
	READ *, weight

	IF (weight .le. 20) THEN 
	   PRINT *, 'category 1'
	ELSE IF (weight .le. 100) THEN 
	   PRINT *, 'category 2' 
	ELSE IF (weight .le. 200) THEN 
	   PRINT *, 'category 3'
	ELSE IF (weight .le. 300) THEN 
	   PRINT *, 'category 4'
	ELSE
	   PRINT *, 'category 5'
	END IF

	STOP
	END