! @(#)kstest.prg	17.1.1.1 (ES0-DMD) 01/25/02 17:12:26


! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
!
! .IDENTIFICATION
!
! PROCEDURE : KSTEST.PRG
! M Peron                                   891111
!
! .PURPOSE
!
! execute the command :
! 
! KSTEST/1SAM table col1 distri parameters
!
! ------------------------------------------------------------
!
DEFINE/PARAM P3 UNIFORM C "Enter function type: "
DEFINE/PARAM P4 0.,1. N "Enter coefficients: "
WRITE/KEYW INPUTC/C/1/1 'P3'
WRITE/KEYW INPUTR/R/1/2 'P4'
RUN APP_EXE:TKSTEST.EXE