Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-07 - decus/20-0167/gensur.dmc
There is 1 other file named gensur.dmc in the archive. Click here to see a list.
!*****************************************************************************
!
!
!			SURVEY SYSTEM
!			-------------
!
!
!
!
!
!
!
!*****************************************************************************
!
!
!	To use this system, Generic Survey Program 'GENSUR.DMC' has to
! be modified according to user's spec. It is :
!				 NUMBER OF QUESTIONS('S' ATTRIBUTES)
!				   THAT WILL APPEAR ON THE REPORT.
!
!
!
!*****************************************************************************
SET FMSG OFF.
SAVE EXTRAC.
CLEAR.
	CLOSE.
	O ATR SURVEY.
	F ALL.
	SORT ATROR.
	DBS 2.
DEFINE TEXT 10 FILNAM.

P FMT / 'ENTER NEW REPORT FILE NAME (e.g. SURVEY.001)--->' $ END.
!P FMT / 'ENTER NEW REPORT FILE NAME (e.g. SURVEY.001)--->' END.
!P FMT 'USING LESS THAN 11 CHARACTERS' 49T '__________' C9 49T $ END.

ACCEPT FILNAM.

INIT 2 @=FILNAM.

P FILNAM FMT / "FILE NAME : " A END.
P ON 2 SYSDATE FMT C1 60T D3 END.
P ON 2 FMT / 30T 'SURVEY RESULTS' / -
	      30T '--------------' // END.


DPL START.
	DEFINE 	REAL	PCRCNT
		REAL	PANS
		INTEGER DANS(20)
		REAL DAVG
		REAL	DTOT
		INTEGER	MAXIND MAXPR(10) MAXPR_CNT PRIND PR(100) PRHLD
		INTEGER GOODPR(20) BIGPR
		INTEGER	IND1
		TEXT	100	SUB_TITLE
		TEXT	4	NAME
		TEXT	4 PR_NAME(40)
		TEXT	240	TXT
		TEXT	240	PR_TXT(40)
		TEXT	2	QTYPE
		INTEGER	PNUM
		INTEGER	MAXNUM.

GET_SUB_TITLE:
	P FMT / 'ENTER REPORT SUB-TITLE ---> ' $ END.
	ACCEPT SUB_TITLE.
	P ON 2 SUB_TITLE FMT 30T A / END.
GET_NUMBER_OF_RESP:
	F FILE EXTRAC.
	P ON 2 SYSNREC FMT 'TOTAL NUMBER' / 'OF RESPONDENTS : ' -
		I / END.
PRINT_DATAIL_HEADER:
	P ON 2 @LINE.
	P ON 2 FMT 31T 'RES' 37T '1' 42T '2' 47T '3' 52T '4' 57T '5' 62T '6' -
		67T 'N/A'  74T 'AVG' END.
	P ON 2 @LINE.


!
!

START_PROCES:

!IF THERE IS ANY PRIORITY TYPE(PR) QUESTION IN ATR.DMS, THERE ALSO HAS TO
!BE 'PE' WHICH  INDICATES THE END OF CONSECUTIVE PRIORITY TYPE QUESTIONS.

CHECK_ATR_FILE:

	DBS 1.

	F ATRQT EQ 'PR'.
	IF SYSNREC EQ 0 GOTO ATR_GOOD.

	F ATRQT EQ 'PE'.
	IF SYSNREC GT 0 GOTO ATR_GOOD.

	P FMT / '??? ERROR IN ATR.DMS !!!' / -
		'   IF THERE IS A PRIORITY TYPE QUESTION (ATRQT = PR), ' / -
		'   THERE HAS TO BE ONE "PE" TO INDICATE THE LAST ONE' / -
		'   OF CONSECUTIVE PRIORITY QUESTIONS.' / -
		'   IF THIS IS THE ONLY "PR", PLEASE CHANGE IT TO "PE"' / -
		'   IN THE DATA DABE "ATR.DMS".' / END.



	GOTO FINISH_PROCES.
ATR_GOOD:

CLEAR_MAXPRS:
	LET MAXIND EQ 0.

CLEAR_MAX_LOOP:
	LET MAXIND EQ MAXIND+1.
	IF MAXIND EQ 10 GOTO CL_MAX_EXIT.
	LET MAXPR(MAXIND) EQ 0.
	GOTO CLEAR_MAX_LOOP.

CL_MAX_EXIT:

	LET MAXIND EQ 1.
	DBS 1.
	F ALL.
GET_PR:
	GETR GET_MAX_EXIT.
	IF ATRQT EQ 'PR' GOTO MAXPR_RTN.
	IF ATRQT EQ 'PE' GOTO NEXT_MAX_RTN.
	
	GOTO GET_PR.

MAXPR_RTN:
	LET MAXPR(MAXIND) EQ MAXPR(MAXIND)+1.
	GOTO GET_PR.

NEXT_MAX_RTN:
	LET MAXPR(MAXIND) EQ MAXPR(MAXIND)+1.
	LET MAXIND EQ MAXIND+1.
	GOTO GET_PR.

GET_MAX_EXIT:
	LET MAXIND EQ 0.
	F ALL.
	SORT BY ATROR.
	DBS 2.

	CALL CLEAR_PR.
	GOTO GET_A_RECORD.



! INITIALIZE THE VARIABLES FOR PRIORITY.

CLEAR_PR:
	LET MAXIND EQ MAXIND+1.
	LET MAXPR_CNT EQ 0.
	LET PRIND EQ 0.

CLEAR_LOOP:
	LET PRIND EQ PRIND+1.
	IF PRIND GT 40 GOTO CLEAR_EXIT.
	LET PR(PRIND) EQ 0.
	GOTO CLEAR_LOOP.

CLEAR_EXIT:

	RETURN.




! READ ATR FILE SEQUENTIALLY.

GET_A_RECORD:
	DBS 1.
	GETR FINISH_PROCES.

	LET NAME EQ ATRNM.
	LET TXT  EQ ATRTX.
	LET QTYPE EQ ATRQT.
	LET PNUM EQ ATRPN.
	LET MAXNUM EQ PNUM+1.

	DBS 2.

DECIDE_QUES_TYPE:

	IF QTYPE EQ 'DG' GOTO DEGREE_TYPE.
	IF QTYPE EQ 'DS' GOTO DEGREE_TYPE.
	IF QTYPE EQ 'YN' GOTO DEGREE_TYPE.
	IF QTYPE EQ 'PC' GOTO PCT_TYPE.
	IF QTYPE EQ 'PR' GOTO PRI_TYPE.
	IF QTYPE EQ 'PE' GOTO PRI_TYPE.

	P QTYPE FMT / '??? BAD QUESTION TYPE IN ATR.DMS !!! ' / -
		'    BAD QUESTION TYPE (ATRQT) = ' A / -
		'   PLESAE GO TO "ATR.DMS", AND CHANGE IT. / ' END.

	GOTO FINISH_PROCES.


DEGREE_TYPE:
	CALL DG_RTN.
	GOTO GET_A_RECORD.

PCT_TYPE:
	CALL PC_RTN.
	GOTO GET_A_RECORD.

PRI_TYPE:
	LET MAXPR_CNT EQ MAXPR_CNT+1.

	LET PR_TXT(MAXPR_CNT) EQ TXT.
	LET PR_NAME(MAXPR_CNT) EQ NAME.

	CALL PR_RTN.
	GOTO GET_A_RECORD.

DG_RTN:
	CALL DG_FIND_RTN.
	CALL DG_PRINT_RTN.
	RETURN.

PC_RTN:
	CALL PC_FIND_RTN.
	CALL PC_PRINT_RTN.
	RETURN.






DG_FIND_RTN:
	LET IND1 EQ -1.

DG_FIND_LOOP:
	LET IND1 EQ IND1+1.
	IF IND1 EQ MAXNUM GOTO DG_GET_AVG.

