home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 13 / 64er_Magazin_Sonderheft_13_19xx_Markt__Technik_de_Side_A.d64 / ic-tester (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  10.1 KB  |  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.