home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_85-02_1985_Verlag_Heinz_Weise_de.d64 / labyrinth (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  11KB  |  362 lines
  1. 1 poke50257,16
  2. 10 poke53280,14:poke53281,14:poke56,128:clr
  3. 20 print"[147][176][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][192][192][192][192][192][192][192][192][192][174]"
  4. 30 print"[221][151][172][172][187][146][187][161][146][161][161][146][161][161][172][187][146][187][161][172][162][146][190][161][172][187][146][187][221]"
  5. 40 print"[221][152][188][188][146][162] [161][146][161][161][146][161][161][188][190][146][190][161][188][146][187] [161][188][190][146][190][221]"
  6. 50 print"[221][155][172][187][161][146][161][161][146][161][161][146][161][161][146][161]  [161][146][161]  [161][172][188][146] [221]"
  7. 60 print"[221] [162][162][146]  [162][162][146] [188][190]  [188][162][162][146][190][188][190][188][190][221]"
  8. 70 print"[221]                                    [221]"
  9. 80 print"[221][155][161][146][161]   [190][188][146] [161][172][187][146][187][161][146][161][161][146][161][161][172][187][146][187] [187][172][146] [161][188][161][146][161][188][187][172][146][190][161][146][161][161][146][161][221]"
  10. 90 print"[221][152][161][146][161]  [161][188][190][146][161][161][188][190][146][190][188][188][190][146][190][161][188][190][146][190] [161][146][161] [161]  [146][161] [161][146][161] [161][188][190][146][161][221]"
  11. 100 print"[221][151][161][146][161]  [161][146][161][161][146][161][161][146][161][161][146][161] [161][146][161] [161][146][161][188][146]  [161][146][161] [161][146][161][187][146][161] [161][146][161] [161][146][161][161][146][161][221]"
  12. 110 print"[221][144][188][162][162][162][146][188][190][188][190][188][162][162][146]  [188][190] [188][190][188][190] [162][162][146] [188][190][188][190] [188][190] [188][190][188][190][221]"
  13. 120 print"[221]                                    [221]"
  14. 130 print"[221]    von  * * [200][203]-[211]oftware * * 1985   [221]"
  15. 140 print"[173][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][192][192][192][192][192][192][192][192][192][189]"
  16. 150 print"[158][172][162][187]"
  17. 160 print"[161][211][146][161]pielanleitung"
  18. 170 print"[188][162][146][190]"
  19. 180 print"[153][172][162][187]"
  20. 190 print"[161][197][146][161]inzelspiel"
  21. 200 print"[188][162][146][190]"
  22. 210 print"[159][172][162][187]"
  23. 220 print"[161][196][146][161]oppelspiel"
  24. 230 print"[188][162][146][190]"
  25. 240 gett$
  26. 250 ift$="s"then290
  27. 260 ift$="e"then440
  28. 270 ift$="d"then780
  29. 280 goto240
  30. 290 poke53280,7:poke53281,7
  31. 300 print"[147][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
  32. 310 print"[161][211] [213] [208] [197] [210] [204] [193] [194] [217] [210] [201] [206] [212] [200][146][161]"
  33. 320 print"[188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
  34. 330 print"[129] [218]iel des [211]pieles ist es, in moeglichst"
  35. 340 print"kurzer [218]eit den [215]eg durch das [204]abyrinth"
  36. 350 print"zu finden. [202]e schneller das gelingt,"
  37. 360 print"desto hoeher ist die [208]unktzahl."
  38. 370 print"[150] [199]esteuert wird entweder ueber die"
  39. 380 print"[212]astatur oder ueber [202]oystick."
  40. 390 print"[154] [196]er [211]pieler kann durch [196]ruecken der"
  41. 400 print"'[210][197][211][212][207][210][197]'-[212]aste aufgeben."
  42. 410 print"mit '[211][208][193][195][197]' zurueck zum [205]enue";
  43. 420 gett$:ift$<>" "then420
  44. 430 goto10
  45. 440 poke53280,13:poke53281,13
  46. 450 print"[147][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
  47. 460 print"[161][211] [213] [208] [197] [210] [204] [193] [194] [217] [210] [201] [206] [212] [200][146][161]"
  48. 470 print"[188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
  49. 480 print"[197] i n z e l s p i e l"
  50. 490 print"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  51. 500 poke828,0
  52. 510 print"[197]ingabe erfolgt ueber:"
  53. 520 print"[150][172][162][187]"
  54. 530 print"[161]1[146][161]...[212]astatur"
  55. 540 print"[188][162][146][190]"
  56. 550 print"[129][172][162][187]"
  57. 560 print"[161]2[146][161]...[202]oystick [208]ort 1"
  58. 570 print"[188][162][146][190]"
  59. 580 gett$
  60. 590 ift$="2"thenpoke829,0:goto1410
  61. 600 ift$<>"1"then580
  62. 610 poke829,1
  63. 620 poke53280,7:poke53281,7
  64. 630 print"[147][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
  65. 640 print"[161][211] [213] [208] [197] [210] [204] [193] [194] [217] [210] [201] [206] [212] [200][146][161]"
  66. 650 print"[188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
  67. 660 fori=831to846:pokei,255:nexti
  68. 670 print"[129][215]elche [212]aste fuer hoch ? "chr$(34)chr$(20);
  69. 680 gosub760:poke831,t:gett$:printt$
  70. 690 print"[215]elche [212]aste fuer runter ? "chr$(34)chr$(20);
  71. 700 gosub760:poke833,t:gett$:printt$
  72. 710 print"[215]elche [212]aste fuer links ? "chr$(34)chr$(20);
  73. 720 gosub760:poke835,t:gett$:printt$
  74. 730 print"[215]elche [212]aste fuer rechts ? "chr$(34)chr$(20);
  75. 740 gosub760:poke837,t:gett$:printt$
  76. 750 goto1410
  77. 760 poke198,0:wait198,1:t=peek(197):fori=831to846:ift=peek(i)then760
  78. 770 nexti:return
  79. 780 poke53280,3:poke53281,3
  80. 790 print"[147][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
  81. 800 print"[161][211] [213] [208] [197] [210] [204] [193] [194] [217] [210] [201] [206] [212] [200][146][161]"
  82. 810 print"[188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
  83. 820 print"[196] o p p e l s p i e l"
  84. 830 print"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  85. 840 poke828,255
  86. 850 print"[156][197]ingabe erfolgt ueber:"
  87. 860 print"[154][221][211]pieler 1      [221][211]pieler 2"
  88. 870 print"[192][192][192][219][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  89. 880 print"[161]1[146][161][154][221][212]astatur       [154][221][212]astatur"
  90. 890 print"[154][192][192][192][219][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  91. 900 print"[152][161]2[146][161][154][221][152][212]astatur       [154][221][152][202]oystick [208]ort 2"
  92. 910 print"[154][192][192][192][219][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  93. 920 print"[151][161]3[146][161][154][221][151][202]oystick [208]ort 1[154][221][151][202]oystick [208]ort 2"
  94. 930 gett$
  95. 940 ift$="3"thenpoke829,0:poke830,0:goto1410
  96. 950 ift$="2"thenpoke829,1:poke830,0:goto1270
  97. 960 ift$<>"1"then930
  98. 970 poke829,1:poke830,1
  99. 980 poke53280,1:poke53281,1
  100. 990 print"[152][147][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
  101. 1000 print"[161][211] [213] [208] [197] [210] [204] [193] [194] [217] [210] [201] [206] [212] [200][146][161]"
  102. 1010 print"[188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
  103. 1020 print"[155][211]pieler 1"
  104. 1030 print"[184][184][184][184][184][184][184][184][184]"
  105. 1040 fori=831to846:pokei,255:nexti
  106. 1050 print"[154][215]elche [212]aste fuer hoch ? "chr$(34)chr$(20);
  107. 1060 gosub760:poke831,t:gett$:printt$
  108. 1070 print"[215]elche [212]aste fuer runter ? "chr$(34)chr$(20);
  109. 1080 gosub760:poke833,t:gett$:printt$
  110. 1090 print"[215]elche [212]aste fuer links ? "chr$(34)chr$(20);
  111. 1100 gosub760:poke835,t:gett$:printt$
  112. 1110 print"[215]elche [212]aste fuer rechts ? "chr$(34)chr$(20);
  113. 1120 gosub760:poke837,t:gett$:printt$
  114. 1130 print"[152][147][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
  115. 1140 print"[161][211] [213] [208] [197] [210] [204] [193] [194] [217] [210] [201] [206] [212] [200][146][161]"
  116. 1150 print"[188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
  117. 1160 print"[155][211]pieler 2"
  118. 1170 print"[184][184][184][184][184][184][184][184][184]"
  119. 1180 print"[154][215]elche [212]aste fuer hoch ? "chr$(34)chr$(20);
  120. 1190 gosub760:poke839,t:gett$:printt$
  121. 1200 print"[215]elche [212]aste fuer runter ? "chr$(34)chr$(20);
  122. 1210 gosub760:poke841,t:gett$:printt$
  123. 1220 print"[215]elche [212]aste fuer links ? "chr$(34)chr$(20);
  124. 1230 gosub760:poke843,t:gett$:printt$
  125. 1240 print"[215]elche [212]aste fuer rechts ? "chr$(34)chr$(20);
  126. 1250 gosub760:poke845,t:gett$:printt$
  127. 1260 goto1410
  128. 1270 poke53280,12:poke53281,12
  129. 1280 print"[151][147][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
  130. 1290 print"[161][211] [213] [208] [197] [210] [204] [193] [194] [217] [210] [201] [206] [212] [200][146][161]"
  131. 1300 print"[188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]"
  132. 1310 fori=831to846:pokei,255:nexti
  133. 1320 print"[155][215]elche [212]aste fuer hoch ? "chr$(34)chr$(20);
  134. 1330 gosub760:poke831,t:gett$:printt$
  135. 1340 print"[215]elche [212]aste fuer runter ? "chr$(34)chr$(20);
  136. 1350 gosub760:poke833,t:gett$:printt$
  137. 1360 print"[215]elche [212]aste fuer links ? "chr$(34)chr$(20);
  138. 1370 gosub760:poke835,t:gett$:printt$
  139. 1380 print"[215]elche [212]aste fuer rechts ? "chr$(34)chr$(20);
  140. 1390 gosub760:poke837,t:gett$:printt$
  141. 1400 goto1410
  142. 1410 diman%(4,5)
  143. 1420 y%(1)=-40:y%(2)=-1:y%(3)=1:y%(4)=40
  144. 1430 an%(1,1)=107
  145. 1440 an%(1,2)=109
  146. 1450 an%(1,3)=113
  147. 1460 an%(1,4)=115
  148. 1470 an%(1,5)=125
  149. 1480 an%(2,1)=110
  150. 1490 an%(2,2)=113
  151. 1500 an%(2,3)=114
  152. 1510 an%(2,4)=115
  153. 1520 an%(2,5)=125
  154. 1530 an%(3,1)=107
  155. 1540 an%(3,2)=109
  156. 1550 an%(3,3)=112
  157. 1560 an%(3,4)=113
  158. 1570 an%(3,5)=114
  159. 1580 an%(4,1)=107
  160. 1590 an%(4,2)=110
  161. 1600 an%(4,3)=112
  162. 1610 an%(4,4)=114
  163. 1620 an%(4,5)=115
  164. 1630 dimze$(35):dimz%(14)
  165. 1640 z%(1)=107:ze$(17)="1334"
  166. 1650 z%(2)=109:ze$(19)="1331"
  167. 1660 z%(3)=110:ze$(20)="4224"
  168. 1670 z%(4)=112:ze$(22)="3434"
  169. 1680 z%(5)=113:ze$(23)="1232"
  170. 1690 z%(6)=114:ze$(24)="3234"
  171. 1700 z%(7)=115:ze$(25)="1244"
  172. 1710 z%(8)=125:ze$(35)="1221"
  173. 1720 z%(9)=91:ze$(1)="1234"
  174. 1730 dimr%(40)
  175. 1740 j=rnd(0)*40
  176. 1750 fori=jto40
  177. 1760 readr%(i)
  178. 1770 next
  179. 1780 fori=0toj-1
  180. 1790 readr%(i)
  181. 1800 next
  182. 1810 data2,3,4,2,3,3,4,2,3,4,2,3,4,2,4,3,2,3,2,3,4,3,2,3,4,1,2,3,4,2,4,3,2,3,4
  183. 1820 data2,4,1,2,3
  184. 1830 poke53280,14:poke53281,14
  185. 1840 print"[154][147]  [193]ugenblick  [204]abyrinth wird erstellt   "
  186. 1850 fori=1104to1143
  187. 1860 pokei,160:pokei+840,160
  188. 1870 next
  189. 1880 fori=1104to1944step40
  190. 1890 pokei,160:pokei+39,160
  191. 1900 ifpeek(828)=0goto1920
  192. 1910 pokei+19,160:pokei+20,160
  193. 1920 next
  194. 1930 ifpeek(828)=0thenad%=1105+(rnd(0)*35):goto1950
  195. 1940 ad%=1105+(rnd(0)*15)
  196. 1950 pokead%,93:w%=1:gosub2360
  197. 1960 ad%=ad%+40:pokead%,91
  198. 1970 l1%=0:l2%=0::l3%=0:l4%=0
  199. 1980 ifl1%<39thenl1%=l1%+1:goto2000
  200. 1990 l1%=1
  201. 2000 p1%=peek(ad%)
  202. 2010 t%=val(mid$(ze$(p1%-90),r%(l1%),1))
  203. 2020 q%=ad%+y%(t%)
  204. 2030 p2%=peek(q%)
  205. 2040 ifp2%<>32goto2060
  206. 2050 goto2170
  207. 2060 ifp2%=160andq%<1945thenpokead%,91:q%=ad%+40:t%=4:goto2170
  208. 2070 ifp2%=160andq%>1944thenpokeq%,93:gosub2390:goto2190
  209. 2080 ifp2%>106andp2%<126andval(mid$(ze$(p2%-90),5-t%,1))=t%thenpokeq%,91:goto2180
  210. 2090 ifval(mid$(ze$(p2%-90),5-t%,1))=t%andx%<3thenx%=x%+1:goto2180
  211. 2100 ifx%>=3thenx%=0:q%=ad%+40:pokead%,91:t%=4:goto2170
  212. 2110 ifp2%=91thengoto2180
  213. 2120 ifp2%=160andq%>1944thenpokeq%,93:gosub2390:goto2190
  214. 2130 ifl2%<8thenl2%=l2%+1:goto1980
  215. 2140 l2%=0:fori=1943to1145step-1
  216. 2150 ifpeek(i)>106andpeek(i)<126thenpokei,91:ad%=i:t%=4:i=1145:next:goto2020
  217. 2160 next
  218. 2170 pokeq%,an%(5-t%,rnd(0)*5+1):poke1063,48+t%
  219. 2180 ad%=q%:goto1980
  220. 2190 fori=120to919
  221. 2200 ifpeek(1024+i)=32thenpoke1024+i,z%(rnd(0)*8+1)
  222. 2210 next
  223. 2220 fori=1to100
  224. 2230 l3%=rnd(0)*800+1104
  225. 2240 ifpeek(l3%)<>160andpeek(l3%)<>93thenpokel3%,91
  226. 2250 next
  227. 2260 ifpeek(828)=0then2340
  228. 2270 forx=0to19
  229. 2280 fory=0to23
  230. 2290 poke1084+x+y*40,peek(1064+x+y*40)
  231. 2300 poke55356+x+y*40,6
  232. 2310 poke55336+x+y*40,6
  233. 2320 next:next
  234. 2330 goto2420
  235. 2340 fori=55336to56295:pokei,6:next
  236. 2350 goto2420
  237. 2360 poke251,(ad%-40)and255
  238. 2370 poke252,(ad%-40)/256
  239. 2380 return
  240. 2390 poke253,(q%+40)and255
  241. 2400 poke254,(q%+40)/256
  242. 2410 return
  243. 2420 fori=0to14
  244. 2430 readz%(i)
  245. 2440 nexti
  246. 2450 fori=0to14
  247. 2460 readr%(i)
  248. 2470 nexti
  249. 2480 data110,112,125,109,93,93,93,91,64,64,64,107,115,113,114
  250. 2490 data12,6,9,3,5,5,5,15,10,10,10,7,13,11,14
  251. 2500 print"                                        "
  252. 2510 fori=960to1022:reada:pokei,a:nexti
  253. 2520 data60,0,0,24,0,0,60,0,0,219,0,0,24,0,0,60,0,0,102,0,0,102,0,0,0,0,0,0,0
  254. 2530 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  255. 2540 fori=32768to33176:reada:pokei,a:nexti
  256. 2550 data162,16,189,61,3,72,41,7,168,185,109,129,157,62,3,104,74,74,74,41,7
  257. 2560 data168,185,109,129,73,255,157,61,3,202,202,208,224,138,160,6,153,78,3
  258. 2570 data136,208,250,120,169,96,141,20,3,169,128,141,21,3,169,140,141,24,3,169
  259. 2580 data129,141,25,3,173,14,221,9,128,141,14,221,169,0,141,11,221,141,10,221
  260. 2590 data141,9,221,141,8,221,88,169,0,141,83,3,141,84,3,96,160,0,162,0,173,61
  261. 2600 data3,208,19,173,1,220,74,176,1,136,74,176,1,200,74,176,1,202,74,176,1
  262. 2610 data232,173,61,3,240,60,173,63,3,141,0,220,173,64,3,45,1,220,208,1,136
  263. 2620 data173,65,3,141,0,220,173,66,3,45,1,220,208,1,200,173,67,3,141,0,220,173
  264. 2630 data68,3,45,1,220,208,1,202,173,69,3,141,0,220,173,70,3,45,1,220,208,1
  265. 2640 data232,140,79,3,142,80,3,173,60,3,240,107,169,255,141,0,220,141,1,220,160
  266. 2650 data0,162,0,173,62,3,208,19,173,0,220,74,176,1,136,74,176,1,200,74,176,1
  267. 2660 data202,74,176,1,232,173,62,3,240,60,173,71,3,141,0,220,173,72,3,45,1,220
  268. 2670 data208,1,136,173,73,3,141,0,220,173,74,3,45,1,220,208,1,200,173,75,3,141
  269. 2680 data0,220,173,76,3,45,1,220,208,1,202,173,77,3,141,0,220,173,78,3,45,1
  270. 2690 data220,208,1,232,140,81,3,142,82,3,169,89,248,56,237,9,221,8,216,72,41
  271. 2700 data15,9,48,141,21,4,104,74,74,74,74,9,48,141,20,4,169,58,141,19,4,169,2
  272. 2710 data40,237,10,221,216,72,41,15,9,48,141,18,4,104,16,5,169,255,141,84,3,76
  273. 2720 data126,234,1,2,4,8,16,32,64,128,120,169,49,141,20,3,169,234,141,21,3,169
  274. 2730 data71,141,24,3,169,254,141,25,3,88,96,72,173,13,221,48,5,169,255,141,83
  275. 2740 data3,104,64
  276. 2750 sys32768
  277. 2760 a1=peek(251)+peek(252)*256
  278. 2770 a2=a1+20
  279. 2780 e=peek(253)+peek(254)*256
  280. 2790 pokea1,93:pokee,93:ifpeek(828)<>0thenpokea2,93:pokee+20,93:e=e-40
  281. 2800 poke2040,15:poke2041,15:poke53287,13:poke53288,1
  282. 2810 poke53269,1-2*(peek(828)<>0)
  283. 2820 gosub3490:poke53265,27
  284. 2830 ifpeek(847)<>0thengosub2980
  285. 2840 ifpeek(848)<>0thengosub3020
  286. 2850 ifpeek(849)<>0thengosub3110
  287. 2860 ifpeek(850)<>0thengosub3150
  288. 2870 ifa1<>ethen2890
  289. 2880 fori=0to3:poke1064+i,peek(1042+i):nexti:a1=a1+40
  290. 2890 ifa2<>(e+20)then2910
  291. 2900 fori=0to3:poke1100+i,peek(1042+i):nexti:a2=a2+40
  292. 2910 if(a1=e+40)and(a2=e+60)then3450
  293. 2920 if(a1=e+40)and(peek(828)=0)then3450
  294. 2930 ifpeek(852)<>0then3450
  295. 2940 ifpeek(851)=0then2820
  296. 2950 fori=0to3:poke1064+i,peek(1042+i):nexti
  297. 2960 ifpeek(828)<>0thenfori=0to3:poke1100+i,peek(1042+i):nexti
  298. 2970 goto3450
  299. 2980 r=peek(847)
  300. 2990 ifr=1thenr%=2
  301. 3000 ifr=255thenr%=0
  302. 3010 goto3050
  303. 3020 r=peek(848)
  304. 3030 ifr=1thenr%=1
  305. 3040 ifr=255thenr%=3
  306. 3050 a%=a1:gosub3240
  307. 3060 ifr%=0thena1=a1-40
  308. 3070 ifr%=1thena1=a1+1
  309. 3080 ifr%=2thena1=a1+40
  310. 3090 ifr%=3thena1=a1-1
  311. 3100 return
  312. 3110 r=peek(849)
  313. 3120 ifr=1thenr%=2
  314. 3130 ifr=255thenr%=0
  315. 3140 goto3180
  316. 3150 r=peek(850)
  317. 3160 ifr=1thenr%=1
  318. 3170 ifr=255thenr%=3
  319. 3180 a%=a2:gosub3240
  320. 3190 ifr%=0thena2=a2-40
  321. 3200 ifr%=1thena2=a2+1
  322. 3210 ifr%=2thena2=a2+40
  323. 3220 ifr%=3thena2=a2-1
  324. 3230 return
  325. 3240 z=peek(a%)
  326. 3250 if(z=160)or(z=32)thenr%=4:return
  327. 3260 fori=0to14
  328. 3270 ifz%(i)=zthenz%=i
  329. 3280 nexti
  330. 3290 if(r%(z%)and(2^r%))=0thenr%=4:return
  331. 3300 ifr%=0thena%=a%-40
  332. 3310 ifr%=1thena%=a%+1
  333. 3320 ifr%=2thena%=a%+40
  334. 3330 ifr%=3thena%=a%-1
  335. 3340 z=peek(a%)
  336. 3350 if(z=160)or(z=32)thenr%=4:return
  337. 3360 fori=0to14
  338. 3370 ifz%(i)=zthenz%=i
  339. 3380 nexti
  340. 3390 ifr%=0thenr1%=2
  341. 3400 ifr%=1thenr1%=3
  342. 3410 ifr%=2thenr1%=0
  343. 3420 ifr%=3thenr1%=1
  344. 3430 if(r%(z%)and(2^r1%))=0thenr%=4
  345. 3440 return
  346. 3450 sys33141
  347. 3460 print"taste druecken !"
  348. 3470 poke198,0:wait198,1:poke198,0
  349. 3480 poke53269,0:run
  350. 3490 x1=(a1-1024)-int((a1-1024)/40)*40
  351. 3500 y1=int((a1-1024)/40):ify1>24theny1=24
  352. 3510 poke53249,y1*8+50
  353. 3520 xp=x1*8+24:poke53248,(xp)and(255)
  354. 3530 poke53264,(peek(53264)and254)or(int(xp/256))
  355. 3540 ifpeek(828)=0thenreturn
  356. 3550 x2=(a2-1024)-int((a2-1024)/40)*40
  357. 3560 y2=int((a2-1024)/40):ify2>24theny2=24
  358. 3570 poke53251,y2*8+50
  359. 3580 xp=x2*8+24:poke53250,(xp)and(255)
  360. 3590 poke53264,(peek(53264)and253)or(int(xp/256)*2)
  361. 3600 return
  362.