     	SUBROUTINE SHOWPS
C
C  PROGRAMMER:  R.S. ZHOU
C		ALFRED UNIVERSITY, FEB-1987
C
C	THIS ROUTINE LISTS ALL PEAK PARAMETERS FOR ALL PEAKS
C	IN THE PEAK ARRAYS ON THE SCREEN.
C
     	INCLUDE 'FILECONV.CBS'
     	CHARACTER IQS*1

     	NPK1 = 1
     	NPK2 = NPKS
     	IF( NPK2.GT.20 ) NPK2 = 20
     	
111	CALL CLEARS( 0 )			!CLEAR THE SCREEN
C
C  DISPLAY HEADER INFORMATION...
C
     	CALL COLORS(-1)
     	CALL COLORS(80)
     	CALL PUTEXT( '  P E A K   L I S T  ', 21, 1, 28 )
     	CALL COLORS(1)
     	CALL COLORS(90)
     	WRITE(6,2)
2	FORMAT('  #TH    2-THETA(O,C)    D(O)    D(C)   REL.INT',
     	1'   AREA     FWHM    H  K  L TYPE ')
     	CALL COLORS(-1)
C
C  START PEAK LISTING...
C
     	ILINE = 2
     	DO I= NPK1, NPK2
     	   ILINE = ILINE + 1
     	   CALL PUTIFL( I, 1, 3, ILINE, 2 )
     	   CALL PUTFFL( F2TH(I), 1, 7.3, ILINE, 7 )
     	   CALL PUTFFL( C2TH(I), 1, 7.3, ILINE, 15 )
     	   CALL PUTFFL( FDSP(I), 1, 7.4, ILINE, 24 )
     	   CALL PUTFFL( CDSP(I), 1, 7.4, ILINE, 32 )
     	   CALL PUTFFL( RELA(I), 1, 5.1, ILINE, 41 )
     	   CALL PUTGFL( AREA(I,JRES), 1, 11.4, ILINE, 47 )
     	   CALL PUTFFL( FWHM(I), 1, 5.3, ILINE, 59 )
     	   CALL PUTIFL( PHKL(1,I), 3, 3, ILINE, 65 )
     	   CALL PUTEXT( PEAK(I), 4, ILINE, 75 )
     	ENDDO

     	CALL COLORS(1)
     	WRITE(6,222)
222	FORMAT(/'$Hit RETURN to continue(CTRL_Z=QUIT)...')
     	READ(5,223,ERR=999,END=999) IQS
223	FORMAT(A)
     	IF( NPK2.EQ.NPKS ) GOTO 999
     	NPK1 = NPK2 + 1
     	NPK2 = NPK1 + 19
     	IF( NPK2.GT.NPKS ) NPK2 = NPKS
     	GOTO 111
999	RETURN
     	END
