!***************************************************************************** ! ! ! 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 '"' / END. SET FMSG ON.