!GEN1	IF NAME EQ 'S1' GOTO FD_S1.
!GEN1	IF NAME EQ 'S2' GOTO FD_S2.
!GEN1	IF NAME EQ 'S3' GOTO FD_S3.
!GEN1	IF NAME EQ 'S4' GOTO FD_S4.
!GEN1	IF NAME EQ 'S5' GOTO FD_S5.
!GEN1	IF NAME EQ 'S6' GOTO FD_S6.
!GEN1	IF NAME EQ 'S7' GOTO FD_S7.
!GEN1	IF NAME EQ 'S8' GOTO FD_S8.
!GEN1	IF NAME EQ 'S9' GOTO FD_S9.
!GEN1	IF NAME EQ 'S10' GOTO FD_S10.
!GEN1	IF NAME EQ 'S11' GOTO FD_S11.
!GEN1	IF NAME EQ 'S12' GOTO FD_S12.
!GEN1	IF NAME EQ 'S13' GOTO FD_S13.
!GEN1	IF NAME EQ 'S14' GOTO FD_S14.
!GEN1	IF NAME EQ 'S15' GOTO FD_S15.
!GEN1	IF NAME EQ 'S16' GOTO FD_S16.
!GEN1	IF NAME EQ 'S17' GOTO FD_S17.
!GEN1	IF NAME EQ 'S18' GOTO FD_S18.
!GEN1	IF NAME EQ 'S19' GOTO FD_S19.
!GEN1	IF NAME EQ 'S20' GOTO FD_S20.
!GEN1	IF NAME EQ 'S21' GOTO FD_S21.
!GEN1	IF NAME EQ 'S22' GOTO FD_S22.
!GEN1	IF NAME EQ 'S23' GOTO FD_S23.
!GEN1	IF NAME EQ 'S24' GOTO FD_S24.
!GEN1	IF NAME EQ 'S25' GOTO FD_S25.
!GEN1	IF NAME EQ 'S26' GOTO FD_S26.
!GEN1	IF NAME EQ 'S27' GOTO FD_S27.
!GEN1	IF NAME EQ 'S28' GOTO FD_S28.
!GEN1	IF NAME EQ 'S29' GOTO FD_S29.
!GEN1	IF NAME EQ 'S30' GOTO FD_S30.
!GEN1	IF NAME EQ 'S31' GOTO FD_S31.
!GEN1	IF NAME EQ 'S32' GOTO FD_S32.
!GEN1	IF NAME EQ 'S33' GOTO FD_S33.
!GEN1	IF NAME EQ 'S34' GOTO FD_S34.
!GEN1	IF NAME EQ 'S35' GOTO FD_S35.
!GEN1	IF NAME EQ 'S36' GOTO FD_S36.
!GEN1	IF NAME EQ 'S37' GOTO FD_S37.
!GEN1	IF NAME EQ 'S38' GOTO FD_S38.
!GEN1	IF NAME EQ 'S39' GOTO FD_S39.
!GEN1	IF NAME EQ 'S40' GOTO FD_S40.
!GEN1	IF NAME EQ 'S41' GOTO FD_S41.
!GEN1	IF NAME EQ 'S42' GOTO FD_S42.
!GEN1	IF NAME EQ 'S43' GOTO FD_S43.
!GEN1	IF NAME EQ 'S44' GOTO FD_S44.
!GEN1	IF NAME EQ 'S45' GOTO FD_S45.
!GEN1	IF NAME EQ 'S46' GOTO FD_S46.
!GEN1	IF NAME EQ 'S47' GOTO FD_S47.
!GEN1	IF NAME EQ 'S48' GOTO FD_S48.
!GEN1	IF NAME EQ 'S49' GOTO FD_S49.
!GEN1	IF NAME EQ 'S50' GOTO FD_S50.
!GEN1	IF NAME EQ 'S51' GOTO FD_S51.
!GEN1	IF NAME EQ 'S52' GOTO FD_S52.
!GEN1	IF NAME EQ 'S53' GOTO FD_S53.
!GEN1	IF NAME EQ 'S54' GOTO FD_S54.
!GEN1	IF NAME EQ 'S55' GOTO FD_S55.
!GEN1	IF NAME EQ 'S56' GOTO FD_S56.
!GEN1	IF NAME EQ 'S57' GOTO FD_S57.
!GEN1	IF NAME EQ 'S58' GOTO FD_S58.
!GEN1	IF NAME EQ 'S59' GOTO FD_S59.
!GEN1	IF NAME EQ 'S60' GOTO FD_S60.
!GEN1	IF NAME EQ 'S61' GOTO FD_S61.
!GEN1	IF NAME EQ 'S62' GOTO FD_S62.
!GEN1	IF NAME EQ 'S63' GOTO FD_S63.
!GEN1	IF NAME EQ 'S64' GOTO FD_S64.
!GEN1	IF NAME EQ 'S65' GOTO FD_S65.
!GEN1	IF NAME EQ 'S66' GOTO FD_S66.
!GEN1	IF NAME EQ 'S67' GOTO FD_S67.
!GEN1	IF NAME EQ 'S68' GOTO FD_S68.
!GEN1	IF NAME EQ 'S69' GOTO FD_S69.
!GEN1	IF NAME EQ 'S70' GOTO FD_S70.
!GEN1	IF NAME EQ 'S71' GOTO FD_S71.
!GEN1	IF NAME EQ 'S72' GOTO FD_S72.
!GEN1	IF NAME EQ 'S73' GOTO FD_S73.
!GEN1	IF NAME EQ 'S74' GOTO FD_S74.
!GEN1	IF NAME EQ 'S75' GOTO FD_S75.
!GEN1	IF NAME EQ 'S76' GOTO FD_S76.
!GEN1	IF NAME EQ 'S77' GOTO FD_S77.
!GEN1	IF NAME EQ 'S78' GOTO FD_S78.
!GEN1	IF NAME EQ 'S79' GOTO FD_S79.
!GEN1	IF NAME EQ 'S80' GOTO FD_S80.
!GEN1	IF NAME EQ 'S81' GOTO FD_S81.
!GEN1	IF NAME EQ 'S82' GOTO FD_S82.
!GEN1	IF NAME EQ 'S83' GOTO FD_S83.
!GEN1	IF NAME EQ 'S84' GOTO FD_S84.
!GEN1	IF NAME EQ 'S85' GOTO FD_S85.
!GEN1	IF NAME EQ 'S86' GOTO FD_S86.
!GEN1	IF NAME EQ 'S87' GOTO FD_S87.
!GEN1	IF NAME EQ 'S88' GOTO FD_S88.
!GEN1	IF NAME EQ 'S89' GOTO FD_S89.
!GEN1	IF NAME EQ 'S90' GOTO FD_S90.
!GEN1	IF NAME EQ 'S91' GOTO FD_S91.
!GEN1	IF NAME EQ 'S92' GOTO FD_S92.
!GEN1	IF NAME EQ 'S93' GOTO FD_S93.
!GEN1	IF NAME EQ 'S94' GOTO FD_S94.
!GEN1	IF NAME EQ 'S95' GOTO FD_S95.
!GEN1	IF NAME EQ 'S96' GOTO FD_S96.
!GEN1	IF NAME EQ 'S97' GOTO FD_S97.
!GEN1	IF NAME EQ 'S98' GOTO FD_S98.
!GEN1	IF NAME EQ 'S99' GOTO FD_S99.
!GEN1	IF NAME EQ 'S100' GOTO FD_S100.

!GEN2FD_S1: 	F FILE EXTRAC AND S1 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S2: 	F FILE EXTRAC AND S2 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S3: 	F FILE EXTRAC AND S3 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S4: 	F FILE EXTRAC AND S4 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S5: 	F FILE EXTRAC AND S5 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S6: 	F FILE EXTRAC AND S6 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S7: 	F FILE EXTRAC AND S7 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S8: 	F FILE EXTRAC AND S8 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S9: 	F FILE EXTRAC AND S9 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S10: 	F FILE EXTRAC AND S10 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S11: 	F FILE EXTRAC AND S11 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S12: 	F FILE EXTRAC AND S12 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S13: 	F FILE EXTRAC AND S13 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S14: 	F FILE EXTRAC AND S14 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S15: 	F FILE EXTRAC AND S15 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S16: 	F FILE EXTRAC AND S16 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S17: 	F FILE EXTRAC AND S17 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S18: 	F FILE EXTRAC AND S18 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S19: 	F FILE EXTRAC AND S19 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S20: 	F FILE EXTRAC AND S20 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S21: 	F FILE EXTRAC AND S21 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S22: 	F FILE EXTRAC AND S22 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S23: 	F FILE EXTRAC AND S23 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S24: 	F FILE EXTRAC AND S24 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S25: 	F FILE EXTRAC AND S25 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S26: 	F FILE EXTRAC AND S26 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S27: 	F FILE EXTRAC AND S27 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S28: 	F FILE EXTRAC AND S28 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S29: 	F FILE EXTRAC AND S29 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S30: 	F FILE EXTRAC AND S30 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S31: 	F FILE EXTRAC AND S31 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S32: 	F FILE EXTRAC AND S32 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S33: 	F FILE EXTRAC AND S33 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S34: 	F FILE EXTRAC AND S34 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S35: 	F FILE EXTRAC AND S35 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S36: 	F FILE EXTRAC AND S36 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S37: 	F FILE EXTRAC AND S37 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S38: 	F FILE EXTRAC AND S38 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S39: 	F FILE EXTRAC AND S39 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S40: 	F FILE EXTRAC AND S40 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S41: 	F FILE EXTRAC AND S41 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S42: 	F FILE EXTRAC AND S42 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S43: 	F FILE EXTRAC AND S43 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S44: 	F FILE EXTRAC AND S44 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S45: 	F FILE EXTRAC AND S45 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S46: 	F FILE EXTRAC AND S46 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S47: 	F FILE EXTRAC AND S47 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S48: 	F FILE EXTRAC AND S48 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S49: 	F FILE EXTRAC AND S49 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S50: 	F FILE EXTRAC AND S50 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S51: 	F FILE EXTRAC AND S51 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S52: 	F FILE EXTRAC AND S52 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S53: 	F FILE EXTRAC AND S53 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S54: 	F FILE EXTRAC AND S54 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S55: 	F FILE EXTRAC AND S55 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S56: 	F FILE EXTRAC AND S56 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S57: 	F FILE EXTRAC AND S57 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S58: 	F FILE EXTRAC AND S58 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S59: 	F FILE EXTRAC AND S59 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S60: 	F FILE EXTRAC AND S60 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S61: 	F FILE EXTRAC AND S61 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S62: 	F FILE EXTRAC AND S62 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S63: 	F FILE EXTRAC AND S63 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S64: 	F FILE EXTRAC AND S64 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S65: 	F FILE EXTRAC AND S65 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S66: 	F FILE EXTRAC AND S66 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S67: 	F FILE EXTRAC AND S67 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S68: 	F FILE EXTRAC AND S68 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S69: 	F FILE EXTRAC AND S69 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S70: 	F FILE EXTRAC AND S70 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S71: 	F FILE EXTRAC AND S71 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S72: 	F FILE EXTRAC AND S72 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S73: 	F FILE EXTRAC AND S73 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S74: 	F FILE EXTRAC AND S74 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S75: 	F FILE EXTRAC AND S75 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S76: 	F FILE EXTRAC AND S76 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S77: 	F FILE EXTRAC AND S77 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S78: 	F FILE EXTRAC AND S78 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S79: 	F FILE EXTRAC AND S79 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S80: 	F FILE EXTRAC AND S80 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S81: 	F FILE EXTRAC AND S81 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S82: 	F FILE EXTRAC AND S82 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S83: 	F FILE EXTRAC AND S83 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S84: 	F FILE EXTRAC AND S84 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S85: 	F FILE EXTRAC AND S85 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S86: 	F FILE EXTRAC AND S86 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S87: 	F FILE EXTRAC AND S87 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S88: 	F FILE EXTRAC AND S88 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S89: 	F FILE EXTRAC AND S89 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S90: 	F FILE EXTRAC AND S90 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S91: 	F FILE EXTRAC AND S91 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S92: 	F FILE EXTRAC AND S92 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S93: 	F FILE EXTRAC AND S93 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S94: 	F FILE EXTRAC AND S94 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S95: 	F FILE EXTRAC AND S95 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S96: 	F FILE EXTRAC AND S96 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S97: 	F FILE EXTRAC AND S97 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S98: 	F FILE EXTRAC AND S98 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S99: 	F FILE EXTRAC AND S99 EQ IND1.	GOTO DG_SAVE_VALUE.
!GEN2FD_S100: 	F FILE EXTRAC AND S100 EQ IND1.	GOTO DG_SAVE_VALUE.

DG_SAVE_VALUE:
	LET DANS(IND1+1) EQ SYSNREC.
	GOTO DG_FIND_LOOP.


