home *** CD-ROM | disk | FTP | other *** search
/ Commodore Computer Club 13 / Commodore_Computer_Club_13_19xx_-_es.d64 / laberinto (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  7KB  |  238 lines
  1. 10 z=z+1:ifz=1thenload"lab.cm",8,1
  2. 20 ifz=2thenload"lab.spr",8,1
  3. 25 poke56,40:clr
  4. 30 v=53248:pokev+21,0
  5. 40 pokev+16,0:pokev+23,0:pokev+29,0
  6. 50 poke650,128
  7. 70 poke53280,0:poke53281,0
  8. 100 print"[147]              el laberinto
  9. 120 [129]t[178]0[164]1:[130]
  10. 150 [153]"print      usa el joystick en el port 2
  11. 170 print"      o las teclas      [158]y (arriba)
  12. 180 [153]"                        b (abajo)
  13. 190 print"                        h (derecha)
  14. 200 [153]"                        g (izquierda)
  15. 220 print"[154]            pulsa una tecla
  16. 250 [161]g$:[139]g$[178]""[167]250
  17. 300 la[178]1:vi[178]3:[153]"";
  18. 310 [151]v,30:[151]v[170]1,140:[151]v[170]39,1
  19. 320 [151]v[170]2,240:[151]v[170]3,137:[151]v[170]40,14
  20. 330 [151]v[170]4,115:[151]v[170]5,65:[151]v[170]41,11
  21. 340 [151]v[170]6,120:[151]v[170]7,210:[151]v[170]41,7
  22. 350 [151]v[170]8,215:[151]v[170]9,60:[151]v[170]42,12
  23. 360 [151]v[170]10,215:[151]v[170]11,210:[151]v[170]43,15
  24. 370 [151]v[170]12,26:[151]v[170]13,60:[151]v[170]44,4
  25. 380 [151]v[170]14,26:[151]v[170]15,205:[151]v[170]45,5
  26. 390 [129]t[178]0[164]7:[151]2040[170]t,192[170]t:[130]
  27. 400 [145] la [141] 1000,2000,3000,4000,5000,6000,7000
  28. 480 [141] 8000
  29. 500 [158]35000
  30. 530 [151]v[170]21,0
  31. 550 [139][194](251)[178]1[167]580
  32. 560 vi[178]vi[171]1:[139]vi[178]0[167]800
  33. 570 [137]600
  34. 580 la[178]la[170]1:[139]la[178]8[167]900
  35. 600 [151]v[170]21,0
  36. 610 [153]"load               preparado"
  37. 620 [129]t[178]0[164]1000:[130]
  38. 650 [137]310
  39. 800 [143] *** perdio
  40. 810 [153]"load               game over
  41. 820 print"[158]        recorriste ";la-1;"laberintos
  42. 830 [129]t[178]0[164]1000:[130]
  43. 850 [137]950
  44. 900 [143] *** llego al final
  45. 910 [153]"load               enhorabuena
  46. 920 print"     recorriste todos los laberintos
  47. 930 [129]t[178]0[164]1000:[130]
  48. 950 [153]"load           otra partida (s/n)
  49. 955 poke198,0
  50. 960 getg$:ifg$=""then 960
  51. 970 ifg$="s"then 30
  52. 999 end
  53. 1000 print"[147]"
  54. 1010 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]
  55. 1020 [153]"peek                          peek
  56. 1030 print"[194]                          [194]
  57. 1040 [153]"peek   orlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen    peek
  58. 1050 print"[194]   [194]                      [194]
  59. 1060 [153]"peek   peek                      peek
  60. 1070 print"[194]   [194]   [195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]
  61. 1080 [153]"peek   peek                      peek
  62. 1090 print"[194]   [194]                      [194]
  63. 1100 [153]"peek   peek
  64. 1110 print"[194]   [171][219][219][219][219][219][219][219][219]   [219][219][219][219][219][219][219][219]
  65. 1120 [153]"peek   peek
  66. 1130 print"[194]   [194]                      [194]
  67. 1140 [153]"peek   peek            close         peek
  68. 1150 print"[194]   [194]                      [194]
  69. 1160 [153]"peek   peek   lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen<
  70. 1170 print"[194]   [194]                      [194]
  71. 1180 [153]"peek   peek                      peek
  72. 1190 print"[194]   [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]    [194]
  73. 1200 [153]"peek                          peek
  74. 1210 print"[194]                          [194]
  75. 1220 [153]"/lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenexp
  76. 1250 pokev+21,3
  77. 1300 return
  78. 2000 print"[147]"
  79. 2010 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]
  80. 2020 [153]"peek                          peek
  81. 2030 print"[194]                          [194]
  82. 2040 [153]"peek                          peek
  83. 2050 print"[194]   [195][195][195][195][178][195][195][195][195][195][195][195][195][195][195][195][195][195][195]    [194]
  84. 2060 [153]"peek       peek                  peek
  85. 2070 print"[194]       [194]                  [194]
  86. 2080 [153]"peek       peek                  peek
  87. 2090 print"[171][195][195][195][174]   [194]    [219][195][195][195][195][195][195][195][195][195][195][195][195][195][179]
  88. 2100 [153]"peek   peek   peek    (NULL)
  89. 2110 print"[194]   [194]   [194]    [219]
  90. 2120 [153]"peek   peek   peek    (NULL)
  91. 2130 print"[194]   [194]   [194]    [219]             [194]
  92. 2140 [153]"peek   peek   peek    (NULL)   close  (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)<
  93. 2150 print"[194]   [194]   [194]    [219]             [194]
  94. 2160 [153]"peek   peek   peek    (NULL)             peek
  95. 2170 print"[194]   [194]   [194]    [219]             [194]
  96. 2180 [153]"peek   peek   peek    (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)     peek
  97. 2190 print"[194]   [194]   [194]                  [194]
  98. 2200 [153]"peek       peek                  peek
  99. 2210 print"[194]       [194]                  [194]
  100. 2220 [153]"/lenlenlenlenlenlenlen>lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenexp
  101. 2250 pokev+21,7
  102. 2300 return
  103. 3000 print"[147]"
  104. 3010 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][178][195][195][195][195][195][195][195][195][195][195][195][195][174]
  105. 3020 [153]"peek             peek            peek
  106. 3030 print"[194]             [194]            [194]
  107. 3040 [153]"peek             peek   (NULL)        peek
  108. 3050 print"[194]        [194]    [194]   [219]        [194]
  109. 3060 [153]"peek        peek        (NULL)        peek
  110. 3070 print"[194]        [194]        [219]        [194]
  111. 3080 [153]"peek        peek        (NULL)        peek
  112. 3090 print"[194]        [194]    [194]   [219][219][219][219]     [194]
  113. 3100 [153]"peek        peek    peek
  114. 3110 print"[194]        [194]    [194]
  115. 3120 [153]"peek        peek    -(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)
  116. 3130 print"[194]        [194]    [194]
  117. 3140 [153]"peek        peek    peek  close         peek
  118. 3150 print"[194]        [194]    [194]            [194]
  119. 3160 [153]"peek        peek         (NULL)(NULL)(NULL)     peek
  120. 3170 print"[194]        [194]         [219] [219]     [194]
  121. 3180 [153]"peek        peek         (NULL)(NULL)(NULL)     peek
  122. 3190 print"[194]             [194]            [194]
  123. 3200 [153]"peek             peek            peek
  124. 3210 print"[194]             [194]            [194]
  125. 3220 [153]"/lenlenlenlenlenlenlenlenlenlenlenlenlen>lenlenlenlenlenlenlenlenlenlenlenlenexp
  126. 3250 pokev+21,15
  127. 3300 return
  128. 4000 print"[147]"
  129. 4010 print"[176][195][195][195][195][195][195][195][195][195][178][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]
  130. 4020 [153]"peek         peek      (NULL)         peek
  131. 4030 print"[194]         [194]      [219]         [194]
  132. 4040 [153]"peek         peek                peek
  133. 4050 print"[194]    [194]    [194]                [194]
  134. 4060 [153]"peek    peek    peek   (NULL)      (NULL)     peek
  135. 4070 print"[194]    [194]    [194]    [219]     [219]     [194]
  136. 4080 [153]"peek    peek    peek     (NULL)    (NULL)     peek
  137. 4090 print"[194]    [194]    [194]      [219]   [219]     [194]
  138. 4100 [153]"peek    peek               (NULL)
  139. 4110 print"[194]    [194]       [219]       [219]
  140. 4120 [153]"peek    peek           (NULL)   (NULL)
  141. 4130 print"[194]    [194]    [194]     [219]    [219]     [194]
  142. 4140 [153]"peek    peek    peek    (NULL) close   (NULL)     peek
  143. 4150 print"[194]    [194]    [194]   [219]      [219]     [194]
  144. 4160 [153]"peek    peek    peek                peek
  145. 4170 print"[194]    [194]    [194]                [194]
  146. 4180 [153]"peek         peek                peek
  147. 4190 print"[194]         [194]      [219]         [194]
  148. 4200 [153]"peek         peek      (NULL)         peek
  149. 4210 print"[194]         [194]                [194]
  150. 4220 [153]"/lenlenlenlenlenlenlenlenlen>lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenexp
  151. 4250 pokev+21,31
  152. 4300 return
  153. 5000 print"[147]"
  154. 5010 print"[176][195][195][195][195][195][195][195][195][195][195][178][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]
  155. 5020 [153]"peek          peek               peek
  156. 5030 print"[194]          [194]   [160]           [194]
  157. 5040 [153]"peek          peek   close           peek
  158. 5050 print"[194]     [176][195][195][195][195][189][160][160] [195][195][195][195][195][174]      [194]
  159. 5060 [153]"peek     peek             peek      peek
  160. 5070 print"[194]     [194]                [194]   [194]
  161. 5080 [153]"peek     peek                peek   peek
  162. 5090 print"[194]     [194]      [219]         [194]   [194]
  163. 5100 [153]"peek            (NULL)      peek  peek
  164. 5110 print"[194]        [219][219][219][219][219][219][219][219]   [194]  [194]
  165. 5120 [153]"peek            (NULL)      peek  peek
  166. 5130 print"[194]     [194]      [219]      [194]  [194]   [194]
  167. 5140 [153]"peek     peek          close  peek      peek
  168. 5150 print"[194]     [194]             [194]      [194]
  169. 5160 [153]"peek     peek             peek      peek
  170. 5170 print"[194]     [194]             [194]      [194]
  171. 5180 [153]"peek     /lenlenlenlenlen   orlenlenlenlenexp      peek
  172. 5190 print"[194]              [194]           [194]
  173. 5200 [153]"peek              peek           peek
  174. 5210 print"[194]              [194]           [194]
  175. 5220 [153]"/lenlenlenlenlenlenlenlenlenlenlenlenlenlen>lenlenlenlenlenlenlenlenlenlenlenexp
  176. 5250 pokev+21,63
  177. 5300 return
  178. 6000 print"[147]"
  179. 6010 print"[176][195][195][195][195][195][195][195][195][195][195][195][178][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]
  180. 6020 [153]"peek           peek              peek
  181. 6030 print"[194]           [194]              [194]
  182. 6040 [153]"peek     peek     peek       (NULL)      peek
  183. 6050 print"[194]     [194]     [194]       [219]      [194]
  184. 6060 [153]"peek     peek     peek       (NULL)      peek
  185. 6070 print"[194]     [194]     [194]       [219]      [194]
  186. 6080 [153]"peek     peek             (NULL)      peek
  187. 6090 print"[194]     [194]             [219]      [194]
  188. 6100 [153]"peek     peek             (NULL)
  189. 6110 print"[194]     [194]             [219]
  190. 6120 [153]"peek     peek             (NULL)
  191. 6130 print"[194]     [194]             [219]      [194]
  192. 6140 [153]"peek     peek          close  (NULL)      peek
  193. 6150 print"[194]     [194]     [194]       [219]      [194]
  194. 6160 [153]"peek     peek     peek       (NULL)      peek
  195. 6170 print"[194]     [194]     [194]       [219]      [194]
  196. 6180 [153]"peek     peek     peek       (NULL)      peek
  197. 6190 print"[194]     [194]     [194]              [194]
  198. 6200 [153]"peek           peek              peek
  199. 6210 print"[194]           [194]              [194]
  200. 6220 [153]"/lenlenlenlenlenlenlenlenlenlenlen>lenlenlenlenlenlenlenlenlenlenlenlenlenlenexp
  201. 6250 pokev+21,127
  202. 6300 return
  203. 7000 print"[147]"
  204. 7010 print"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][178][195][195][195][195][195][195][195][195][174]
  205. 7020 [153]"peek                 peek        peek
  206. 7030 print"[194]                 [194]        [194]
  207. 7040 [153]"peek                 peek        peek
  208. 7050 print"[194]     [219][219]          [194]        [194]
  209. 7060 [153]"peek     (NULL)(NULL)          peek        peek
  210. 7070 print"[194]                 [194]        [194]
  211. 7080 [153]"peek            (NULL)    peek   (NULL)    peek
  212. 7090 print"[194]            [219]        [219]    [194]
  213. 7100 [153]"peek            (NULL)        (NULL)
  214. 7110 print"[194]         [219][219][219][179]        [219]
  215. 7120 [153]"peek            (NULL)        (NULL)
  216. 7130 print"[194]            [219]        [219]    [194]
  217. 7140 [153]"peek            (NULL)   closepeek   (NULL)    peek
  218. 7150 print"[194]                 [194]        [194]
  219. 7160 [153]"peek                 peek        peek
  220. 7170 print"[194]                 [194]        [194]
  221. 7180 [153]"peek                 peek        peek
  222. 7190 print"[194]     [219][219]          [194]        [194]
  223. 7200 [153]"peek     (NULL)(NULL)          peek        peek
  224. 7210 print"[194]                 [194]        [194]
  225. 7220 [153]"/lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen>lenlenlenlenlenlenlenlenexp
  226. 7250 pokev+21,255
  227. 7300 return
  228. 8000 print"[158]"
  229. 8010 printtab(33)"y"
  230. 8020 printtab(31)"g   h"
  231. 8030 printtab(33)"b"
  232. 8100 printtab(31)"[154]vidas
  233. 8110 [153][163]32)vi
  234. 8130 [153][163]31)"contnivel
  235. 8150 printtab(32)la
  236. 8400 return
  237. 9999 goto9999
  238.