| [613] | 1 | PRSDSRC2 ;HISC/GWB-STRENGTH REPORT COMPILATION (CONTINUED) ;8/24/93 08:28
|
|---|
| 2 | ;;4.0;PAID;**6**;Sep 21, 1995
|
|---|
| 3 | MD I LWOPIND="Y" S MDLWOP=MDLWOP+1
|
|---|
| 4 | I PPL="F" S MDFEE=MDFEE+1 Q
|
|---|
| 5 | I (PPL="N")!(PBS="S")!(ITR>0) S MDTSR=MDTSR+1,MDTSRFTE=MDTSRFTE+FTE Q
|
|---|
| 6 | S MDTOT=MDTOT+1,MDFTETOT=MDFTETOT+FTE
|
|---|
| 7 | I "12579DRSWMNEAHUF"[TOA S:DBS=1 MDFTP=MDFTP+1 S:DBS=2 MDPTP=MDPTP+1,MDPTPFTE=MDPTPFTE+FTE S:DBS=3 MDINT=MDINT+1,MDINTFTE=MDINTFTE+FTE Q
|
|---|
| 8 | I "3468JKLTVPZ"[TOA S:DBS=1 MDFTT=MDFTT+1 S:DBS=2 MDPTT=MDPTT+1,MDPTTFTE=MDPTTFTE+FTE S:DBS=3 MDINT=MDINT+1,MDINTFTE=MDINTFTE+FTE Q
|
|---|
| 9 | I "XY"[TOA S MDSIS=MDSIS+1,MDINTFTE=MDINTFTE+FTE Q
|
|---|
| 10 | I DBS=3 S MDINT=MDINT+1,MDINTFTE=MDINTFTE+FTE Q
|
|---|
| 11 | Q
|
|---|
| 12 | RN I LWOPIND="Y" S RNLWOP=RNLWOP+1
|
|---|
| 13 | I PPL="F" S RNFEE=RNFEE+1 Q
|
|---|
| 14 | I (PPL="N")!(PBS="S")!(ITR>0) S RNTSR=RNTSR+1,RNTSRFTE=RNTSRFTE+FTE Q
|
|---|
| 15 | S RNTOT=RNTOT+1,RNFTETOT=RNFTETOT+FTE
|
|---|
| 16 | I "12579DRSWMNEAHUF"[TOA S:DBS=1 RNFTP=RNFTP+1 S:DBS=2 RNPTP=RNPTP+1,RNPTPFTE=RNPTPFTE+FTE S:DBS=3 RNINT=RNINT+1,RNINTFTE=RNINTFTE+FTE Q
|
|---|
| 17 | I "3468JKLTVPZ"[TOA S:DBS=1 RNFTT=RNFTT+1 S:DBS=2 RNPTT=RNPTT+1,RNPTTFTE=RNPTTFTE+FTE S:DBS=3 RNINT=RNINT+1,RNINTFTE=RNINTFTE+FTE Q
|
|---|
| 18 | I "XY"[TOA S RNSIS=RNSIS+1,RNINTFTE=RNINTFTE+FTE Q
|
|---|
| 19 | I DBS=3 S RNINT=RNINT+1,RNINTFTE=RNINTFTE+FTE Q
|
|---|
| 20 | Q
|
|---|
| 21 | LP I LWOPIND="Y" S LPLWOP=LPLWOP+1
|
|---|
| 22 | I PPL="F" S LPFEE=LPFEE+1 Q
|
|---|
| 23 | I (PPL="N")!(PBS="S")!(ITR>0) S LPTSR=LPTSR+1,LPTSRFTE=LPTSRFTE+FTE Q
|
|---|
| 24 | S LPTOT=LPTOT+1,LPFTETOT=LPFTETOT+FTE
|
|---|
| 25 | I "12579DRSWMNEAHUF"[TOA S:DBS=1 LPFTP=LPFTP+1 S:DBS=2 LPPTP=LPPTP+1,LPPTPFTE=LPPTPFTE+FTE S:DBS=3 LPINT=LPINT+1,LPINTFTE=LPINTFTE+FTE Q
|
|---|
| 26 | I "3468JKLTVPZ"[TOA S:DBS=1 LPFTT=LPFTT+1 S:DBS=2 LPPTT=LPPTT+1,LPPTTFTE=LPPTTFTE+FTE S:DBS=3 LPINT=LPINT+1,LPINTFTE=LPINTFTE+FTE Q
|
|---|
| 27 | I "XY"[TOA S LPSIS=LPSIS+1,LPINTFTE=LPINTFTE+FTE Q
|
|---|
| 28 | I DBS=3 S LPINT=LPINT+1,LPINTFTE=LPINTFTE+FTE Q
|
|---|
| 29 | Q
|
|---|
| 30 | NA I LWOPIND="Y" S NALWOP=NALWOP+1
|
|---|
| 31 | I PPL="F" S NAFEE=NAFEE+1 Q
|
|---|
| 32 | I (PPL="N")!(PBS="S")!(ITR>0) S NATSR=NATSR+1,NATSRFTE=NATSRFTE+FTE Q
|
|---|
| 33 | S NATOT=NATOT+1,NAFTETOT=NAFTETOT+FTE
|
|---|
| 34 | I "12579DRSWMNEAHUF"[TOA S:DBS=1 NAFTP=NAFTP+1 S:DBS=2 NAPTP=NAPTP+1,NAPTPFTE=NAPTPFTE+FTE S:DBS=3 NAINT=NAINT+1,NAINTFTE=NAINTFTE+FTE Q
|
|---|
| 35 | I "3468JKLTVPZ"[TOA S:DBS=1 NAFTT=NAFTT+1 S:DBS=2 NAPTT=NAPTT+1,NAPTTFTE=NAPTTFTE+FTE S:DBS=3 NAINT=NAINT+1,NAINTFTE=NAINTFTE+FTE Q
|
|---|
| 36 | I "XY"[TOA S NASIS=NASIS+1,NAINTFTE=NAINTFTE+FTE Q
|
|---|
| 37 | I DBS=3 S NAINT=NAINT+1,NAINTFTE=NAINTFTE+FTE Q
|
|---|
| 38 | Q
|
|---|