DG_GET_AVG:
!GEN3	IF NAME EQ 'S1' GOTO DAVG_S1.
!GEN3	IF NAME EQ 'S2' GOTO DAVG_S2.
!GEN3	IF NAME EQ 'S3' GOTO DAVG_S3.
!GEN3	IF NAME EQ 'S4' GOTO DAVG_S4.
!GEN3	IF NAME EQ 'S5' GOTO DAVG_S5.
!GEN3	IF NAME EQ 'S6' GOTO DAVG_S6.
!GEN3	IF NAME EQ 'S7' GOTO DAVG_S7.
!GEN3	IF NAME EQ 'S8' GOTO DAVG_S8.
!GEN3	IF NAME EQ 'S9' GOTO DAVG_S9.
!GEN3	IF NAME EQ 'S10' GOTO DAVG_S10.
!GEN3	IF NAME EQ 'S11' GOTO DAVG_S11.
!GEN3	IF NAME EQ 'S12' GOTO DAVG_S12.
!GEN3	IF NAME EQ 'S13' GOTO DAVG_S13.
!GEN3	IF NAME EQ 'S14' GOTO DAVG_S14.
!GEN3	IF NAME EQ 'S15' GOTO DAVG_S15.
!GEN3	IF NAME EQ 'S16' GOTO DAVG_S16.
!GEN3	IF NAME EQ 'S17' GOTO DAVG_S17.
!GEN3	IF NAME EQ 'S18' GOTO DAVG_S18.
!GEN3	IF NAME EQ 'S19' GOTO DAVG_S19.
!GEN3	IF NAME EQ 'S20' GOTO DAVG_S20.
!GEN3	IF NAME EQ 'S21' GOTO DAVG_S21.
!GEN3	IF NAME EQ 'S22' GOTO DAVG_S22.
!GEN3	IF NAME EQ 'S23' GOTO DAVG_S23.
!GEN3	IF NAME EQ 'S24' GOTO DAVG_S24.
!GEN3	IF NAME EQ 'S25' GOTO DAVG_S25.
!GEN3	IF NAME EQ 'S26' GOTO DAVG_S26.
!GEN3	IF NAME EQ 'S27' GOTO DAVG_S27.
!GEN3	IF NAME EQ 'S28' GOTO DAVG_S28.
!GEN3	IF NAME EQ 'S29' GOTO DAVG_S29.
!GEN3	IF NAME EQ 'S30' GOTO DAVG_S30.
!GEN3	IF NAME EQ 'S31' GOTO DAVG_S31.
!GEN3	IF NAME EQ 'S32' GOTO DAVG_S32.
!GEN3	IF NAME EQ 'S33' GOTO DAVG_S33.
!GEN3	IF NAME EQ 'S34' GOTO DAVG_S34.
!GEN3	IF NAME EQ 'S35' GOTO DAVG_S35.
!GEN3	IF NAME EQ 'S36' GOTO DAVG_S36.
!GEN3	IF NAME EQ 'S37' GOTO DAVG_S37.
!GEN3	IF NAME EQ 'S38' GOTO DAVG_S38.
!GEN3	IF NAME EQ 'S39' GOTO DAVG_S39.
!GEN3	IF NAME EQ 'S40' GOTO DAVG_S40.
!GEN3	IF NAME EQ 'S41' GOTO DAVG_S41.
!GEN3	IF NAME EQ 'S42' GOTO DAVG_S42.
!GEN3	IF NAME EQ 'S43' GOTO DAVG_S43.
!GEN3	IF NAME EQ 'S44' GOTO DAVG_S44.
!GEN3	IF NAME EQ 'S45' GOTO DAVG_S45.
!GEN3	IF NAME EQ 'S46' GOTO DAVG_S46.
!GEN3	IF NAME EQ 'S47' GOTO DAVG_S47.
!GEN3	IF NAME EQ 'S48' GOTO DAVG_S48.
!GEN3	IF NAME EQ 'S49' GOTO DAVG_S49.
!GEN3	IF NAME EQ 'S50' GOTO DAVG_S50.
!GEN3	IF NAME EQ 'S51' GOTO DAVG_S51.
!GEN3	IF NAME EQ 'S52' GOTO DAVG_S52.
!GEN3	IF NAME EQ 'S53' GOTO DAVG_S53.
!GEN3	IF NAME EQ 'S54' GOTO DAVG_S54.
!GEN3	IF NAME EQ 'S55' GOTO DAVG_S55.
!GEN3	IF NAME EQ 'S56' GOTO DAVG_S56.
!GEN3	IF NAME EQ 'S57' GOTO DAVG_S57.
!GEN3	IF NAME EQ 'S58' GOTO DAVG_S58.
!GEN3	IF NAME EQ 'S59' GOTO DAVG_S59.
!GEN3	IF NAME EQ 'S60' GOTO DAVG_S60.
!GEN3	IF NAME EQ 'S61' GOTO DAVG_S61.
!GEN3	IF NAME EQ 'S62' GOTO DAVG_S62.
!GEN3	IF NAME EQ 'S63' GOTO DAVG_S63.
!GEN3	IF NAME EQ 'S64' GOTO DAVG_S64.
!GEN3	IF NAME EQ 'S65' GOTO DAVG_S65.
!GEN3	IF NAME EQ 'S66' GOTO DAVG_S66.
!GEN3	IF NAME EQ 'S67' GOTO DAVG_S67.
!GEN3	IF NAME EQ 'S68' GOTO DAVG_S68.
!GEN3	IF NAME EQ 'S69' GOTO DAVG_S69.
!GEN3	IF NAME EQ 'S70' GOTO DAVG_S70.
!GEN3	IF NAME EQ 'S71' GOTO DAVG_S71.
!GEN3	IF NAME EQ 'S72' GOTO DAVG_S72.
!GEN3	IF NAME EQ 'S73' GOTO DAVG_S73.
!GEN3	IF NAME EQ 'S74' GOTO DAVG_S74.
!GEN3	IF NAME EQ 'S75' GOTO DAVG_S75.
!GEN3	IF NAME EQ 'S76' GOTO DAVG_S76.
!GEN3	IF NAME EQ 'S77' GOTO DAVG_S77.
!GEN3	IF NAME EQ 'S78' GOTO DAVG_S78.
!GEN3	IF NAME EQ 'S79' GOTO DAVG_S79.
!GEN3	IF NAME EQ 'S80' GOTO DAVG_S80.
!GEN3	IF NAME EQ 'S81' GOTO DAVG_S81.
!GEN3	IF NAME EQ 'S82' GOTO DAVG_S82.
!GEN3	IF NAME EQ 'S83' GOTO DAVG_S83.
!GEN3	IF NAME EQ 'S84' GOTO DAVG_S84.
!GEN3	IF NAME EQ 'S85' GOTO DAVG_S85.
!GEN3	IF NAME EQ 'S86' GOTO DAVG_S86.
!GEN3	IF NAME EQ 'S87' GOTO DAVG_S87.
!GEN3	IF NAME EQ 'S88' GOTO DAVG_S88.
!GEN3	IF NAME EQ 'S89' GOTO DAVG_S89.
!GEN3	IF NAME EQ 'S90' GOTO DAVG_S90.
!GEN3	IF NAME EQ 'S91' GOTO DAVG_S91.
!GEN3	IF NAME EQ 'S92' GOTO DAVG_S92.
!GEN3	IF NAME EQ 'S93' GOTO DAVG_S93.
!GEN3	IF NAME EQ 'S94' GOTO DAVG_S94.
!GEN3	IF NAME EQ 'S95' GOTO DAVG_S95.
!GEN3	IF NAME EQ 'S96' GOTO DAVG_S96.
!GEN3	IF NAME EQ 'S97' GOTO DAVG_S97.
!GEN3	IF NAME EQ 'S98' GOTO DAVG_S98.
!GEN3	IF NAME EQ 'S99' GOTO DAVG_S99.
!GEN3	IF NAME EQ 'S100' GOTO DAVG_S100.

