home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / GAMES.ARC / V-GAME.PROGRAM (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  20.4 KB  |  415 lines
  1. 1 REM  ** VENTURE - MARK REJHON '86 **         MODIFIED IN 1990, WITHOUT CHANGE
  2. 2 REM  IN PROGRAM ACTION, TO BECOME            COMPATIBLE WITH A COMPILER.
  3. 3 REM
  4. 10 PRINT"[147]":FORA=0TO2250:NEXT:IFPEEK(679)=120THENSYS679
  5. 12 DEF FNL(X)=INT((PEEK(V)-12)/8+INT((PEEK(V+1)-48)/8)*40+PEEK(V+16)*32+SS+120)
  6. 14 DEF FNG(X)=PEEK(L-40)
  7. 16 DEF FNF(X)=PEEK(L-120)
  8. 20 X=114:Y=79:Z=116
  9. 24 SS=49152:SP=SS+1016:SE=57344:CH=INT(SS/1024)*4:V=53248:DE=50:O=55296-SS
  10. 26 A0=16384:VI=(SS-INT(SS/A0)*A0)/64+(SE-INT(SE/A0)*A0)/1024
  11. 28 POKE56578,PEEK(56578)OR3:POKE56576,PEEK(56576)AND252
  12. 30 S0=16+(SE-INT(SE/A0)*A0)/64:S1=S0+1:S2=S0+2:S3=S0+3
  13. 32 POKEV+24,VI:POKE648,CH
  14. 35 PRINT"[147][142]":POKEV+33,0:POKEV+32,12:POKEV+21,0:POKESP,S0
  15. 40 POKEV+39,1:POKEV+23,0:POKEV+29,0:POKEV+28,0:POKEV+16,0:POKEV+17,27
  16. 45 POKEV+22,200:POKEV+27,0:XX=71:YY=190:POKEV,XX:POKEV+1,YY
  17. 50 P=1:GOSUB10050
  18. 55 GOTO95
  19. 65 A=FNG(.):B=FNF(.):IFA<>XANDB<>XANDA<>YANDB<>YANDA<>ZANDB<>ZTHEN105
  20. 67 IFA=XTHENPOKEL-40,PEEK(L-41):POKEO+L-40,PEEK(O+L-41):W=1:GOTO80
  21. 68 IFB=XTHENPOKEL-120,PEEK(L-121):POKEO+L-120,PEEK(O+L-121):W=1:GOTO80
  22. 69 IFA=YTHENPOKEL-40,PEEK(L-41):POKEO+L-40,PEEK(O+L-41):W=2:GOTO80
  23. 70 IFB=YTHENPOKEL-120,PEEK(L-121):POKEO+L-120,PEEK(O+L-121):W=2:GOTO80
  24. 71 IFA=ZTHENPOKEL-40,PEEK(L-41):POKEO+L-40,PEEK(O+L-41):W=3:GOTO80
  25. 72 IFB=ZTHENPOKEL-120,PEEK(L-121):POKEO+L-120,PEEK(O+L-121):W=3:GOTO80
  26. 75 GOTO105
  27. 80 GOSUB5200:GOTO105
  28. 95 L=FNL(.):IFPEEK(L)<128THEN5010
  29. 105 E=NOTPEEK(56320)AND31:D=EAND15
  30. 107 IFE=4THENIFXX>15ANDPEEK(L-41)>127ANDPEEK(L-81)<128THEN5100
  31. 110 IFE=8THENIFXX<327ANDPEEK(L-39)>127ANDPEEK(L-79)<128THEN5100
  32. 113 IFD=1ORD=2THEN65
  33. 115 IFE=4THENF=S2:T=-4:GOTO5026
  34. 117 IFE=8THENF=S0:T=4:GOTO5026
  35. 125 IFE=20THENF=S3:T=-4:GOTO5140
  36. 130 IFE=24THENF=S1:T=4:GOTO5140
  37. 200 GOTO105
  38. 5010 YY=YY+4:POKEV+1,YY:FORA=1TO50:NEXT:YY=YY+4:POKEV+1,YY:L=FNL(.)
  39. 5015 IFYY>220THENNE=2:GOSUB10000:L=FNL(.)
  40. 5020 IFPEEK(L)<128THEN5010
  41. 5025 GOTO95
  42. 5026 IFT<>4THEN5029
  43. 5027 IFXX>326THENNE=4:GOSUB10000:GOTO5032
  44. 5028 IFPEEK(L-39)>127THENGOTO95
  45. 5029 IFT<>-4THEN5032
  46. 5030 IFXX<16THENNE=3:GOSUB10000:GOTO5032
  47. 5031 IFPEEK(L-41)>127THENGOTO95
  48. 5032 XX=XX+T:POKESP,F+1:POKEV,XXAND255:POKEV+16,XX/256
  49. 5034 FORA=1TODE:NEXT:XX=XX+T:POKESP,F
  50. 5036 POKEV,XXAND255:POKEV+16,XX/256
  51. 5038 IFNOTPEEK(56320)AND31=ETHEN5026
  52. 5039 GOTO95
  53. 5100 IFD=4THENT=-4:F=S2:GOTO5110
  54. 5105 IFD=8THENT=4:F=S0
  55. 5110 XX=XX+T:POKESP,F+1:YY=YY-8:POKEV+1,YY
  56. 5112 POKEV,XXAND255:POKEV+16,XX/256
  57. 5115 FORA=1TODE:NEXT:XX=XX+T:POKESP,F
  58. 5117 POKEV,XXAND255:POKEV+16,XX/256
  59. 5125 IFYY<40THENNE=1:GOSUB10000
  60. 5130 GOTO95
  61. 5140 POKESP,F:FORA=1TO2:YY=YY-4:POKEV+1,YY:FORAA=1TODE:NEXT:YY=YY-4:POKEV+1,YY
  62. 5145 IFYY<40THENNE=1:GOSUB10000
  63. 5150 FORAA=1TODE:NEXT:NEXT
  64. 5155 FORA=1TO4
  65. 5156 L=FNL(.):IFPEEK((L-40)+T/4)>127THENA=4:GOTO5167
  66. 5157 IFT=-4ANDXX<16THENNE=3:GOSUB10000:GOTO5156
  67. 5158 IFT=4ANDXX>326THENNE=4:GOSUB10000:GOTO5156
  68. 5161 XX=XX+T:POKEV,XXAND255:POKEV+16,XX/256:FORAA=1TODE:NEXT
  69. 5163 XX=XX+T:POKEV,XXAND255:POKEV+16,XX/256
  70. 5164 L=FNL(.):IFPEEK(L)>127THEN5170
  71. 5167 NEXT
  72. 5170 POKESP,F-1:GOTO95
  73. 5200 I(W)=I(W)+1
  74. 5210 PRINT"":PRINT"[154]     [178][146] ="I(1)"[157] [150]   [207][146] ="I(2)"[157] [153]   [180][146] ="I(3):RETURN
  75. 10000 POKEV+21,0:PRINT
  76. 10010 IFNE=1THENYY=214:POKEV+1,YY:P=P-10:GOTO10050
  77. 10015 IFNE=2THENYY=46:POKEV+1,YY:P=P+10:GOTO10050
  78. 10020 IFNE=3THENXX=335:POKEV+16,XX/256:POKEV,XXAND255:P=P-1:GOTO10050
  79. 10025 IFNE=4THENXX=7:POKEV+16,XX/256:POKEV,XXAND255:P=P+1:GOTO10050
  80. 10030 RUN
  81. 10050 IFP=9ANDNE=3THENP=18:GOTO10053
  82. 10051 IFP=19ANDNE=4THENP=10
  83. 10053 IFP=1THENGOSUB60000:GOTO10120
  84. 10055 IFP=2THENGOSUB60040:GOTO10120
  85. 10060 IFP=3THENGOSUB60080:GOTO10120
  86. 10065 IFP=5THENGOSUB60496:GOTO10120
  87. 10070 IFP=6THENGOSUB60450:GOTO10120
  88. 10075 IFP=10THENGOSUB60264:GOTO10120
  89. 10080 IFP=11THENGOSUB60218:GOTO10120
  90. 10085 IFP=12THENGOSUB60172:GOTO10120
  91. 10090 IFP=13THENGOSUB60126:GOTO10120
  92. 10095 IFP=14THENGOSUB60588:GOTO10120
  93. 10100 IFP=15THENGOSUB60542:GOTO10120
  94. 10105 IFP=16THENGOSUB60404:GOTO10120
  95. 10110 IFP=17THENGOSUB60358:GOTO10120
  96. 10115 IFP=18THENGOSUB60312:GOTO10120
  97. 10116 IFP=4THENP=14:YY=38:POKEV+1,YY:GOTO10120
  98. 10117 IFP=7THENP=17:YY=38:POKEV+1,YY:GOTO10120
  99. 10118 RUN
  100. 10120 PRINT:GOSUB5210:NE=0:POKEV+21,1:RETURN
  101. 60000 PRINT"[147]                             [214][214]         ";
  102. 60002 PRINT"    [154][206][205]  [206][205]  [206][205]  [206][205]  [206][205]  [206][205]  [206][214][214] [154][206][205]  [206][205]  ";
  103. 60004 PRINT"    [165][165]  [165][165]  [165][165]  [165][165]  [165][165]  [165][165]  [165][214][214] [165][165]  [165][165]  ";
  104. 60006 PRINT"   [154][206]--[154][205][206]--[154][205][206]--[154][205][206]--[154][205][206]--[154][205][206]--[154][205][206]-[214][214][154][206]--[154][205][206]--[154][205][206]";
  105. 60008 PRINT"   [156][173][146]                         [214][214]         ";
  106. 60010 PRINT"   [156][173][146]                         [214][214]         ";
  107. 60012 PRINT"   [156][173][146]                         [214][214]         ";
  108. 60014 PRINT"   [156][173][146]                         [214][214]         ";
  109. 60016 PRINT"   [156][173][146]                         [214][214]         ";
  110. 60018 PRINT"   [156][173][146] [150][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186] [214][214] [150][186][186][186][186][186][186][186] ";
  111. 60020 PRINT"   [156][173][146] [154][195][223][195][223][195][223][195][223][195][223][195][223][195][223][195][223][195][223][195][223][195][223][195] [214][214] [154][195][223][195][223][195][223][195] ";
  112. 60022 PRINT"   [156][173][146] [150][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186] [214][214] [150][186][186][186][186][186][186][186] ";
  113. 60024 PRINT"   [156][173][146]                         [214][214]         ";
  114. 60026 PRINT"   [156][173][146]                         [214][214]         ";
  115. 60028 PRINT"   [156][173][146]                      [152][175][175][175][214][214][152][175][175]       ";
  116. 60030 PRINT"   [156][173][146]                       [214][214][214][214][214]        ";
  117. 60032 PRINT"   [156][173][146]           [154] [178][150] [207][153] [180]      [214]   [214]        ";
  118. 60034 PRINT"   [156][173][146]           [129][183][201][183][183][183][183][201][183][146]    [214][158][197][197][197][214]        ";
  119. 60036 PRINT"   [156][173][146]------------[129][194]----[129][194]-----[214][151][201][201][201][214]--------";
  120. 60038 PRINT"  [153][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][146]";:RETURN
  121. 60040 PRINT"[147]                                        ";
  122. 60042 PRINT" [154][206][205]  [206][205]  [206][205]  [206][205]  [206][205]  [206][205]  [206][205]  [206][205]  [206][205]  [206][205] ";
  123. 60044 PRINT" [165][165]  [165][165]  [165][165]  [165][165]  [165][165]  [165][165]  [165][165]  [165][165]  [165][165]  [165][165] [154]";
  124. 60046 PRINT"[206]--[154][205][206]--[154][205][206]--[154][205][206]--[154][205][206]--[154][205][206]--[154][205][206][151][194]-[154][205][206]--[154][205][206]--[154][205][206]-[154][223][205]";
  125. 60048 PRINT"                         [151][194]            [154][223] ";
  126. 60050 PRINT"                        [156][201][183][201]           [154][223] ";
  127. 60052 PRINT"                        [158][216] [216]           [154][223] ";
  128. 60054 PRINT"                                      [223] ";
  129. 60056 PRINT"                                      [213] ";
  130. 60058 PRINT" [150][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186]     [197][154][197]       [213] ";
  131. 60060 PRINT" [154][195][223][195][223][195][223][195][223][195][223][195][223][195][223][195][223][195][223][195][223][195][223][195]     [210][153][210]       [213] ";
  132. 60062 PRINT" [150][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186]  [153] [180] [158][171][179]       [213] ";
  133. 60064 PRINT"                         [129][183][201][183][183][183][201][183][146]      [213] ";
  134. 60066 PRINT"                    ------[129][194]---[129][194]-------[213] ";
  135. 60068 PRINT"                   [153][203][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][214][146]";
  136. 60070 PRINT"                  [153][203][146]                   [213] ";
  137. 60072 PRINT"   [154] [178] [178][150] [207]        [153][203][146]                    [213] ";
  138. 60074 PRINT"   [129][183][201][183][183][183][201][183][146]      [153][203][146]                     [213] ";
  139. 60076 PRINT"----[129][194]---[129][194]-----------------------------[213] [153]";
  140. 60078 PRINT"[187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][187][214][146]";:RETURN
  141. 60080 PRINT"[147][150][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][220]";
  142. 60082 PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214] ";
  143. 60084 PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214] ";
  144. 60086 PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214] ";
  145. 60088 PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214] ";
  146. 60090 PRINT"[214][214][158][223][223][223][214][214][214][158][223][223][223][214][214][214][214][214][154][206][201][201][201][201][201][201][201][201][201][214][214][214][158][223][223][223][214][214][214][214][214][214][214] ";
  147. 60092 PRINT"[214][214][158][223][223][223][214][214][214][158][223][223][223][214][214][214][214][154][206][194][194][194][194][194][194][194][194][194][194][214][214][214][158][223][223][223][214][214][214][214][214][214][214] ";
  148. 60094 PRINT"[214][214][158][223][223][223][214][214][214][158][223][223][223][214][214][214][154][206][194][194][194][194][150][207][154][194][150][207][154][194][194][194][194][214][214][214][158][223][223][223][214][214][214][214][214][214][214] ";
  149. 60096 PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][214][154][206][194][194][153][203][154][176][176][176][176][176][176][176][176][176][146][214][214][214][214][214][214][214][214][214][214][214][214][214] ";
  150. 60098 PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][154][206][194][194][153][203][146][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214] ";
  151. 60100 PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][154][194][194][153][203][146][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214] ";
  152. 60102 PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][154][194][153][203][146][214][214][214][214][214][214][214][154][206][214][214][214][214][214][214][214][214][214][214][214][214][214][214][154][194][146][214][214] ";
  153. 60104 PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][153][203][146][214][214][214][214][214][214][214][154][206][194][214][214][214][214][214][214][214][214][214][214][214][214][214][214][154][194][146][214][214] ";
  154. 60106 PRINT"[214][214][214][214][214][214][214][214][153][180][214][214][214][214][214][214][214][214][214][214][154][206][194][194][214][214][214][154][178][214][214][214][214][214][214][214][154][178][214][214][154][194][146][214][214] [154]";
  155. 60108 PRINT"[176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][146][206][194][194][153][203][154][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][146][214][214] ";
  156. 60110 PRINT"[214][214][214][214][214][214][214][214][158][223][223][223][214][214][214][214][214][214][214][154][194][194][153][203][146][214][214][214][214][214][214][214][214][214][214][158][223][223][223][214][214][154][194][146][214][214] ";
  157. 60112 PRINT"[214][214][214][214][214][214][214][214][158][223][223][223][214][214][214][214][214][214][214][154][194][153][203][146][214][214][214][214][214][214][214][214][214][214][214][158][223][223][223][214][214][154][194][146][214][214] ";
  158. 60114 PRINT"[214][214][214][214][214][214][214][214][158][223][223][223][214][214][214][214][214][214][214][153][203][146][214][214][214][214][214][214][214][214][154][206][214][214][214][158][223][223][223][214][214][154][194][146][214][214] ";
  159. 60116 PRINT"[214][214][214][214][154][178][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][154][206][194][214][214][214][214][214][214][214][214][154][194][146][214][214] [154]";
  160. 60118 PRINT"[176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][146][206][194][194][176][176][176][176][176][176][176][176][176][146][214][214] ";
  161. 60120 PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][154][206][194][194][153][203][146][214][214][214][214][214][214][214][214][214][214][214] ";
  162. 60122 PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][154][206][194][194][153][203][146][214][214][214][214][214][214][214][214][214][214][214][214] ";
  163. 60124 PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][154][206][194][194][153][203][146][214][214][214][214][214][214][214][214][214][214][214][214][214] ";:RETURN
  164. 60126 PRINT"[147][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][154][206][194][194][153][203][146][214][214][214][214][214][214][214][214][214][214][214][214][214] ";
  165. 60128 PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][154][206][194][194][153][203][146][214][214][214][214][214][214][214][214][214][214][214][214][214][214] ";
  166. 60130 PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][154][206][194][194][153][203][146][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214] ";
  167. 60132 PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][154][206][194][194][153][203][146][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214] ";
  168. 60134 PRINT"[214][214][214][158][223][223][223][214][214][214][214][214][214][214][214][158][223][223][223][214][214][154][194][194][153][203][146][214][214][214][214][214][214][214][214][214][214][158][223][223][223][214][214][214][214] ";
  169. 60136 PRINT"[214][214][214][158][223][223][223][214][214][214][214][214][214][154][194][146][214][158][223][223][223][214][214][154][194][153][203][146][214][214][214][214][154][206][214][214][154][194][146][214][214][214][158][223][223][223][214][214][214][214] ";
  170. 60138 PRINT"[214][214][214][158][223][223][223][214][214][214][214][214][214][154][194][146][214][158][223][223][223][214][214][153][203][146][214][214][214][214][154][206][194][214][214][154][194][146][214][214][214][158][223][223][223][214][214][214][214] ";
  171. 60140 PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][154][194][146][214][214][150][207][214][214][214][214][214][153][180][214][154][206][194][194][214][214][154][194][146][214][214][214][214][214][214][214][214][214][214] ";
  172. 60142 PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][154][176][176][176][176][176][176][176][176][176][176][146][206][194][194][153][203][154][176][176][176][146][214][214][214][214][214][214][214][214][214][214] ";
  173. 60144 PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][154][206][194][194][153][203][146][214][214][214][214][214][214][214][214][214][214][214][214][214][214] ";
  174. 60146 PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][154][206][194][194][153][203][146][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214] ";
  175. 60148 PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][154][206][194][194][153][203][146][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214] ";
  176. 60150 PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][154][206][194][194][153][203][146][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214] ";
  177. 60152 PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][154][206][194][194][153][203][146][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214] ";
  178. 60154 PRINT"[214][214][214][158][223][223][223][214][214][214][214][214][214][214][214][214][214][154][206][194][194][153][203][146][214][214][214][214][214][214][214][214][214][214][214][214][158][223][223][223][214][214][214][214] ";
  179. 60156 PRINT"[214][214][214][158][223][223][223][214][214][214][214][214][214][214][214][214][214][154][194][194][153][203][146][214][214][214][214][214][214][214][214][214][214][214][214][214][158][223][223][223][214][214][214][214] ";
  180. 60158 PRINT"[214][214][214][158][223][223][223][214][214][214][214][214][214][214][214][214][214][154][194][153][203][146][214][214][214][214][214][214][214][214][214][214][214][214][214][214][158][223][223][223][214][214][214][214] ";
  181. 60160 PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][153][203][146][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214] ";
  182. 60162 PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][154][178][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214] ";
  183. 60164 PRINT"[214][214][214][214][214][154][197][214][214][153][211][193][193][193][193][193][193][193][193][154][197][153][193][193][193][193][193][193][146][196][214][214][214][214][214][214][154][178][214][214][214][154][197][214][214][214] [153]";
  184. 60166 PRINT"[193][193][193][193][193][212][153][193][193][193][193][193][146][150][197][153][193][193][193][193][193][212][153][193][193][193][193][193][193][193][193][193][154][197][153][193][193][193][193][193][193][193][212][153][193][193][193][193]";
  185. 60168 PRINT"[193][146][150][197][153][193][193][193][193][193][193][193][193][193][212][153][193][193][193][193][193][193][193][193][193][193][146][150][197][153][193][193][193][193][212][153][193][193][193][193][193][193][193][193][193][193][193][193]";
  186. 60170 PRINT"[193][212][153][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][212][153][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][146]";:RETURN
  187. 60172 PRINT"[147]                [153][190][185][185][185][191]                   [156]";
  188. 60174 PRINT"[205]           [153][190][185][185][185][185][150][209][153][185][185][150][209][153][185][185][191]                ";
  189. 60176 PRINT"-[156][205]         [153][190][185][150][209][153][185][185][185][185][185][185][185][185][150][209][153][185][185][191]              ";
  190. 60178 PRINT"[192][154][223][146]         [153][185][185][185][185][185][185][185][150][209][153][185][185][185][185][185][185][185]              ";
  191. 60180 PRINT"[192][154][223][146]         [153][167][185][150][209][153][185][185][150][209][153][185][185][185][185][185][185][150][209][153][185][185]     [190][193][193][191]     ";
  192. 60182 PRINT"[192][154][223][146]           [153][167][185][185][185][185][185][185][150][209][153][185][185][185][185][170] [190][193][191][190][193][193][193][193]     ";
  193. 60184 PRINT"[192][154][223][146]              [153][167][185][185][185][185][185][170]    [193][193][193][167][193][193][170]      ";
  194. 60186 PRINT"[192][154][223][146]     [190][193][193][193][193][191]     [149][174][172]       [167][193][170]          ";
  195. 60188 PRINT"[192][154][223][146]    [190][193][193][193][193][193][193]     [149][174][172]                    ";
  196. 60190 PRINT"[192][154][223][146]    [193][193][193][193][193][193][170]     [149][174][172]                    ";
  197. 60192 PRINT"[214][154][223][146]     [167][193][193][193][170]      [149][174][172]                    [151]";
  198. 60194 PRINT"[208][154][223][146]       [221]        [149][174][172]                    [151]";
  199. 60196 PRINT"[208][154][223][146]      [206][158][169][205]       [149][174][172]                    [151]";
  200. 60198 PRINT"[208][156][173]      [183][213][183]       [149][174][172]                    [151]";
  201. 60200 PRINT"[208][156][173]       [213]        [149][174][172] [154][197]                  [151]";
  202. 60202 PRINT"[208][156][173]       [213]        [149][174][172][153][193][212][146][153][196]                 [151]";
  203. 60204 PRINT"[208][156][173]       [213]      [154][197] [149][174][153][193][193][193][193][146][196] [156][197]              [151]";
  204. 60206 PRINT"[208][156][173]       [213]    [153][211][193][212][153][193][193][146][150][197][153][193][193][193][193][193][212][153][193][146][196]            [151]";
  205. 60208 PRINT"[208][156][173]       [213]   [153][211][193][193][193][193][193][146][212][153][193][193][193][193][193][193][193][193][146][196]           [151]";
  206. 60210 PRINT"[208][156][173]  [154][178]   [206][213][205] [153][211][150][197][153][193][193][193][193][193][193][193][193][193][146][154][197][153][193][193][193][193][193][146][196]   [150][197]  [150][207]   [151]";
  207. 60212 PRINT"[168][168][168][168][168][168][168][168][168][168][168][153][193][193][146][212][153][193][193][193][146][156][197][153][193][193][193][193][193][146][212][153][193][193][193][146][156][197][153][193][193][193][193][193][212][153][193][193][193][193][193][193]";
  208. 60214 PRINT"[193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][146][212][153][193][193][193][193][193][193][193][193][193][146][212][153][193][193][193][193][193][193][193][193][193][193][193][193]";
  209. 60216 PRINT"[193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][146]";:RETURN
  210. 60218 PRINT"[147]                           [214][214]           ";
  211. 60220 PRINT" [156][206][205]  [206][205]  [206][205]  [206][205]  [206][205]  [206][205]  [206][205][214][214][156][206][205]  [206][205]  [206][205] ";
  212. 60222 PRINT"[206]--[156][205][206]--[156][205][206]--[156][205][206]--[156][205][206]--[156][205][206]--[156][205][206]--[214][214]--[156][205][206]--[156][205][206]--[156][205]";
  213. 60224 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][214][214][192][192][192][192][192][192][192][192][192][192][192]";
  214. 60226 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][214][214][192][192][192][192][192][192][192][192][192][192][192]";
  215. 60228 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][214][214][192][192][192][192][192][192][192][192][192][192][192]";
  216. 60230 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][214][214][192][192][192][192][192][192][192][192][192][192][192]";
  217. 60232 PRINT"[192][192][192][154][178][192][153][180][192][153][180][192][150][207][192][192][192][192][192][192][192][192][192][192][192][192][154][206][192][192][192][192][214][214][192][192][192][153][180][192][154][178][192][150][207][192][192][192]";
  218. 60234 PRINT"[192][129][183][201][183][183][183][183][183][183][183][201][183][146][192][192][192][192][192][192][192][192][192][154][206][194][192][192][192][192][214][214][192][192][129][183][201][183][183][183][201][183][146][192][192]";
  219. 60236 PRINT"[192][192][129][194][192][192][192][192][192][192][192][129][194][192][192][192][192][192][192][192][192][192][154][206][194][194][192][192][192][192][214][214][192][192][192][129][194][192][192][192][129][194][192][192][192][150]";
  220. 60238 PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][146][154][206][194][194][153][203][150][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][146][151]";
  221. 60240 PRINT"[146][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][154][206][194][194][153][203][146][151][208][208][208][208][208][214][214][151][208][208][208][208][208][208][208][208][208][208][208]";
  222. 60242 PRINT"[208][208][208][208][153][221][151][208][208][208][208][208][208][208][208][208][208][208][208][154][206][194][194][153][203][146][151][208][208][208][208][208][208][214][214][151][208][208][208][208][208][208][208][208][208][208][208]";
  223. 60244 PRINT"[208][208][208][153][206] [205][151][208][208][208][208][208][208][208][208][208][208][154][206][194][194][153][203][146][151][208][208][208][208][208][208][208][214][214][151][208][208][208][208][208][208][208][208][208][208][208]";
  224. 60246 PRINT"[208][208][208][150][223][153][183][150][223][151][208][208][208][208][208][208][208][208][208][154][206][194][194][153][203][146][151][208][208][208][208][208][208][208][208][214][214][151][208][208][208][208][208][208][208][208][208][208][208]";
  225. 60248 PRINT"[208][208][208][150][223][153][175][150][223][151][208][208][208][208][208][208][208][208][154][206][194][194][153][203][146][151][208][208][208][208][208][208][208][208][208][214][214][151][208][208][208][208][208][208][208][208][208][208][208]";
  226. 60250 PRINT"[208][208][208][208][208][208][208][208][208][208][208][208][208][208][154][194][194][153][203][146][151][208][208][208][208][208][208][208][208][214][214][214][214][214][151][208][208][208][208][208][208][208][208][208][208]";
  227. 60252 PRINT"[208][208][153][180][151][208][150][207][151][208][153][180][151][208][150][207][151][208][154][178][151][208][208][208][154][194][153][203][146][151][208][208][208][208][150][207][151][208][154][178][151][208][208][214]   [214][151][208][208][208][154][178][151][208][150][207][151][208][153][180][151][208][208]";
  228. 60254 PRINT"[208][129][183][201][183][183][183][183][183][183][183][201][183][146][151][208][208][153][203][146][151][208][208][208][129][183][201][183][183][201][183][146][151][208][214][158][197][197][197][214][151][208][208][129][183][201][183][183][183][201][183][146][151][208]";
  229. 60256 PRINT"[208][208][129][194][151][208][208][208][208][208][208][208][129][194][151][208][208][208][208][208][208][208][208][129][194][151][208][208][129][194][151][208][208][214][151][201][183][201][214][151][208][208][208][129][194][151][208][208][208][129][194][151][208][208]";
  230. 60258 PRINT"[168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][146]";:RETURN
  231. 60264 PRINT"[147]                                        ";
  232. 60266 PRINT"                   [193][193][193][191]            [156][206][205]  [206]";
  233. 60268 PRINT"                   [167][193][193][193]           [156][206]--[156][205][206]-";
  234. 60270 PRINT"     [190][193][193][193][193][191] [190][193][191]                   [154][223][192][192][192][192][192]";
  235. 60272 PRINT"    [193][193][193][193][193][193][193] [167][193][193]                   [154][223][192][192][192][192][192]";
  236. 60274 PRINT"    [167][193][193][193][193][193][170]  [167][170]   [190][193][193][193][193][191]          [156][213][192][192][192][192][192]";
  237. 60276 PRINT"     [167][193][193][193][170]        [193][193][193][193][193][193]          [156][213][192][192][192][192][192]";
  238. 60278 PRINT"                   [167][193][193][193][170]      [154][206][201][201][201][156][213][192][192][192][192][192]";
  239. 60280 PRINT"                             [154][206][194][194][194][194][156][213][192][192][192][192][192]";
  240. 60282 PRINT"                            [154][206][194][194][194][153][180][154][194][156][213][192][192][150][207][192][192]";
  241. 60284 PRINT"                           [154][206][194][194][153][203][150][214][214][214][214][214][214][214][214][214][146]";
  242. 60286 PRINT"                          [154][206][194][194][153][203][146]    [156][213][151][208][208][208][208][208]";
  243. 60288 PRINT"                          [154][194][194][153][203][146]     [156][213][151][208][208][208][208][208]";
  244. 60290 PRINT"                     [154][206][201][201][201][201][194][153][203][146][154][201][205]    [156][213][151][208][208][208][208][208]";
  245. 60294 PRINT"                    [154][206][194][194][194][194][194][153][203][146][154][194][194][194][205]   [156][213][151][208][208][208][208][208]";
  246. 60296 PRINT"                   [154][206][194][194][194][150][207][154][194][194][194][194][194][194][194][205]  [156][213][151][208][208][208][208][208]";
  247. 60298 PRINT"                  [154][206][194][194][153][203][154][176][176][176][176][176][176][176][153][204][146][154][194][194][205] [156][213][151][208][208][208][208][208]";
  248. 60300 PRINT"                  [154][194][194][153][203][146][154][197][197] [156][197][158][197] [153][197][150][197] [153][204][146][154][194][194] [156][213][151][208][208][208][208][208]";
  249. 60302 PRINT"    [154][178]  [197]          [194][153][203][146] [212][210] [153][212][210] [210][153][210]  [204][146][154][194] [156][213][151][208][208][208][208][208]";
  250. 60304 PRINT" [150][197] [153][211][193][193][193][210][153][193][193][146][196]  [156][197]  [154][178] [153][203][146]  [158][171][179] [171][179] [171][179]   [153][204][146] [156][213][151][208][208][154][178][151][208][208][153]";
  251. 60306 PRINT"[193][210][153][193][193][193][193][193][193][193][193][193][193][193][210][153][193][193][151][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][153]";
  252. 60308 PRINT"[193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][146]";
  253. 60310 PRINT"[193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][146]";:RETURN
  254. 60312 PRINT"[147]                                        ";
  255. 60314 PRINT"                 [190][191]        [190][193][193][191]         [150]";
  256. 60316 PRINT"[165][165][165][165][165][165][165][165][165][165][165][220][191]   [190][193][193]        [193][193][193][193][193]        [156]";
  257. 60318 PRINT"[183][201][183][183][183][201][183][183][183][201][183][193][193]   [167][193][170]        [193][193][193][193][193]        ";
  258. 60320 PRINT" [156][194] [150][197] [156][194] [154][197] [156][194][193][193][170]        [190][193][193][191]  [167][193][193][193][170]        ";
  259. 60322 PRINT" [156][194] [158][177] [156][194] [158][177] [156][194]           [193][193][193][193][193]              [154]";
  260. 60324 PRINT"[201][201][201][201][201][201][201][201][201][201][205]          [167][193][193][193][170]       [190][193][193][191]   [154]";
  261. 60326 PRINT"[194][194][194][194][194][194][194][194][194][194][194][205]                    [193][193][193][193][193]   [154]";
  262. 60328 PRINT"[194][194][194][194][194][194][194][194][194][194][194][194][205]                   [167][193][193][193][170]   [154]";
  263. 60330 PRINT"[176][176][176][176][176][176][176][176][176][176][153][204][146][154][194][194][205]                          ";
  264. 60332 PRINT"  [213]        [153][204][146][154][194][194][205]                         ";
  265. 60334 PRINT"  [213]         [153][204][146][154][194][194]                         ";
  266. 60336 PRINT"  [213]          [153][204][146][154][194]                         ";
  267. 60338 PRINT"  [213] [215][154][215]  [156][215][159][215]    [153][204][146]    [154][197]                    ";
  268. 60340 PRINT"  [213] [153][212][210]  [212][153][210]      [211][193][193][210][153][193][193][193][193][197][153][193][193][146][196]            ";
  269. 60342 PRINT"  [213] [158][171][179]  [171][179]   [153][211][193][193][193][193][193][193][146][158][209][153][193][193][193][146][210][153][193][193][193][146][196]           [154]";
  270. 60344 PRINT"[201][201][201][201][201][201][201][201][201][201][201][153][211][193][193][193][193][146][156][197][153][193][193][193][146][210][153][193][193][193][193][193][193][146][158][197][153][193][193][146][196]         [154]";
  271. 60346 PRINT"[194][194][194][194][194][194][194][194][194][153][211][193][154][209][153][193][193][193][193][146][210][153][193][193][193][193][193][146][150][197][153][193][193][193][193][146][210][153][193][193][193][193][146][196]       [154]";
  272. 60348 PRINT"[194][194][194][194][194][194][194][153][211][193][193][193][146][210][153][193][193][193][193][193][193][193][193][193][193][146][210][153][193][193][193][193][193][146][154][197][153][193][193][193][156][209][153][193][146][196]     ";
  273. 60350 PRINT"[193][193][193][193][193][193][193][193][193][146][150][197][153][193][193][193][193][193][193][193][193][146][209][153][193][193][193][193][193][193][193][193][193][146][210][153][193][193][193][146][210][153][193][193][193][193][146][196]  ";
  274. 60352 PRINT"[193][193][193][193][193][197][153][193][193][193][146][210][153][193][193][193][193][146][158][197][153][193][193][193][146][210][153][193][193][193][146][156][197][153][193][193][193][193][193][193][193][193][193][193][146][154][209][153][193][193][193][193][193][193]";
  275. 60354 PRINT"[193][193][193][193][193][146][210][153][193][193][193][193][193][193][193][193][146][210][153][193][193][193][193][193][193][193][146][210][153][193][193][193][146][150][209][153][193][193][193][193][193][193][146][210][153][193][193][193][193][193][193]";
  276. 60356 PRINT"[193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][146][210][153][193][193][193][193][193][193][193][193][193][193][193][193][193][146]";:RETURN
  277. 60358 PRINT"[147]    [190][193][191]                       [190][193][191]       ";
  278. 60360 PRINT"    [193][193][193]        [153]  [180]      [180]     [193][193][193]    [152][194][146]  [154]";
  279. 60362 PRINT"[205]   [167][193][170]      [152][217][217][217][217][217][217][217][217][217][217][217][217][146]     [167][193][170]    [152][194][146]  [154]";
  280. 60364 PRINT"[194][205]        [152][217][217][217][217][146]                     [154][178] [152][194][146]  [154]";
  281. 60366 PRINT"[194][194]      [152][217][217][217][146]            [217][217][217][217][217][146]     [217][217][217][217][217][146]  [153]";
  282. 60368 PRINT"[204][146][154][194]     [152][217][217][146]                    [150][207]          ";
  283. 60370 PRINT" [153][204][146]  [150][207]     [154][178]              [152][217][217][217][217][217][217][217][217][217][217][146]     ";
  284. 60372 PRINT"  [217][217][217][217][217][217][217][217][217][217][217][146]           [217][217][146]        [217][217][146]    ";
  285. 60374 PRINT"  [194][146]         [217][217][146]         [217][217][146]          [217][217][146] [153][180] ";
  286. 60376 PRINT"  [152][194][146]          [217][217][217][217][146]  [154][178]          [190][193][193][193][193][191][152][217][154][176][176][176][146]";
  287. 60378 PRINT"  [152][194][146]  [150][207]            [152][217][217][217][217][217][146]       [193][193][193][193][193][193][193]   ";
  288. 60380 PRINT"  [152][217][217][217][217][217][146]          [217][217][146]            [167][193][193][193][193][170]   ";
  289. 60382 PRINT" [150][197][154][197]   [152][217][217][146]      [217][217][217][217][146]                      ";
  290. 60384 PRINT" [212][153][210]    [152][217][217][146]  [153][180]                            ";
  291. 60386 PRINT" [158][171][179]     [152][217][217][217][217][217][217][146]                          [154]";
  292. 60388 PRINT"[201][201][201][201]            [178]                       ";
  293. 60390 PRINT"[194][194][194][194]  [152][217][217][217][217][217][217][217][217][217][217][217][217][217][146]                     [154]";
  294. 60392 PRINT"[194][194][194][194]                         [150][207]          [151]";
  295. 60394 PRINT"[168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][153][193][193][146][196][155]  ";
  296. 60396 PRINT"[146][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][153][193][193][193][193][193][193][193][193][146][151]";
  297. 60398 PRINT"[146][165][168][168][168][168][165][168][168][168][168][165][168][168][168][168][165][168][168][168][168][165][168][168][168][168][165][168][168][220][153][193][193][193][193][193][193][193][193][193][193][193][146][151]";
  298. 60400 PRINT"[146][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][153][193][193][193][193][193][193][193][193][193][193][193][193][193][193][146][151]";
  299. 60402 PRINT"[146][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][153][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][146]";:RETURN
  300. 60404 PRINT"[147]            [154][205][153][204][146][154][194][194][205]     [150][166][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][220]";
  301. 60406 PRINT"   [190][193][193][193][191]     [154][205][153][204][146][154][194][194][205]     [156][183][201][183][183][183][183][183][183][201][183][183][183][183][183][201][183] ";
  302. 60408 PRINT"   [193][193][193][193][193][193]     [154][205][153][204][146][154][194][194][205]     [156][194]  [154][178]   [156][194]  [153][180]  [156][194]  ";
  303. 60410 PRINT"   [167][193][193][193][193][170]      [154][205][153][204][146][154][194][194][205]  [206][159][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][146] ";
  304. 60412 PRINT"                [154][205][153][204][146][154][194][194] [206][194][159][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194] ";
  305. 60414 PRINT"                 [154][205][153][204][146][154][194][206][194][194][176][176][176][176][176][176][176][156][189][189][189][189][189][189][189][189][189][189][146]";
  306. 60416 PRINT"                  [154][205][153][204][146][154][194][194][153][203][146][154][206]                [150]";
  307. 60418 PRINT"[165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][220]  [154][206][183][194][153][203][146][154][206]         [190][193][193][191]    [156]";
  308. 60420 PRINT"[183][201][183][183][183][201][183][183][183][201][183][183][183][201][183]   [154][194][194][153][203][146][154][206]          [193][193][193][193]    ";
  309. 60422 PRINT" [156][194] [154][178] [156][194] [150][207] [156][194] [153][180] [156][194]    [154][194][153][203][146][154][206]   [206]  [194][146]    [167][193][193][170]    [159]";
  310. 60424 PRINT"[201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][146]   [153][203][146][154][206]   [206][194]  [194][146]            [159]";
  311. 60426 PRINT"[194][194][194][194][194][194][194][194][194][194][194][194][194][194][194]   [154][183]   [206][194][194]  [194][146]            ";
  312. 60428 PRINT"[176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][146][206][194][194][153][203][154][176][176][176][146]            ";
  313. 60430 PRINT"                    [206][194][194][153][203][146][154][206]               ";
  314. 60432 PRINT"                    [194][194][153][203][146][154][206]                [151]";
  315. 60434 PRINT"[165][165][165][165][150][207][151][165][165][165][165][150][207][151][165][165][165][165][165][154][178][151][165][165][165][165][154][194][153][203][146][154][206][151][165][165][165][165][165][165][154][178][151][165][165][165][165][165]     [159]";
  316. 60436 PRINT"[201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][146][201][201][201][153][203][146][154][206][159][201][201][201][201][201][201][201][201][201][201][201][201][201][146]     ";
  317. 60438 PRINT"[194][194][194][194][194][153][180][159][194][194][194][194][194][194][154][178][159][194][194][194][194][194][194][194][194][194][194][194][194][150][207][159][194][194][194][194][194][194][194][194][194]     [151]";
  318. 60440 PRINT"[168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][155]";
  319. 60442 PRINT"[165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][151]";
  320. 60444 PRINT"[168][165][168][168][168][168][165][168][168][168][168][165][168][168][168][168][165][168][168][168][168][165][168][168][168][168][165][168][168][168][168][165][168][168][168][168][165][168][168][168]";
  321. 60446 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";
  322. 60448 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";:RETURN
  323. 60450 PRINT"[147]          [190][193][191]  [158][206][205][206][205][206][205][206][205][206][205][206][205][164][206][205][206][205][206][205][206][205][206][205]  ";
  324. 60452 PRINT"          [193][193][193]  [154][223][146][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][154][223][146]  ";
  325. 60454 PRINT"          [167][193][170]  [154][223][146][192][192][150][166][165][165][165]C[150][165]A[150][165]N[150][165]D[150][165]Y[150][165][165][165][192][192][192][154][223][146]  ";
  326. 60456 PRINT"  [190][193][193][193][193][193][191]      [154][223][146][192][192][192][156][183][201][183][183][183][183][183][183][183][183][183][183][183][201][183][192][192][192][154][223][146]  ";
  327. 60458 PRINT"  [193][193][193][193][193][193][193][193]     [156][213][192][152][221][192][192][156][194][192][192][192][192][192][192][192][192][192][192][192][156][194][192][192][152][221][192][154][223][146]  ";
  328. 60460 PRINT"  [167][193][193][193][193][193][193][170]     [156][213][192][158][223][192][192][156][194][192][150][207][192][153][180][192][154][178][192][150][207][192][153][180][192][156][194][192][192][158][223][192][154][223][146]  ";
  329. 60462 PRINT"   [167][193][193][193][170]      [154][206][156][213][192][192][192][154][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][146][192][192][192][154][223][146]  ";
  330. 60464 PRINT"             [206][194][156][213][192][192][192][154][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][192][192][192][154][223][146]  ";
  331. 60466 PRINT"            [206][194][194][156][213][192][192][153][203][156][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][153][204][146][192][192][154][223][146]  ";
  332. 60468 PRINT"           [206][194][194][153][203][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][146]  ";
  333. 60470 PRINT"[193][193][193][191]       [154][194][194][153][203][146]   [213]  [213]  [213]  [213]  [213]  [213]  [213] [156][194][146]  ";
  334. 60472 PRINT"[193][193][193][193] [154][205]     [194][153][203][146]    [213]  [213]  [213]  [213]  [213]  [213]  [213] [156][194][146]  ";
  335. 60474 PRINT"[193][193][193][170] [154][194][205]    [153][203][146]     [213]  [213]  [213]  [213]  [213]  [213]  [213] [156][194][146]  ";
  336. 60476 PRINT"     [154][194][194][205]         [213] [150][207][213]  [213]  [213] [154][178][213] [153][180][213]  [213] [156][194][146]  [154]";
  337. 60478 PRINT"[176][176][176][176][176][153][204][146][154][194][194][205][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][146]  ";
  338. 60480 PRINT"     [205][153][204][146][154][194][194][205]                              ";
  339. 60482 PRINT"      [205][153][204][146][154][194][194][205]                             ";
  340. 60484 PRINT"       [205][153][204][146][154][194][194][205]    [190][193][193][191]  [190][193][193][193][193][193][191]           ";
  341. 60486 PRINT" [190][193][193][193][193][191] [154][205][153][204][146][154][194][194][205]   [193][193][193][193]  [193][193][193][193][193][193][193][193]  [190][193][191]     ";
  342. 60488 PRINT" [193][193][193][193][193][193]  [154][205][153][204][146][154][194][194][205]  [167][193][193][170]  [167][193][193][193][193][193][193][170]  [193][193][193]     ";
  343. 60490 PRINT"  [167][193][193][193][170]   [154][205][153][204][146][154][194][194][205]         [167][193][193][193][170]   [167][193][170]     ";
  344. 60492 PRINT"           [154][205][153][204][146][154][194][194][205]                        ";
  345. 60494 PRINT"            [205][153][204][146][154][194][194][205]                       ";:RETURN
  346. 60496 PRINT"[147]        [190][193][193][193][193][191]       [190][193][193][193][193][193][191]            ";
  347. 60498 PRINT"        [193][193][193][193][193][193]       [193][193][193][193][193][193][193][193]           ";
  348. 60500 PRINT"        [167][193][193][193][170]        [193][193][193][193][193][193][193][170] [190][193][193][193][191]     [150]";
  349. 60502 PRINT"[166][165][165][165][165][165][220]               [167][193][193][193][193][170]  [193][193][193][193][193]     ";
  350. 60504 PRINT" [156][201][183][183][183][150][166][165][165][165][165][220]                   [167][193][193][193][170]     ";
  351. 60506 PRINT" [156][194][146]   [201][183][183][183][150][166][165][165][165][220]                          ";
  352. 60508 PRINT" [156][194][146] [154][197] [156][194]   [201][183][183][150][166][165][165][165][220]                       ";
  353. 60510 PRINT" [156][194][146] [158][177] [156][194] [197] [194]   [201][183][150][166][165][165][165][220]                    ";
  354. 60512 PRINT" [156][194][201][201][201][146][156][194] [158][177] [156][194] [150][197] [156][194]  [183][201][150][166][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][220]";
  355. 60514 PRINT" [156][194][146][194][154][178][194][201][201][201][201][146][156][194] [158][177] [156][194]   [194] [183][183][201][183][183][183][201][183][183][183][201][183][183][183][201][183][183][183][201][183] ";
  356. 60516 PRINT" [154][176][176][176][176][146][194][194][150][207][194][201][201][201][146] [156][194] [154][197] [156][194]   [194]   [194]   [194]   [194]   [194]  [154]";
  357. 60518 PRINT"[146]    [176][176][176][176][176][146][194][194][194][201][201][201][146][158][177] [156][194] [197] [194] [150][197] [156][194] [154][197] [156][194] [197] [194] [150][197] [156][194]  ";
  358. 60520 PRINT"        [154][176][176][176][176][146][194][153][180][194][201][201][201][201][146][158][177] [156][194] [158][177] [156][194][154][206][158][177] [156][194] [158][177] [156][194] [158][177] [156][194]  ";
  359. 60522 PRINT"           [154][176][176][176][176][146][194][194][154][178][194][201][201][201][201][201][201][146][154][206][194][201][201][201][201][201][201][201][201][201][201][201][146]  ";
  360. 60524 PRINT"              [154][176][176][176][176][176][146][194][194][150][207][194][194][154][206][194][194][194][194][194][153][180][194][194][194][194][150][207][194][194] [154][176][146]";
  361. 60526 PRINT"                  [154][176][176][176][176][176][146][206][194][194][153][203][154][176][176][176][176][176][176][176][176][176][176][176][176][176][146]";
  362. 60528 PRINT"  [190][193][193][193][193][191]              [154][206][194][194][153][203][146][154][206]             ";
  363. 60530 PRINT"  [193][193][193][193][193][193]             [154][206][194][194][153][203][146][154][206]              ";
  364. 60532 PRINT"   [167][193][193][193][170]  [190][193][193][193][191]     [154][206][194][194][153][203][146][154][206]  [190][193][193][193][191]        ";
  365. 60534 PRINT"          [193][193][193][193][193]    [154][206][194][194][153][203][146][154][206]   [193][193][193][193][193][193]       ";
  366. 60536 PRINT"          [167][193][193][193][170]   [154][206][194][194][153][203][146][154][206]    [167][193][193][193][193][170]       ";
  367. 60538 PRINT"                 [154][206][194][194][153][203][146][154][206]                  ";
  368. 60540 PRINT"                [206][194][194][153][203][146][154][206]                   ";:RETURN
  369. 60542 PRINT"[147]     [190][193][193][193][191]      [154][206][194][194][153][203][146][154][206]         [190][193][193][191]      ";
  370. 60544 PRINT"    [193][193][193][193][193][193]     [154][206][194][194][153][203][146][154][206]          [193][193][193][193]      ";
  371. 60546 PRINT"    [167][193][193][193][193][170]     [154][194][194][153][203][146][154][206]           [167][193][193][170][190][193][193][191]  ";
  372. 60548 PRINT"               [154][194][153][203][146][154][206]    [206]           [193][193][193][193]  ";
  373. 60550 PRINT"               [153][203][146][154][206]    [206][194]           [167][193][193][170]  ";
  374. 60552 PRINT"  [150][207]     [207]   [154][178]  [183]  [153][180] [154][206][194][194] [150][207]               [154]";
  375. 60554 PRINT"[176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][146][206][194][194][153][203][154][176][176][176][176][176][176][176][176][176][176][176][146][191]     ";
  376. 60556 PRINT"                  [154][206][194][194][153][203][146][154][206]        [193][193][154][176][176][146]     ";
  377. 60558 PRINT"                 [154][206][194][194][153][203][146][154][206]         [167][193][193][154][176][176][146]    ";
  378. 60560 PRINT"                [154][206][194][194][153][203][146][154][206]              [154][176][176][146]   ";
  379. 60562 PRINT" [156][166][165][165][165][165][165][165][165][165][165][165][165][165][165][154][206][194][194][153][203][146][154][206][156][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][154][176][176][146]  ";
  380. 60564 PRINT"  [159][183][201][183][183][183][201][183][183][183][201][183][183][154][206][194][194][153][203][146][154][206][159][201][183][183][183][201][183][183][183][201][183][183][183][201][183][183][183][201][183][154][176][176][146][159] ";
  381. 60566 PRINT"   [194]   [194]   [194] [154][206][194][194][153][203][146][154][206] [159][194]   [194]   [194]   [194]   [194]  [154][176][176][146][159]";
  382. 60568 PRINT"   [194][154][197] [156][197][159][194][150][197] [197][159][194][154][206][194][194][153][203][146][154][206] [197][159][194][154][197] [156][197][159][194][150][197] [197][159][194][154][197] [156][197][159][194][150][197] [197][159][194]    ";
  383. 60570 PRINT"   [194][212] [210][159][194][212] [210][159][194][154][194][194][153][203][146][154][206][212] [210][159][194][212] [210][159][194][212] [210][159][194][212] [210][159][194][212] [210][159][194]    ";
  384. 60572 PRINT"   [194][158][171][223][179][159][194][158][171][223][179][159][194][154][194][153][203][146][154][206][159][194][158][171][223][179][159][194][158][171][223][179][159][194][158][171][223][179][159][194][158][171][223][179][159][194][158][171][223][179][159][194] [153][180]  ";
  385. 60574 PRINT"  [150][201][201][201][201][201][201][201][201][146][201][201][153][203][146][154][206][150][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][201][146]  ";
  386. 60576 PRINT"  [194][194][194][194][154][178][150][194][194][194][194][194][154][183][150][194][194][153][180][150][194][194][194][153][180][150][194][194][194][194][194][154][178][150][194][194][194][194][194][194][194][154][178][150][194][194][194][194]  [151]";
  387. 60578 PRINT"[168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][146][155]";
  388. 60580 PRINT"[146][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][151]";
  389. 60582 PRINT"[168][168][165][168][168][168][168][165][168][168][168][168][165][168][168][168][168][165][168][168][168][168][165][168][168][168][168][165][168][168][168][168][165][168][168][168][168][165][168][168]";
  390. 60584 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";
  391. 60586 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]";:RETURN
  392. 60588 PRINT"[147]      [190][193][193][193][191]     [190][193][191]                     ";
  393. 60590 PRINT"      [193][193][193][193][193]     [193][193][193]            [153][180]        ";
  394. 60592 PRINT"      [167][193][193][193][170]     [167][193][170]  [154][178]  [152][217][217][217][217][217][217][217][217][217][217][217][146]     ";
  395. 60594 PRINT"[156] [194][146]         [154] [178]  [153][180]   [152][217][217][217][217][217][217][146]         [217][217][146]    ";
  396. 60596 PRINT"[156] [194][146]       [152][217][217][217][217][217][217][217][217][217][146]        [190][193][193][193][191]         ";
  397. 60598 PRINT"[156] [194][146] [150][207]    [152][217][217][146]       [217][217][146]       [167][193][193][193][170]     [152]    ";
  398. 60600 PRINT" [217][217][217][217][146]  [217][217][146]  [190][193][193][193][191]  [152][217][217][217][146]           [154][178]  [152][217][217][154][176][176][176][146][152]";
  399. 60602 PRINT"    [217][217][146]     [193][193][193][193][193]       [152][217][217][217][217][217][217][217][217][217][217][217][217][217][146]   [156][194][146]";
  400. 60604 PRINT"     [152][217][217][146]    [167][193][193][193][170]    [152][217][217][217][217][146]               [156][194][146]";
  401. 60606 PRINT"      [152][217][217][146] [153][180]       [150][207]                     [156][194][146]";
  402. 60608 PRINT"       [152][217][217][217][217][217][217][217][217][217][217][217][217][217][217][146]                 [217][217][146]";
  403. 60610 PRINT"                    [217][217][146]   [150][207]   [153][180]     [154][178] [152][217][217][146] ";
  404. 60612 PRINT" [190][193][191]                 [152][217][217][217][217][217][217][217][217][217][217][153][204][146]  [152][217][217][217][217][146]  ";
  405. 60614 PRINT" [193][193][193][191] [150][175][175][175][175][175][175][175][175][175][175][175]        [149][174][172] [174][172] [174][153][204][146] [149][174][172]    ";
  406. 60616 PRINT" [193][193][193][193] [159]PLAYGROUNDS  [190][193][193][191]  [149][174][172] [174][172] [174][172][153][204][146][149][174][172]    ";
  407. 60618 PRINT" [167][193][193][170] [150][183][183][183][183][183][149][173][150][183][183][183][183][183]  [193][193][193][193]  [149][174][172] [174][172] [174][172] [153][204][146][149][172]    ";
  408. 60620 PRINT"           [173]       [167][193][193][170]  [149][174][172] [174][172] [174][172] [174][153][204][146]    ";
  409. 60622 PRINT"           [149][173]           [154][178] [149][174][172] [174][172] [174][172] [174][172]    ";
  410. 60624 PRINT"           [173]   [153][211][193][193][193][193][193][193][193][151][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][146]";
  411. 60626 PRINT"      [150][207]  [153][211][193][193][193][193][193][193][193][193][193][155][166][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][165][153]";
  412. 60628 PRINT"[193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][151][166][168][168][168][168][165][168][168][168][168][165][168][168][168][168][165][168][168][168][168][165][168][168][153]";
  413. 60630 PRINT"[193][193][193][193][193][193][193][193][193][193][193][193][193][193][151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][153]";
  414. 60632 PRINT"[193][193][193][193][193][193][193][193][193][193][151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][146]";:RETURN
  415.