home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / EBASIC.ZIP / BLKFRI2.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-01-11  |  9.8 KB  |  281 lines
  1. ÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷ NEXT J: NEXT I
  2. 107 FOR I=1 TO 11: FOR J=1 TO 9: READ E(I,J): NEXT J: NEXT I
  3. 111 FOR N=1 TO 10
  4. 112 READ K(N)
  5. 113 NEXT N
  6. 115 V$="HIBXP SP ODMRD SO BT KA ZE BPL"
  7. 120 Y$="$5  $1  NONE$4  $7  NONENONE$2  $6  $3  "
  8. 130 REM
  9. 140 REM   DATA TO SIMULATE REAL LIFE STOCK MARKET
  10. 150 REM
  11. 160 DATA 1,0,0,0,0,0,0,0,0,5,0,0
  12. 170 DATA 0,0,0,0,0,0,-25,0,0,0,0,0
  13. 180 DATA 1,0,0,0,0,0,0,15,0,0,0,0
  14. 190 DATA 0,0,0,0,-5,0,0,0,0,0,0,0
  15. 200 DATA 1,0,0,0,0,0,0,0,0,5,0,0
  16. 210 DATA 0,0,0,0,0,0,5,0,0,0,0,0
  17. 220 DATA 1,0,0,0,0,0,10,0,0,0,0,0
  18. 230 DATA 0,0,10,0,0,0,0,0,0,0,0,0
  19. 240 DATA 1,0,0,0,0,0,15,0,0,0,0,0
  20. 250 DATA 0,0,-5,0,0,0,0,0,0,0,0,0
  21. 260 DATA 1,8,5,5,0,0,0,7,0,0,0,0
  22. 270 DATA 0,0,0,0,0,0,0,0,-25,0,0,0
  23. 280 DATA 1,0,0,0,0,0,0,0,10,0,0,0
  24. 290 DATA 0,0,-10,0,0,0,0,0,0,0,0,0
  25. 300 DATA 1,0,5,0,0,0,0,0,0,0,0,0
  26. 310 DATA 0,10,0,0,0,0,0,0,0,0,1,0
  27. 320 DATA 1,0,0,0,0,17,0,0,0,0,0,0
  28. 330 DATA 0,0,0,0,0,-15,0,0,0,0,0,0
  29. 340 DATA 1,0,0,0,0,0,0,0,10,0,0,0
  30. 350 DATA 0,0,0,0,0,0,0,-15,0,0,0,0
  31. 360 DATA 1,0,0,0,0,0,0,10,0,0,0,0
  32. 370 DATA 0,0,0,0,0,0,0,-15,0,0,0,0
  33. 380 DATA 1,0,0,-8,0,8,0,0,5,0,0,0
  34. 390 DATA 0,-10,0,0,0,0,0,0,0,0,0,0
  35. 400 DATA 1,8,0,0,0,0,0,0,0,0,0,0
  36. 410 DATA 0,0,0,0,0,0,0,-10,0,0,0,0
  37. 420 DATA 1,0,0,3,0,0,0,0,0,4,0,0
  38. 430 DATA 0,-8,0,0,0,0,0,0,0,0,0,0
  39. 440 DATA 1,0,0,0,5,0,0,0,0,0,0,0
  40. 450 DATA 0,0,0,0,0,-10,0,0,0,0,0,0
  41. 460 DATA 1,0,0,0,0,0,0,10,0,0,0,0
  42. 470 DATA 0,-8,-5,0,0,0,0,-7,0,0,0,0
  43. 480 DATA 1,10,0,0,0,0,0,0,0,0,0,0
  44. 490 DATA 0,0,0,0,0,0,0,0,0,-14,0,0
  45. 500 DATA 1,-10,0,0,0,0,0,0,0,0,0,0
  46. 510 DATA 0,0,0,0,0,0,-5,0,0,0,0,0
  47. 520 DATA -2,-10,7,-9,-2,-9,-7,-16,-4
  48. 530 DATA 26,16,25,8,-14,21,14,-4,17
  49. 540 DATA 18,23,11,12,46,18,-5,34,15
  50. 550 DATA 23,28,-2,11,56,19,30,29,14
  51. 560 DATA 20,15,15,7,-20,15,13,-10,12
  52. 570 DATA 17,21,13,-2,37,23,23,19,14
  53. 580 DATA 19,24,17,9,-5,26,13,-7,15
  54. 590 DATA 11,18,14,11,67,15,22,18,13
  55. 600 DATA 13,31,1,14,-11,18,18,-14,10
  56. 610 DATA 14,-8,19,1,-9,25,-10,13,19
  57. 620 DATA 24,24,23,20,51,27,38,33,18
  58. 630 DATA 12,14,13,10,10,20,21,25,8
  59. 640 DATA 7,-6,10,-10,30,6,-19,22,-2
  60. 650 DATA 9,10,7,-5,-20,12,21,18,7
  61. 660 DATA 7,8,5,-6,-40,3,16,-14,4
  62. 670 DATA 8,6,4,-4,40,8,4,-12,3
  63. 680 DATA 6,4,3,3,-15,5,8,-8,5
  64. 690 DATA 5,7,-1,-3,45,6,-10,10,4
  65. 700 DATA -2,6,-3,-8,-20,7,10,14,6
  66. 710 DATA 11,11,-5,-7,30,10,-11,-18,-4
  67. 720 DATA -5,13,-8,6,25,4,18,-22,-4
  68. 730 DATA -8,-10,-10,-15,-20,-20,-23,-25,-7
  69. 740 DATA 5,1,0,4,7,0,0,2,6,3
  70. 750 REM
  71. 760 REM   SECURITY NAMES
  72. 770 REM
  73. 780 A$="HIGHWAY IMPROVEMENT BONDS"
  74. 790 B$="X-PANDO CORPORATION"
  75. 800 C$="SEASIDE PROPERTIES INC."
  76. 810 D$="OLD DOG MUTUAL FUND"
  77. 820 E$="RUBBLE DEVELOPMENT"
  78. 830 F$="SLIPPERY OIL COMPANY"
  79. 840 G$="BUMPY TRANSPORT CO."
  80. 850 H$="KRASH AUTO COMPANY"
  81. 860 I$="ZAP ELECTRONICS   "
  82. 870 J$="BLINKEY POWER & LIGHT CO."
  83. 880 REM
  84. 970 REM
  85. 980 PRINT "WANT INSTRUCTIONS";
  86. 990 INPUT R$
  87. 995 RANDOMIZE
  88. 1000 IF LEFT$(R$,1)="N" THEN 1280
  89. 1010 IF LEFT$(R$,1)<>"Y" THEN 990
  90. 1020 PRINT
  91. 1030 PRINT "THE MAIN OBJECT OF BLACK FRIDAY IS TO SHREWDLY INVEST $5000"
  92. 1040PRINT"IN THE GAME'S 10 SECURITIES, BUYING AND SELLING EACH YEAR FOR"
  93. 1050PRINT"A MAXIMUM OF 10 YEARS (ROUNDS) IN AN ATTEMPT TO BECOME"
  94. 1060PRINT"THE WEALTHIEST PLAYER."
  95. 1070PRINT
  96. 1080PRINT"EACH YEAR ALL PLAYERS WILL RECEIVE DIVIDENDS ON EVERY PAYING"
  97. 1090PRINT"STOCK WHICH IS WORTH $50 OR MORE.  THEN EACH PLAYER WILL"
  98. 1100PRINT"GET A CHANCE TO SELL ANY STOCKS HE OWNS OR BUY ANY STOCKS"
  99. 1110PRINT"HE WISHES.  AT THE END OF THE SELECTED NUMBER OF YEARS"
  100. 1120PRINT"EACH PLAYER'S NET WORTH WILL BE CALCULATED AND THE WEALTHIEST"
  101. 1130PRINT"PLAYER WINS!"
  102. 1140PRINT
  103. 1150PRINT"IF THE VALUE OF ANY STOCK FALLS TO 0,THAT STOCK GOES BANKRUPT"
  104. 1160PRINT"AND ALL SHARES ARE SURRENDERED.THE VALUE OF THE STOCK IS THEN"
  105. 1170PRINT"ESTABLISHED AT $100. IF THE VALUE OF ANY STOCK REACHES $150,"
  106. 1180PRINT"THERE WILL BE A STOCK SPLIT.ANY PLAYERS OWNING SHARES OF THAT"
  107. 1190PRINT"STOCK WILL RECEIVE THE EXTRA SHARES. THE VALUE OF THE STOCK"
  108. 1200PRINT"IS HALVED (ROUNDED UP TO THE NEXT HIGHEST DOLLAR)."
  109. 1210PRINT
  110. 1220PRINT"A TABLE WILL BE PRINTED EACH YEAR GIVING THE CHANGE IN VALUE"
  111. 1230PRINT"OF EACH STOCK, THE PRESENT PRICE, AND THE NUMBER OF SHARES"
  112. 1240PRINT"EACH PLAYER OWNS OF EVERY STOCK. ALSO, ANY DIVIDENDS RECEIVED"
  113. 1250PRINT"FOR THE YEAR WILL BE SHOWN ALONG WITH EACH PLAYERS TOTAL CASH"
  114. 1260PRINT
  115. 1270PRINT"******GOOD LUCK TO EVERYONE!******"
  116. 1280PRINT
  117. 1290PRINT"AVAILABLE SECURITIES, ABBREVIATION, DIVIDENDS PER SHARE"
  118. 1300PRINT
  119. 1310 FOR N=1 TO 10
  120. 1320 GOSUB 4000
  121. 1325 PRINT S$,MID$(V$,3*N-2,3),MID$(Y$,4*N-3,4)
  122. 1330 NEXT N
  123. 1340 PRINT
  124. 1350 PRINT "NUMBER OF PLAYERS (1 TO 4)=";
  125. 1360 INPUT P
  126. 1370 IF P>4 THEN 1360
  127. 1380 IF P<=0 THEN 1360
  128. 1390 FOR I=1 TO 4: FOR J=1 TO 12: M(I,J)=0: NEXT J: NEXT I
  129. 1400 PRINT
  130. 1410 PRINT "NUMBER OF YEARS (3 TO 10)=";
  131. 1420 INPUT S
  132. 1430 IF S<3 THEN 1420
  133. 1440 IF S>10 THEN 1420
  134. 1450 FOR I=1 TO 9: F(I)=0: NEXT I
  135. 1460 FOR N=1 TO P
  136. 1470 M(N,1)=5000
  137. 1480 NEXT N
  138. 1490 FOR I=1 TO 10: T(I)=100: NEXT I
  139. 1510 Y=0
  140. 1520 REM
  141. 1530 REM
  142. 1540 REM   FIND MARKET CHANGES FOR NEXT ROUND,SEE IF BULL OR BEAR MARKET
  143. 1550 REM
  144. 1560 D=INT(RND*11+1)
  145. 1570 C=INT(RND*36+1)
  146. 1580 IF A(C,12)=1 THEN 1570
  147. 1590 A(C,12)=1
  148. 1600 FOR N=2 TO 10
  149. 1605 GOSUB 4000
  150. 1610 IF A(C,1)=1 THEN 1660
  151. 1620 W$="BEAR"
  152. 1630 F(N-1)=A(C,N)+E(D,N-1)
  153. 1640 T(N)=T(N)+F(N-1)
  154. 1650 GOTO 1720
  155. 1660 F(N-1)=A(C,N)+U(D,N-1)
  156. 1670 W$="BULL"
  157. 1680 T(N)=T(N)+F(N-1)
  158. 1690 REM
  159. 1700 REM   CHECK FOR STOCK SPLITS
  160. 1710 REM
  161. 1720 IF T(N)<150 THEN 1840
  162. 1725 PRINT
  163. 1730 PRINT "*** "+S$+" STOCKS SPLIT ***"
  164. 1740 IF T(N)/2=INT(T(N)/2) THEN 1770
  165. 1750 T(N)=INT(T(N)/2)+1
  166. 1760 GOTO 1780
  167. 1770 T(N)=T(N)/2
  168. 1780 FOR J=1 TO P
  169. 1790 M(J,N+1)=M(J,N+1)*2
  170. 1800 NEXT J
  171. 1810 REM
  172. 1820 REM   CHECK FOR BANKRUPT STOCKS
  173. 1830 REM
  174. 1840 IF T(N)>0 THEN 1910
  175. 1850 T(N)=100
  176. 1860 FOR J=1 TO P
  177. 1870 M(J,N+1)=0
  178. 1880 NEXT J
  179. 1890 PRINT "*** "+S$+" WENT BANKRUPT ***"
  180. 1900 PRINT "THESE STOCKS MUST BE SURRENDERED"
  181. 1910 NEXT N
  182. 1920 Y=Y+1
  183. 1930 REM
  184. 1940 REM   ADD EACH PLAYERS DIVIDENDS TO TOTAL CASH
  185. 1950 REM
  186. 1960 FOR N=1 TO P
  187. 1970 M(N,12)=0
  188. 1980 FOR J=1 TO 10
  189. 1990 IF T(J)<50 THEN 2010
  190. 2000 M(N,12)=M(N,12)+K(J)*M(N,J+1)
  191. 2010 NEXT J
  192. 2020 IF A(C,11)=0 THEN 2050
  193. 2030 M(N,12)=M(N,12)+M(N,3)*2
  194. 2040 PRINT "*** X-PANDO CORP. PAYS $2 DIVIDENDS PER SHARE ***"
  195. 2050 M(N,1)=M(N,1)+M(N,12)
  196. 2060 NEXT N
  197. 2070 REM
  198. 2080 REM
  199. 2090 REM   PRINT WHAT HAPPENED & CURRENT VALUES
  200. 2100 REM
  201. 2120 PRINT "*** YEAR ";Y;"*** "+W$+" MARKET ***"
  202. 2130 PRINT
  203. 2140 PRINT TAB(23);"PLAYER HOLDINGS    YEAR ";Y
  204. 2150 PRINT
  205. 2160 PRINT TAB(6);" +/-$    PRICE";
  206. 2170 FOR N=1 TO P
  207. 2180 PRINT TAB(18+8*N);N;
  208. 2190 NEXT N
  209. 2200 PRINT
  210. 2210 PRINT
  211. 2220 PRINT LEFT$(V$,3);TAB(7);"0";TAB(15);"100";
  212. 2230 FOR N=1 TO P
  213. 2240 PRINT TAB(18+8*N);M(N,2);
  214. 2250 NEXT N
  215. 2260 PRINT
  216. 2270 FOR N=1 TO 9
  217. 2280 PRINT MID$(V$,3*N+1,3);TAB(7);F(N);TAB(15);T(N+1);
  218. 2310 FOR J=1 TO P
  219. 2320 PRINT TAB(18+8*J);M(J,N+2);
  220. 2330 NEXT J
  221. 2340 PRINT
  222. 2350 NEXT N
  223. 2360 PRINT
  224. 2370 PRINT "DIVIDENDS FOR YEAR";
  225. 2380 FOR N=1 TO P
  226. 2390 PRINT TAB(18+8*N);M(N,12);
  227. 2400 NEXT N
  228. 2410 PRINT
  229. 2420 PRINT
  230. 2430 PRINT "NEW CASH TOTAL";
  231. 2440 FOR N=1 TO P
  232. 2450 PRINT TAB(18+8*N);M(N,1);
  233. 2460 NEXT N
  234. 2470 PRINT
  235. 2471 PRINT
  236. 2472 PRINT "NEW NET WORTH ";
  237. 2473 GOSUB 4500
  238. 2474 FOR N=1 TO P
  239. 2475 PRINT TAB(18+8*N);X(N);
  240. 2476 NEXT N
  241. 2480 IF Y=S THEN 2990
  242. 2490 REM
  243. 2500 REM
  244. 2510 REM   CHECK IF ANYONE WANTS TO SELL OR BUY ANYTHING
  245. 2520 REM
  246. 2530 FOR N=1 TO P
  247. 2540 PRINT
  248. 2550 PRINT "***  PLAYER ";N;" ***"
  249. 2560 PRINT
  250. 2570 PRINT "YOU NOW HAVE $";M(N,1)
  251. 2580 FOR J=1 TO 10
  252. 2590 IF M(N,J+1)<>0 THEN 2620
  253. 2600 NEXT J
  254. 2610 GOTO 2770
  255. 2620 PRINT "WANT TO SELL";
  256. 2630 INPUT R$
  257. 2640 IF R$="N" THEN 2760
  258. 2650 IF R$<>"Y" THEN 2630
  259. 2660 GOSUB 3160
  260. 2670 PRINT "NUMBER OF SHARES";
  261. 2680 INPUT R
  262. 2690 IF R<=M(N,J+1) THEN 2720
  263. 2700 PRINT "*** YOU ONLY HAVE ";M(N,J+1);" SHARES ***"
  264. 2710 GOTO 2670
  265. 2720 PRINT
  266. 2730 M(N,J+1)=M(N,J+1)-R
  267. 2740 M(N,1)=M(N,1)+R*T(J)
  268. 2750 GOTO 2560
  269. 2760 PRINT
  270. 2770 FOR J=1 TO 10
  271. 2780 IF M(N,1)>T(J) THEN 2810
  272. 2790 NEXT J
  273. 2800 GOTO 2950
  274. 2810 PRINT "WANT TO BUY";
  275. 2820 INPUT R$
  276. 2830 IF R$="N" THEN 2950
  277. 2840 IF R$<>"Y" THEN 2820
  278. 2850 GOSUB 3160
  279. 2860 PRINT "NUMBER OF SHARES";
  280. 2870 INPUT R
  281. 2880 IF R*T(J)<=M(N,1) THE÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷÷