home *** CD-ROM | disk | FTP | other *** search
/ Commodore Computer Club 13 / Commodore_Computer_Club_13_19xx_-_es.d64 / nave (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  76 lines
  1. 5 zz=zz+1:ifzz=1thenload"nave cm",8,1
  2. 10 poke53280,0:poke53281,0:poke646,7
  3. 20 poke650,128
  4. 30 poke56,20:clr
  5. 40 v=53248
  6. 50 pokev+21,0
  7. 100 print"[147]
  8. 110 [133]"list cuantas naves (1,7)";cn
  9. 115 [139]cn[179]1[176]cn[177]7[167]110
  10. 120 [133]" velocidad   (1,255)";vv
  11. 125 [139]vv[179]1[176]cn[177]255[167]110
  12. 130 [151]33091,vv
  13. 135 [153]"load
  14. 140 fort=0to22:print"[158][161]"tab(31)"[181]":next
  15. 150 gosub250
  16. 160 pokev+21,255
  17. 200 goto500
  18. 240 rem *******************************
  19. 250 pokev+1,200:pokev,100
  20. 260 poke2040,13
  21. 270 fort=2to7:pokev+2*t,10+30*t:next
  22. 280 fort=2to7:pokev+1+2*t,1:next
  23. 290 fort=2to7:pokev+39+t,14:next
  24. 300 fort=2to7:poke2040+t,14:next
  25. 310 fort=0to63:poke896+t,0:next
  26. 320 fort=0to23step3:poke896+t,192:next
  27. 330 fort=0to62:reada:poke832+t,a:next
  28. 350 pokev+29,0:pokev+23,1:pokev+16,0
  29. 370 pokev+3,0:pokev+2,100
  30. 380 fort=1tocn:pokev+39+t,13:next
  31. 390 fort=1tocn:poke2040+t,13:next
  32. 450 return
  33. 499 rem                      ****
  34. 500 print""tab(33)"[129]z izq"
  35. 520 printtab(33)"/ der"
  36. 540 printtab(33)"naves 3"
  37. 570 printtab(33)"[154]puntos"
  38. 600 c=3:p=0
  39. 620 getg$:ifg$=""then620
  40. 630 fort=1to7:pokev+1+2*t,1:next
  41. 650 gosub2000
  42. 720 c=c-1
  43. 750 poke1383,c+48
  44. 760 print""tab(192)"[153]"p
  45. 780 ifc=0then900
  46. 800 print""tab(193)"[153]key"
  47. 810 poke198,0
  48. 820 getg$:ifg$=""then820
  49. 850 printtab(33)"[145][145][145]       "
  50. 860 printtab(33)"       "
  51. 870 goto630
  52. 900 fort=0to1500:next
  53. 910 pokev+21,0
  54. 930 print"[147][154]               game over"
  55. 950 print"              "p"[155]puntos"
  56. 960 fort=0to1500:next
  57. 970 print"[155]          otra partida (s/n)"
  58. 980 getg$
  59. 990 ifg$="s"then10
  60. 992 ifg$="n"thenend
  61. 995 goto980
  62. 1000 data 0,16,0,0,16,0,0
  63. 1010 data 56,0,0,56,0,0,84
  64. 1020 data 0,0,84,0,0,146,0
  65. 1030 data 1,17,0,2,16,128,4
  66. 1040 data 84,64,8,84,32,16,84
  67. 1050 data 16,32,84,8,64,84,4
  68. 1060 data 140,84,98,140,84,97,128
  69. 1070 data 84,1,128,84,1,112,84
  70. 1080 data 62,15,17,192,0,254,0
  71. 2000 rem * * * * * * * * * * * * * * *
  72. 2100 poke251,0:poke252,0
  73. 2200 sys 32768
  74. 2300 p=p+peek(251)+peek(252)*256
  75. 2999 return
  76.