!GEN4DAVG_S1:	F FILE EXTRAC. EV DTOT EQ (TOT S1). F FILE EXTRAC S1 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S2:	F FILE EXTRAC. EV DTOT EQ (TOT S2). F FILE EXTRAC S2 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S3:	F FILE EXTRAC. EV DTOT EQ (TOT S3). F FILE EXTRAC S3 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S4:	F FILE EXTRAC. EV DTOT EQ (TOT S4). F FILE EXTRAC S4 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S5:	F FILE EXTRAC. EV DTOT EQ (TOT S5). F FILE EXTRAC S5 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S6:	F FILE EXTRAC. EV DTOT EQ (TOT S6). F FILE EXTRAC S6 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S7:	F FILE EXTRAC. EV DTOT EQ (TOT S7). F FILE EXTRAC S7 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S8:	F FILE EXTRAC. EV DTOT EQ (TOT S8). F FILE EXTRAC S8 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S9:	F FILE EXTRAC. EV DTOT EQ (TOT S9). F FILE EXTRAC S9 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S10:	F FILE EXTRAC. EV DTOT EQ (TOT S10). F FILE EXTRAC S10 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S11:	F FILE EXTRAC. EV DTOT EQ (TOT S11). F FILE EXTRAC S11 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S12:	F FILE EXTRAC. EV DTOT EQ (TOT S12). F FILE EXTRAC S12 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S13:	F FILE EXTRAC. EV DTOT EQ (TOT S13). F FILE EXTRAC S13 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S14:	F FILE EXTRAC. EV DTOT EQ (TOT S14). F FILE EXTRAC S14 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S15:	F FILE EXTRAC. EV DTOT EQ (TOT S15). F FILE EXTRAC S15 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S16:	F FILE EXTRAC. EV DTOT EQ (TOT S16). F FILE EXTRAC S16 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S17:	F FILE EXTRAC. EV DTOT EQ (TOT S17). F FILE EXTRAC S17 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S18:	F FILE EXTRAC. EV DTOT EQ (TOT S18). F FILE EXTRAC S18 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S19:	F FILE EXTRAC. EV DTOT EQ (TOT S19). F FILE EXTRAC S19 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S20:	F FILE EXTRAC. EV DTOT EQ (TOT S20). F FILE EXTRAC S20 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S21:	F FILE EXTRAC. EV DTOT EQ (TOT S21). F FILE EXTRAC S21 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S22:	F FILE EXTRAC. EV DTOT EQ (TOT S22). F FILE EXTRAC S22 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S23:	F FILE EXTRAC. EV DTOT EQ (TOT S23). F FILE EXTRAC S23 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S24:	F FILE EXTRAC. EV DTOT EQ (TOT S24). F FILE EXTRAC S24 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S25:	F FILE EXTRAC. EV DTOT EQ (TOT S25). F FILE EXTRAC S25 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S26:	F FILE EXTRAC. EV DTOT EQ (TOT S26). F FILE EXTRAC S26 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S27:	F FILE EXTRAC. EV DTOT EQ (TOT S27). F FILE EXTRAC S27 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S28:	F FILE EXTRAC. EV DTOT EQ (TOT S28). F FILE EXTRAC S28 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S29:	F FILE EXTRAC. EV DTOT EQ (TOT S29). F FILE EXTRAC S29 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S30:	F FILE EXTRAC. EV DTOT EQ (TOT S30). F FILE EXTRAC S30 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S31:	F FILE EXTRAC. EV DTOT EQ (TOT S31). F FILE EXTRAC S31 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S32:	F FILE EXTRAC. EV DTOT EQ (TOT S32). F FILE EXTRAC S32 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S33:	F FILE EXTRAC. EV DTOT EQ (TOT S33). F FILE EXTRAC S33 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S34:	F FILE EXTRAC. EV DTOT EQ (TOT S34). F FILE EXTRAC S34 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S35:	F FILE EXTRAC. EV DTOT EQ (TOT S35). F FILE EXTRAC S35 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S36:	F FILE EXTRAC. EV DTOT EQ (TOT S36). F FILE EXTRAC S36 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S37:	F FILE EXTRAC. EV DTOT EQ (TOT S37). F FILE EXTRAC S37 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S38:	F FILE EXTRAC. EV DTOT EQ (TOT S38). F FILE EXTRAC S38 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S39:	F FILE EXTRAC. EV DTOT EQ (TOT S39). F FILE EXTRAC S39 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S40:	F FILE EXTRAC. EV DTOT EQ (TOT S40). F FILE EXTRAC S40 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S41:	F FILE EXTRAC. EV DTOT EQ (TOT S41). F FILE EXTRAC S41 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S42:	F FILE EXTRAC. EV DTOT EQ (TOT S42). F FILE EXTRAC S42 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S43:	F FILE EXTRAC. EV DTOT EQ (TOT S43). F FILE EXTRAC S43 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S44:	F FILE EXTRAC. EV DTOT EQ (TOT S44). F FILE EXTRAC S44 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S45:	F FILE EXTRAC. EV DTOT EQ (TOT S45). F FILE EXTRAC S45 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S46:	F FILE EXTRAC. EV DTOT EQ (TOT S46). F FILE EXTRAC S46 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S47:	F FILE EXTRAC. EV DTOT EQ (TOT S47). F FILE EXTRAC S47 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S48:	F FILE EXTRAC. EV DTOT EQ (TOT S48). F FILE EXTRAC S48 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S49:	F FILE EXTRAC. EV DTOT EQ (TOT S49). F FILE EXTRAC S49 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S50:	F FILE EXTRAC. EV DTOT EQ (TOT S50). F FILE EXTRAC S50 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S51:	F FILE EXTRAC. EV DTOT EQ (TOT S51). F FILE EXTRAC S51 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S52:	F FILE EXTRAC. EV DTOT EQ (TOT S52). F FILE EXTRAC S52 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S53:	F FILE EXTRAC. EV DTOT EQ (TOT S53). F FILE EXTRAC S53 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S54:	F FILE EXTRAC. EV DTOT EQ (TOT S54). F FILE EXTRAC S54 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S55:	F FILE EXTRAC. EV DTOT EQ (TOT S55). F FILE EXTRAC S55 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S56:	F FILE EXTRAC. EV DTOT EQ (TOT S56). F FILE EXTRAC S56 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S57:	F FILE EXTRAC. EV DTOT EQ (TOT S57). F FILE EXTRAC S57 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S58:	F FILE EXTRAC. EV DTOT EQ (TOT S58). F FILE EXTRAC S58 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S59:	F FILE EXTRAC. EV DTOT EQ (TOT S59). F FILE EXTRAC S59 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S60:	F FILE EXTRAC. EV DTOT EQ (TOT S60). F FILE EXTRAC S60 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S61:	F FILE EXTRAC. EV DTOT EQ (TOT S61). F FILE EXTRAC S61 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S62:	F FILE EXTRAC. EV DTOT EQ (TOT S62). F FILE EXTRAC S62 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S63:	F FILE EXTRAC. EV DTOT EQ (TOT S63). F FILE EXTRAC S63 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S64:	F FILE EXTRAC. EV DTOT EQ (TOT S64). F FILE EXTRAC S64 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S65:	F FILE EXTRAC. EV DTOT EQ (TOT S65). F FILE EXTRAC S65 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S66:	F FILE EXTRAC. EV DTOT EQ (TOT S66). F FILE EXTRAC S66 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S67:	F FILE EXTRAC. EV DTOT EQ (TOT S67). F FILE EXTRAC S67 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S68:	F FILE EXTRAC. EV DTOT EQ (TOT S68). F FILE EXTRAC S68 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S69:	F FILE EXTRAC. EV DTOT EQ (TOT S69). F FILE EXTRAC S69 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S70:	F FILE EXTRAC. EV DTOT EQ (TOT S70). F FILE EXTRAC S70 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S71:	F FILE EXTRAC. EV DTOT EQ (TOT S71). F FILE EXTRAC S71 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S72:	F FILE EXTRAC. EV DTOT EQ (TOT S72). F FILE EXTRAC S72 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S73:	F FILE EXTRAC. EV DTOT EQ (TOT S73). F FILE EXTRAC S73 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S74:	F FILE EXTRAC. EV DTOT EQ (TOT S74). F FILE EXTRAC S74 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S75:	F FILE EXTRAC. EV DTOT EQ (TOT S75). F FILE EXTRAC S75 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S76:	F FILE EXTRAC. EV DTOT EQ (TOT S76). F FILE EXTRAC S76 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S77:	F FILE EXTRAC. EV DTOT EQ (TOT S77). F FILE EXTRAC S77 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S78:	F FILE EXTRAC. EV DTOT EQ (TOT S78). F FILE EXTRAC S78 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S79:	F FILE EXTRAC. EV DTOT EQ (TOT S79). F FILE EXTRAC S79 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S80:	F FILE EXTRAC. EV DTOT EQ (TOT S80). F FILE EXTRAC S80 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S81:	F FILE EXTRAC. EV DTOT EQ (TOT S81). F FILE EXTRAC S81 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S82:	F FILE EXTRAC. EV DTOT EQ (TOT S82). F FILE EXTRAC S82 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S83:	F FILE EXTRAC. EV DTOT EQ (TOT S83). F FILE EXTRAC S83 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S84:	F FILE EXTRAC. EV DTOT EQ (TOT S84). F FILE EXTRAC S84 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S85:	F FILE EXTRAC. EV DTOT EQ (TOT S85). F FILE EXTRAC S85 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S86:	F FILE EXTRAC. EV DTOT EQ (TOT S86). F FILE EXTRAC S86 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S87:	F FILE EXTRAC. EV DTOT EQ (TOT S87). F FILE EXTRAC S87 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S88:	F FILE EXTRAC. EV DTOT EQ (TOT S88). F FILE EXTRAC S88 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S89:	F FILE EXTRAC. EV DTOT EQ (TOT S89). F FILE EXTRAC S89 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S90:	F FILE EXTRAC. EV DTOT EQ (TOT S90). F FILE EXTRAC S90 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S91:	F FILE EXTRAC. EV DTOT EQ (TOT S91). F FILE EXTRAC S91 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S92:	F FILE EXTRAC. EV DTOT EQ (TOT S92). F FILE EXTRAC S92 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S93:	F FILE EXTRAC. EV DTOT EQ (TOT S93). F FILE EXTRAC S93 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S94:	F FILE EXTRAC. EV DTOT EQ (TOT S94). F FILE EXTRAC S94 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S95:	F FILE EXTRAC. EV DTOT EQ (TOT S95). F FILE EXTRAC S95 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S96:	F FILE EXTRAC. EV DTOT EQ (TOT S96). F FILE EXTRAC S96 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S97:	F FILE EXTRAC. EV DTOT EQ (TOT S97). F FILE EXTRAC S97 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S98:	F FILE EXTRAC. EV DTOT EQ (TOT S98). F FILE EXTRAC S98 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S99:	F FILE EXTRAC. EV DTOT EQ (TOT S99). F FILE EXTRAC S99 GT 0. GOTO SV_DAVG.
!GEN4DAVG_S100:	F FILE EXTRAC. EV DTOT EQ (TOT S100). F FILE EXTRAC S100 GT 0. GOTO SV_DAVG.


SV_DAVG:
	EV DAVG EQ DTOT/SYSNREC.

DG_FIND_EXIT:
	RETURN.



DG_PRINT_RTN:
	CALL NEXT_PAGE.
	P ON 2 NAME FMT / A '.' END.

	IF QTYPE EQ 'YN' GOTO AVG_SKIP.
	IF QTYPE EQ 'DS' GOTO DS_PRINT_RTN.

	P ON 2 TXT SYSNREC DANS(2) DANS(3) DANS(4) DANS(5) DANS(6) DANS(7) DANS(1) DAVG -
		FMT S26 30T PZZZ 35T PZZZ 40T PZZZ 45T PZZZ 50T PZZZ 55T PZZZ -
		    60T PZZZ 68T PZZZ 74T PZ.Z END.

	GOTO DG_CLEAR_ARRAY.

DS_PRINT_RTN:
	P ON 2 TXT SYSNREC DANS(2) DANS(3) DANS(4) DANS(5) DANS(6) DANS(7) DANS(1) -
		FMT S26 30T PZZZ 35T PZZZ 40T PZZZ 45T PZZZ 50T PZZZ 55T PZZZ -
		    60T PZZZ 68T PZZZ END.

	GOTO DG_CLEAR_ARRAY.
AVG_SKIP:
	P ON 2 TXT SYSNREC DANS(2) DANS(3) DANS(4) DANS(5) DANS(6) DANS(7) DANS(1) -
		FMT S26 30T PZZZ 35T PZZZ 40T PZZZ 45T PZZZ 50T PZZZ 55T PZZZ -
		    60T PZZZ 68T PZZZ END.

DG_CLEAR_ARRAY:
	LET IND1 EQ 0.
DG_CLEAR_LOOP:
	LET IND1 EQ IND1+1.
	IF IND1 EQ MAXNUM+1 GOTO DG_CLEAR_EXIT.
	LET DANS(IND1) EQ 0.

	GOTO DG_CLEAR_LOOP.
DG_CLEAR_EXIT:

	RETURN.




PC_FIND_RTN:
!GEN5	IF NAME EQ 'S1' GOTO FP_S1.
!GEN5	IF NAME EQ 'S2' GOTO FP_S2.
!GEN5	IF NAME EQ 'S3' GOTO FP_S3.
!GEN5	IF NAME EQ 'S4' GOTO FP_S4.
!GEN5	IF NAME EQ 'S5' GOTO FP_S5.
!GEN5	IF NAME EQ 'S6' GOTO FP_S6.
!GEN5	IF NAME EQ 'S7' GOTO FP_S7.
!GEN5	IF NAME EQ 'S8' GOTO FP_S8.
!GEN5	IF NAME EQ 'S9' GOTO FP_S9.
!GEN5	IF NAME EQ 'S10' GOTO FP_S10.
!GEN5	IF NAME EQ 'S11' GOTO FP_S11.
!GEN5	IF NAME EQ 'S12' GOTO FP_S12.
!GEN5	IF NAME EQ 'S13' GOTO FP_S13.
!GEN5	IF NAME EQ 'S14' GOTO FP_S14.
!GEN5	IF NAME EQ 'S15' GOTO FP_S15.
!GEN5	IF NAME EQ 'S16' GOTO FP_S16.
!GEN5	IF NAME EQ 'S17' GOTO FP_S17.
!GEN5	IF NAME EQ 'S18' GOTO FP_S18.
!GEN5	IF NAME EQ 'S19' GOTO FP_S19.
!GEN5	IF NAME EQ 'S20' GOTO FP_S20.
!GEN5	IF NAME EQ 'S21' GOTO FP_S21.
!GEN5	IF NAME EQ 'S22' GOTO FP_S22.
!GEN5	IF NAME EQ 'S23' GOTO FP_S23.
!GEN5	IF NAME EQ 'S24' GOTO FP_S24.
!GEN5	IF NAME EQ 'S25' GOTO FP_S25.
!GEN5	IF NAME EQ 'S26' GOTO FP_S26.
!GEN5	IF NAME EQ 'S27' GOTO FP_S27.
!GEN5	IF NAME EQ 'S28' GOTO FP_S28.
!GEN5	IF NAME EQ 'S29' GOTO FP_S29.
!GEN5	IF NAME EQ 'S30' GOTO FP_S30.
!GEN5	IF NAME EQ 'S31' GOTO FP_S31.
!GEN5	IF NAME EQ 'S32' GOTO FP_S32.
!GEN5	IF NAME EQ 'S33' GOTO FP_S33.
!GEN5	IF NAME EQ 'S34' GOTO FP_S34.
!GEN5	IF NAME EQ 'S35' GOTO FP_S35.
!GEN5	IF NAME EQ 'S36' GOTO FP_S36.
!GEN5	IF NAME EQ 'S37' GOTO FP_S37.
!GEN5	IF NAME EQ 'S38' GOTO FP_S38.
!GEN5	IF NAME EQ 'S39' GOTO FP_S39.
!GEN5	IF NAME EQ 'S40' GOTO FP_S40.
!GEN5	IF NAME EQ 'S41' GOTO FP_S41.
!GEN5	IF NAME EQ 'S42' GOTO FP_S42.
!GEN5	IF NAME EQ 'S43' GOTO FP_S43.
!GEN5	IF NAME EQ 'S44' GOTO FP_S44.
!GEN5	IF NAME EQ 'S45' GOTO FP_S45.
!GEN5	IF NAME EQ 'S46' GOTO FP_S46.
!GEN5	IF NAME EQ 'S47' GOTO FP_S47.
!GEN5	IF NAME EQ 'S48' GOTO FP_S48.
!GEN5	IF NAME EQ 'S49' GOTO FP_S49.
!GEN5	IF NAME EQ 'S50' GOTO FP_S50.
!GEN5	IF NAME EQ 'S51' GOTO FP_S51.
!GEN5	IF NAME EQ 'S52' GOTO FP_S52.
!GEN5	IF NAME EQ 'S53' GOTO FP_S53.
!GEN5	IF NAME EQ 'S54' GOTO FP_S54.
!GEN5	IF NAME EQ 'S55' GOTO FP_S55.
!GEN5	IF NAME EQ 'S56' GOTO FP_S56.
!GEN5	IF NAME EQ 'S57' GOTO FP_S57.
!GEN5	IF NAME EQ 'S58' GOTO FP_S58.
!GEN5	IF NAME EQ 'S59' GOTO FP_S59.
!GEN5	IF NAME EQ 'S60' GOTO FP_S60.
!GEN5	IF NAME EQ 'S61' GOTO FP_S61.
!GEN5	IF NAME EQ 'S62' GOTO FP_S62.
!GEN5	IF NAME EQ 'S63' GOTO FP_S63.
!GEN5	IF NAME EQ 'S64' GOTO FP_S64.
!GEN5	IF NAME EQ 'S65' GOTO FP_S65.
!GEN5	IF NAME EQ 'S66' GOTO FP_S66.
!GEN5	IF NAME EQ 'S67' GOTO FP_S67.
!GEN5	IF NAME EQ 'S68' GOTO FP_S68.
!GEN5	IF NAME EQ 'S69' GOTO FP_S69.
!GEN5	IF NAME EQ 'S70' GOTO FP_S70.
!GEN5	IF NAME EQ 'S71' GOTO FP_S71.
!GEN5	IF NAME EQ 'S72' GOTO FP_S72.
!GEN5	IF NAME EQ 'S73' GOTO FP_S73.
!GEN5	IF NAME EQ 'S74' GOTO FP_S74.
!GEN5	IF NAME EQ 'S75' GOTO FP_S75.
!GEN5	IF NAME EQ 'S76' GOTO FP_S76.
!GEN5	IF NAME EQ 'S77' GOTO FP_S77.
!GEN5	IF NAME EQ 'S78' GOTO FP_S78.
!GEN5	IF NAME EQ 'S79' GOTO FP_S79.
!GEN5	IF NAME EQ 'S80' GOTO FP_S80.
!GEN5	IF NAME EQ 'S81' GOTO FP_S81.
!GEN5	IF NAME EQ 'S82' GOTO FP_S82.
!GEN5	IF NAME EQ 'S83' GOTO FP_S83.
!GEN5	IF NAME EQ 'S84' GOTO FP_S84.
!GEN5	IF NAME EQ 'S85' GOTO FP_S85.
!GEN5	IF NAME EQ 'S86' GOTO FP_S86.
!GEN5	IF NAME EQ 'S87' GOTO FP_S87.
!GEN5	IF NAME EQ 'S88' GOTO FP_S88.
!GEN5	IF NAME EQ 'S89' GOTO FP_S89.
!GEN5	IF NAME EQ 'S90' GOTO FP_S90.
!GEN5	IF NAME EQ 'S91' GOTO FP_S91.
!GEN5	IF NAME EQ 'S92' GOTO FP_S92.
!GEN5	IF NAME EQ 'S93' GOTO FP_S93.
!GEN5	IF NAME EQ 'S94' GOTO FP_S94.
!GEN5	IF NAME EQ 'S95' GOTO FP_S95.
!GEN5	IF NAME EQ 'S96' GOTO FP_S96.
!GEN5	IF NAME EQ 'S97' GOTO FP_S97.
!GEN5	IF NAME EQ 'S98' GOTO FP_S98.
!GEN5	IF NAME EQ 'S99' GOTO FP_S99.
!GEN5	IF NAME EQ 'S100' GOTO FP_S100.
	
