HEADING:(PRINTD.LG) DATALOG PRINTOUT >TO SCREEN OR DISK<  7/25/90 GF


STEP
  3   GOTO  STEP 610
610   LET  REG 4 = 00
611   GOSU  STEP 649
612   LET  M = DUM 811
613   FOR  N = 01 TO M 
614   GOSU  STEP 570
615   LET  DUM 804 = DUM J / DUM 800
616   LET  DUM 805 = ( DUM K - ( DUM J * DUM J / DUM 800 ) )
617   LET  DUM 805 = SQRT ( DUM 805 * DUM 805 )
618   LET  DUM 805 = SQRT ( DUM 805 / ( DUM 800 - 01 ) )
619   LET  DUM 806 = ( 1.00000E+02 + DUM 804 ) * NOM I / 1.00000E+02
620   LET  DUM 803 = I
621   IF  REG 4 = 7.77700E+03 THEN   GOTO  STEP 625
622   PRIN  "R" %3.0 DUM 803 " " %7.4 DUM 804 " " %7.4 DUM 805 STRG 1
623   PRIN  "  " %14.4 DUM 806 "  " %14.4 NOM I
624   GOTO  STEP 635
625   LET  STRG 1000 = %3.0 DUM 803
626   LOG  "R" STRG 6 STRG 1000 "  " STRG 1
627   LET  STRG 1000 = %7.4 DUM 804
628   LOG  STRG 6 STRG 1000 "  " STRG 1
629   LET  STRG 1000 = %7.4 DUM 805
630   LOG  STRG 6 STRG 1000 "  " STRG 1
631   LET  STRG 1000 = %14.4 DUM 806
632   LOG  STRG 6 STRG 1000 " " STRG 1
633   LET  STRG 1000 = %14.4 NOM I
634   LOG  STRG 6 STRG 1000
635   NEXT  N
636   REM  "DIST"
639   IF  REG 4 # 7.77700E+03 THEN   GOTO  STEP 642
640   PRIN  STRG 3 "DONE"
641   QUIT
642   PRIN  STRG 3
643   PRIN  "DO YOU WANT TO SAVE THIS DATA ON DISK ?" STRG 1
644   READ  TTY:;"_" STRG 1000 %1.0 THEN   QUIT
645   IF  STRG 1000 # "Y" THEN   QUIT
646   PRIN  STRG 3 "PLEASE WAIT . ." STRG 1
647   LET  REG 4 = 7.77700E+03
648   GOTO  STEP 611
649   IF  REG 4 = 7.77700E+03 THEN   GOTO  STEP 659
650   PRIN  STRG 2 "  PRE-TRIM DATA ON" DUM 800 "PARTS" STRG 1
651   PRIN  "       DATE: " STRG 350
652   PRIN  " "
653   PRIN  "LOT #: " STRG 333 "       SUBSTRATE #: " STRG 340
654   PRIN  " "
655   PRIN  "       AVE % DEV  STD % DEV       AVERAGE OHMS" STRG 1
656   PRIN  "            NOMINAL"
657   PRIN  " "
658   EXIT
659   LET  STRG 1000 = %5.0 DUM 800
660   LOG  " " 
      " "
661   LOG  STRG 6 STRG 2 "  PRE-TRIM DATA ON" STRG 6 STRG 1000 STRG 1
662   LOG  " PARTS       DATE: " STRG 6 STRG 350
663   LOG  " "
664   LOG  "LOT #: " STRG 6 STRG 333 "      SUBSTRATE #: " STRG 1
665   LOG  STRG 6 STRG 340
666   LOG  " "
667   LOG  "       AVE % DEV  STD % DEV      AVERAGE OHMS" STRG 1
668   LOG  "          NOMINAL"
669   EXIT
STRG
  1   _
  3   
  6   ^
333   >LOT #<
340   >SUB #<
350   > DATE <
1000   Y