HEADING:(PRINT.LG) DATALOG PRINTOUT TO SCREEN ONLY  7/25/90 GF


STEP
  3   GOTO  STEP 610
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