!GEN6FP_S1: 	F FILE EXTRAC AND S1 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S2: 	F FILE EXTRAC AND S2 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S3: 	F FILE EXTRAC AND S3 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S4: 	F FILE EXTRAC AND S4 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S5: 	F FILE EXTRAC AND S5 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S6: 	F FILE EXTRAC AND S6 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S7: 	F FILE EXTRAC AND S7 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S8: 	F FILE EXTRAC AND S8 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S9: 	F FILE EXTRAC AND S9 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S10: 	F FILE EXTRAC AND S10 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S11: 	F FILE EXTRAC AND S11 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S12: 	F FILE EXTRAC AND S12 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S13: 	F FILE EXTRAC AND S13 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S14: 	F FILE EXTRAC AND S14 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S15: 	F FILE EXTRAC AND S15 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S16: 	F FILE EXTRAC AND S16 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S17: 	F FILE EXTRAC AND S17 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S18: 	F FILE EXTRAC AND S18 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S19: 	F FILE EXTRAC AND S19 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S20: 	F FILE EXTRAC AND S20 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S21: 	F FILE EXTRAC AND S21 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S22: 	F FILE EXTRAC AND S22 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S23: 	F FILE EXTRAC AND S23 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S24: 	F FILE EXTRAC AND S24 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S25: 	F FILE EXTRAC AND S25 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S26: 	F FILE EXTRAC AND S26 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S27: 	F FILE EXTRAC AND S27 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S28: 	F FILE EXTRAC AND S28 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S29: 	F FILE EXTRAC AND S29 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S30: 	F FILE EXTRAC AND S30 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S31: 	F FILE EXTRAC AND S31 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S32: 	F FILE EXTRAC AND S32 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S33: 	F FILE EXTRAC AND S33 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S34: 	F FILE EXTRAC AND S34 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S35: 	F FILE EXTRAC AND S35 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S36: 	F FILE EXTRAC AND S36 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S37: 	F FILE EXTRAC AND S37 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S38: 	F FILE EXTRAC AND S38 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S39: 	F FILE EXTRAC AND S39 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S40: 	F FILE EXTRAC AND S40 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S41: 	F FILE EXTRAC AND S41 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S42: 	F FILE EXTRAC AND S42 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S43: 	F FILE EXTRAC AND S43 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S44: 	F FILE EXTRAC AND S44 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S45: 	F FILE EXTRAC AND S45 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S46: 	F FILE EXTRAC AND S46 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S47: 	F FILE EXTRAC AND S47 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S48: 	F FILE EXTRAC AND S48 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S49: 	F FILE EXTRAC AND S49 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S50: 	F FILE EXTRAC AND S50 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S51: 	F FILE EXTRAC AND S51 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S52: 	F FILE EXTRAC AND S52 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S53: 	F FILE EXTRAC AND S53 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S54: 	F FILE EXTRAC AND S54 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S55: 	F FILE EXTRAC AND S55 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S56: 	F FILE EXTRAC AND S56 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S57: 	F FILE EXTRAC AND S57 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S58: 	F FILE EXTRAC AND S58 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S59: 	F FILE EXTRAC AND S59 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S60: 	F FILE EXTRAC AND S60 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S61: 	F FILE EXTRAC AND S61 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S62: 	F FILE EXTRAC AND S62 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S63: 	F FILE EXTRAC AND S63 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S64: 	F FILE EXTRAC AND S64 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S65: 	F FILE EXTRAC AND S65 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S66: 	F FILE EXTRAC AND S66 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S67: 	F FILE EXTRAC AND S67 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S68: 	F FILE EXTRAC AND S68 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S69: 	F FILE EXTRAC AND S69 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S70: 	F FILE EXTRAC AND S70 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S71: 	F FILE EXTRAC AND S71 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S72: 	F FILE EXTRAC AND S72 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S73: 	F FILE EXTRAC AND S73 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S74: 	F FILE EXTRAC AND S74 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S75: 	F FILE EXTRAC AND S75 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S76: 	F FILE EXTRAC AND S76 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S77: 	F FILE EXTRAC AND S77 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S78: 	F FILE EXTRAC AND S78 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S79: 	F FILE EXTRAC AND S79 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S80: 	F FILE EXTRAC AND S80 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S81: 	F FILE EXTRAC AND S81 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S82: 	F FILE EXTRAC AND S82 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S83: 	F FILE EXTRAC AND S83 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S84: 	F FILE EXTRAC AND S84 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S85: 	F FILE EXTRAC AND S85 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S86: 	F FILE EXTRAC AND S86 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S87: 	F FILE EXTRAC AND S87 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S88: 	F FILE EXTRAC AND S88 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S89: 	F FILE EXTRAC AND S89 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S90: 	F FILE EXTRAC AND S90 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S91: 	F FILE EXTRAC AND S91 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S92: 	F FILE EXTRAC AND S92 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S93: 	F FILE EXTRAC AND S93 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S94: 	F FILE EXTRAC AND S94 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S95: 	F FILE EXTRAC AND S95 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S96: 	F FILE EXTRAC AND S96 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S97: 	F FILE EXTRAC AND S97 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S98: 	F FILE EXTRAC AND S98 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S99: 	F FILE EXTRAC AND S99 GT 0.	GOTO PC_SAVE_VALUE.
!GEN6FP_S100: 	F FILE EXTRAC AND S100 GT 0.	GOTO PC_SAVE_VALUE.


PC_SAVE_VALUE:
	LET PCRCNT EQ SYSNREC.

