home *** CD-ROM | disk | FTP | other *** search
/ Dimension 64 14 / Dimension_64_Nr.14_19xx_-_de_Side_B.d64 / rowly (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  12KB  |  327 lines
  1. 1000 rem##############################
  2. 1010 rem# rowly                 main #
  3. 1020 rem#----------------------------#
  4. 1030 rem# copyright 1987  by mr-soft #
  5. 1040 rem#----------------------------#
  6. 1050 rem#        ronald mayer        #
  7. 1060 rem#         thening 24         #
  8. 1070 rem#   a-4062 thening/austria   #
  9. 1080 rem##############################
  10. 1090 ifxx=0 and peek(186)=8 then xx=1:load"rowly codes",8,1
  11. 1091 ifxx=0 and peek(186)=1 then xx=1:load"rowly codes",1,1
  12. 1100 poke56,110:clr:v=53248:m=29952:sp=133
  13. 1110 pokev+17,0:poke56576,2:pokev+24,15:poke648,64:poke808,225
  14. 1120 print"[147]":pokev+21,0:pokev+28,31:pokev+27,0:pokev+23,0:pokev+29,0
  15. 1130 pokev+33,0:pokev+32,0:pokev+22,216:pokev+34,2:pokev+35,4
  16. 1140 if peek(186)=1 then 1170: rem kassette ohne highscore
  17. 1141 open1,8,15:open2,8,2,"rowly scores,s,r":input#1,a,a$,x,x:ifa<>0then1160
  18. 1150 fori=1to5:input#2,h$(i):next
  19. 1160 close2:close1
  20. 1170 gosub1180:goto1490
  21. 1180 rem##############################
  22. 1190 rem# title                      #
  23. 1200 rem##############################
  24. 1210 print"[147][149][203][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][204][200][200][200][200][200][200][200][203][204]"
  25. 1220 print"[214][156]mr[149][216][156]soft[149][216][156]presents[149][215]       [214][215]"
  26. 1230 print"[205][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][206][200][200][200][200][200][200][200][205][206]"
  27. 1240 fori=1to3:print"                         [201][202]":next
  28. 1250 print" [203][204][198][198][198][198][198][198][198][198][203][204][200][200][200][200][200][200][200][200][200][200][200][200][203][204]"
  29. 1260 print"   [214][215][199][199][199][199][199][199][199][199][214][215]            [214][215]"
  30. 1270 print" [205][206][200][200][200][200][200][200][200][200][205][206][200][200][200][200][200][200][200][200][200][200][200][200][205][206]"
  31. 1280 print" [201][202]        [201][202]            [201][202]"
  32. 1290 print" [201][202]      [203][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][204]
  33. 1300 [153]" right$mid$      (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)
  34. 1310 print" [201][202]      [214][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][215]
  35. 1320 [129]i[178]1[164]4:[153]" right$mid$      (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)":[130]
  36. 1330 [153]" right$mid$      (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)
  37. 1340 print" [201][202]"
  38. 1350 print" [203][204][200][200][200][200][200][200][200][203][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][204]"
  39. 1360 print" [214][215]       [214][156]@[149][216][156]1987[149][216][156]by[149][216][156]ronald[149][216][156]mayer[149][215]"
  40. 1370 print" [205][206][200][200][200][200][200][200][200][205][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][206]"
  41. 1380 pokev+21,31:fori=0to4:poke17400+i,251+i:next:pokev+37,15:pokev+38,11
  42. 1390 pokev+39,5:pokev+40,14:pokev+41,10:pokev+42,12:pokev+43,8
  43. 1400 pokev,147:pokev+2,171:pokev+4,195:pokev+6,219:pokev+8,235
  44. 1410 fori=1to9step2:pokev+i,0:next:pokev+23,31
  45. 1420 pokev+17,27:poke198,0
  46. 1430 fori=1to9step2:forj=10to150step1.5:pokev+i,j:nextj:forj=150to140step-1
  47. 1440 pokev+i,j:next:forj=140to150step.5:pokev+i,j:nextj,i
  48. 1450 fori=216to223:poke53270,i:forj=1to9step4:pokev+j,i-72:nextj,i
  49. 1460 fori=223to216step-1:poke53270,i:forj=1to9step4:pokev+j,i-72:nextj,i
  50. 1470 ifpeek(198)=0andpeek(56320)=127then1450
  51. 1480 pokev+21,0:return
  52. 1490 rem##############################
  53. 1500 rem# menu                       #
  54. 1510 rem##############################
  55. 1520 pokev+17,0
  56. 1530 print"[147][151]";
  57. 1540 print"[203][212][212][212][212][212][212][212][212][212][212][212][212][204]"
  58. 1550 print"[214][156]game[151][216][156]options[151][215]"
  59. 1560 print"[205][213][213][213][213][213][213][213][213][213][213][213][213][206]"
  60. 1570 print"  [201][202]      [201][202]"
  61. 1580 print"[203][212][204]  [203][204]      [203][204][200][200][200][200][200][200][200][203][212][212][212][212][212][212][204]"
  62. 1590 print"[214][156]s[151][215]  [214][215]      [214][215]       [214][156]scores[151][215]"
  63. 1600 print"[205][213][206]  [205][206]      [205][206][200][200][200][200][200][200][200][205][213][213][213][213][213][213][206]"
  64. 1610 print"[203][212][204]    [201][202]                  [201][202]"
  65. 1620 print"[214][156][160][151][215]    [201][202]                  [201][202]"
  66. 1630 print"[214][156][160][151][215][200][203][212][212][212][212][212][204]              [203][212][212][212][204]"
  67. 1640 print"[214][156][160][151][215] [214][156]speed[151][215][200][200][200][200][200][207]  [207][200][200][200][200][200][214][156]see[151][215]"
  68. 1650 print"[214][156][160][151][215][200][205][213][213][213][213][213][206]     [217]  [217]     [205][213][213][213][206]"
  69. 1660 print"[214][156][160][151][215]    [201][202]       [217]  [217]       [201][202]"
  70. 1670 print"[205][213][206]    [201][202]       [217]  [217]       [201][202]"
  71. 1680 print"[203][212][204]  [203][212][212][212][212][204]     [217]  [217]     [203][212][212][212][212][204]"
  72. 1690 print"[214][156]f[151][215]  [214][156]play[151][215][200][200][207]  [217]  [217]  [207][200][200][214][156]save[151][215]"
  73. 1700 print"[205][213][206]  [205][213][213][213][213][206]  [217]  [217]  [217]  [217]  [205][213][213][213][213][206]"
  74. 1710 print" [217]           [217]  [217]  [217]  [217]"
  75. 1720 print"[203][212][204]         [203][212][204][203][212][204][203][212][204][203][212][204]"
  76. 1730 print"[214][255][215]         [214][255][215][214][255][215][214][255][215][214][255][215]"
  77. 1740 print"[205][213][206]         [205][213][206][205][213][206][205][213][206][205][213][206]"
  78. 1750 poke17400,237:pokev+28,1:pokev+37,15:pokev+38,11:pokev+39,12:pokev,55
  79. 1760 pokev+1,sp:pokev+23,0:pokev+21,1
  80. 1770 pokev+17,27
  81. 1780 x=0
  82. 1790 poke17201+x,95:j=peek(56320)
  83. 1800 fori=1to50:next
  84. 1810 ifj=119andx<9thenpoke17201+x,94:x=x+3:goto1790
  85. 1820 ifj=123andx>0thenpoke17201+x,94:x=x-3:goto1790
  86. 1830 ifj<>111then1790
  87. 1840 ifx=3thengosub1890:wait56320,16,0:goto1790
  88. 1850 pokev+21,0
  89. 1860 ifx=9thengosub1980:goto1790
  90. 1870 ifx=0then2260
  91. 1880 ifx=6then2060
  92. 1890 rem##############################
  93. 1900 rem# game-speed                 #
  94. 1910 rem##############################
  95. 1920 poke17204,94:poke17189,95:wait56320,16,0
  96. 1930 x=peek(v+1)
  97. 1940 j=peek(56320):ifj=126andx>116thenpokev+1,peek(v+1)-1:goto1930
  98. 1950 ifj=125andx<150thenpokev+1,peek(v+1)+1:goto1930
  99. 1960 ifj=<111thenpoke17204,95:poke17189,94:sp=peek(v+1):x=3:return
  100. 1970 goto1930
  101. 1980 rem##############################
  102. 1990 rem# save scores                #
  103. 2000 rem##############################
  104. 2010 if peek (186)=1 then 2050 :rem kassette kein highscore
  105. 2011 pokev+21,0:pokev+17,0
  106. 2020 open1,8,15,"s:rowly scores":close1
  107. 2030 open2,8,2,"rowly scores,s,w"
  108. 2040 fori=1to5:print#2,h$(i):next
  109. 2050 close2:pokev+21,1:pokev+17,27:return
  110. 2060 rem##############################
  111. 2070 rem# hero list                  #
  112. 2080 rem##############################
  113. 2090 pokev+17,0:print"[147][155]";:pokev+35,5
  114. 2100 print"  [207][200][200][200][200][200][200][200][203][212][212][212][212][212][212][212][212][212][212][212][212][212][212][204][200][200][200][200][200][200][200][207]"
  115. 2110 print"  [217]       [214][203][212][212][212][212][212][212][212][212][212][212][212][212][204][215]       [217]"
  116. 2120 print"  [217] [207][200][200][200][200][200][214][214][216][216]greatest[155][216][216][215][215][200][200][200][200][200][207] [217]"
  117. 2130 print"  [217] [217]     [214][214][216][216][216][216][216][216][216][216][216][216][216][216][215][215]     [217] [217]"
  118. 2140 print"  [217] [217] [207][200][200][200][214][214][216][216][216]scores[155][216][216][216][215][215][200][200][200][207] [217] [217]"
  119. 2150 print"  [217] [217] [217]   [214][205][213][213][213][213][213][213][213][213][213][213][213][213][206][215]   [217] [217] [217]"
  120. 2160 print"  [217] [217] [217] [207][200][205][213][213][213][213][213][213][213][213][213][213][213][213][213][213][206][200][207] [217] [217] [217]"
  121. 2170 print"  [217] [217] [217] [217]     [201][202]    [201][202]     [217] [217] [217] [217]"
  122. 2180 fori=1to5
  123. 2190 print"[203][212][204][200][203][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][204][200][203][212][212][212][212][212][204]"
  124. 2200 print"[214]"mid$(str$(i),2)"[155][215] [214]"right$(h$(i),18)"[155][215] [214]"left$(h$(i),5);
  125. 2210 print"[155][215]"
  126. 2220 print"[205][213][206][200][205][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][206][200][205][213][213][213][213][213][206]"
  127. 2230 next
  128. 2240 pokev+17,27
  129. 2250 wait56320,16,0:wait56320,16,16:pokev+35,4:goto1490
  130. 2260 rem##############################
  131. 2270 rem# game                       #
  132. 2280 rem##############################
  133. 2290 ro=1:ss=315-sp*2:li=3:pokev+17,0:gosub2430
  134. 2300 fori=900to910:pokei,0:next
  135. 2310 ru=ro:poke17312,48+li-1
  136. 2320 ifru<=5then2340
  137. 2330 ifru>5thenru=ru-5:ss=ss-5:goto2330
  138. 2340 ifss<20thenss=20
  139. 2350 onrugosub3520,3680,3820,3990,4040
  140. 2360 pokev+17,27
  141. 2370 poke904,ss          :rem speed
  142. 2380 poke906,po          :rem points
  143. 2390 fori=1toro:sysm+9:next
  144. 2400 sysm:sysm+3
  145. 2410 gosub2600
  146. 2420 onpeek(902)goto2910,2670,2760
  147. 2430 rem##############################
  148. 2440 rem# screen                     #
  149. 2450 rem##############################
  150. 2460 print"[147][151]";
  151. 2470 print"[203][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][204][200][200][203][212][212][212][212][212][212][212][212][212][212][212][212][212][204]";
  152. 2480 print"[214]@adedhjkjn[146][216]0:0:0:0:0:[146][215][198][198][214]jkdhdhqr[146][216]0:0:[146][215]";
  153. 2490 print"[214]bcfgfilmop[146][216][196][206][196][206][196][206][196][206][196][206][146][215][199][199][214]lmfifill[146][216][196][206][196][206][146][215]";
  154. 2500 print"[205][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][206][200][200][205][213][213][213][213][213][213][213][213][213][213][213][213][213][206][149]";
  155. 2510 fori=1to17
  156. 2520 print"[201][202]                                  [201][202]"
  157. 2530 next
  158. 2540 print"[201][202][149][193][193][193][193][195]                             [201][202]"
  159. 2550 print"[151][203][212][212][212][212][212][212][212][212][204][200][200][203][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][204]";
  160. 2560 print"[214][156]lives[151][216][156]00[151][215]  [214][156]time[151][216][155][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][151][215]";
  161. 2570 print"[205][213][213][213][213][213][213][213][213][206][200][200][205][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][155]";
  162. 2580 poke17383,78:poke56295,11
  163. 2590 return
  164. 2600 rem##############################
  165. 2610 rem# destroy rowly              #
  166. 2620 rem##############################
  167. 2630 x=peek(900)-1
  168. 2640 fori=0toxstep2
  169. 2650 poke(peek(52000+i)*256+peek(52001+i))+41,32:ifpeek(902)=3thensysm+6
  170. 2660 forj=1to4:nextj,i:return
  171. 2670 rem##############################
  172. 2680 rem# kamikaze                   #
  173. 2690 rem##############################
  174. 2700 print"[151][203][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][204]"
  175. 2710 print"[214][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][215]"
  176. 2720 print"[214][216][216][216][156]no!time!left[151][216][216][216][215]"
  177. 2730 print"[214][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][215]"
  178. 2740 print"[205][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][206]"
  179. 2750 goto3000
  180. 2760 rem##############################
  181. 2770 rem# next level                 #
  182. 2780 rem##############################
  183. 2790 ro=ro+1
  184. 2800 print"[151][203][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][204]"
  185. 2810 print"[214][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][215]"
  186. 2820 print"[214][216][156]level!!completed[151][216][215]"
  187. 2830 print"[214][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][215]"
  188. 2840 print"[205][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][206]"
  189. 2850 sysm+12:ifpeek(902)=3thensysm+6:fori=1to20:next:goto2850
  190. 2860 wait56320,16,0:wait56320,16,16:pokev+17,0
  191. 2870 fori=0to9:poke53000+i,peek(16436+i):poke53040+i,peek(16476+i):next
  192. 2880 gosub2430
  193. 2890 fori=0to9:poke16436+i,peek(53000+i):poke16476+i,peek(53040+i):next
  194. 2900 goto2300
  195. 2910 rem##############################
  196. 2920 rem# out of time                #
  197. 2930 rem##############################
  198. 2940 print"[151][203][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][204]"
  199. 2950 print"[214][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][215]"
  200. 2960 print"[214][216][216][156]kamikaze!!worm[151][216][216][215]"
  201. 2970 print"[214][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][215]"
  202. 2980 print"[205][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][206]"
  203. 2990 goto3000
  204. 3000 rem##############################
  205. 3010 rem# life lost/game over        #
  206. 3020 rem##############################
  207. 3030 wait56320,16,0:wait56320,16,16:pokev+17,0
  208. 3040 li=li-1:ifli=0then3090
  209. 3050 fori=0to9:poke53000+i,peek(16436+i):poke53040+i,peek(16476+i):next
  210. 3060 gosub2430
  211. 3070 fori=0to9:poke16436+i,peek(53000+i):poke16476+i,peek(53040+i):next
  212. 3080 goto2300
  213. 3090 print"[151][203][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][204]"
  214. 3100 print"[214][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][215]"
  215. 3110 print"[214][216][216][216][216][156]game!!over[151][216][216][216][216][215]"
  216. 3120 print"[214][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][215]"
  217. 3130 print"[205][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][206]":pokev+17,27
  218. 3140 sc$="":fori=0to8step2:sc$=sc$+chr$(peek(16436+i)-128):next
  219. 3150 wait56320,16,16:wait56320,16,0
  220. 3160 ifsc$>left$(h$(5),5)then3180
  221. 3170 goto1490
  222. 3180 rem##############################
  223. 3190 rem# name input                 #
  224. 3200 rem##############################
  225. 3210 pokev+17,0:print"[147][151]";
  226. 3220 print"[203][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][212][204]
  227. 3230 [153]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)
  228. 3240 print"[214][216][216][156]congratulations[151][216][216][215]
  229. 3250 [153]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)
  230. 3260 print"[205][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][213][206]
  231. 3270 [129]i[178]1[164]3:[153]"right$mid$   right$mid$":[130]
  232. 3280 [153]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)"
  233. 3290 [153]"(NULL)(NULL)clrthis!is!a!great!scorepoke(NULL)(NULL)"
  234. 3300 [153]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)"
  235. 3310 [129]i[178]1[164]3:[153]"right$mid$   right$mid$":[130]
  236. 3320 [153]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)left$left$left$(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)"
  237. 3330 [153]"(NULL)clr"sc$"poke(NULL)   (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)"
  238. 3340 [153]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)left$left$left$(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)"
  239. 3350 [151]v[170]17,27
  240. 3360 h$[178]""
  241. 3370 [151]198,0:[146]198,1:[161]a$:[139]a$[178][199](13)[175][195](h$)[177]0[167]3450
  242. 3380 [139]a$[178][199](20)[175][195](h$)[177]0[167]h$[178][200](h$,[195](h$)[171]1):[137]3420
  243. 3390 [139]a$[178]" "[167]a$[178]"!":[137]3410
  244. 3400 [139]a$[179]"a"[176]a$[177]"z"[167]3370
  245. 3410 h$[178]h$[170]a$
  246. 3420 [153]"clr";[200](h$[170]"!!!!!!!!!!!!!!!!!!",18)
  247. 3430 [139][195](h$)[178]18[167]3450
  248. 3440 [137]3370
  249. 3450 h$[178]sc$[170][200](h$[170]"!!!!!!!!!!!!!!!!!!",18)
  250. 3460 [129]j[178]1[164]5:[139]h$[179]h$(j)[167][130]
  251. 3470 [129]i[178]6[164]j[170]1[169][171]1:h$(i)[178]h$(i[171]1):[130]
  252. 3480 h$(j)[178]h$:[137]2060
  253. 3490 [143]##############################
  254. 3500 [143]# rooms                      #
  255. 3510 [143]##############################
  256. 3520 [153]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)"
  257. 3530 [153]"(NULL)(NULL)left$left$left$left$left$left$(NULL)(NULL) (NULL)(NULL)left$left$left$left$left$left$(NULL)(NULL) (NULL)(NULL)left$left$left$left$left$left$(NULL)(NULL)"
  258. 3540 [153]"tan(NULL)(NULL) tantantantan (NULL)(NULL) (NULL)(NULL) tantantantan (NULL)(NULL) (NULL)(NULL) tantantantan (NULL)(NULL)tan"
  259. 3550 [153]"tanright$mid$ (NULL)(NULL)(NULL)(NULL) right$mid$ right$mid$ (NULL)(NULL)(NULL)(NULL) right$mid$ right$mid$ (NULL)(NULL)(NULL)(NULL) right$mid$tan"
  260. 3560 [153]"tan(NULL)(NULL) (NULL)(NULL)(NULL)(NULL) (NULL)(NULL) (NULL)(NULL) (NULL)(NULL)(NULL)(NULL) (NULL)(NULL) (NULL)(NULL) (NULL)(NULL)(NULL)(NULL) (NULL)(NULL)tan"
  261. 3570 [153]"tan(NULL)(NULL)tan(NULL)(NULL)(NULL)(NULL)tan(NULL)(NULL)tan(NULL)(NULL) (NULL)(NULL)(NULL)(NULL) (NULL)(NULL)tan(NULL)(NULL)tan(NULL)(NULL)(NULL)(NULL)tan(NULL)(NULL)tan"
  262. 3580 [153]"   tantantantantantantantantan   (NULL)(NULL)(NULL)(NULL)   tantantantantantantantantan
  263. 3590 print" [208][209][198][198][198][198][198][198][198][198][198][198][198][198][214][215][214][215][198][198][198][198][198][198][198][198][198][198][198][198][208][209]
  264. 3600 [153]" (NULL)(NULL)chr$chr$chr$chr$chr$chr$chr$chr$chr$chr$chr$chr$(NULL)(NULL)(NULL)(NULL)chr$chr$chr$chr$chr$chr$chr$chr$chr$chr$chr$chr$(NULL)(NULL)
  265. 3610 print"    [192][192][192][192][192][192][192]    [214][215][214][215]    [192][192][192][192][192][192][192]
  266. 3620 [153]"left$left$left$left$left$left$left$left$left$left$left$left$left$(NULL)(NULL) (NULL)(NULL)(NULL)(NULL) (NULL)(NULL)left$left$left$left$left$left$left$left$left$left$left$left$left$";
  267. 3630 [153]"  tantantantantantantantan  (NULL)(NULL) (NULL)(NULL)(NULL)(NULL) (NULL)(NULL)  tantantantantantantantan"
  268. 3640 [153]" (NULL)left$left$left$left$left$left$left$left$(NULL) (NULL)(NULL) (NULL)(NULL)(NULL)(NULL) (NULL)(NULL) (NULL)left$left$left$left$left$left$left$left$(NULL)
  269. 3650 print" [192] [192] [192] [192] [192] [192] [192] [192]  [192] [192] [192] [192] [192] [192] [192] [192]"
  270. 3660 print"[207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207]"
  271. 3670 po=90:return
  272. 3680 print"[208][209][192][208][209] [208][209][192][208][209][198][208][209][192][208][209] [208][209][198][208][209] [208][209][192][208][209] [208][209]"
  273. 3690 print"[210][211] [210][211][192][210][211] [210][211][199][210][211] [210][211][192][210][211][199][210][211][192][210][211] [210][211][192][210][211]"
  274. 3700 print"[203][204][200][200][200][200][200][203][204][203][204][203][204][200][200][200][200][200][200][203][204][203][204][203][204][203][204][200][200][200][200][200][200][200]";
  275. 3710 print"[205][206][200][200][200][200][200][205][206][205][206][205][206][200][200][200][200][200][200][205][206][205][206][205][206][205][206][200][200][200][200][200][200][200]";
  276. 3720 print"[201][202][192][192][192][192][192][201][202][201][202][201][202][192][192][192][192][192][192][201][202][201][202][201][202][201][202][192][192][192][192][192][192]"
  277. 3730 fori=1to4:print"[201][202][192][207][207][207][192][201][202][201][202][201][202][192][207][207][207][207][192][201][202][201][202][201][202][201][202][192][207][207][207][207][192]":next
  278. 3740 print"[203][204] [203][212][204] [203][212][212][212][212][204] [203][212][212][204] [203][212][212][204][203][212][212][204] [203][212][212][204]"
  279. 3750 print"[205][206][192][205][213][206][192][205][213][213][213][213][206] [205][213][213][206] [205][213][213][206][205][213][213][206][192][205][213][213][206][192]"
  280. 3760 print"       [192][192][192][192][192][192]      [192][192][192][192][192][192][192][192]"
  281. 3770 print"[207][207] [207][200][207] [207][200][207][207][200][207][192][207][200][200][207][192][207][200][200][207][207][200][200][207] [207][200][200][207]"
  282. 3780 print"       [192][192][192][192][192][192]      [192][192][192][192][192][192][192][192]"
  283. 3790 print"[207][207] [207][200][207] [207][200][207][207][200][207][192][207][200][200][207][192][207][200][200][207][207][200][200][207] [207][200][200][207]"
  284. 3800 print"[192][192][192][192][192][192]      [192][192][192][192][192][192][192][192]"
  285. 3810 po=99:return
  286. 3820 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201][202][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  287. 3830 print"[203][212][212][212][212][212][212][204][192][203][212][212][212][212][212][212][204] [201][202] [203][212][212][212][204][192][203][212][212][212][204]"
  288. 3840 print"[205][213][213][213][213][213][213][206][192][205][213][213][213][213][213][213][206] [201][202] [205][213][213][213][206][192][205][213][213][213][206]"
  289. 3850 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201][202][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  290. 3860 print"[203][212][212][212][212][212][212][204][192][203][212][212][212][212][212][212][204] [201][202] [203][212][212][212][204][192][203][212][212][212][204]"
  291. 3870 print"[205][213][213][213][213][213][213][206][192][205][213][213][213][213][213][213][206] [201][202] [205][213][213][213][206][192][205][213][213][213][206]"
  292. 3880 print"                  [201][202]
  293. 3890 [153]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL) right$mid$ (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)"
  294. 3900 [153]"                  right$mid$
  295. 3910 print" [207][207][207][200][200][200][200][200][200][200][200][207][192][207][200][200][200][200][203][212][212][204][200][200][200][200][200][207][192][207][207][192][207][207]"
  296. 3920 print" [207][207][207][200][200][200][200][200][200][200][200][207][192][207][200][200][200][200][205][213][213][206][200][200][200][200][200][207][192][207][207][192][207][207]"
  297. 3930 print" [203][204][198][198][198][198][198][198][198][198][203][204] [203][204][198][198][203][204] [203][204][198][198][198][198][198][198][198][198][203][204] "
  298. 3940 print" [205][206][199][199][199][199][199][199][199][199][205][206] [205][206][199][199][205][206] [205][206][199][199][199][199][199][199][199][199][205][206] "
  299. 3950 print
  300. 3960 print" [203][204][198][198][198][198][198][198][203][204] [203][204][198][198][198][198][198][198][203][204] [203][204][198][198][198][198][198][198][203][204] "
  301. 3970 print" [205][206][199][199][199][199][199][199][205][206] [205][206][199][199][199][199][199][199][205][206] [205][206][199][199][199][199][199][199][205][206] "
  302. 3980 po=78:return
  303. 3990 fori=1to7:print" [192]   [192] [192]   [192] [192]      [192] [192]   [192] [192]   [192]"
  304. 4000 print"[192][207][207] [207][207][192][207][207] [207][207][192][207][200][200][200][200][200][200][207][192][207][207] [207][207][192][207][207] [207][207][192]":next
  305. 4010 print" [207][207] [207][200][200][200][207] [207][207] [207][200][200][200][200][200][200][207] [207][207] [207][200][200][200][207] [207][207] "
  306. 4020 print" [207][207] [207][200][200][200][207] [207][207] [207][200][200][200][200][200][200][207] [207][207] [207][200][200][200][207] [207][207] "
  307. 4030 po=112:return
  308. 4040 print"         [192][192][192][192][192][192]     [192][192][192][192][192][192]"
  309. 4050 print"[203][204][198][198][198][198][198][198][198][198][198][198][198][198][203][204] [203][204][198][198][198][198][198][198][198][198][198][198][198][203][204]"
  310. 4060 print"[205][206][199][199][199][199][199][199][199][199][199][199][199][199][205][206] [205][206][199][199][199][199][199][199][199][199][199][199][199][205][206]"
  311. 4070 print"[207]       [192][192][192][192][192][192]     [192][192][192][192][192][192]      [207]"
  312. 4080 print"[207] [207][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][207] [207]"
  313. 4090 print"[207] [207]     [192][192][192][192][192][192]     [192][192][192][192][192][192]    [207] [207]"
  314. 4100 print"[207] [207] [207][200][200][200][200][200][200][200][200][200][200][207] [207][200][200][200][200][200][200][200][200][200][207] [207] [207]"
  315. 4110 print"[207] [192] [207]   [192][192][192][192][192][192]     [192][192][192][192][192][192]  [207] [207] [207]"
  316. 4120 print"[207] [207] [207] [203][204][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][203][204] [207] [207] [207]"
  317. 4130 print"[207] [207] [207] [205][206][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][205][206] [207] [207] [207]"
  318. 4140 print"[207] [207] [207]   [192][192][192][192][192][192]     [192][192][192][192][192][192]  [207] [192] [207]"
  319. 4150 print"[207] [207] [207][200][200][200][200][200][200][200][200][200][200][207] [207][200][200][200][200][200][200][200][200][200][207] [207] [207]"
  320. 4160 print"[207] [207]     [192][192][192][192][192][192]     [192][192][192][192][192][192]    [207] [207]"
  321. 4170 print"[207] [207][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][200][207] [207]"
  322. 4180 print"[207]       [192][192][192][192][192][192]     [192][192][192][192][192][192]      [207]"
  323. 4190 print"[203][204][198][198][198][198][198][198][198][198][198][198][198][198][203][204] [203][204][198][198][198][198][198][198][198][198][198][198][198][203][204]"
  324. 4200 print"[205][206][199][199][199][199][199][199][199][199][199][199][199][199][205][206] [205][206][199][199][199][199][199][199][199][199][199][199][199][205][206]"
  325. 4210 print"[192][192][192][192][192][192]     [192][192][192][192][192][192]"
  326. 4220 po=98:return
  327.