HEADING:(ALL.LG) STANDARD DATALOG ROUTINES COMBINED 7/25/90 GF STEP 2 GOTO STEP 580 3 GOTO STEP 610 550 LET M = DUM 811 551 FOR N = 01 TO M 552 GOSU STEP 570 553 IF DUM I > DUM 810 THEN IF DUM I < DUM 809 THEN GOTO STEP 556 554 PRIN "DID NOT LOG" 555 EXIT 556 NEXT N 557 PRIN "DATA LOGGING" 558 LET DUM 800 = DUM 800 + 01 559 FOR N = 01 TO M 560 GOSU STEP 570 561 LET DUM J = DUM J + DUM I 562 LET DUM K = DUM K + ( DUM I * DUM I ) 563 NEXT N 569 EXIT 570 IF NOM N < 00 THEN LET N = - NOM N 571 LET I = N 572 LET J = I + 3.00000E+02 573 LET K = I + 6.00000E+02 574 LET L = I + 1.00000E+02 575 EXIT 580 LET M = DUM 811 581 FOR N = 01 TO M 582 GOSU STEP 570 583 LET DUM I = 00 584 LET DUM J = 00 585 LET DUM K = 00 586 LET DUM L = 00 587 NEXT N 588 FOR I = 8.00000E+02 TO 8.08000E+02 589 LET DUM I = 00 590 NEXT I 591 PRIN STRG 3 "ARE YOU SAVING PROGRAM ?" STRG 1 592 READ TTY:;"_" STRG 1000 %1.0 THEN QUIT 593 IF STRG 1000 # "Y" THEN GOTO STEP 597 594 PRIN STRG 3 "SETTING SERIAL # (DUM 799) TO 0, WAS " DUM 799 595 LET DUM 799 = 00 596 GOTO STEP 598 597 LET DUM 801 = 01 608 PRIN "DUMS ARE ZEROED" STRG 3 609 QUIT 610 GOSU STEP 631 611 LET M = DUM 811 612 FOR N = 01 TO M 613 GOSU STEP 570 614 LET DUM 804 = DUM J / DUM 800 615 LET DUM 805 = ( DUM K - ( DUM J * DUM J / DUM 800 ) ) 616 LET DUM 805 = SQRT ( DUM 805 * DUM 805 ) 617 LET DUM 805 = SQRT ( DUM 805 / ( DUM 800 - 01 ) ) 618 LET DUM 806 = ( 1.00000E+02 + DUM 804 ) * NOM I / 1.00000E+02 619 LET DUM 803 = I 620 PRIN "R" %3.0 DUM 803 " " %7.4 DUM 804 " " %7.4 DUM 805 STRG 1 621 PRIN " " %14.4 DUM 806 " " %14.4 NOM I 622 NEXT N 630 QUIT 631 PRIN STRG 2 " PRE-TRIM DATA ON" DUM 800 "PARTS" STRG 1 632 PRIN " DATE: " STRG 350 633 PRIN " " 634 PRIN "LOT #: " STRG 333 " SUBSTRATE #: " STRG 340 635 PRIN " " 636 PRIN " AVE % DEV STD % DEV AVERAGE OHMS" STRG 1 637 PRIN " NOMINAL" 638 PRIN " " 639 EXIT STRG 1 _ 3  333 >LOT #< 340 >SUB #< 350 > DATE < 1000 Y