!GEN7	IF NAME EQ 'S1' GOTO PS_S1.
!GEN7	IF NAME EQ 'S2' GOTO PS_S2.
!GEN7	IF NAME EQ 'S3' GOTO PS_S3.
!GEN7	IF NAME EQ 'S4' GOTO PS_S4.
!GEN7	IF NAME EQ 'S5' GOTO PS_S5.
!GEN7	IF NAME EQ 'S6' GOTO PS_S6.
!GEN7	IF NAME EQ 'S7' GOTO PS_S7.
!GEN7	IF NAME EQ 'S8' GOTO PS_S8.
!GEN7	IF NAME EQ 'S9' GOTO PS_S9.
!GEN7	IF NAME EQ 'S10' GOTO PS_S10.
!GEN7	IF NAME EQ 'S11' GOTO PS_S11.
!GEN7	IF NAME EQ 'S12' GOTO PS_S12.
!GEN7	IF NAME EQ 'S13' GOTO PS_S13.
!GEN7	IF NAME EQ 'S14' GOTO PS_S14.
!GEN7	IF NAME EQ 'S15' GOTO PS_S15.
!GEN7	IF NAME EQ 'S16' GOTO PS_S16.
!GEN7	IF NAME EQ 'S17' GOTO PS_S17.
!GEN7	IF NAME EQ 'S18' GOTO PS_S18.
!GEN7	IF NAME EQ 'S19' GOTO PS_S19.
!GEN7	IF NAME EQ 'S20' GOTO PS_S20.
!GEN7	IF NAME EQ 'S21' GOTO PS_S21.
!GEN7	IF NAME EQ 'S22' GOTO PS_S22.
!GEN7	IF NAME EQ 'S23' GOTO PS_S23.
!GEN7	IF NAME EQ 'S24' GOTO PS_S24.
!GEN7	IF NAME EQ 'S25' GOTO PS_S25.
!GEN7	IF NAME EQ 'S26' GOTO PS_S26.
!GEN7	IF NAME EQ 'S27' GOTO PS_S27.
!GEN7	IF NAME EQ 'S28' GOTO PS_S28.
!GEN7	IF NAME EQ 'S29' GOTO PS_S29.
!GEN7	IF NAME EQ 'S30' GOTO PS_S30.
!GEN7	IF NAME EQ 'S31' GOTO PS_S31.
!GEN7	IF NAME EQ 'S32' GOTO PS_S32.
!GEN7	IF NAME EQ 'S33' GOTO PS_S33.
!GEN7	IF NAME EQ 'S34' GOTO PS_S34.
!GEN7	IF NAME EQ 'S35' GOTO PS_S35.
!GEN7	IF NAME EQ 'S36' GOTO PS_S36.
!GEN7	IF NAME EQ 'S37' GOTO PS_S37.
!GEN7	IF NAME EQ 'S38' GOTO PS_S38.
!GEN7	IF NAME EQ 'S39' GOTO PS_S39.
!GEN7	IF NAME EQ 'S40' GOTO PS_S40.
!GEN7	IF NAME EQ 'S41' GOTO PS_S41.
!GEN7	IF NAME EQ 'S42' GOTO PS_S42.
!GEN7	IF NAME EQ 'S43' GOTO PS_S43.
!GEN7	IF NAME EQ 'S44' GOTO PS_S44.
!GEN7	IF NAME EQ 'S45' GOTO PS_S45.
!GEN7	IF NAME EQ 'S46' GOTO PS_S46.
!GEN7	IF NAME EQ 'S47' GOTO PS_S47.
!GEN7	IF NAME EQ 'S48' GOTO PS_S48.
!GEN7	IF NAME EQ 'S49' GOTO PS_S49.
!GEN7	IF NAME EQ 'S50' GOTO PS_S50.
!GEN7	IF NAME EQ 'S51' GOTO PS_S51.
!GEN7	IF NAME EQ 'S52' GOTO PS_S52.
!GEN7	IF NAME EQ 'S53' GOTO PS_S53.
!GEN7	IF NAME EQ 'S54' GOTO PS_S54.
!GEN7	IF NAME EQ 'S55' GOTO PS_S55.
!GEN7	IF NAME EQ 'S56' GOTO PS_S56.
!GEN7	IF NAME EQ 'S57' GOTO PS_S57.
!GEN7	IF NAME EQ 'S58' GOTO PS_S58.
!GEN7	IF NAME EQ 'S59' GOTO PS_S59.
!GEN7	IF NAME EQ 'S60' GOTO PS_S60.
!GEN7	IF NAME EQ 'S61' GOTO PS_S61.
!GEN7	IF NAME EQ 'S62' GOTO PS_S62.
!GEN7	IF NAME EQ 'S63' GOTO PS_S63.
!GEN7	IF NAME EQ 'S64' GOTO PS_S64.
!GEN7	IF NAME EQ 'S65' GOTO PS_S65.
!GEN7	IF NAME EQ 'S66' GOTO PS_S66.
!GEN7	IF NAME EQ 'S67' GOTO PS_S67.
!GEN7	IF NAME EQ 'S68' GOTO PS_S68.
!GEN7	IF NAME EQ 'S69' GOTO PS_S69.
!GEN7	IF NAME EQ 'S70' GOTO PS_S70.
!GEN7	IF NAME EQ 'S71' GOTO PS_S71.
!GEN7	IF NAME EQ 'S72' GOTO PS_S72.
!GEN7	IF NAME EQ 'S73' GOTO PS_S73.
!GEN7	IF NAME EQ 'S74' GOTO PS_S74.
!GEN7	IF NAME EQ 'S75' GOTO PS_S75.
!GEN7	IF NAME EQ 'S76' GOTO PS_S76.
!GEN7	IF NAME EQ 'S77' GOTO PS_S77.
!GEN7	IF NAME EQ 'S78' GOTO PS_S78.
!GEN7	IF NAME EQ 'S79' GOTO PS_S79.
!GEN7	IF NAME EQ 'S80' GOTO PS_S80.
!GEN7	IF NAME EQ 'S81' GOTO PS_S81.
!GEN7	IF NAME EQ 'S82' GOTO PS_S82.
!GEN7	IF NAME EQ 'S83' GOTO PS_S83.
!GEN7	IF NAME EQ 'S84' GOTO PS_S84.
!GEN7	IF NAME EQ 'S85' GOTO PS_S85.
!GEN7	IF NAME EQ 'S86' GOTO PS_S86.
!GEN7	IF NAME EQ 'S87' GOTO PS_S87.
!GEN7	IF NAME EQ 'S88' GOTO PS_S88.
!GEN7	IF NAME EQ 'S89' GOTO PS_S89.
!GEN7	IF NAME EQ 'S90' GOTO PS_S90.
!GEN7	IF NAME EQ 'S91' GOTO PS_S91.
!GEN7	IF NAME EQ 'S92' GOTO PS_S92.
!GEN7	IF NAME EQ 'S93' GOTO PS_S93.
!GEN7	IF NAME EQ 'S94' GOTO PS_S94.
!GEN7	IF NAME EQ 'S95' GOTO PS_S95.
!GEN7	IF NAME EQ 'S96' GOTO PS_S96.
!GEN7	IF NAME EQ 'S97' GOTO PS_S97.
!GEN7	IF NAME EQ 'S98' GOTO PS_S98.
!GEN7	IF NAME EQ 'S99' GOTO PS_S99.
!GEN7	IF NAME EQ 'S100' GOTO PS_S100.

!GEN8PS_S1:	EV PANS EQ (TOT S1)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S2:	EV PANS EQ (TOT S2)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S3:	EV PANS EQ (TOT S3)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S4:	EV PANS EQ (TOT S4)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S5:	EV PANS EQ (TOT S5)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S6:	EV PANS EQ (TOT S6)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S7:	EV PANS EQ (TOT S7)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S8:	EV PANS EQ (TOT S8)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S9:	EV PANS EQ (TOT S9)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S10:	EV PANS EQ (TOT S10)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S11:	EV PANS EQ (TOT S11)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S12:	EV PANS EQ (TOT S12)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S13:	EV PANS EQ (TOT S13)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S14:	EV PANS EQ (TOT S14)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S15:	EV PANS EQ (TOT S15)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S16:	EV PANS EQ (TOT S16)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S17:	EV PANS EQ (TOT S17)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S18:	EV PANS EQ (TOT S18)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S19:	EV PANS EQ (TOT S19)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S20:	EV PANS EQ (TOT S20)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S21:	EV PANS EQ (TOT S21)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S22:	EV PANS EQ (TOT S22)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S23:	EV PANS EQ (TOT S23)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S24:	EV PANS EQ (TOT S24)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S25:	EV PANS EQ (TOT S25)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S26:	EV PANS EQ (TOT S26)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S27:	EV PANS EQ (TOT S27)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S28:	EV PANS EQ (TOT S28)/PCRCNT.	GOTO PC_SAVE_EXIT.
	
!GEN8PS_S29:	EV PANS EQ (TOT S29)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S30:	EV PANS EQ (TOT S30)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S31:	EV PANS EQ (TOT S31)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S32:	EV PANS EQ (TOT S32)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S33:	EV PANS EQ (TOT S33)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S34:	EV PANS EQ (TOT S34)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S35:	EV PANS EQ (TOT S35)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S36:	EV PANS EQ (TOT S36)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S37:	EV PANS EQ (TOT S37)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S38:	EV PANS EQ (TOT S38)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S39:	EV PANS EQ (TOT S39)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S40:	EV PANS EQ (TOT S40)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S41:	EV PANS EQ (TOT S41)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S42:	EV PANS EQ (TOT S42)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S43:	EV PANS EQ (TOT S43)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S44:	EV PANS EQ (TOT S44)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S45:	EV PANS EQ (TOT S45)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S46:	EV PANS EQ (TOT S46)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S47:	EV PANS EQ (TOT S47)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S48:	EV PANS EQ (TOT S48)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S49:	EV PANS EQ (TOT S49)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S50:	EV PANS EQ (TOT S50)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S51:	EV PANS EQ (TOT S51)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S52:	EV PANS EQ (TOT S52)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S53:	EV PANS EQ (TOT S53)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S54:	EV PANS EQ (TOT S54)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S55:	EV PANS EQ (TOT S55)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S56:	EV PANS EQ (TOT S56)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S57:	EV PANS EQ (TOT S57)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S58:	EV PANS EQ (TOT S58)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S59:	EV PANS EQ (TOT S59)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S60:	EV PANS EQ (TOT S60)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S61:	EV PANS EQ (TOT S61)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S62:	EV PANS EQ (TOT S62)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S63:	EV PANS EQ (TOT S63)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S64:	EV PANS EQ (TOT S64)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S65:	EV PANS EQ (TOT S65)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S66:	EV PANS EQ (TOT S66)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S67:	EV PANS EQ (TOT S67)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S68:	EV PANS EQ (TOT S68)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S69:	EV PANS EQ (TOT S69)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S70:	EV PANS EQ (TOT S70)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S71:	EV PANS EQ (TOT S71)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S72:	EV PANS EQ (TOT S72)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S73:	EV PANS EQ (TOT S73)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S74:	EV PANS EQ (TOT S74)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S75:	EV PANS EQ (TOT S75)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S76:	EV PANS EQ (TOT S76)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S77:	EV PANS EQ (TOT S77)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S78:	EV PANS EQ (TOT S78)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S79:	EV PANS EQ (TOT S79)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S80:	EV PANS EQ (TOT S80)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S81:	EV PANS EQ (TOT S81)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S82:	EV PANS EQ (TOT S82)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S83:	EV PANS EQ (TOT S83)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S84:	EV PANS EQ (TOT S84)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S85:	EV PANS EQ (TOT S85)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S86:	EV PANS EQ (TOT S86)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S87:	EV PANS EQ (TOT S87)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S88:	EV PANS EQ (TOT S88)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S89:	EV PANS EQ (TOT S89)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S90:	EV PANS EQ (TOT S90)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S91:	EV PANS EQ (TOT S91)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S92:	EV PANS EQ (TOT S92)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S93:	EV PANS EQ (TOT S93)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S94:	EV PANS EQ (TOT S94)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S95:	EV PANS EQ (TOT S95)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S96:	EV PANS EQ (TOT S96)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S97:	EV PANS EQ (TOT S97)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S98:	EV PANS EQ (TOT S98)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S99:	EV PANS EQ (TOT S99)/PCRCNT.	GOTO PC_SAVE_EXIT.
!GEN8PS_S100:	EV PANS EQ (TOT S100)/PCRCNT.	GOTO PC_SAVE_EXIT.


PC_SAVE_EXIT:
	RETURN.
PC_PRINT_RTN:
	CALL NEXT_PAGE.
	P ON 2 NAME FMT / A '.' END.

	P ON 2 TXT PANS -
		FMT S26 72T F3.1 END.
	P ON 2 PCRCNT FMT '(# of Respondents = ' I ')' END.
	RETURN.

PR_RTN:
	LET PRIND EQ 0.


PR_FIND_LOOP:
	LET PRIND EQ PRIND+1.

	IF PRIND EQ 40 GOTO PR_FIND_EXIT.

