Trailing-Edge
-
PDP-10 Archives
-
decuslib10-11
-
43,50533/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.