C..  PRSKIP.FTN    BOHDEN K. CMAYLO   MAR 1982
C..  DOES PRINT I/O
	SUBROUTINE PRSKIP(IUNIT,ISKIP,MSG,NCHAR)
C..
	BYTE MSG(1),CC
C..
C..	IUNIT=0=STANDARD TYPE
C..	      +=WRITE TO STANDARD + TO FILE UNIT
C..	      -=WRITE TO FILE UNIT
C..
C..	CHECK FOR NON STANDARD I/O
C..
	IF(IUNIT.LT.0) GO TO 10
C..
C..	CHECK FOR SKIPS
C..
	IF(ISKIP.LE.1) GO TO 2
	DO 1 I=2,ISKIP
	TYPE 3
3	FORMAT(133A1)
1	CONTINUE
2	CC=' '
	IF(ISKIP.EQ.0) CC='+' 
	TYPE 3,CC,(MSG(I),I=1,NCHAR)
C..
C..	CHECK FOR STANDARD TYPE RETURN
C..
	IF(IUNIT.EQ.0) RETURN
C..
C..	NON STANDARD I/O
C..
10	JUNIT=IUNIT
	IF(IUNIT.LT.0) JUNIT=-IUNIT
C..
C..	CHECK FOR SKIPS
C..
	IF(ISKIP.LE.1) GO TO 20
	DO 11 I=2,ISKIP
	WRITE(JUNIT,3)
11	CONTINUE
20	CC=' '
	IF(ISKIP.EQ.0) CC='+' 
	WRITE(JUNIT,3)CC,(MSG(I),I=1,NCHAR)
	RETURN
	END