home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh13a.d64
/
ic-tester
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
10KB
|
428 lines
0 DATA173,0,193,141,3,222,173,1,193,141,2,222,173,2,193,141,1,222,173,3
1 DATA193,141,0,222,173,1,222,141,4,193,173,0,222,141,5,193,96
2 FORI=0TO36:READA:POKE49152+I,A:NEXT
3 DIM IC$(100),A(500),A$(20),B(500),F$(16),X$(16),IT$(100),N(17),ME(40)
4 DIM D1$(512),D2$(512)
9 T=0
10 REM HAUPTMENUE
11 REM ==========
12 GOSUB2000
13 PRINT" <F1> - IC DATEN EINGEBEN "
14 PRINT" <F3> - IC TESTEN "
15 PRINT" <F5> - IC DATEN LOESCHEN "
16 PRINT" <F7> - GESPEICHERTE IC'S ANZEIGEN "
17 PRINT" <F2> - GESPEICHERTE IC' SORTIEREN "
20 GETT$:IFT$=""THEN20
21 IFT$="[133]"THEN300
22 IFT$="[134]"THEN28
23 IFT$="[135]"THEN3000
24 IFT$="[137]"THEN5900
26 IFT$="[136]"THEN5000
27 GOTO20
28 REM IC'S TESTEN ================
29 GOSUB 2000
30 OPEN1,8,2,"IC-TYPEN,S,R"
31 X=0
40 INPUT#1,IC$(X)
50 IFST<>64THENX=X+1:GOTO40
60 CLOSE1
65 PRINT" BITTE IC TYP EINGEBEN:"
66 PRINT" <X> = ZURUECK ZUM HAUPTMENUE"
67 INPUT "[145][145][145] IC-TYP =";IT$
68 IFIT$="X"THEN10
70 FORI=0TOX
80 IFIT$=IC$(I)THEN110
90 NEXTI
100 PRINT"IC NICHT REGISTRIERT!":GOTO65
110 REM DATEN FUER IC LADEN
130 OPEN1,8,2,IC$(I)+",S,R"
135 INPUT#1,FF
140 INPUT#1,DA
145 INPUT#1,DB
150 I=1
160 INPUT#1,A(I)
165 INPUT#1,B(I)
170 IFST<>64THENI=I+1:GOTO160
180 CLOSE1:AN=I
200 REM TEST
205 GOSUB 2000
210 POKE49408,DA:POKE49409,DB
215 PRINT" SOLL [221] PIN [221] SOLL [221] PIN"
216 PRINT" 1111111"
217 PRINT" 12345678 90123456"
220 FORI=1TOAN
230 POKE49410,A(I):POKE49411,B(I)
235 SYS49152
236 IFFF=0THEN238
237 IFINT(I/2)*2<ITHEN250
238 DZ=PEEK(49412):GOSUB7000:DQ$=DU$:DZ=PEEK(49413):GOSUB7000:DR$=DU$
240 DZ=A(I):GOSUB7000:QW$=DU$:DZ=B(I):QT=B(I):GOSUB7000:DZ$=DU$
242 WX$=QW$+" "+DQ$+" "+DZ$+" "+DR$
248 PRINTWX$
249 IFPEEK(49412)<>A(I)ORPEEK(49413)<>B(I)THENPRINT" IC DEFEKT[146]!!!!":GOTO270
250 NEXTI
260 PRINT"IC IN ORDNUNG"
270 PRINT" <EINE TASTE>"
280 GETT$:IFT$=""THEN280
290 GOTO10
300 REM EINGABE DER TESTFUNKTIONEN
310 REM ==========================
315 AN=AN+1:FF=0
320 GOSUB2000
330 PRINT"BITTE GEBEN SIE DEN IC-TYP EIN"
340 INPUT" IC-TYP=";IT$
350 GOSUB 2000
360 PRINT" GEBEN SIE DIE PINFKTN. AN "
365 FF=0
370 PRINT"A=OUT E=IN T=TAKT -=MASSE N=NC"
380 PRINT" [176][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][174]"
390 PRINT" [194] 16 15 14 13 12 11 10 9 [221]"
400 PRINT" [194] [221]"
410 PRINT" [194] [221]"
413 PRINT" [209] [221]"
415 PRINT" [194] [221]"
417 PRINT" [194] [221]"
420 PRINT" [194] 1 2 3 4 5 6 7 8 [221]"
430 PRINT" [173][192][192][178][192][192][192][178][192][192][192][178][192][192][192][178][192][192][192][178][192][192][192][178][192][192][192][178][192][192][192][178][192][192][189]"
440 PRINT"[145][145][145][145][145]";IT$
445 PRINT"";
450 FORI=1TO8
470 PRINT"[157] ";:PRINT"[157][146] ";:GETT$:IFT$=""THEN470
472 IFT$="T"THENFF=1:GOTO480
475 IFT$="A"ORT$="E"ORT$="-"ORT$="N"THEN480
476 GOTO470
480 PRINT"[157]";T$;:F$(I)=T$
490 PRINT" [145]";
500 NEXTI
510 PRINT"[145][145][145][145][145][145][145][145][145][145][145]";
520 FORI=9TO16
525 IFI=16THENT$="+":GOTO535
530 PRINT"[157] ";:PRINT"[157][146] ";:GETT$:IFT$=""THEN530
533 IFT$="T"THENFF=1:GOTO540
535 IFT$="A"ORT$="E"ORT$="+"ORT$="-"ORT$="N"THEN540
536 GOTO530
540 PRINT"[145][157]";T$;:F$(I)=T$
550 PRINT"[157][157][157][157]";
560 NEXTI
570 PRINT" KORREKT <J/N>";
580 GETX$:IFX$=""THEN580
590 IFX$="J"THEN600
591 IFX$<>"N"THEN580
592 GOSUB2000:GOTO360
600 REM AUSWERTUNG FUER DDRA UND DDRB
610 REM!=============================
620 DA$=""
630 FORI=1TO8
640 IFF$(I)="A"THENDA$=DA$+"0"
650 IFF$(I)="-"THENDA$=DA$+"1"
660 IFF$(I)="+"THENDA$=DA$+"1"
670 IFF$(I)="E"THENDA$=DA$+"1"
680 IFF$(I)="N"THENDA$=DA$+"1"
685 IFF$(I)="T"THENDA$=DA$+"1"
690 NEXTI
700 DU$=DA$
702 GOSUB2100
704 DA=DZ
710 DB$=""
720 FORI=9TO16
730 IFF$(I)="A"THENDB$=DB$+"0"
740 IFF$(I)="-"THENDB$=DB$+"1"
750 IFF$(I)="+"THENDB$=DB$+"1"
760 IFF$(I)="E"THENDB$=DB$+"1"
770 IFF$(I)="N"THENDB$=DB$+"1"
775 IFF$(I)="T"THENDB$=DB$+"1"
780 NEXTI
790 DU$=DB$
800 GOSUB 2100
810 DB=DZ
900 REM TEST DATEN
902 REM============
904 GOSUB 2000
905 PRINT" GEBEN SIE DIE PEGEL DER PINS AN":PRINT" 1=HI 0=LO X=1/0";
906 PRINT" ^=0/1-TAKT _=1/0-TAKT"
908 PRINT" [176][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][174]"
909 PRINT" [194] 16 15 14 13 12 11 10 9 [221]"
910 PRINT" [194] [221]"
911 PRINT" [194] [221]"
912 PRINT" [209] [221]"
914 PRINT" [194] [221]"
916 PRINT" [194] [221]"
918 PRINT" [194] 1 2 3 4 5 6 7 8 [221]"
920 PRINT" [173][192][192][178][192][192][192][178][192][192][192][178][192][192][192][178][192][192][192][178][192][192][192][178][192][192][192][178][192][192][192][178][192][192][189]"
922 PRINT"[145][145][145][145][145]";IT$
924 PRINT"";
925 FE=0:FX=0
926 FORI=1TO8
927 IFF$(I)="T"THENPRINT"[157]";"T";"[145]";
928 IFF$(I)="+"ORF$(I)="-"ORF$(I)="N"THENT$=F$(I):GOTO934
929 PRINT"[157] ";:PRINT"[157][146] ";:GETT$:IFT$=""THEN929
930 IFT$="1"ORT$="0"ORT$="X"THEN934
931 IFT$="^"ORT$="_"THENFF=1:GOTO934
932 GOTO928
934 PRINT"[157]";T$;:X$(I)=T$
935 IFT$="X"THENFX=1
936 PRINT" [145]";
937 IFFF=1ANDFX=1THENFE=1
938 NEXTI
940 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145]";
941 FORI=9TO16
942 IFF$(I)="T"THENFF=1:PRINT"[145][157]";"T";
943 IFF$(I)="+"ORF$(I)="-"ORF$(I)="N"THENT$=F$(I):GOTO950
944 PRINT"[157] ";:PRINT"[157][146] ";:GETT$:IFT$=""THEN944
946 IFT$="1"ORT$="0"ORT$="X"THEN950
947 IFT$="^"ORT$="_"THENFF=1:GOTO950
948 GOTO944
950 PRINT"[145][157]";T$;:X$(I)=T$
951 IFT$="X"THENFX=1
952 PRINT"[157][157][157][157]";
953 IFFF=1ANDFX=1THENFE=1
954 NEXTI
955 IFFE=0THEN959
956 PRINT" BITTE KEINE X-EINGABE BEI FLANKENGE- STEUERTEN IC'S
957 [153]" <EINE TASTE>ON":[161]T$:[139]T$[179][177]""[167]FX[178]0:FE[178]0:FF[178]0:[137]300
958 [137]957
959 [153]" KORREKT <J/N>"
960 [161]X$:[139]X$[178]""[167]960
961 [139]X$[178]"J"[167]968
962 [139]X$[179][177]"N"[167]960
964 [141]2000:[137]904
968 [153]"ON ":[139]FF[178]1[167]4000
970 [143] DRA UND DRB BERCHNEN
971 [143] ====================
972 A$[178]""
974 [129]I[178]1[164]16
976 [139]X$(I)[178]"1"[176]X$(I)[178]"+"[176]X$(I)[178]"N"[167]A$[178]A$[170]"1"
977 [139]X$(I)[178]"X"[167]A$[178]A$[170]"X"
978 [139]X$(I)[178]"0"[176]X$(I)[178]"-"[167]A$[178]A$[170]"0"
982 [130]I
983 X$[178]A$:XW[178]1
984 [141]20000
985 [129]Z[178]1[164]XW[171]1
986 DU$[178]D1$(Z):[141]2100:A(T[170]Z)[178]DZ
987 DU$[178]D2$(Z):[141]2100:B(T[170]Z)[178]DZ
989 [130]Z
990 T[178]T[170]XW[171]1
1008 [153]"ON WEITERE TEST DATEN <J/N>"
1010 [161]T$:[139]T$[178]"N"[167]1040
1020 [139]T$[178]"J"[167]904
1030 [137]1010
1040 [159]1,8,2,IT$[170]",S,W"
1045 [152]1,FF
1050 [152]1,DA
1055 [152]1,DB
1060 [129]I[178]1[164]T
1070 [152]1,A(I)
1075 [152]1,B(I)
1080 [130]I
1090 [160]1
1100 [159]1,8,2,"IC-TYPEN,S,A"
1110 [152]1,IT$
1120 [160]1
1900 [137]10
1999 [128]
2000 [143] MENUE KOPF
2001 [143] ==========
2010 [153]"LOADPROJEKTARBEIT VON H.ACHTERMANN JAN. 1986";
2012 [153]" ";
2014 [153]" IC-TESTER "
2040 [142]
2100 [143] DUAL IN HEX UMWANDLUNG
2110 [143] ======================
2115 DZ[178]0
2120 [129]I[178]7[164]0[169][171]1
2130 [139][202](DU$,8[171]I,1)[178]"1"[167]DZ[178]DZ[170]2[174]I
2140 [130]I
2150 [142]
3000 [143] IC-DATEN LOESCHEN
3010 [143] =================
3020 [141] 2000
3030 [133]" GEBEN SIE DEN IC-TYP EIN:";T$
3032 [153]" SIND SIE SICHER ???? <J/N> "
3033 [161]X$:[139]X$[178]""[167]3033
3034 [139]X$[179][177]"J"[167]10
3040 [159]1,8,15,"S:"[170]T$
3045 [160]1
3046 [159]1,8,2,"IC-TYPEN,S,R"
3050 I[178]1
3060 [132]1,IT$(I)
3070 [139]ST[179][177]64[167]I[178]I[170]1:[137]3060
3080 [160]1
3090 [129]J[178]1[164]I[171]1
3100 [139]T$[178]IT$(J)[167]IT$(J)[178]IT$(J[170]1):T$[178]IT$(J[170]1)
3105 [130]J
3110 [159]1,8,2,"@:IC-TYPEN,S,W"
3120 [129]K[178]1[164]I[171]1
3130 [152]1,IT$(K)
3137 L[178]K
3140 [130]K
3150 [160]1
3155 IT$(L[170]1)[178]"":IC$(L)[178]""
3160 [159]15,8,15
3170 [132]15,A,B$,C,D
3180 [153]""A;B$,C,D
3190 [160]15
3195 [129]I[178]1[164]2000:[130]I
3200 [137]10
4000 [143] 1/0 ODER 0/1 FLANKEN ERRECHNEN
4010 [143] ==============================
4020 [129]J[178]48[164]49
4021 A$[178]"":T[178]T[170]1
4022 [129]I[178]1[164]8
4023 [139]X$(I)[178]"1"[176]X$(I)[178]"+"[176]X$(I)[178]"N"[176]X$(I)[178]"X"[167]A$[178]A$[170]"1"
4024 [139]X$(I)[178]"0"[176]X$(I)[178]"-"[167]A$[178]A$[170]"0"
4026 [139]X$(I)[178]"^"[167]A$[178]A$[170][199](J)
4028 [139]X$(I)[178]"_"[167]A$[178]A$[170][199](97[171]J)
4050 [130]I
4060 DU$[178]A$:[141]2100:A(T)[178]DZ
4065 A$[178]""
4070 [129]I[178]9[164]16
4080 [139]X$(I)[178]"1"[176]X$(I)[178]"+"[176]X$(I)[178]"N"[176]X$(I)[178]"X"[167]A$[178]A$[170]"1"
4090 [139]X$(I)[178]"0"[176]X$(I)[178]"-"[167]A$[178]A$[170]"0"
4100 [139]X$(I)[178]"^"[167]A$[178]A$[170][199](J)
4110 [139]X$(I)[178]"_"[167]A$[178]A$[170][199](97[171]J)
4120 [130]I
4130 DU$[178]A$:[141]2100:B(T)[178]DZ
4150 [130]J
4200 [137]1008
5000 [143] IC'DATEN ANZEIGEN
5010 [143]===================
5030 [159]1,8,2,"IC-TYPEN,S,R"
5032 X[178]0
5034 [132]1,IC$(X)
5036 [139]ST[179][177]64[167]X[178]X[170]1:[137]5034
5038 [160]1
5072 A[178]0
5075 [153]"LOAD GESPEICHERTE IC-TYPEN"
5080 [129]I[178]0[164]X[169]2
5090 [153]IC$(I),IC$(I[170]1):A[178]A[170]1
5092 [139]A[179]15[167]5100
5094 [153]"WEITER MIT EINER TASTEON":[161]T$:[139]T$[178]""[167]5094
5096 A[178]0:[153]"LOAD GESPEICHERTE IC-TYPEN"
5100 [130]I
5110 [153]" KEINE WEITEREN IC'S GESPEICHERT":[153]" WEITER MIT EINER TASTE"
5120 [161]T$:[139]T$[178]""[167]5120
5130 [137]10
5900 [143] IC'DATEN SORTIEREN
5910 [143]===================
5920 [141] 2000
5922 [153]" IC'S NUMERISCH SORTIEREN "
5930 [159]1,8,2,"IC-TYPEN,S,R"
5932 X[178]0:Z[178]0
5934 [132]1,IC$(X)
5935 [139][195](IC$(X))[177]4[167]IT$(Z)[178]IC$(X):X[178]X[171]1:Z[178]Z[170]1
5936 [139]ST[179][177]64[167]X[178]X[170]1:[137]5934
5938 [160]1
5940 W[178]0:Z[178]Z[171]1
6000 I[178]X:TAUSCH[178]0
6010 K[178]3
6020 [139]K[177]4[167]6070
6030 [139][202](IC$(I),K,1)[177][202](IC$(I[171]1),K,1)[167] 6060
6040 [139][202](IC$(I),K,1)[178][202](IC$(I[171]1),K,1)[167]K[178]K[170]1:[137]6020
6050 Q$[178]IC$(I):IC$(I)[178]IC$(I[171]1):IC$(I[171]1)[178]Q$:TAUSCH[178]1
6060 [153]"ON SORT. LAEUFT ";W:W[178]W[170]1
6070 I[178]I[171]1:[139]I[178]0[167]6090
6080 [137]6010
6090 [139]TAUSCH[178]1[167]:[137]6000
6091 I[178]Z:TAUSCH[178]0
6092 K[178]3
6093 [139]K[177]5[167]6098
6094 [139][202](IT$(I),K,1)[177][202](IT$(I[171]1),K,1)[167] 6097
6095 [139][202](IT$(I),K,1)[178][202](IT$(I[171]1),K,1)[167]K[178]K[170]1:[137]6093
6096 Q$[178]IT$(I):IT$(I)[178]IT$(I[171]1):IT$(I[171]1)[178]Q$:TAUSCH[178]1
6097 [153]"ON SORT. LAEUFT ";W:W[178]W[170]1
6098 I[178]I[171]1:[139]I[178]0[167]6100
6099 [137]6092
6100 [139]TAUSCH[178]1[167]:[137]6091
6105 [159]1,8,2,"@:IC-TYPEN,S,W"
6110 [129]I[178]0[164]X
6120 [152]1,IC$(I)
6130 [130]I
6132 [129]I[178]0[164]Z
6134 [152]1,IT$(I)
6136 [130]I
6140 [160]1
6150 [137]9
7000 [143] DEZ IN DUAL ===============
7005 DU$[178]"":DW$[178]""
7007 [129]XZ[178]1[164]8
7010 [139](DZ[173]2)[178][181](DZ[173]2)[167]DW$[178]DW$[170]"0":[137]7020
7015 DW$[178]DW$[170]"1"
7020 DZ[178][181](DZ[173]2):[130]XZ
7025 [129]XW[178]0[164]7:DU$[178]DU$[170][202](DW$,8[171]XW,1):[130]XW
7030 DZ[178]0:[142]
20000 [129]I[178]1[164]16:N(I)[178]0:[130]I
20005 [129]I[178]1[164]16
20010 [139][202](X$,I,1)[178]"X"[167]N(I)[178]1
20040 [130]I
20042 T1[178]0:T2[178]0:T3[178]0:T4[178]0:T5[178]0:T6[178]0:T7[178]0:T8[178]0:T9[178]0:S1[178]0:S2[178]0:S3[178]0:S4[178]0:S5[178]0
20043 S6[178]0:S7[178]0
20050 [137]20123
20051 S7[178]S7[170]1:[139]S7[177]1[167]S7[178]0
20052 S6[178]S6[170]1:[139]S6[177]1[167]S6[178]0
20053 S5[178]S5[170]1:[139]S5[177]1[167]S5[178]0
20054 S4[178]S4[170]1:[139]S4[177]1[167]S4[178]0
20055 S3[178]S3[170]1:[139]S3[177]1[167]S3[178]0
20056 S2[178]S2[170]1:[139]S2[177]1[167]S2[178]0
20057 S1[178]S1[170]1:[139]S1[177]1[167]S1[178]0
20058 T9[178]T9[170]1:[139]T9[177]1[167]T9[178]0
20060 T8[178]T8[170]1:[139]T8[177]1[167]T8[178]0
20070 T7[178]T7[170]1:[139]T7[177]1[167]T7[178]0
20080 T6[178]T6[170]1:[139]T6[177]1[167]T6[178]0
20090 T5[178]T5[170]1:[139]T5[177]1[167]T5[178]0
20100 T4[178]T4[170]1:[139]T4[177]1[167]T4[178]0
20110 T3[178]T3[170]1:[139]T3[177]1[167]T3[178]0
20120 T2[178]T2[170]1:[139]T2[177]1[167]T2[178]0
20122 T1[178]T1[170]1:[139]T1[177]1[167]T1[178]0
20123 [139]N(1)[178]0[167]A$[178][202](X$,1,1):[137]20125
20124 A$[178][196](2[174]S7[171]1):A$[178][202](A$,2,1)
20125 [139]N(2)[178]0[167]B$[178][202](X$,2,1):[137]20127
20126 B$[178][196](2[174]S6[171]1):B$[178][202](B$,2,1)
20127 [139]N(3)[178]0[167]C$[178][202](X$,3,1):[137]20129
20128 C$[178][196](2[174]S5[171]1):C$[178][202](C$,2,1)
20129 [139]N(4)[178]0[167]D$[178][202](X$,4,1):[137]20131
20130 D$[178][196](2[174]S4[171]1):D$[178][202](D$,2,1)
20131 [139]N(5)[178]0[167]E$[178][202](X$,5,1):[137]20133
20132 E$[178][196](2[174]S3[171]1):E$[178][202](E$,2,1)
20133 [139]N(6)[178]0[167]F$[178][202](X$,6,1):[137]20135
20134 F$[178][196](2[174]S2[171]1):F$[178][202](F$,2,1)
20135 [139]N(7)[178]0[167]G$[178][202](X$,7,1):[137]20137
20136 G$[178][196](2[174]S1[171]1):G$[178][202](G$,2,1)
20137 [139]N(8)[178]0[167]H$[178][202](X$,8,1):[137]20158
20138 H$[178][196](2[174]T9[171]1):H$[178][202](H$,2,1)
20158 [139]N(9)[178]0[167]K$[178][202](X$,9,1):[137]20160
20159 K$[178][196](2[174]T8[171]1):K$[178][202](K$,2,1)
20160 [139]N(10)[178]0[167]L$[178][202](X$,10,1):[137]20180
20170 L$[178][196](2[174]T7[171]1):L$[178][202](L$,2,1)
20180 [139]N(11)[178]0[167]M$[178][202](X$,11,1):[137]20230
20220 M$[178][196](2[174]T6[171]1):M$[178][202](M$,2,1)
20230 [139]N(12)[178]0[167]N$[178][202](X$,12,1):[137]20250
20240 N$[178][196](2[174]T5[171]1):N$[178][202](N$,2,1)
20250 [139]N(13)[178]0[167]O$[178][202](X$,13,1):[137]20270
20260 O$[178][196](2[174]T4[171]1):O$[178][202](O$,2,1)
20270 [139]N(14)[178]0[167]P$[178][202](X$,14,1):[137]20290
20280 P$[178][196](2[174]T3[171]1):P$[178][202](P$,2,1)
20290 [139]N(15)[178]0[167]Q$[178][202](X$,15,1):[137]20310
20300 Q$[178][196](2[174]T2[171]1):Q$[178][202](Q$,2,1)
20310 [139]N(16)[178]0[167]R$[178][202](X$,16,1):[137]20330
20320 R$[178][196](2[174]T1[171]1):R$[178][202](R$,2,1)
20330 DU$[178]A$[170]B$[170]C$[170]D$[170]E$[170]F$[170]G$[170]H$[170]K$[170]L$[170]M$[170]N$[170]O$[170]P$[170]Q$[170]R$
20335 D1$(XW)[178][200](DU$,8):D2$(XW)[178][201](DU$,8)
20340 [153]"ON";XW:XW[178]XW[170]1
20350 [139]T1[178]0[175]N(16)[178]1[167]20122
20360 [139]T2[178]0[175]N(15)[178]1[167]20120
20370 [139]T3[178]0[175]N(14)[178]1[167]20110
20380 [139]T4[178]0[175]N(13)[178]1[167]20100
20390 [139]T5[178]0[175]N(12)[178]1[167]20090
20410 [139]T6[178]0[175]N(11)[178]1[167]20080
20420 [139]T7[178]0[175]N(10)[178]1[167]20070
20430 [139]T8[178]0[175]N(9)[178]1[167]20060
20440 [139]T9[178]0[175]N(8)[178]1[167]20058
20450 [139]S1[178]0[175]N(7)[178]1[167]20057
20460 [139]S2[178]0[175]N(6)[178]1[167]20056
20470 [139]S3[178]0[175]N(5)[178]1[167]20055
20480 [139]S4[178]0[175]N(4)[178]1[167]20054
20490 [139]S5[178]0[175]N(3)[178]1[167]20053
20495 [139]S6[178]0[175]N(2)[178]1[167]20052
20500 [139]S7[178]0[175]N(1)[178]1[167]20051
20600 [142]