SUBROUTINE INSZIP ( string, istrt, iend )
C+	 
C		    SUBROUTINE INSZIP
C
C Environment:	    System Utility DEF
C    Env. Vsn:	    01.00
C
C Subroutine/Function Description:
C
C	 This routine replaces any blanks in a string, between ISTRT and
C	 IEND, with ASCII zeros.
C
C Parameter List:
C     Name			  Type           I/O         Purpose
C  --------------------------   -------------   ------  ------------------------
C
C   string			 Character*80	 I/O	 String to modify
C   istrt			 Integer*2	  I	 First location to check
C   iend			 Integer*2	  I	 Last location to check
C
C Data Structures:
C     		COMMON Blocks:	   NONE
C			
C
C Side effects:		Modifies the input string STRING.
C
C
C-------------------------------------------------------------------------
C		    Environmental Requirements
C
C    Re-compile Procedure:	See MOVEBLD.CMD
C	    Compile Command:	F4P INSZIP=INSZIP/NOTR/RO
C	    Library:		MOVE.OLB
C	    Modules called:	NONE
C
C    Test Procedures:
C	    Test Data Files:    NONE
C	    Test Scripts:	NONE
C	    Documents:		NONE
C
C    Module Documentation:
C	    Help File:		NONE
C	    Document File:	NONE
C
C    Required Logicals:		NONE
C
C    Required Files:		NONE
C
C
C Written By:   Robert Hays
C		KMS Fusion, Inc.
C		P.O. Box 1567
C		Ann Arbor, Mich. 48106
C
C Ident:	RLH001
C Date: 	September 29, 1986
C
C
C Change Log:
C     Date      Initials  Ident  Description
C [dd-mmm-yy]     [tbs]   [tbs]   [tbs......]
C----------------------------------------------------------------------------
C-
C	    IDENT /01.00/
C
	CHARACTER*80	string			! Input string.
C
	INTEGER*2	istrt, iend		! Area to check in STRING.
	INTEGER*2	i			! Loop counter.
C
C	 Executable begins here.
C
	DO 100 i = istrt, iend			! Plug zeros in for all the
	  IF ( string(i:i) .EQ. ' ' ) THEN	! spaces in the new string.
	    string(i:i) = '0'			! Replace with '0'.
	  END IF				! 
100	CONTINUE				! 
	RETURN
	END