HEADING:(DIST.LG) DISTRIBUTION DATALOG ROUTINE    7/25/90 GF


STEP
670   REM  "VALU 1= TEST VALUE, 2= 1ST DUM/REG, 3= LAST DUM, 4= 0,1 OR 2"
671   IF  VALU 4 < 2.00000E+00 THEN   GOTO  STEP 675
672   PRIN  " "
673   PRIN  "DISTRIBUTION DATA FOR  R" %3.0 VALU 1
674   PRIN  " "
675   LET  J = VALU 2
676   LET  K = VALU 3
677   FOR  L = J TO K 
678   IF  REG L < 00 THEN   LET  L = - REG L
679   LET  M = L + 01
680   IF  VALU 4 > 00 THEN   GOTO  STEP 685
681   LET  REG L = 00
682   NEXT  L
683   PRIN  STRG 3 "DISTRIBUTION DUMS ARE ZEROED"
684   EXIT
685   IF  VALU 4 = 02 THEN   GOTO  STEP 690
686   IF  VALU 1 > DUM L THEN   IF  VALU 1 < DUM M THEN   LET  REG L = REG L + 01
687   NEXT  L
688   IF  VALU 1 > DUM M THEN   LET  REG M = REG M + 01
689   EXIT
690   LET  J = VALU 1
691   LET  DUM 805 = NOM J + ( NOM J * DUM L / 1.00000E+02 )
692   LET  DUM 806 = NOM J + ( NOM J * DUM M / 1.00000E+02 )
693   PRIN  "# BETWEEN  " %5.2 DUM L "%  &  " %5.2 DUM M STRG 1
694   IF  DUM 806 < 1.00000E+04 THEN   GOTO  STEP 697
695   PRIN  "% (" %8.0 DUM 805 "&" %8.0 DUM 806 "OHMS ) =" %6.0 REG L
696   GOTO  STEP 698
697   PRIN  "% (" %7.3 DUM 805 "&" %7.3 DUM 806 "OHMS ) =" %6.0 REG L
698   NEXT  L
699   PRIN  "# ABOVE    " %5.2 DUM M "% =" %6.0 REG K
700   EXIT