home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh13a.d64 / ic-tester (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  10KB  |  428 lines
  1. 0 DATA173,0,193,141,3,222,173,1,193,141,2,222,173,2,193,141,1,222,173,3
  2. 1 DATA193,141,0,222,173,1,222,141,4,193,173,0,222,141,5,193,96
  3. 2 FORI=0TO36:READA:POKE49152+I,A:NEXT
  4. 3 DIM IC$(100),A(500),A$(20),B(500),F$(16),X$(16),IT$(100),N(17),ME(40)
  5. 4 DIM D1$(512),D2$(512)
  6. 9 T=0
  7. 10 REM HAUPTMENUE
  8. 11 REM ==========
  9. 12 GOSUB2000
  10. 13 PRINT"    <F1> - IC DATEN EINGEBEN "
  11. 14 PRINT"    <F3> - IC    TESTEN  "
  12. 15 PRINT"    <F5> - IC DATEN LOESCHEN "
  13. 16 PRINT"    <F7> - GESPEICHERTE IC'S ANZEIGEN  "
  14. 17 PRINT"    <F2> - GESPEICHERTE IC' SORTIEREN  "
  15. 20 GETT$:IFT$=""THEN20
  16. 21 IFT$="[133]"THEN300
  17. 22 IFT$="[134]"THEN28
  18. 23 IFT$="[135]"THEN3000
  19. 24 IFT$="[137]"THEN5900
  20. 26 IFT$="[136]"THEN5000
  21. 27 GOTO20
  22. 28 REM IC'S  TESTEN                        ================
  23. 29 GOSUB 2000
  24. 30 OPEN1,8,2,"IC-TYPEN,S,R"
  25. 31 X=0
  26. 40 INPUT#1,IC$(X)
  27. 50 IFST<>64THENX=X+1:GOTO40
  28. 60 CLOSE1
  29. 65 PRINT"   BITTE IC TYP EINGEBEN:"
  30. 66 PRINT" <X> = ZURUECK ZUM HAUPTMENUE"
  31. 67 INPUT "[145][145][145]   IC-TYP =";IT$
  32. 68 IFIT$="X"THEN10
  33. 70 FORI=0TOX
  34. 80 IFIT$=IC$(I)THEN110
  35. 90 NEXTI
  36. 100 PRINT"IC NICHT REGISTRIERT!":GOTO65
  37. 110 REM DATEN FUER IC LADEN
  38. 130 OPEN1,8,2,IC$(I)+",S,R"
  39. 135 INPUT#1,FF
  40. 140 INPUT#1,DA
  41. 145 INPUT#1,DB
  42. 150 I=1
  43. 160 INPUT#1,A(I)
  44. 165 INPUT#1,B(I)
  45. 170 IFST<>64THENI=I+1:GOTO160
  46. 180 CLOSE1:AN=I
  47. 200 REM TEST
  48. 205 GOSUB 2000
  49. 210 POKE49408,DA:POKE49409,DB
  50. 215 PRINT" SOLL   [221]  PIN    [221]  SOLL   [221]   PIN"
  51. 216 PRINT"                              1111111"
  52. 217 PRINT"         12345678            90123456"
  53. 220 FORI=1TOAN
  54. 230 POKE49410,A(I):POKE49411,B(I)
  55. 235 SYS49152
  56. 236 IFFF=0THEN238
  57. 237 IFINT(I/2)*2<ITHEN250
  58. 238 DZ=PEEK(49412):GOSUB7000:DQ$=DU$:DZ=PEEK(49413):GOSUB7000:DR$=DU$
  59. 240 DZ=A(I):GOSUB7000:QW$=DU$:DZ=B(I):QT=B(I):GOSUB7000:DZ$=DU$
  60. 242 WX$=QW$+" "+DQ$+"   "+DZ$+" "+DR$
  61. 248 PRINTWX$
  62. 249 IFPEEK(49412)<>A(I)ORPEEK(49413)<>B(I)THENPRINT"       IC DEFEKT[146]!!!!":GOTO270
  63. 250 NEXTI
  64. 260 PRINT"IC IN ORDNUNG"
  65. 270 PRINT"   <EINE TASTE>"
  66. 280 GETT$:IFT$=""THEN280
  67. 290 GOTO10
  68. 300 REM EINGABE DER TESTFUNKTIONEN
  69. 310 REM ==========================
  70. 315 AN=AN+1:FF=0
  71. 320 GOSUB2000
  72. 330 PRINT"BITTE GEBEN SIE DEN IC-TYP EIN"
  73. 340 INPUT"   IC-TYP=";IT$
  74. 350 GOSUB 2000
  75. 360 PRINT" GEBEN SIE DIE PINFKTN. AN "
  76. 365 FF=0
  77. 370 PRINT"A=OUT  E=IN  T=TAKT   -=MASSE  N=NC"
  78. 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]"
  79. 390 PRINT"  [194] 16  15  14  13  12  11  10   9  [221]"
  80. 400 PRINT"  [194]                                 [221]"
  81. 410 PRINT"  [194]                                 [221]"
  82. 413 PRINT"  [209]                                 [221]"
  83. 415 PRINT"  [194]                                 [221]"
  84. 417 PRINT"  [194]                                 [221]"
  85. 420 PRINT"  [194]  1   2   3   4   5   6   7   8  [221]"
  86. 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]"
  87. 440 PRINT"[145][145][145][145][145]";IT$
  88. 445 PRINT"";
  89. 450 FORI=1TO8
  90. 470 PRINT"[157] ";:PRINT"[157][146] ";:GETT$:IFT$=""THEN470
  91. 472 IFT$="T"THENFF=1:GOTO480
  92. 475 IFT$="A"ORT$="E"ORT$="-"ORT$="N"THEN480
  93. 476 GOTO470
  94. 480 PRINT"[157]";T$;:F$(I)=T$
  95. 490 PRINT"    [145]";
  96. 500 NEXTI
  97. 510 PRINT"[145][145][145][145][145][145][145][145][145][145][145]";
  98. 520 FORI=9TO16
  99. 525 IFI=16THENT$="+":GOTO535
  100. 530 PRINT"[157] ";:PRINT"[157][146] ";:GETT$:IFT$=""THEN530
  101. 533 IFT$="T"THENFF=1:GOTO540
  102. 535 IFT$="A"ORT$="E"ORT$="+"ORT$="-"ORT$="N"THEN540
  103. 536 GOTO530
  104. 540 PRINT"[145][157]";T$;:F$(I)=T$
  105. 550 PRINT"[157][157][157][157]";
  106. 560 NEXTI
  107. 570 PRINT" KORREKT  <J/N>";
  108. 580 GETX$:IFX$=""THEN580
  109. 590 IFX$="J"THEN600
  110. 591 IFX$<>"N"THEN580
  111. 592 GOSUB2000:GOTO360
  112. 600 REM AUSWERTUNG FUER DDRA UND DDRB
  113. 610 REM!=============================
  114. 620 DA$=""
  115. 630 FORI=1TO8
  116. 640 IFF$(I)="A"THENDA$=DA$+"0"
  117. 650 IFF$(I)="-"THENDA$=DA$+"1"
  118. 660 IFF$(I)="+"THENDA$=DA$+"1"
  119. 670 IFF$(I)="E"THENDA$=DA$+"1"
  120. 680 IFF$(I)="N"THENDA$=DA$+"1"
  121. 685 IFF$(I)="T"THENDA$=DA$+"1"
  122. 690 NEXTI
  123. 700 DU$=DA$
  124. 702 GOSUB2100
  125. 704 DA=DZ
  126. 710 DB$=""
  127. 720 FORI=9TO16
  128. 730 IFF$(I)="A"THENDB$=DB$+"0"
  129. 740 IFF$(I)="-"THENDB$=DB$+"1"
  130. 750 IFF$(I)="+"THENDB$=DB$+"1"
  131. 760 IFF$(I)="E"THENDB$=DB$+"1"
  132. 770 IFF$(I)="N"THENDB$=DB$+"1"
  133. 775 IFF$(I)="T"THENDB$=DB$+"1"
  134. 780 NEXTI
  135. 790 DU$=DB$
  136. 800 GOSUB 2100
  137. 810 DB=DZ
  138. 900 REM TEST DATEN
  139. 902 REM============
  140. 904 GOSUB 2000
  141. 905 PRINT"   GEBEN SIE DIE PEGEL DER PINS AN":PRINT" 1=HI 0=LO X=1/0";
  142. 906 PRINT" ^=0/1-TAKT  _=1/0-TAKT"
  143. 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]"
  144. 909 PRINT"  [194] 16  15  14  13  12  11  10   9  [221]"
  145. 910 PRINT"  [194]                                 [221]"
  146. 911 PRINT"  [194]                                 [221]"
  147. 912 PRINT"  [209]                                 [221]"
  148. 914 PRINT"  [194]                                 [221]"
  149. 916 PRINT"  [194]                                 [221]"
  150. 918 PRINT"  [194]  1   2   3   4   5   6   7   8  [221]"
  151. 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]"
  152. 922 PRINT"[145][145][145][145][145]";IT$
  153. 924 PRINT"";
  154. 925 FE=0:FX=0
  155. 926 FORI=1TO8
  156. 927 IFF$(I)="T"THENPRINT"[157]";"T";"[145]";
  157. 928 IFF$(I)="+"ORF$(I)="-"ORF$(I)="N"THENT$=F$(I):GOTO934
  158. 929 PRINT"[157] ";:PRINT"[157][146] ";:GETT$:IFT$=""THEN929
  159. 930 IFT$="1"ORT$="0"ORT$="X"THEN934
  160. 931 IFT$="^"ORT$="_"THENFF=1:GOTO934
  161. 932 GOTO928
  162. 934 PRINT"[157]";T$;:X$(I)=T$
  163. 935 IFT$="X"THENFX=1
  164. 936 PRINT"    [145]";
  165. 937 IFFF=1ANDFX=1THENFE=1
  166. 938 NEXTI
  167. 940 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145]";
  168. 941 FORI=9TO16
  169. 942 IFF$(I)="T"THENFF=1:PRINT"[145][157]";"T";
  170. 943 IFF$(I)="+"ORF$(I)="-"ORF$(I)="N"THENT$=F$(I):GOTO950
  171. 944 PRINT"[157] ";:PRINT"[157][146] ";:GETT$:IFT$=""THEN944
  172. 946 IFT$="1"ORT$="0"ORT$="X"THEN950
  173. 947 IFT$="^"ORT$="_"THENFF=1:GOTO950
  174. 948 GOTO944
  175. 950 PRINT"[145][157]";T$;:X$(I)=T$
  176. 951 IFT$="X"THENFX=1
  177. 952 PRINT"[157][157][157][157]";
  178. 953 IFFF=1ANDFX=1THENFE=1
  179. 954 NEXTI
  180. 955 IFFE=0THEN959
  181. 956 PRINT" BITTE KEINE X-EINGABE BEI FLANKENGE-     STEUERTEN IC'S
  182. 957 [153]"    <EINE TASTE>ON":[161]T$:[139]T$[179][177]""[167]FX[178]0:FE[178]0:FF[178]0:[137]300
  183. 958 [137]957
  184. 959 [153]" KORREKT  <J/N>"
  185. 960 [161]X$:[139]X$[178]""[167]960
  186. 961 [139]X$[178]"J"[167]968
  187. 962 [139]X$[179][177]"N"[167]960
  188. 964 [141]2000:[137]904
  189. 968 [153]"ON                          ":[139]FF[178]1[167]4000
  190. 970 [143] DRA UND DRB BERCHNEN
  191. 971 [143] ====================
  192. 972 A$[178]""
  193. 974 [129]I[178]1[164]16
  194. 976 [139]X$(I)[178]"1"[176]X$(I)[178]"+"[176]X$(I)[178]"N"[167]A$[178]A$[170]"1"
  195. 977 [139]X$(I)[178]"X"[167]A$[178]A$[170]"X"
  196. 978 [139]X$(I)[178]"0"[176]X$(I)[178]"-"[167]A$[178]A$[170]"0"
  197. 982 [130]I
  198. 983 X$[178]A$:XW[178]1
  199. 984 [141]20000
  200. 985 [129]Z[178]1[164]XW[171]1
  201. 986 DU$[178]D1$(Z):[141]2100:A(T[170]Z)[178]DZ
  202. 987 DU$[178]D2$(Z):[141]2100:B(T[170]Z)[178]DZ
  203. 989 [130]Z
  204. 990 T[178]T[170]XW[171]1
  205. 1008 [153]"ON  WEITERE TEST DATEN <J/N>"
  206. 1010 [161]T$:[139]T$[178]"N"[167]1040
  207. 1020 [139]T$[178]"J"[167]904
  208. 1030 [137]1010
  209. 1040 [159]1,8,2,IT$[170]",S,W"
  210. 1045 [152]1,FF
  211. 1050 [152]1,DA
  212. 1055 [152]1,DB
  213. 1060 [129]I[178]1[164]T
  214. 1070 [152]1,A(I)
  215. 1075 [152]1,B(I)
  216. 1080 [130]I
  217. 1090 [160]1
  218. 1100 [159]1,8,2,"IC-TYPEN,S,A"
  219. 1110 [152]1,IT$
  220. 1120 [160]1
  221. 1900 [137]10
  222. 1999 [128]
  223. 2000 [143] MENUE KOPF
  224. 2001 [143] ==========
  225. 2010 [153]"LOADPROJEKTARBEIT VON H.ACHTERMANN JAN. 1986";
  226. 2012 [153]"                                        ";
  227. 2014 [153]"               IC-TESTER                "
  228. 2040 [142]
  229. 2100 [143] DUAL IN HEX UMWANDLUNG
  230. 2110 [143] ======================
  231. 2115 DZ[178]0
  232. 2120 [129]I[178]7[164]0[169][171]1
  233. 2130 [139][202](DU$,8[171]I,1)[178]"1"[167]DZ[178]DZ[170]2[174]I
  234. 2140 [130]I
  235. 2150 [142]
  236. 3000 [143] IC-DATEN LOESCHEN
  237. 3010 [143] =================
  238. 3020 [141] 2000
  239. 3030 [133]" GEBEN SIE DEN IC-TYP EIN:";T$
  240. 3032 [153]"  SIND SIE SICHER ????  <J/N>  "
  241. 3033 [161]X$:[139]X$[178]""[167]3033
  242. 3034 [139]X$[179][177]"J"[167]10
  243. 3040 [159]1,8,15,"S:"[170]T$
  244. 3045 [160]1
  245. 3046 [159]1,8,2,"IC-TYPEN,S,R"
  246. 3050 I[178]1
  247. 3060 [132]1,IT$(I)
  248. 3070 [139]ST[179][177]64[167]I[178]I[170]1:[137]3060
  249. 3080 [160]1
  250. 3090 [129]J[178]1[164]I[171]1
  251. 3100 [139]T$[178]IT$(J)[167]IT$(J)[178]IT$(J[170]1):T$[178]IT$(J[170]1)
  252. 3105 [130]J
  253. 3110 [159]1,8,2,"@:IC-TYPEN,S,W"
  254. 3120 [129]K[178]1[164]I[171]1
  255. 3130 [152]1,IT$(K)
  256. 3137 L[178]K
  257. 3140 [130]K
  258. 3150 [160]1
  259. 3155 IT$(L[170]1)[178]"":IC$(L)[178]""
  260. 3160 [159]15,8,15
  261. 3170 [132]15,A,B$,C,D
  262. 3180 [153]""A;B$,C,D
  263. 3190 [160]15
  264. 3195 [129]I[178]1[164]2000:[130]I
  265. 3200 [137]10
  266. 4000 [143] 1/0 ODER 0/1 FLANKEN ERRECHNEN
  267. 4010 [143] ==============================
  268. 4020 [129]J[178]48[164]49
  269. 4021 A$[178]"":T[178]T[170]1
  270. 4022 [129]I[178]1[164]8
  271. 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"
  272. 4024 [139]X$(I)[178]"0"[176]X$(I)[178]"-"[167]A$[178]A$[170]"0"
  273. 4026 [139]X$(I)[178]"^"[167]A$[178]A$[170][199](J)
  274. 4028 [139]X$(I)[178]"_"[167]A$[178]A$[170][199](97[171]J)
  275. 4050 [130]I
  276. 4060 DU$[178]A$:[141]2100:A(T)[178]DZ
  277. 4065 A$[178]""
  278. 4070 [129]I[178]9[164]16
  279. 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"
  280. 4090 [139]X$(I)[178]"0"[176]X$(I)[178]"-"[167]A$[178]A$[170]"0"
  281. 4100 [139]X$(I)[178]"^"[167]A$[178]A$[170][199](J)
  282. 4110 [139]X$(I)[178]"_"[167]A$[178]A$[170][199](97[171]J)
  283. 4120 [130]I
  284. 4130 DU$[178]A$:[141]2100:B(T)[178]DZ
  285. 4150 [130]J
  286. 4200 [137]1008
  287. 5000 [143] IC'DATEN ANZEIGEN
  288. 5010 [143]===================
  289. 5030 [159]1,8,2,"IC-TYPEN,S,R"
  290. 5032 X[178]0
  291. 5034 [132]1,IC$(X)
  292. 5036 [139]ST[179][177]64[167]X[178]X[170]1:[137]5034
  293. 5038 [160]1
  294. 5072 A[178]0
  295. 5075 [153]"LOAD  GESPEICHERTE IC-TYPEN"
  296. 5080 [129]I[178]0[164]X[169]2
  297. 5090 [153]IC$(I),IC$(I[170]1):A[178]A[170]1
  298. 5092 [139]A[179]15[167]5100
  299. 5094 [153]"WEITER MIT EINER TASTEON":[161]T$:[139]T$[178]""[167]5094
  300. 5096 A[178]0:[153]"LOAD  GESPEICHERTE IC-TYPEN"
  301. 5100 [130]I
  302. 5110 [153]" KEINE WEITEREN IC'S GESPEICHERT":[153]" WEITER MIT EINER TASTE"
  303. 5120 [161]T$:[139]T$[178]""[167]5120
  304. 5130 [137]10
  305. 5900 [143] IC'DATEN SORTIEREN
  306. 5910 [143]===================
  307. 5920 [141] 2000
  308. 5922 [153]"  IC'S NUMERISCH SORTIEREN "
  309. 5930 [159]1,8,2,"IC-TYPEN,S,R"
  310. 5932 X[178]0:Z[178]0
  311. 5934 [132]1,IC$(X)
  312. 5935 [139][195](IC$(X))[177]4[167]IT$(Z)[178]IC$(X):X[178]X[171]1:Z[178]Z[170]1
  313. 5936 [139]ST[179][177]64[167]X[178]X[170]1:[137]5934
  314. 5938 [160]1
  315. 5940 W[178]0:Z[178]Z[171]1
  316. 6000 I[178]X:TAUSCH[178]0
  317. 6010 K[178]3
  318. 6020 [139]K[177]4[167]6070
  319. 6030 [139][202](IC$(I),K,1)[177][202](IC$(I[171]1),K,1)[167] 6060
  320. 6040 [139][202](IC$(I),K,1)[178][202](IC$(I[171]1),K,1)[167]K[178]K[170]1:[137]6020
  321. 6050 Q$[178]IC$(I):IC$(I)[178]IC$(I[171]1):IC$(I[171]1)[178]Q$:TAUSCH[178]1
  322. 6060 [153]"ON  SORT. LAEUFT    ";W:W[178]W[170]1
  323. 6070 I[178]I[171]1:[139]I[178]0[167]6090
  324. 6080 [137]6010
  325. 6090 [139]TAUSCH[178]1[167]:[137]6000
  326. 6091 I[178]Z:TAUSCH[178]0
  327. 6092 K[178]3
  328. 6093 [139]K[177]5[167]6098
  329. 6094 [139][202](IT$(I),K,1)[177][202](IT$(I[171]1),K,1)[167] 6097
  330. 6095 [139][202](IT$(I),K,1)[178][202](IT$(I[171]1),K,1)[167]K[178]K[170]1:[137]6093
  331. 6096 Q$[178]IT$(I):IT$(I)[178]IT$(I[171]1):IT$(I[171]1)[178]Q$:TAUSCH[178]1
  332. 6097 [153]"ON  SORT. LAEUFT    ";W:W[178]W[170]1
  333. 6098 I[178]I[171]1:[139]I[178]0[167]6100
  334. 6099 [137]6092
  335. 6100 [139]TAUSCH[178]1[167]:[137]6091
  336. 6105 [159]1,8,2,"@:IC-TYPEN,S,W"
  337. 6110 [129]I[178]0[164]X
  338. 6120 [152]1,IC$(I)
  339. 6130 [130]I
  340. 6132 [129]I[178]0[164]Z
  341. 6134 [152]1,IT$(I)
  342. 6136 [130]I
  343. 6140 [160]1
  344. 6150 [137]9
  345. 7000 [143] DEZ IN DUAL                         ===============
  346. 7005 DU$[178]"":DW$[178]""
  347. 7007 [129]XZ[178]1[164]8
  348. 7010 [139](DZ[173]2)[178][181](DZ[173]2)[167]DW$[178]DW$[170]"0":[137]7020
  349. 7015 DW$[178]DW$[170]"1"
  350. 7020 DZ[178][181](DZ[173]2):[130]XZ
  351. 7025 [129]XW[178]0[164]7:DU$[178]DU$[170][202](DW$,8[171]XW,1):[130]XW
  352. 7030 DZ[178]0:[142]
  353. 20000 [129]I[178]1[164]16:N(I)[178]0:[130]I
  354. 20005 [129]I[178]1[164]16
  355. 20010 [139][202](X$,I,1)[178]"X"[167]N(I)[178]1
  356. 20040 [130]I
  357. 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
  358. 20043 S6[178]0:S7[178]0
  359. 20050 [137]20123
  360. 20051 S7[178]S7[170]1:[139]S7[177]1[167]S7[178]0
  361. 20052 S6[178]S6[170]1:[139]S6[177]1[167]S6[178]0
  362. 20053 S5[178]S5[170]1:[139]S5[177]1[167]S5[178]0
  363. 20054 S4[178]S4[170]1:[139]S4[177]1[167]S4[178]0
  364. 20055 S3[178]S3[170]1:[139]S3[177]1[167]S3[178]0
  365. 20056 S2[178]S2[170]1:[139]S2[177]1[167]S2[178]0
  366. 20057 S1[178]S1[170]1:[139]S1[177]1[167]S1[178]0
  367. 20058 T9[178]T9[170]1:[139]T9[177]1[167]T9[178]0
  368. 20060 T8[178]T8[170]1:[139]T8[177]1[167]T8[178]0
  369. 20070 T7[178]T7[170]1:[139]T7[177]1[167]T7[178]0
  370. 20080 T6[178]T6[170]1:[139]T6[177]1[167]T6[178]0
  371. 20090 T5[178]T5[170]1:[139]T5[177]1[167]T5[178]0
  372. 20100 T4[178]T4[170]1:[139]T4[177]1[167]T4[178]0
  373. 20110 T3[178]T3[170]1:[139]T3[177]1[167]T3[178]0
  374. 20120 T2[178]T2[170]1:[139]T2[177]1[167]T2[178]0
  375. 20122 T1[178]T1[170]1:[139]T1[177]1[167]T1[178]0
  376. 20123 [139]N(1)[178]0[167]A$[178][202](X$,1,1):[137]20125
  377. 20124 A$[178][196](2[174]S7[171]1):A$[178][202](A$,2,1)
  378. 20125 [139]N(2)[178]0[167]B$[178][202](X$,2,1):[137]20127
  379. 20126 B$[178][196](2[174]S6[171]1):B$[178][202](B$,2,1)
  380. 20127 [139]N(3)[178]0[167]C$[178][202](X$,3,1):[137]20129
  381. 20128 C$[178][196](2[174]S5[171]1):C$[178][202](C$,2,1)
  382. 20129 [139]N(4)[178]0[167]D$[178][202](X$,4,1):[137]20131
  383. 20130 D$[178][196](2[174]S4[171]1):D$[178][202](D$,2,1)
  384. 20131 [139]N(5)[178]0[167]E$[178][202](X$,5,1):[137]20133
  385. 20132 E$[178][196](2[174]S3[171]1):E$[178][202](E$,2,1)
  386. 20133 [139]N(6)[178]0[167]F$[178][202](X$,6,1):[137]20135
  387. 20134 F$[178][196](2[174]S2[171]1):F$[178][202](F$,2,1)
  388. 20135 [139]N(7)[178]0[167]G$[178][202](X$,7,1):[137]20137
  389. 20136 G$[178][196](2[174]S1[171]1):G$[178][202](G$,2,1)
  390. 20137 [139]N(8)[178]0[167]H$[178][202](X$,8,1):[137]20158
  391. 20138 H$[178][196](2[174]T9[171]1):H$[178][202](H$,2,1)
  392. 20158 [139]N(9)[178]0[167]K$[178][202](X$,9,1):[137]20160
  393. 20159 K$[178][196](2[174]T8[171]1):K$[178][202](K$,2,1)
  394. 20160 [139]N(10)[178]0[167]L$[178][202](X$,10,1):[137]20180
  395. 20170 L$[178][196](2[174]T7[171]1):L$[178][202](L$,2,1)
  396. 20180 [139]N(11)[178]0[167]M$[178][202](X$,11,1):[137]20230
  397. 20220 M$[178][196](2[174]T6[171]1):M$[178][202](M$,2,1)
  398. 20230 [139]N(12)[178]0[167]N$[178][202](X$,12,1):[137]20250
  399. 20240 N$[178][196](2[174]T5[171]1):N$[178][202](N$,2,1)
  400. 20250 [139]N(13)[178]0[167]O$[178][202](X$,13,1):[137]20270
  401. 20260 O$[178][196](2[174]T4[171]1):O$[178][202](O$,2,1)
  402. 20270 [139]N(14)[178]0[167]P$[178][202](X$,14,1):[137]20290
  403. 20280 P$[178][196](2[174]T3[171]1):P$[178][202](P$,2,1)
  404. 20290 [139]N(15)[178]0[167]Q$[178][202](X$,15,1):[137]20310
  405. 20300 Q$[178][196](2[174]T2[171]1):Q$[178][202](Q$,2,1)
  406. 20310 [139]N(16)[178]0[167]R$[178][202](X$,16,1):[137]20330
  407. 20320 R$[178][196](2[174]T1[171]1):R$[178][202](R$,2,1)
  408. 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$
  409. 20335 D1$(XW)[178][200](DU$,8):D2$(XW)[178][201](DU$,8)
  410. 20340 [153]"ON";XW:XW[178]XW[170]1
  411. 20350 [139]T1[178]0[175]N(16)[178]1[167]20122
  412. 20360 [139]T2[178]0[175]N(15)[178]1[167]20120
  413. 20370 [139]T3[178]0[175]N(14)[178]1[167]20110
  414. 20380 [139]T4[178]0[175]N(13)[178]1[167]20100
  415. 20390 [139]T5[178]0[175]N(12)[178]1[167]20090
  416. 20410 [139]T6[178]0[175]N(11)[178]1[167]20080
  417. 20420 [139]T7[178]0[175]N(10)[178]1[167]20070
  418. 20430 [139]T8[178]0[175]N(9)[178]1[167]20060
  419. 20440 [139]T9[178]0[175]N(8)[178]1[167]20058
  420. 20450 [139]S1[178]0[175]N(7)[178]1[167]20057
  421. 20460 [139]S2[178]0[175]N(6)[178]1[167]20056
  422. 20470 [139]S3[178]0[175]N(5)[178]1[167]20055
  423. 20480 [139]S4[178]0[175]N(4)[178]1[167]20054
  424. 20490 [139]S5[178]0[175]N(3)[178]1[167]20053
  425. 20495 [139]S6[178]0[175]N(2)[178]1[167]20052
  426. 20500 [139]S7[178]0[175]N(1)[178]1[167]20051
  427. 20600 [142]
  428.