!GEN9	IF NAME EQ 'S1' GOTO FPR_S1.
!GEN9	IF NAME EQ 'S2' GOTO FPR_S2.
!GEN9	IF NAME EQ 'S3' GOTO FPR_S3.
!GEN9	IF NAME EQ 'S4' GOTO FPR_S4.
!GEN9	IF NAME EQ 'S5' GOTO FPR_S5.
!GEN9	IF NAME EQ 'S6' GOTO FPR_S6.
!GEN9	IF NAME EQ 'S7' GOTO FPR_S7.
!GEN9	IF NAME EQ 'S8' GOTO FPR_S8.
!GEN9	IF NAME EQ 'S9' GOTO FPR_S9.
!GEN9	IF NAME EQ 'S10' GOTO FPR_S10.
!GEN9	IF NAME EQ 'S11' GOTO FPR_S11.
!GEN9	IF NAME EQ 'S12' GOTO FPR_S12.
!GEN9	IF NAME EQ 'S13' GOTO FPR_S13.
!GEN9	IF NAME EQ 'S14' GOTO FPR_S14.
!GEN9	IF NAME EQ 'S15' GOTO FPR_S15.
!GEN9	IF NAME EQ 'S16' GOTO FPR_S16.
!GEN9	IF NAME EQ 'S17' GOTO FPR_S17.
!GEN9	IF NAME EQ 'S18' GOTO FPR_S18.
!GEN9	IF NAME EQ 'S19' GOTO FPR_S19.
!GEN9	IF NAME EQ 'S20' GOTO FPR_S20.
!GEN9	IF NAME EQ 'S21' GOTO FPR_S21.
!GEN9	IF NAME EQ 'S22' GOTO FPR_S22.
!GEN9	IF NAME EQ 'S23' GOTO FPR_S23.
!GEN9	IF NAME EQ 'S24' GOTO FPR_S24.
!GEN9	IF NAME EQ 'S25' GOTO FPR_S25.
!GEN9	IF NAME EQ 'S26' GOTO FPR_S26.
!GEN9	IF NAME EQ 'S27' GOTO FPR_S27.
!GEN9	IF NAME EQ 'S28' GOTO FPR_S28.
!GEN9	IF NAME EQ 'S29' GOTO FPR_S29.
!GEN9	IF NAME EQ 'S30' GOTO FPR_S30.
!GEN9	IF NAME EQ 'S31' GOTO FPR_S31.
!GEN9	IF NAME EQ 'S32' GOTO FPR_S32.
!GEN9	IF NAME EQ 'S33' GOTO FPR_S33.
!GEN9	IF NAME EQ 'S34' GOTO FPR_S34.
!GEN9	IF NAME EQ 'S35' GOTO FPR_S35.
!GEN9	IF NAME EQ 'S36' GOTO FPR_S36.
!GEN9	IF NAME EQ 'S37' GOTO FPR_S37.
!GEN9	IF NAME EQ 'S38' GOTO FPR_S38.
!GEN9	IF NAME EQ 'S39' GOTO FPR_S39.
!GEN9	IF NAME EQ 'S40' GOTO FPR_S40.
!GEN9	IF NAME EQ 'S41' GOTO FPR_S41.
!GEN9	IF NAME EQ 'S42' GOTO FPR_S42.
!GEN9	IF NAME EQ 'S43' GOTO FPR_S43.
!GEN9	IF NAME EQ 'S44' GOTO FPR_S44.
!GEN9	IF NAME EQ 'S45' GOTO FPR_S45.
!GEN9	IF NAME EQ 'S46' GOTO FPR_S46.
!GEN9	IF NAME EQ 'S47' GOTO FPR_S47.
!GEN9	IF NAME EQ 'S48' GOTO FPR_S48.
!GEN9	IF NAME EQ 'S49' GOTO FPR_S49.
!GEN9	IF NAME EQ 'S50' GOTO FPR_S50.
!GEN9	IF NAME EQ 'S51' GOTO FPR_S51.
!GEN9	IF NAME EQ 'S52' GOTO FPR_S52.
!GEN9	IF NAME EQ 'S53' GOTO FPR_S53.
!GEN9	IF NAME EQ 'S54' GOTO FPR_S54.
!GEN9	IF NAME EQ 'S55' GOTO FPR_S55.
!GEN9	IF NAME EQ 'S56' GOTO FPR_S56.
!GEN9	IF NAME EQ 'S57' GOTO FPR_S57.
!GEN9	IF NAME EQ 'S58' GOTO FPR_S58.
!GEN9	IF NAME EQ 'S59' GOTO FPR_S59.
!GEN9	IF NAME EQ 'S60' GOTO FPR_S60.
!GEN9	IF NAME EQ 'S61' GOTO FPR_S61.
!GEN9	IF NAME EQ 'S62' GOTO FPR_S62.
!GEN9	IF NAME EQ 'S63' GOTO FPR_S63.
!GEN9	IF NAME EQ 'S64' GOTO FPR_S64.
!GEN9	IF NAME EQ 'S65' GOTO FPR_S65.
!GEN9	IF NAME EQ 'S66' GOTO FPR_S66.
!GEN9	IF NAME EQ 'S67' GOTO FPR_S67.
!GEN9	IF NAME EQ 'S68' GOTO FPR_S68.
!GEN9	IF NAME EQ 'S69' GOTO FPR_S69.
!GEN9	IF NAME EQ 'S70' GOTO FPR_S70.
!GEN9	IF NAME EQ 'S71' GOTO FPR_S71.
!GEN9	IF NAME EQ 'S72' GOTO FPR_S72.
!GEN9	IF NAME EQ 'S73' GOTO FPR_S73.
!GEN9	IF NAME EQ 'S74' GOTO FPR_S74.
!GEN9	IF NAME EQ 'S75' GOTO FPR_S75.
!GEN9	IF NAME EQ 'S76' GOTO FPR_S76.
!GEN9	IF NAME EQ 'S77' GOTO FPR_S77.
!GEN9	IF NAME EQ 'S78' GOTO FPR_S78.
!GEN9	IF NAME EQ 'S79' GOTO FPR_S79.
!GEN9	IF NAME EQ 'S80' GOTO FPR_S80.
!GEN9	IF NAME EQ 'S81' GOTO FPR_S81.
!GEN9	IF NAME EQ 'S82' GOTO FPR_S82.
!GEN9	IF NAME EQ 'S83' GOTO FPR_S83.
!GEN9	IF NAME EQ 'S84' GOTO FPR_S84.
!GEN9	IF NAME EQ 'S85' GOTO FPR_S85.
!GEN9	IF NAME EQ 'S86' GOTO FPR_S86.
!GEN9	IF NAME EQ 'S87' GOTO FPR_S87.
!GEN9	IF NAME EQ 'S88' GOTO FPR_S88.
!GEN9	IF NAME EQ 'S89' GOTO FPR_S89.
!GEN9	IF NAME EQ 'S90' GOTO FPR_S90.
!GEN9	IF NAME EQ 'S91' GOTO FPR_S91.
!GEN9	IF NAME EQ 'S92' GOTO FPR_S92.
!GEN9	IF NAME EQ 'S93' GOTO FPR_S93.
!GEN9	IF NAME EQ 'S94' GOTO FPR_S94.
!GEN9	IF NAME EQ 'S95' GOTO FPR_S95.
!GEN9	IF NAME EQ 'S96' GOTO FPR_S96.
!GEN9	IF NAME EQ 'S97' GOTO FPR_S97.
!GEN9	IF NAME EQ 'S98' GOTO FPR_S98.
!GEN9	IF NAME EQ 'S99' GOTO FPR_S99.
!GEN9	IF NAME EQ 'S100' GOTO FPR_S100.


!GEN10FPR_S1: 	F FILE EXTRAC AND S1 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.

!GEN10FPR_S2: 	F FILE EXTRAC AND S2 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S3: 	F FILE EXTRAC AND S3 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S4: 	F FILE EXTRAC AND S4 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S5: 	F FILE EXTRAC AND S5 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S6: 	F FILE EXTRAC AND S6 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S7: 	F FILE EXTRAC AND S7 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S8: 	F FILE EXTRAC AND S8 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S9: 	F FILE EXTRAC AND S9 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S10: 	F FILE EXTRAC AND S10 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S11: 	F FILE EXTRAC AND S11 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S12: 	F FILE EXTRAC AND S12 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S13: 	F FILE EXTRAC AND S13 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S14: 	F FILE EXTRAC AND S14 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S15: 	F FILE EXTRAC AND S15 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S16: 	F FILE EXTRAC AND S16 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S17: 	F FILE EXTRAC AND S17 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S18: 	F FILE EXTRAC AND S18 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S19: 	F FILE EXTRAC AND S19 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S20: 	F FILE EXTRAC AND S20 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S21: 	F FILE EXTRAC AND S21 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S22: 	F FILE EXTRAC AND S22 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S23: 	F FILE EXTRAC AND S23 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S24: 	F FILE EXTRAC AND S24 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S25: 	F FILE EXTRAC AND S25 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S26: 	F FILE EXTRAC AND S26 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S27: 	F FILE EXTRAC AND S27 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S28: 	F FILE EXTRAC AND S28 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S29: 	F FILE EXTRAC AND S29 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S30: 	F FILE EXTRAC AND S30 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S31: 	F FILE EXTRAC AND S31 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S32: 	F FILE EXTRAC AND S32 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S33: 	F FILE EXTRAC AND S33 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S34: 	F FILE EXTRAC AND S34 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S35: 	F FILE EXTRAC AND S35 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S36: 	F FILE EXTRAC AND S36 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S37: 	F FILE EXTRAC AND S37 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S38: 	F FILE EXTRAC AND S38 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S39: 	F FILE EXTRAC AND S39 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S40: 	F FILE EXTRAC AND S40 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S41: 	F FILE EXTRAC AND S41 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S42: 	F FILE EXTRAC AND S42 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S43: 	F FILE EXTRAC AND S43 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S44: 	F FILE EXTRAC AND S44 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S45: 	F FILE EXTRAC AND S45 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S46: 	F FILE EXTRAC AND S46 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S47: 	F FILE EXTRAC AND S47 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S48: 	F FILE EXTRAC AND S48 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S49: 	F FILE EXTRAC AND S49 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S50: 	F FILE EXTRAC AND S50 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S51: 	F FILE EXTRAC AND S51 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S52: 	F FILE EXTRAC AND S52 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S53: 	F FILE EXTRAC AND S53 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S54: 	F FILE EXTRAC AND S54 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S55: 	F FILE EXTRAC AND S55 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S56: 	F FILE EXTRAC AND S56 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S57: 	F FILE EXTRAC AND S57 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S58: 	F FILE EXTRAC AND S58 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S59: 	F FILE EXTRAC AND S59 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S60: 	F FILE EXTRAC AND S60 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S61: 	F FILE EXTRAC AND S61 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S62: 	F FILE EXTRAC AND S62 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S63: 	F FILE EXTRAC AND S63 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S64: 	F FILE EXTRAC AND S64 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S65: 	F FILE EXTRAC AND S65 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S66: 	F FILE EXTRAC AND S66 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S67: 	F FILE EXTRAC AND S67 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S68: 	F FILE EXTRAC AND S68 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S69: 	F FILE EXTRAC AND S69 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S70: 	F FILE EXTRAC AND S70 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S71: 	F FILE EXTRAC AND S71 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S72: 	F FILE EXTRAC AND S72 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S73: 	F FILE EXTRAC AND S73 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S74: 	F FILE EXTRAC AND S74 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S75: 	F FILE EXTRAC AND S75 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S76: 	F FILE EXTRAC AND S76 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S77: 	F FILE EXTRAC AND S77 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S78: 	F FILE EXTRAC AND S78 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S79: 	F FILE EXTRAC AND S79 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S80: 	F FILE EXTRAC AND S80 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S81: 	F FILE EXTRAC AND S81 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S82: 	F FILE EXTRAC AND S82 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S83: 	F FILE EXTRAC AND S83 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S84: 	F FILE EXTRAC AND S84 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S85: 	F FILE EXTRAC AND S85 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S86: 	F FILE EXTRAC AND S86 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S87: 	F FILE EXTRAC AND S87 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S88: 	F FILE EXTRAC AND S88 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S89: 	F FILE EXTRAC AND S89 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S90: 	F FILE EXTRAC AND S90 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S91: 	F FILE EXTRAC AND S91 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S92: 	F FILE EXTRAC AND S92 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S93: 	F FILE EXTRAC AND S93 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S94: 	F FILE EXTRAC AND S94 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S95: 	F FILE EXTRAC AND S95 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S96: 	F FILE EXTRAC AND S96 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S97: 	F FILE EXTRAC AND S97 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S98: 	F FILE EXTRAC AND S98 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S99: 	F FILE EXTRAC AND S99 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.
!GEN10FPR_S100: 	F FILE EXTRAC AND S100 EQ PRIND.	CALL PR_EVAL. GOTO PR_SAVE_VALUE.

