HEADING:(DISTD.LG) DISTRIBUTION DATALOG, SCREEN/DISK PRINT 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 680 672 IF REG 4 = 7.77700E+03 THEN GOTO STEP 677 673 PRIN " " 674 PRIN "DISTRIBUTION DATA FOR R" %3.0 VALU 1 675 PRIN " " 676 GOTO STEP 680 677 LOG " " 678 LOG "DISTRIBUTION DATA FOR R" STRG 6 %3.0 VALU 1 679 LOG " " 680 LET J = VALU 2 681 LET K = VALU 3 682 FOR L = J TO K 683 IF REG L < 00 THEN LET L = - REG L 684 LET M = L + 01 685 IF VALU 4 > 00 THEN GOTO STEP 690 686 LET REG L = 00 687 NEXT L 688 PRIN STRG 3 "DISTRIBUTION DUMS ARE ZEROED" 689 EXIT 690 IF VALU 4 = 02 THEN GOTO STEP 695 691 IF VALU 1 > DUM L THEN IF VALU 1 < DUM M THEN LET REG L = REG L + 01 692 NEXT L 693 IF VALU 1 > DUM M THEN LET REG M = REG M + 01 694 EXIT 695 LET J = VALU 1 696 LET DUM 805 = NOM J + ( NOM J * DUM L / 1.00000E+02 ) 697 LET DUM 806 = NOM J + ( NOM J * DUM M / 1.00000E+02 ) 698 IF REG 4 = 7.77700E+03 THEN GOTO STEP 705 699 PRIN "# BETWEEN " %5.2 DUM L "% & " %5.2 DUM M STRG 1 700 IF DUM 806 < 1.00000E+04 THEN GOTO STEP 703 701 PRIN "% (" %8.0 DUM 805 "&" %8.0 DUM 806 "OHMS ) =" %6.0 REG L 702 GOTO STEP 717 703 PRIN "% (" %7.3 DUM 805 "&" %7.3 DUM 806 "OHMS ) =" %6.0 REG L 704 GOTO STEP 717 705 LET STRG 1000 = %5.2 DUM L 706 LOG "# BETWEEN " STRG 6 STRG 1000 STRG 1 707 LET STRG 1000 = %5.2 DUM M 708 LOG "% & " STRG 6 STRG 1000 STRG 1 709 LET STRG 1000 = %8.0 DUM 805 710 IF DUM 806 < 1.00000E+04 THEN LET STRG 1000 = %7.3 DUM 805 711 LOG "% (" STRG 6 STRG 1000 STRG 1 712 LET STRG 1000 = %8.0 DUM 806 713 IF DUM 806 < 1.00000E+04 THEN LET STRG 1000 = %7.3 DUM 806 714 LOG "&" STRG 6 STRG 1000 STRG 1 715 LET STRG 1000 = %6.0 REG L 716 LOG "OHMS ) =" STRG 6 STRG 1000 717 NEXT L 718 IF REG 4 = 7.77700E+03 THEN GOTO STEP 721 719 PRIN "# ABOVE " %5.2 DUM M "% =" %6.0 REG K 720 EXIT 721 LET STRG 1000 = %5.2 DUM M 722 LOG "# ABOVE " STRG 6 STRG 1000 STRG 1 723 LET STRG 1000 = %6.0 REG K 724 LOG "% =" STRG 6 STRG 1000 725 EXIT