39 lines
2.2 KiB
Mathematica
39 lines
2.2 KiB
Mathematica
PRSDSRC2 ;HISC/GWB-STRENGTH REPORT COMPILATION (CONTINUED) ;8/24/93 08:28
|
|
;;4.0;PAID;**6**;Sep 21, 1995
|
|
MD I LWOPIND="Y" S MDLWOP=MDLWOP+1
|
|
I PPL="F" S MDFEE=MDFEE+1 Q
|
|
I (PPL="N")!(PBS="S")!(ITR>0) S MDTSR=MDTSR+1,MDTSRFTE=MDTSRFTE+FTE Q
|
|
S MDTOT=MDTOT+1,MDFTETOT=MDFTETOT+FTE
|
|
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
|
|
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
|
|
I "XY"[TOA S MDSIS=MDSIS+1,MDINTFTE=MDINTFTE+FTE Q
|
|
I DBS=3 S MDINT=MDINT+1,MDINTFTE=MDINTFTE+FTE Q
|
|
Q
|
|
RN I LWOPIND="Y" S RNLWOP=RNLWOP+1
|
|
I PPL="F" S RNFEE=RNFEE+1 Q
|
|
I (PPL="N")!(PBS="S")!(ITR>0) S RNTSR=RNTSR+1,RNTSRFTE=RNTSRFTE+FTE Q
|
|
S RNTOT=RNTOT+1,RNFTETOT=RNFTETOT+FTE
|
|
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
|
|
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
|
|
I "XY"[TOA S RNSIS=RNSIS+1,RNINTFTE=RNINTFTE+FTE Q
|
|
I DBS=3 S RNINT=RNINT+1,RNINTFTE=RNINTFTE+FTE Q
|
|
Q
|
|
LP I LWOPIND="Y" S LPLWOP=LPLWOP+1
|
|
I PPL="F" S LPFEE=LPFEE+1 Q
|
|
I (PPL="N")!(PBS="S")!(ITR>0) S LPTSR=LPTSR+1,LPTSRFTE=LPTSRFTE+FTE Q
|
|
S LPTOT=LPTOT+1,LPFTETOT=LPFTETOT+FTE
|
|
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
|
|
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
|
|
I "XY"[TOA S LPSIS=LPSIS+1,LPINTFTE=LPINTFTE+FTE Q
|
|
I DBS=3 S LPINT=LPINT+1,LPINTFTE=LPINTFTE+FTE Q
|
|
Q
|
|
NA I LWOPIND="Y" S NALWOP=NALWOP+1
|
|
I PPL="F" S NAFEE=NAFEE+1 Q
|
|
I (PPL="N")!(PBS="S")!(ITR>0) S NATSR=NATSR+1,NATSRFTE=NATSRFTE+FTE Q
|
|
S NATOT=NATOT+1,NAFTETOT=NAFTETOT+FTE
|
|
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
|
|
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
|
|
I "XY"[TOA S NASIS=NASIS+1,NAINTFTE=NAINTFTE+FTE Q
|
|
I DBS=3 S NAINT=NAINT+1,NAINTFTE=NAINTFTE+FTE Q
|
|
Q
|