! SURVEY.DMC - END OF EDIT -


! CAN USE MAXPR_CNT TO CHECK THE SEQUENCE OF PRIORITY QUESTION.
! e.g ; IF 1ST PRIORITY QUESTION, MULTIPLY BY MAXPR.

PR_EVAL:
	IF MAXPR_CNT EQ 1 GOTO PR_EV1.
	IF MAXPR_CNT EQ 2 GOTO PR_EV2.
	IF MAXPR_CNT EQ 3 GOTO PR_EV3.
	IF MAXPR_CNT EQ 4 GOTO PR_EV4.
	IF MAXPR_CNT EQ 5 GOTO PR_EV5.
	IF MAXPR_CNT EQ 6 GOTO PR_EV6.
	IF MAXPR_CNT EQ 7 GOTO PR_EV7.
	IF MAXPR_CNT EQ 8 GOTO PR_EV8.
	IF MAXPR_CNT EQ 9 GOTO PR_EV9.
	IF MAXPR_CNT EQ 10 GOTO PR_EV10.
	IF MAXPR_CNT EQ 11 GOTO PR_EV11.
	IF MAXPR_CNT EQ 12 GOTO PR_EV12.
	IF MAXPR_CNT EQ 13 GOTO PR_EV13.
	IF MAXPR_CNT EQ 14 GOTO PR_EV14.
	IF MAXPR_CNT EQ 15 GOTO PR_EV15.
	IF MAXPR_CNT EQ 16 GOTO PR_EV16.
	IF MAXPR_CNT EQ 17 GOTO PR_EV17.
	IF MAXPR_CNT EQ 18 GOTO PR_EV18.
	IF MAXPR_CNT EQ 19 GOTO PR_EV19.
	IF MAXPR_CNT EQ 20 GOTO PR_EV20.
	IF MAXPR_CNT EQ 21 GOTO PR_EV21.
	IF MAXPR_CNT EQ 22 GOTO PR_EV22.
	IF MAXPR_CNT EQ 23 GOTO PR_EV23.
	IF MAXPR_CNT EQ 24 GOTO PR_EV24.
	IF MAXPR_CNT EQ 25 GOTO PR_EV25.
	IF MAXPR_CNT EQ 26 GOTO PR_EV26.
	IF MAXPR_CNT EQ 27 GOTO PR_EV27.
	IF MAXPR_CNT EQ 28 GOTO PR_EV28.
	IF MAXPR_CNT EQ 29 GOTO PR_EV29.
	IF MAXPR_CNT EQ 30 GOTO PR_EV30.
	IF MAXPR_CNT EQ 31 GOTO PR_EV31.
	IF MAXPR_CNT EQ 32 GOTO PR_EV32.
	IF MAXPR_CNT EQ 33 GOTO PR_EV33.
	IF MAXPR_CNT EQ 34 GOTO PR_EV34.
	IF MAXPR_CNT EQ 35 GOTO PR_EV35.
	IF MAXPR_CNT EQ 36 GOTO PR_EV36.
	IF MAXPR_CNT EQ 37 GOTO PR_EV37.
	IF MAXPR_CNT EQ 38 GOTO PR_EV38.
	IF MAXPR_CNT EQ 39 GOTO PR_EV39.
	IF MAXPR_CNT EQ 40 GOTO PR_EV40.


PR_EV1:	LET PRHLD EQ SYSNREC*MAXPR(MAXIND).		GOTO PR_EV_EXIT.
PR_EV2:	LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-1).		GOTO PR_EV_EXIT.
PR_EV3:	LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-2).		GOTO PR_EV_EXIT.
PR_EV4:	LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-3).		GOTO PR_EV_EXIT.
PR_EV5:	LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-4).		GOTO PR_EV_EXIT.
PR_EV6:	LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-5).		GOTO PR_EV_EXIT.
PR_EV7:	LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-6).		GOTO PR_EV_EXIT.
PR_EV8:	LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-7).		GOTO PR_EV_EXIT.
PR_EV9:	LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-8).		GOTO PR_EV_EXIT.
PR_EV10: LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-9).	GOTO PR_EV_EXIT.
PR_EV11: LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-10). 	GOTO PR_EV_EXIT.
PR_EV12: LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-11).	GOTO PR_EV_EXIT.
PR_EV13: LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-12).	GOTO PR_EV_EXIT.
PR_EV14: LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-13).	GOTO PR_EV_EXIT.
PR_EV15: LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-14).	GOTO PR_EV_EXIT.
PR_EV16: LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-15).	GOTO PR_EV_EXIT.
PR_EV17: LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-16).	GOTO PR_EV_EXIT.
PR_EV18: LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-17).	GOTO PR_EV_EXIT.
PR_EV19: LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-18).	GOTO PR_EV_EXIT.
PR_EV20: LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-19).	GOTO PR_EV_EXIT.
PR_EV21: LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-20).	GOTO PR_EV_EXIT.
PR_EV22: LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-21).	GOTO PR_EV_EXIT.
PR_EV23: LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-22).	GOTO PR_EV_EXIT.
PR_EV24: LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-23).	GOTO PR_EV_EXIT.
PR_EV25: LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-24).	GOTO PR_EV_EXIT.
PR_EV26: LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-25).	GOTO PR_EV_EXIT.
PR_EV27: LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-26).	GOTO PR_EV_EXIT.
PR_EV28: LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-27).	GOTO PR_EV_EXIT.
PR_EV29: LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-28).	GOTO PR_EV_EXIT.
PR_EV30: LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-29).	GOTO PR_EV_EXIT.
PR_EV31: LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-30).	GOTO PR_EV_EXIT.
PR_EV32: LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-31).	GOTO PR_EV_EXIT.
PR_EV33: LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-32).	GOTO PR_EV_EXIT.
PR_EV34: LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-33).	GOTO PR_EV_EXIT.
PR_EV35: LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-34).	GOTO PR_EV_EXIT.
PR_EV36: LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-35).	GOTO PR_EV_EXIT.
PR_EV37: LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-36).	GOTO PR_EV_EXIT.
PR_EV38: LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-37).	GOTO PR_EV_EXIT.
PR_EV39: LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-38).	GOTO PR_EV_EXIT.
PR_EV40: LET PRHLD EQ SYSNREC*(MAXPR(MAXIND)-39).	GOTO PR_EV_EXIT.


PR_EV_EXIT:

	RETURN.
! RETURN TO FPR_??



PR_SAVE_VALUE:

	LET PR(PRIND) EQ PR(PRIND)+PRHLD.


	GOTO PR_FIND_LOOP.

PR_FIND_EXIT:

	IF QTYPE EQ 'PE' GOTO PR_SORT.

	GOTO PR_EXIT.


! WNEN ALL PR QUESTIONS ARE PROCESSED,
! PR'S ARE SORTED IN DESCENDING ORDER, 
! AND MAXPR NUMBER OF PR'S ARE PRINTED.

PR_SORT:
	LET MAXPR_CNT EQ 0.

SELECT_BIG:
	LET MAXPR_CNT EQ MAXPR_CNT+1.
	IF MAXPR_CNT GT MAXPR(MAXIND) GOTO PRINT_PR.

	LET PRIND EQ 1.
	LET BIGPR EQ PR(1).
	LET BIGIND EQ 1.

	CALL SORT_LOOP.

	GOTO SELECT_BIG.

SORT_LOOP:
	LET PRIND EQ PRIND+1.
	IF PRIND EQ 40 GOTO SORT_EXIT.

	IF PR(PRIND) GT BIGPR GOTO CHANGE_BIG.

	GOTO SORT_LOOP.

CHANGE_BIG:
	LET BIGPR EQ PR(PRIND).
	LET BIGIND EQ PRIND.
	GOTO SORT_LOOP.



! SAVE THE QUESTION NUMBER THAT HAS THE BIGGEST RESPONSES (=BIGIND),
!	   ----------------------------------------------
! AND CLEAR THE RESPONSES FOR THAT QUESTION.

SORT_EXIT:
	LET GOODPR(MAXPR_CNT) EQ BIGIND.

	LET PR(BIGIND) EQ 0.

	RETURN.
! RETURN TO SELECT_BIG.



PRINT_PR:
	LET MAXPR_CNT EQ 0.
PR_PR_LOOP:
	LET MAXPR_CNT EQ MAXPR_CNT+1.
	IF MAXPR_CNT GT MAXPR(MAXIND) GOTO PR_CLEAR.


	CALL NEXT_PAGE.
	P ON 2 PR_NAME(MAXPR_CNT) FMT / A '.' END.
	P ON 2 PR_TXT(MAXPR_CNT) GOODPR(MAXPR_CNT) -
		FMT S15 16T 'Q#  ' I END.

	GOTO PR_PR_LOOP.


! WHEN PRINTED ALL PR'S, WANT TO RESET VARIABLES FOR PRIORITY.

PR_CLEAR:
	CALL CLEAR_PR.



PR_EXIT:

	RETURN.
! RETURN TO PRI_TYPE.

NEXT_PAGE:
	IF SYSLINE(2) GT 50 GOTO GO_NEXT_PAGE.
	GOTO NEXT_PAGE_EXIT.

GO_NEXT_PAGE:
	P ON 2 FMT C1 ///// END.
	P ON 2 @LINE.
	P ON 2 FMT 31T 'RES' 37T '1' 42T '2' 47T '3' 52T '4' 57T '5' 62T '6' -
		67T 'N/A'  74T 'AVG' END.
	P ON 2 @LINE.

NEXT_PAGE_EXIT:
	RETURN.
! RETURN TO EACH PRINT STATEMENT.

FINISH_PROCES:

PRINT_FOOT_NOTE:
	P ON 2 FMT // 	'! RES    = NUMBER OF VALID RESPONSES' END.
	P ON 2 FMT  	'! N/A    = "NOT APPLICABLE" or "NO ANSWER"' / -
			'! AVG    = AVERAGE DEGREE OR PERCENTAGE' / END.

	RELEASE 2.
	DPL END.

	P FILNAM FMT // '*** NAME OF REPORT FILE CREATED IS  ' -
		A ' ***' END.
	P FMT / 'IF YOU WANT TO TYPE IT OUT NOW, TYPE:' END.
	P FILNAM FMT / ' "FILE TYPE ' A '<CR>"' / END.

	SET FMSG ON.