home *** CD-ROM | disk | FTP | other *** search
/ Video Commodore 64 #2 / Video_Commodore_64_2_19xx_GEASA.d64 / interceptar (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  7KB  |  224 lines
  1. 5 remvc64-02 - interceptar
  2. 10 gosub3000
  3. 100 gosub1000
  4. 300 end
  5. 1000 remvc64-02 - interceptar
  6. 1020 print"[147]":poke53280,6:poke53281,8:dimm%(9,11),t%(5,2):poke649,1
  7. 1030 g=1024:h=55296:h$="[198][198][198][198] [198][198][198][198]"
  8. 1040 fork=1to11
  9. 1050 for j=0 to 9
  10. 1060 read m%(j,k)
  11. 1070 next:next
  12. 1080 print"";tab(18)"[206][221][205]
  13. 1090 [153] [163]17)"(NULL)close(NULL)close(NULL)":[153][163]16)"(NULL)  (NULL)closeclose(NULL)"
  14. 1100 [153][163]15)"(NULL)   (NULL)   (NULL)":[153][163]15)h$
  15. 1110 [153][163]14)"(NULL)(NULL)   (NULL)   (NULL)(NULL)"
  16. 1120 [153][163]14)"(NULL) (NULL)  (NULL)  (NULL) (NULL)"
  17. 1130 [153][163]14)"(NULL)  (NULL)close(NULL) (NULL)  (NULL)"
  18. 1140 [153][163]14)"(NULL)   (NULL)(NULL)(NULL)closecloseclose(NULL)":[153][163]15)h$
  19. 1150 [153][163]14)"(NULL)   (NULL)(NULL)(NULL)   (NULL)"
  20. 1160 [153][163]14)"(NULL)  (NULL) (NULL) (NULL)  (NULL)"
  21. 1170 [153][163]14)"(NULL) (NULL)close (NULL)closeclose(NULL)close(NULL)"
  22. 1180 [153][163]14)"(NULL)(NULL) close (NULL)closeclose (NULL)(NULL)":[153][163]15)h$
  23. 1190 [153][163]15)"(NULL)   (NULL)   (NULL)"
  24. 1200 [153][163]16)"(NULL)  (NULL)  (NULL)"
  25. 1210 [153][163]17)"(NULL) (NULL) (NULL)"
  26. 1220 [153][163]18)"(NULL)(NULL)(NULL)"
  27. 1230 [129]k[178]1[164]11
  28. 1240 [151]h[170]m%(9,k),m%(0,k)
  29. 1250 [151]g[170]m%(9,k),81
  30. 1260 [130]
  31. 1270 [153]""
  32. 1280 [153]"tu color?      on"
  33. 1290 c$[178]""
  34. 1300 [161]c$
  35. 1310 c[178][197](c$)
  36. 1320 [139]c[179]6[176]c[177]8[167]1290
  37. 1330 c[178]c[171]1
  38. 1340 [153]"mueves tu:   on"
  39. 1350 [161]m$:[139]m$[178]""[167]1350
  40. 1360 [139]m$[178]"y"[167]m[178]8:[137]1420
  41. 1370 [139]m$[178]"u"[167]m[178]1:[137]1420
  42. 1380 [139]m$[178]"i"[167]m[178]5:[137]1420
  43. 1390 [139]m$[178]"h"[167]m[178]4:[137]1420
  44. 1400 [139]m$[178]"j"[167]m[178]3:[137]1420
  45. 1410 [137]1350
  46. 1420 k[178]1
  47. 1430 [139]m%(0,k)[179][177]c[167]k[178]k[170]1:[137]1430
  48. 1440 v[178]m%(m,k)[175]15:[139]v[178]0[167][153]"no es posible !on":[129]j[178]1[164]2000:[130]:[137]1280
  49. 1450 v[178]m%(m,k)[175]15
  50. 1455 [139]m%(0,v)[177]0[167][153]"esta ocupado !!!  on":[129]j[178]0[164]2000:[130]:[137]1280
  51. 1460 [129]l[178]0[164]2
  52. 1470 [129]j[178]5[164]1[169][171]1
  53. 1480 t%(j,l)[178]t%(j[171]1,l)
  54. 1490 [130]
  55. 1500 t%(0,l)[178]0
  56. 1510 [130]
  57. 1520 d[178]c[171]5:q[178]m%(m,k)[175]15:t%(0,d)[178]q
  58. 1530 [139]t%(2,d)[178]q[175]t%(4,d)[178]q[175]t%(1,d)[178]t%(3,d)[175]t%(3,d)[178]t%(5,d)[167]1900
  59. 1540 m%(0,k)[178]0:[151]h[170]m%(9,k),0:m%(0,m%(m,k)[175]15)[178]c:[151]h[170]m%(9,m%(m,k)[175]15),c
  60. 1550 [153]"mi turno   on"
  61. 1560 [129]l[178]1[164]100:[130]:k[178]1
  62. 1570 [139]m%(0,k)[179][177]4[167]k[178]k[170]1:[137]1570
  63. 1580 [139]k[178]1[175]m%(0,2)[177]4[175]m%(0,3)[177]4[175]m%(0,4)[177]4[167]2100
  64. 1590 [139]k[178]5[175]m%(0,2)[177]4[175]m%(0,6)[177]4[175]m%(0,8)[177]4[167]1700
  65. 1600 [139]k[178]7[175]m%(0,4)[177]4[175]m%(0,6)[177]4[175]m%(0,10)[177]4[167]1700
  66. 1610 cr[178]64:[141]2500:[139]w[177]0[167]1650
  67. 1620 cr[178]0:[141]2500:[139]w[177]0[167]1650
  68. 1630 cr[178]16:[141]2500:[139]w[177]0[167]1650
  69. 1640 cr[178]32:[141]2500
  70. 1650 [139]m%(0,nk)[177]0[167]1610
  71. 1660 m%(0,k)[178]0:[151]h[170]m%(9,k),0
  72. 1670 m%(0,nk)[178]4:[151]h[170]m%(9,nk),4
  73. 1680 x[178]m%(r,k)[175]16:[139]x[178]0[167]m%(r,k)[178]m%(r,k)[170]16
  74. 1690 [129]j[178]5[164]1[169][171]1
  75. 1700 u%(j)[178]u%(j[171]1)
  76. 1710 [130]
  77. 1720 u%(0)[178]nk
  78. 1730 [139]nk[178]11[167]1900
  79. 1740 [139]u%(2)[178]nk[175]u%(4)[178]nk[175]u%(1)[178]u%(3)[175]u%(3)[178]u%(5)[167]1900
  80. 1750 vv[178]0:[129]k[178]1[164]4:vv[178]vv[170]m%(0,k):[130]:[139]vv[177]18[175]m%(0,1)[179][177]4[167]1900
  81. 1760 [137]1280
  82. 1900 [153]"he ganado !!! "
  83. 1910 [129]j[178]1[164]3000:[130]
  84. 1920 [129]j[178]0[164]4
  85. 1930 [129]l[178]1[164]8
  86. 1940 v[178]m%(l,u%(j[170]1))[175]15
  87. 1950 [139]v[178]u%(j)[167]m%(l,u%(j[170]1))[178]v[170]64
  88. 1960 [130]:[130]
  89. 1970 vw[178]vw[170]1
  90. 1980 [137]2200
  91. 2100 [129]j[178]0[164]4
  92. 2110 [129]l[178]1[164]8
  93. 2120 v[178]m%(l,u%(j[170]1))[175]15
  94. 2130 [139]v[178]u%(j)[167]m%(l,u%(j[170]1))[178]v[170]32
  95. 2140 [130]
  96. 2150 [130]
  97. 2160 vl[178]vl[170]1
  98. 2170 [153]" he perdido !!!"
  99. 2180 [129]j[178]1[164]3000
  100. 2190 [130]
  101. 2200 [153]"load"
  102. 2210 [143] poke53280,2:poke53281,13
  103. 2220 [153]"he ganado ";vw;" juegos"
  104. 2230 [153]"de un total de ";vw[170]vl
  105. 2240 [153]"quieres probar otra vez ?"
  106. 2250 [161]a$:[139]a$[178]""[167]2250
  107. 2255 [139]a$[178]"n"[167]2999
  108. 2260 [153]"load":[151]53280,6:[151]53281,8
  109. 2270 [129]k[178]1[164]11
  110. 2280 m%(0,k)[178]0
  111. 2290 [130]
  112. 2300 m%(0,3)[178]4:m%(0,8)[178]5:m%(0,9)[178]6:m%(0,10)[178]7
  113. 2310 [129]j[178]0[164]5
  114. 2320 u%(j)[178]0
  115. 2330 [130]
  116. 2340 [129]j[178]1[164]8
  117. 2350 [129]l[178]1[164]11
  118. 2360 v[178]m%(j,l)[175]112:x[178]m%(j,l)[175]15
  119. 2370 [139]v[178]16[167]m%(j,l)[178]x
  120. 2380 [139]v[178]48[167]m%(j,l)[178]x[170]32
  121. 2390 [139]v[178]80[167]m%(j,l)[178]64
  122. 2400 [130]:[130]
  123. 2410 [137]1080
  124. 2500 w[178]0:nk[178]0:[129]j[178]1[164]8
  125. 2510 v[178]m%(j,k)[175]cr
  126. 2520 x[178]m%(j,k)[175]15
  127. 2530 [139]v[178]cr[175]m%(0,x)[178]0[167]w[178]1
  128. 2540 [130]
  129. 2550 [139]w[178]0[167][142]
  130. 2560 r[178][181]([187](1)[172]8)[170]1
  131. 2570 v[178]m%(r,k)[175]cr
  132. 2580 x[178]m%(r,k)[175]15
  133. 2590 [139]v[178]cr[175]m%(0,x)[178]0[167]nk[178]m%(r,k)[175]15
  134. 2600 [139]nk[178]0[167]2550
  135. 2610 [142]
  136. 2999 [142]
  137. 3000 [151]53280,11:[151]53281,12:[153]"load";
  138. 3010 [153]"(NULL)usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr(NULL)";
  139. 3020 [153]"sgn          i n t e r c e p t a r       +";
  140. 3030 [153]"(NULL)andandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandsqr";
  141. 3040 [153]"(NULL)usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr(NULL)";
  142. 3050 [153]"sgn       un juego tradicional:          +";
  143. 3060 [153]"sgn    se muestra un tablero con 4       +";
  144. 3070 [153]"sgn    fichas: las tres tuyas (verde,    +";
  145. 3080 [153]"sgn    azul y amarilla) y la del orde-   +";
  146. 3090 [153]"sgn    nador, de color purpura.          +";
  147. 3100 [153]"sgn        las lineas que las unen te    +";
  148. 3110 [153]"sgn    muestran los posibles caminos.    +";
  149. 3120 [153]"sgn        el ordenador mueve su ficha   +";
  150. 3130 [153]"sgn    a razon de una casilla cada       +";
  151. 3140 [153]"sgn    turno, en cualquier direccion.    +";
  152. 3150 [153]"sgn        tu mueves una de las tuyas    +";
  153. 3160 [153]"sgn    en cada turno, pero nunca hacia   +";
  154. 3170 [153]"sgn    atras. no se puede saltar sobre   +";
  155. 3180 [153]"sgn    otra ficha ni situarse en una     +";
  156. 3190 [153]"sgn    casilla ocupada.                  +";
  157. 3200 [153]"sgn        el juego comienza con la      +";
  158. 3210 [153]"sgn    ficha del ordenador en la ca-     +";
  159. 3220 [153]"(NULL)andandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandsqr";
  160. 3230 [153]"(NULL)usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr(NULL)";
  161. 3240 [153]"sgn      pulsa 'space' para continuar    +";
  162. 3250 [153]"(NULL)andandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandsqr";
  163. 3255 [161]a$:[139]a$[179][177]" "[167]3255
  164. 3260 [153]"(NULL)usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr(NULL)";
  165. 3270 [153]"sgn         i n t e r c e p t a r        +";
  166. 3280 [153]"(NULL)andandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandsqr";
  167. 3290 [153]"(NULL)usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr(NULL)";
  168. 3300 [153]"sgn    silla central de la fila supe-    +";
  169. 3310 [153]"sgn    rior.                             +";
  170. 3320 [153]"sgn                                      +";
  171. 3330 [153]"sgn        ganas tu si acorralas al      +";
  172. 3340 [153]"sgn    ordenador en la casilla supe-     +";
  173. 3350 [153]"sgn    rior del tablero.                 +";
  174. 3360 [153]"sgn                                      +";
  175. 3370 [153]"sgn        gana el ordenador si llega    +";
  176. 3380 [153]"sgn    a la casilla inferior, o bien     +";
  177. 3390 [153]"sgn    acorrala a tus tres fichas, o     +";
  178. 3400 [153]"sgn    bien ambos jugadores repiten      +";
  179. 3410 [153]"sgn    tres veces el mismo movimiento    +";
  180. 3420 [153]"sgn    hacia adelante o hacia atras.     +";
  181. 3430 [153]"sgn                                      +";
  182. 3440 [153]"sgn       los colores de tus fichas son  +";
  183. 3450 [153]"sgn                                      +";
  184. 3460 [153]"sgn        6=verde; 7=azul; 8=amarillo.  +";
  185. 3470 [153]"(NULL)andandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandsqr";
  186. 3480 [153]"(NULL)usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr(NULL)";
  187. 3490 [153]"sgn      pulsa 'space' para continuar    +";
  188. 3500 [153]"(NULL)andandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandsqr";
  189. 3505 [161]a$:[139]a$[179][177]" "[167]3505
  190. 3510 [153]"(NULL)usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr(NULL)";
  191. 3520 [153]"sgn          i n t e r c e p t a r       +";
  192. 3530 [153]"(NULL)andandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandsqr";
  193. 3540 [153]"(NULL)usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr(NULL)";
  194. 3550 [153]"sgn        tus movimientos son:          +";
  195. 3560 [153]"sgn                                      +";
  196. 3570 [153]"sgn        y--> arriba diagonal izqda.   +";
  197. 3580 [153]"sgn        u--> hacia arriba.            +";
  198. 3590 [153]"sgn        i--> arriba diagonal dcha.    +";
  199. 3600 [153]"sgn        h--> hacia la izquierda       +";
  200. 3610 [153]"sgn        j--> hacia la derecha         +";
  201. 3620 [153]"sgn                                      +";
  202. 3630 [153]"sgn        ten en cuenta que el orde-    +";
  203. 3640 [153]"sgn    nador ira aprendiendo a lo lar-   +";
  204. 3650 [153]"sgn    go del juego. es decir, empeza-   +";
  205. 3660 [153]"sgn    ra con movimientos al azar, pero  +";
  206. 3670 [153]"sgn    ira tomando nota de los movimien- +";
  207. 3680 [153]"sgn    tos adecuados y de los erroneos   +";
  208. 3690 [153]"sgn    con lo que en cada nueva parti-   +";
  209. 3700 [153]"sgn    da...te sera mas dificil ven-     +";
  210. 3710 [153]"sgn    cerle !!!                         +";
  211. 3720 [153]"(NULL)andandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandsqr";
  212. 3730 [153]"(NULL)usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr(NULL)";
  213. 3740 [153]"sgn      pulsa 'space' para continuar    +";
  214. 3750 [153]"(NULL)andandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandsqr";
  215. 3950 [161]a$:[139]a$[179][177]" "[167]3950
  216. 3999 [142]
  217. 4000 [131]0,0,3,0,0,0,4,2,0,99,0,0,5,3,0,1,6,0,0,294
  218. 4010 [131]4,1,6,4,2,0,0,0,0,299,0,0,7,0,3,0,0,6,1,304
  219. 4020 [131]0,2,8,6,0,0,0,0,0,494,0,3,9,7,5,4,10,8,2,499
  220. 4030 [131]0,4,10,0,6,0,0,0,0,504,5,5,0,9,0,6,11,0,0,694
  221. 4040 [131]6,6,11,10,8,0,0,0,0,699,7,7,0,0,9,0,0,11,6,704
  222. 4050 [131]0,9,0,0,0,10,0,0,8,899
  223. 4500 [153]"sgn                                      +";
  224.