Directory of image this file is from
This file as a plain text file
1 DIM Z(100) 2 DIM Y(100) 3 DIM X(100) 4 DIM T(12) 5 DIM D(5,100) 6 GOTO 57 10 FILE #1:"LOTDAT.BA" 15 FILEV #2:"DCWR:" 17 PRINT #2: 18 FOR I=1 TO 100 20 INPUT #1: D(0,I) 22 IF END #1 THEN 50 25 IF D(0,I)=0 THEN 20 35 FOR K=1 TO 3 37 INPUT #1: D(K,I) 38 IF END #1 THEN 50 40 NEXT K 42 INPUT #1: A,B,C 43 IF END #1 THEN 50 45 GOSUB 100 47 LET D(4,I)=A 49 NEXT I 50 GOTO 1500 51 REM 52 REM 53 REM 54 REM 57 REM 58 REM 59 REM 60 LET T(1)=0 62 LET T(2)=31 64 LET T(3)=59 66 LET T(4)=90 68 LET T(5)=120 70 LET T(6)=151 72 LET T(7)=181 74 LET T(8)=212 76 LET T(9)=243 78 LET T(10)=273 80 LET T(11)=304 82 LET T(12)=334 84 LET Y1=0.1 85 LET X1=700 99 GOTO 10 100 REM SR CALCULATE DATE 101 REM 103 LET C=C-70 105 LET B=T(B) 110 LET A=A+B+C*365 120 RETURN 200 REM SR PRINT 201 REM 220 FOR K=0 TO 100 222 LET Z(K)=0 224 NEXT K 225 LET Z1=0 230 FOR J=50 TO 0 STEP -1 235 REM CR-LF 236 REM 242 REM PRINT Y-AXIS CHAR 245 IF J=0 THEN 290 250 IF J/5-INT(J/5)<0.001 THEN 280 260 PRINT #2: "!"; 270 GOTO 288 280 PRINT #2: "+"; 285 REM INIT LINE VEKTOR 288 IF H>0.01 THEN 310 290 FOR K=0 TO 100 295 LET Z(K)=0 300 NEXT K 303 LET Z1=0 304 REM WORK OUT LINE VEKTOR 310 FOR K=0 TO 100 320 IF Y(K)<>J THEN 347 340 LET Z(X(K))=Z(X(K))+1 342 IF Z(X(K))-1>0.01 THEN 347 345 LET Z1=Z1+1 347 NEXT K 348 REM 349 REM PRINT L.V. 350 IF Z1=0 THEN 485 352 PRINT #2: PNT(13); 360 FOR K=0 TO 69 370 IF Z(K)=0 THEN 400 380 PRINT #2:"#"; 390 GOTO 480 400 IF J=0 THEN 440 410 PRINT #2: " "; 420 GOTO 480 440 IF K/7-INT(K/7)<0.001 THEN 460 450 PRINT #2: "-"; 455 GOTO 480 460 PRINT #2: "+"; 480 NEXT K 485 PRINT #2: 490 NEXT J 499 RETURN 500 REM 501 REM PLOT RATE VERS DATE 502 LET H=0 505 FOR K=1 TO 100 510 LET Y(K)=D(3,K)/D(2,K) 520 LET X(K)=D(0,K) 525 NEXT K 534 FOR K=1 TO 100 536 LET Y(K)=INT(Y(K)*50/Y1+0.5) 538 LET X(K)=INT(X(K)*70/X1+0.5) 540 NEXT K 542 PRINT #2: "FAILURE RATE" 543 PRINT #2:"10 %" 550 GOSUB 200 555 PRINT #2: TAB (62);"SERIAL NO." 556 PRINT #2: 557 PRINT #2: TAB(13);"FAILURE RATE AS A FUNCTION OF TIME (SERIAL N0.)" 558 GOSUB 990 559 GOSUB 990 560 PRINT #2: 561 PRINT #2: 564 RETURN 567 PRINT 600 REM SR HISTOGRAMM 605 LET H=1 610 FOR K=0 TO 100 612 LET Y(K)=0 613 X(K)=0 615 NEXT K 619 FOR K=1 TO 100 620 LET A=INT(10*D(3,K)/D(2,K)/Y1) 625 FOR I=0 TO 6 630 LET Y(7*A+I)=Y(7*A+I)+1 635 IF(7*A+I)<0.001 THEN 675 640 LET X(7*A+I)=7*A+I 645 NEXT I 650 NEXT K 651 FOR K=1 TO 100 652 LET Y(K)=INT(0.5*Y(K)+0.5) 653 NEXT K 654 PRINT #2: "NR. OF LOTS" 655 PRINT #2: "100" 660 GOSUB 200 665 GOSUB 800 670 RETURN 675 LET X(0)=1 680 GOTO 645 699 RETURN 700 REM SR SORTIER-ROUTINE 701 LET F=0 704 FOR I=1 TO 99 705 IF D(0,I)=0 THEN 716 706 IF D(0,I)-D(0,I+1)>0 THEN 720 712 REM 714 NEXT I 716 IF F=0 THEN 738 718 GO TO 701 720 FOR J=0 TO 4 722 LET V=D(J,I+1) 724 LET D(J,I+1)=D(J,I) 726 LET D(J,I)=V 728 NEXT J 730 LET F=1 731 REM 732 GO TO 714 738 RETURN 740 REM SR UEBERSCHRIFT FUER DIE DATEN LISTE 741 PRINT #2:"SER. NO.";TAB(14);"TYPE NO.";TAB(28);"QTY.IN";TAB(42); 742 PRINT #2:"TOTAL LOSSES";TAB(60);"DATE" 743 RETURN 744 REM SR RECALUCULATE DATE 745 LET A=D(4,I) 746 LET C=0 748 IF A-C*365<=0 THEN 754 750 LET C=C+1 752 GO TO 748 754 LET A=A-(C-1)*365 756 LET C=C-1+70 758 LET B=1 760 IF A-T(B)<=0 THEN 768 762 REM 764 IF B=12 THEN 774 765 LET B=B+1 766 GO TO 760 768 REM 770 LET B=B-1 772 REM 774 LET A=A-T(B) 775 RETURN 800 REM SR UNTERSCHRIFT FUER HISTOGRAMM 802 LET V=0 803 LET W=0 804 IF V=0 THEN 808 805 IF V=10 THEN 815 806 PRINT #2: TAB (W);V; 807 GO TO 810 808 PRINT #2: TAB(W);"0"; 810 LET W=W+7 811 LET V=V+1 814 GO TO 804 815 PRINT #2: TAB(W-1);V 817 PRINT #2: 818 PRINT #2: TAB(55); "FAILURE RATE IN %" 819 PRINT #2: 820 PRINT #2: TAB(22);"HISTOGRAMME OF THE NUMBER OF LOTS" 822 PRINT #2: TAB(22);"AS A FUNCTION OF THE FAILURE RATE" 823 GOSUB 990 824 PRINT #2: 825 PRINT#2: 826 PRINT #2: 827 PRINT #2: 830 RETURN 900 REM SR TEXT DER ERSTEN SEITE 902 GOSUB 990 903 REM 904 REM 906 PRINT #2: TAB(22);"SEL STUTTGART RESEARCH CENTRE" 907 PRINT #2: TAB(22);"*****************************" 908 GOSUB 990 909 PRINT #2: TAB(25); "BURN - IN EVALUATION" 910GOSUB 990 911 GOSUB 990 912 PRINT #2: "SPECIFICATION:";TAB(41);"005 ITT 62 301" 913 PRINT #2: 914 PRINT #2: "PRODUCT ASSURANCE LEVEL";TAB(41);"A" 915 PRINT #2: 916 PRINT #2: "FAMILY:";TAB(41);"74 H" 917 PRINT #2: 918 REM 920 PRINT #2: "MANUFACTURER:";TAB(41);"ITT SEMICONDUCTORS FOOTSCRAY" 921 PRINT #2: 922 REM 923 REM 924 PRINT #2: "INSPECTION TIME:";TAB(41);"JAN./73 TO JAN./74" 926 REM 928 PRINT #2: 930 PRINT #2: "NUMBER OF LOTS";TAB(41);"100" 931 PRINT #2: 932 REM 933 LET A1=0 934 FOR I=1 TO 100 936 LET A1=A1+D(2,I) 938 NEXT I 940 PRINT #2: "TOTAL QUANTITY IN";TAB(40);A1 942 PRINT #2: 943 REM 944 LET A=0 945 FOR I=1 TO 100 946 LET A=A+D(3,I) 947 NEXT I 948 PRINT #2: "TOTAL NUMBER OF FAILURES";TAB(40);A 949 PRINT #2: 950 PRINT #2: "TOTAL IC FAILURE RATE";TAB(40);.1*INT(A/A1*1000+.5);"%" 951 PRINT #2: 952 LET A2=0 954 FOR I=1 TO 100 956 IF D(3,I)/D(2,I)*100>10 THEN 962 958 NEXT I 960 GO TO 966 962 LET A2=A2+1 964 GO TO 958 966 PRINT #2: "NUMBER OF LOTS WITH > 10% FAILURES";TAB(40);A2 967 GOSUB 990 968 GOSUB 990 969 GOSUB 990 970 GOSUB 990 971 GOSUB 990 990 REM SR SPACE 991 PRINT #2: 992 PRINT #2: 993 PRINT #2: 994 PRINT #2: 996 RETURN 999 REM 1000 REM SR AUSDRUCK DER DATEN-LISTE 1002 FOR S=1 TO 2 1004 GOSUB 990 1005 PRINT #2: 1007 GOSUB 740 1008 PRINT #2: 1010 FOR I=1 TO 50 1012 GOSUB 744 1014 GOSUB 1100 1016 NEXT I 1017 GOSUB 990 1018 PRINT #2: 1019 PRINT #2: 1021 PRINT #2: 1023 NEXT S 1025 RETURN 1100 REM SR AUSDRUCK EINER ZEILE DER DATEN-LISTE 1102 LET E=0 1104 FOR K=0 TO 3 1105 IF K=1 THEN 1116 1106 PRINT #2: TAB(E);D(K,I); 1108 LET E=E+14 1112 NEXT K 1115 GO TO 1124 1116 IF D(K,I)<10 THEN 1120 1118 PRINT #2:TAB(E);"74 H";D(K,I); 1119 GO TO 1108 1120 PRINT #2: TAB(E);"74 H 0";PNT(48+D(K,I)); 1121 GO TO 1108 1124 PRINT #2: TAB(56);A;TAB(60);"/";TAB(62);B;TAB(66);"/";TAB(67);C 1130 RETURN 1500 REM *************HAUPTPROGRAMM******* 1502 GOSUB 700 1504 GOSUB 900 1506 GOSUB 500 1508 GOSUB 600 1510 GOSUB 1000 2000 CLOSE #2 2001 END