source: WorldVistAEHR/trunk/r/PAID-PRS/PRSDSRC2.m@ 1261

Last change on this file since 1261 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.2 KB
Line 
1PRSDSRC2 ;HISC/GWB-STRENGTH REPORT COMPILATION (CONTINUED) ;8/24/93 08:28
2 ;;4.0;PAID;**6**;Sep 21, 1995
3MD 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
12RN 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
21LP 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
30NA 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
Note: See TracBrowser for help on using the repository browser.