home *** CD-ROM | disk | FTP | other *** search
/ Deathday Collection / dday.bin / menus / pwaddr10 / install.ex < prev    next >
Text File  |  1994-09-25  |  8KB  |  454 lines
  1.     
  2. îB=1,
  3. C=2,
  4. D=3,
  5. E=4,
  6. F=5,
  7. G=6,
  8. H=7,
  9. I=8,
  10. J=9,
  11. K=10,
  12. L=11,
  13. M=12,
  14. N=13,
  15. O=18,
  16. P=21
  17. ïQ(¡R)
  18. ç(R>=-3ÄR<=19)Å(R>=256ÄR<=261)
  19. éï
  20. ïR(¡S)
  21. çS>=0ÄS<=255
  22. éï
  23. ïS(¡T)
  24. çT=0ÅT=1
  25. éï
  26. ïT(¡U)
  27. çU>=1
  28. éï
  29. ïU(«V)
  30. ç½(V)=2
  31. éï
  32. ïV(«W)
  33. ç½(W)>=2
  34. éï
  35. ÆäW(R X,V Y)
  36. ╨(C,{X,0,Y})
  37. éä
  38. ÆäX(R Y,
  39. S Z,
  40. V a)
  41. ╨(L,{Y,Z,a})
  42. éä
  43. ÆäY(R Z,S a,U b,U c)
  44. ╨(O,{Z,a,b,c})
  45. éä
  46. ÆäZ(R a,U b)
  47. ╨(E,{a,b})
  48. éä
  49. Ææc(U a)
  50. ç╧(P,a)
  51. éæ
  52. Ææb(Q a)
  53. ç╧(F,a)
  54. éæ
  55. Æîa=1,
  56. d=2,
  57. e=3,
  58. f=4,
  59. g=5,
  60. h=6,
  61. i=7
  62. Ææj()
  63. ç╧(N,0)
  64. éæ
  65. Æîk=8192,
  66. l=1543,
  67. m=7,
  68. n=1031
  69. Æäo(¡p)
  70. ╨(G,p)
  71. éä
  72. Ææp(T q)
  73. ç╧(M,q)
  74. éæ
  75. Æäq(S r)
  76. ╨(H,r)
  77. éä
  78. Æär(¡s)
  79. ╨(I,s)
  80. éä
  81. Æäs(R t)
  82. ╨(J,t)
  83. éä
  84. Æät(R u)
  85. ╨(K,u)
  86. éä
  87. ïu(«v)
  88. ç½(v)=3 
  89. éï
  90. Ææv(R w,u x)
  91. ç╧(D,{w,x})
  92. éæ
  93. ïw(¡x)
  94. çx>=0
  95. éï
  96. Æäx(w y)
  97. ╨(B,y)
  98. éä
  99. îy=19,
  100. z=20,
  101. BA=22,
  102. BB=23
  103. ïBC(¡BD)
  104. çBD>=0
  105. éï
  106. ïBD(¡BE)
  107. çBE>=-1
  108. éï
  109. ÆæBE(BC BF,BD BG)
  110. ç╧(y,{BF,BG})
  111. éæ
  112. ÆæBF(BC BG)
  113. ç╧(z,BG)
  114. éæ
  115. Æî
  116. BG=1,
  117. BH=2,
  118. BI=3,
  119. BJ=4,
  120. BK=5,
  121. BL=6,
  122. BM=7,
  123. BN=8,
  124. BO=9
  125. ÆæBP(«BQ)
  126. ç╧(BA,BQ)
  127. éæ
  128. ÆæBQ()
  129. ç╧(BB,0)
  130. éæ
  131. ¡BR,BS
  132. «BT
  133. äBU(¡BV,¡BW)
  134. s(BV)
  135. t(BW)
  136. éä
  137. äBV()
  138. BU(14,0)
  139. ╡()
  140. BU(14,1)
  141. ¼(1,{
  142. 32,86,101,114,115,105,111,110,32,49,46,48,32,32,32,32,32,32,32,32,
  143. 32,32,32,32,32,32,32,32,32,32,32})
  144. ¼(1,{
  145. 80,87,65,68,68,69,82,32,73,110,115,116,97,108,108,97,116,105,111,110,
  146. 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,77,
  147. 97,71,32,49,57,57,52,32,10,10})
  148. BU(14,0)
  149. éä
  150. æBW(«BX,«BY)
  151. ¡BZ
  152. «Ba,Bb,Bc,Bd,BT
  153. o(8192)
  154. BT={
  155. 112,97,116,104,32,110,111,116,32,102,111,117,110,100}
  156. BZ=0
  157. Ba={}
  158. Bb={}
  159. Bc={}
  160. Bd={}
  161. Bd=▒(Bd,{
  162. 48})
  163. »(5,1)
  164. ┤(1,{
  165. 83,101,97,114,99,104,105,110,103,32,37,115,58,32},BX)
  166. Ba=BP(BX&{
  167. 58,92})
  168. åBe=1ì½(Ba)ê
  169. ü╜(Ba[Be][1],BY)=0â
  170. BT=BX&{
  171. 58,92}&BY
  172. BZ=1
  173. É
  174. éü
  175. üö╝(BP(BX&{
  176. 58,92}&Ba[Be][1]))â
  177. ü╜(Ba[Be][2],{
  178. 100})=0â
  179. »(5,11)
  180. ┤(1,{
  181. 37,115,58,92,37,115,32,32,32,32,32,32,32,32,32,32,32,32,32,
  182. 32,32,32,32,32},{BX,Ba[Be][1]})
  183. Bb=BP(BX&{
  184. 58,92}&Ba[Be][1])
  185. åBf=1ì½(Bb)ê
  186. ü╜(Bb[Bf][1],BY)=0â
  187. BT=BX&{
  188. 58,92}&Ba[Be][1]&{
  189. 92}&BY
  190. BZ=1
  191. É
  192. éü
  193. üö┐({
  194. 46},Bb[Bf][1])â
  195. üö╝(BP(BX&{
  196. 58,92}&Ba[Be][1]&{
  197. 92}&
  198. Bb[Bf][1]))â
  199. ü╜(Bb[Bf][2],{
  200. 100})=0â
  201. »(5,11)
  202. ┤(1,{
  203. 37,115,58,92,37,115,92,37,115,32,32,32,32,32,32,32,32,32,
  204. 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
  205. 32,32,32,32,32,32,32},
  206. {BX,Ba[Be][1],Bb[Bf][1]})
  207. Bc=BP(BX&{
  208. 58,92}&Ba[Be][1]&{
  209. 92}&
  210. Bb[Bf][1])
  211. åBg=1ì½(Bc)ê
  212. ü╜(Bc[Bg][1],BY)=0â
  213. BT=BX&{
  214. 58,92}&Ba[Be][1]&{
  215. 92}&Bb[Bf][1]&
  216. {
  217. 92}&BY
  218. BZ=1
  219. É
  220. éü
  221. üö┐({
  222. 46},Bc[Bg][1])â
  223. üö╝(BP(BX&{
  224. 58,92}&Ba[Be][1]&{
  225. 92}&
  226. Bb[Bf][1]&{
  227. 92}&Bc[Bg][1]))â
  228. ü╜(Bc[Bg][2],{
  229. 100})=0â
  230. »(5,11)
  231. ┤(1,{
  232. 37,115,58,92,37,115,92,37,115,92,37,115,32,32,32,32,32,
  233. 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32},
  234. {BX,Ba[Be][1],Bb[Bf][1],Bc[Bg][1]})
  235. Bd=BP(BX&{
  236. 58,92}&Ba[Be][1]&{
  237. 92}&
  238. Bb[Bf][1]&{
  239. 92}&Bc[Bg][1])
  240. éü
  241. éü
  242. éü
  243. üBZâ
  244. É
  245. éü
  246. éå
  247. éü
  248. éü
  249. éü
  250. üBZâ
  251. É
  252. éü
  253. éå
  254. éü
  255. éü
  256. üBZâ
  257. É
  258. éü
  259. éå
  260. BZ=1
  261. ü╜(BT,{
  262. 112,97,116,104,32,110,111,116,32,102,111,117,110,100})!=0â
  263. BU(11,0)
  264. »(3,1)
  265. ┤(1,{
  266. 70,111,117,110,100,32,37,115,32,32,32,32,32,32,32,32,32,32,32,32,
  267. 32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,
  268. 10,10},{BT})
  269. BU(14,0)
  270. éü
  271. o(1543)
  272. çBT
  273. éæ
  274. äBX()
  275. ╡()
  276. BV()
  277. ¼(1,{
  278. 73,78,83,84,65,76,76,65,84,73,79,78,32,70,65,73,76,69,68,32,
  279. 33,33,10,10,10})
  280. ¼(1,{
  281. 65,32,114,101,103,105,115,116,101,114,101,100,32,118,101,114,115,105,111,110,
  282. 32,111,102,32,68,79,79,77,32,99,111,117,108,100,32,110,111,116,32,98,
  283. 101,32,102,111,117,110,100,46})
  284. ¼(1,{
  285. 10,10,80,87,65,68,68,69,82,32,105,115,32,111,102,32,110,111,
  286. 32,117,115,101,32,116,111,32,121,111,117,32,105,102,32,121,111,117,32,100,
  287. 111,110,39,116,32,111,119,110,32,68,79,79,77,46,10,10})
  288. ¼(1,{
  289. 73,102,32,121,111,117,32,109,97,100,101,32,97,32,109,105,115,116,97,107,
  290. 101,32,116,104,97,116,39,115,32,111,107,97,121,46,32,74,117,115,116,32,
  291. 116,121,112,101,32,32})
  292. BU(11,0)
  293. ¼(1,{
  294. 105,110,115,116,97,108,108,32,32})
  295. BU(14,0)
  296. ¼(1,{
  297. 97,103,97,105,110,46,10,10,10})
  298. ╤(0)
  299. éä
  300. üb(3)â
  301. üb(2)â
  302. üb(7)â
  303. ¼(1,{
  304. 67,97,110,39,116,32,115,101,116,32,103,114,97,112,104,105,99,115,32,97,
  305. 100,97,112,116,111,114,32,116,111,32,56,48,120,50,53,32,116,101,120,116,
  306. 32,109,111,100,101,46})
  307. ╤(0)
  308. éü
  309. éü
  310. éü
  311. BV()
  312. BU(14,0)
  313. ü╝(BP({
  314. 99,58,92,100,111,111,109}))â
  315. BU(10,0)
  316. ¼(1,{
  317. 76,111,111,107,105,110,103,32,102,111,114,32,68,79,79,77,32,111,110,32,
  318. 100,114,105,118,101,32,67,58})
  319. BU(14,0)
  320. BT=BW({
  321. 67},{
  322. 68,79,79,77})
  323. à
  324. BT={
  325. 67,58,92,68,79,79,77}
  326. éü
  327. ü╜(BT,{
  328. 112,97,116,104,32,110,111,116,32,102,111,117,110,100})=0Å╝(BP(BT&{
  329. 92,100,111,111,109,46,119,97,100}))â
  330. »(5,1)
  331. ¼(1,{
  332. 67,111,117,108,100,32,110,111,116,32,102,105,110,100,32,97,32,114,101,103,
  333. 105,115,116,101,114,101,100,32,118,101,114,115,105,111,110,32,111,102,32,68,
  334. 79,79,77,32,111,110,32,100,114,105,118,101,32,67,58,46})
  335. ¼(1,{
  336. 10,10,73,115,32,105,116,32,111,110,32,97,110,111,116,104,101,114,
  337. 32,100,114,105,118,101,32,63,32,32,89,47,78,32})
  338. BR=-1
  339. èBR=-1ê
  340. BR=╣()
  341. éè
  342. ¼(1,{BR})
  343. üBR=89ÅBR=121â
  344. ┤(1,{
  345. 10,10,37,115},{{
  346. 87,104,105,99,104,32,100,114,105,118,101,32,108,101,116,116,101,114,32,63,
  347. 32}})
  348. BR=-1
  349. èBR=-1ê
  350. BR=╣()
  351. éè
  352. ¼(1,{BR})
  353. üBR>90âBR=BR-32éü
  354. ü╝(BP(BR&{
  355. 58,92,100,111,111,109}))â
  356. ╡()
  357. BV()
  358. BU(10,0)
  359. ┤(1,{
  360. 76,111,111,107,105,110,103,32,102,111,114,32,68,79,79,77,32,111,110,32,
  361. 100,114,105,118,101,32,37,115,58,10,10},BR)
  362. BU(14,0)
  363. BT=BW({BR},{
  364. 68,79,79,77})
  365. à
  366. BT=BR&{
  367. 58,92,68,79,79,77}
  368. éü
  369. ü╜(BT,{
  370. 112,97,116,104,32,110,111,116,32,102,111,117,110,100})=0Å╝(BP(BT&{
  371. 92,100,111,111,109,46,119,97,100}))â
  372. BX()
  373. éü
  374. à
  375. BX()
  376. éü
  377. éü
  378. ╦({
  379. 109,100,32}&BT&{
  380. 92,112,119,97,100},2)
  381. ╦({
  382. 99,111,112,121,32,112,119,97,100,100,101,114,46,101,120,32}&BT,2)
  383. ╦({
  384. 99,111,112,121,32,112,119,97,100,100,101,114,46,98,97,116,32}&BT,2)
  385. ╦({
  386. 99,111,112,121,32,112,119,97,100,100,101,114,46,100,111,99,32}&BT,2)
  387. ╦({
  388. 99,111,112,121,32,112,119,97,100,100,101,114,46,105,110,105,32}&BT,2)
  389. ╦({
  390. 99,111,112,121,32,101,109,112,105,114,101,49,46,119,97,100,32}&BT&{
  391. 92,112,119,97,100},2)
  392. ╦({
  393. 99,111,112,121,32,101,109,112,105,114,101,49,46,116,120,116,32}&BT&{
  394. 92,112,119,97,100},2)
  395. ╦({
  396. 99,111,112,121,32,101,120,46,101,120,101,32}&BT,2)
  397. ╦({
  398. 99,111,112,121,32,100,111,115,52,103,119,46,101,120,101,32}&BT,2)
  399. ╦(BT[1..2],2)
  400. ╦({
  401. 99,100,32}&BT,2)
  402. BS=┬(BT&{
  403. 92,112,119,97,100,100,101,114,46,105,110,105},{
  404. 119})
  405. ¼(BS,{
  406. 68,79,79,77,32,80,97,116,104,32,61,32}&BT&{
  407. 10})
  408. ¼(BS,{
  409. 80,87,65,68,32,80,97,116,104,32,61,32}&BT&{
  410. 92,80,87,65,68,10})
  411. ¼(BS,{
  412. 32,32,32,32,83,107,105,108,108,32,61,32,51,10})
  413. ├(BS)
  414. ╡()
  415. BV()
  416. BU(14,0)
  417. ¼(1,{
  418. 32,73,110,115,116,97,108,108,97,116,105,111,110,32,99,111,109,112,108,101,
  419. 116,101,46,10,10})
  420. BU(11,0)
  421. ¼(1,{
  422. 32,87,104,101,110,32,121,111,117,32,115,116,97,114,116,32,80,87,65,68,
  423. 68,69,82,44,32,99,108,105,99,107,32,111,110,32,32})
  424. BU(13,0)
  425. ¼(1,{
  426. 82,69,65,68,32,68,79,67})
  427. BU(11,0)
  428. ¼(1,{
  429. 32,32,44,32,116,104,101,110,32,112,105,99,107,32,32})
  430. BU(15,0)
  431. ¼(1,{
  432. 65,98,111,117,116})
  433. BU(11,0)
  434. ¼(1,{
  435. 32,32,102,114,111,109,10,32,32,32,32,116,104,101,32,109,101,110,117,
  436. 32,98,97,114,46,32,84,104,105,115,32,119,105,108,108,32,108,101,116,32,
  437. 121,111,117,32,114,101,97,100,32,116,104,101,32,100,111,99,117,109,101,110,
  438. 116,97,116,105,111,110,46,10,10})
  439. BU(12,0)
  440. ¼(1,{
  441. 32,73,77,80,79,82,84,65,78,84,32,78,79,84,69,32,33,33,46,46,
  442. 46,32,72,97,118,101,32,70,117,110,33,32,40,97,110,100,32,112,108,101,
  443. 97,115,101,32,114,101,103,105,115,116,101,114,41,10,10})
  444. BU(14,0)
  445. ¼(1,{
  446. 32,69,110,111,117,103,104,32,114,101,97,100,105,110,103,46,32,84,121,112,
  447. 101})
  448. BU(10,0)
  449. ¼(1,{
  450. 32,32,32,80,87,65,68,68,69,82})
  451. BU(14,0)
  452. ¼(1,{
  453. 32,32,32,116,111,32,115,116,97,114,116,46,10,10,10,10})
  454.