home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Your_Computer_5_19xx_-.d64 / baloon (.txt) next >
Commodore BASIC  |  2023-02-26  |  8KB  |  198 lines
  1. 1 rem**********************************
  2. 2 rem*     b a l l o o n      6 4     *
  3. 3 rem*   by khaleel al-ghamdi (ksa)   *
  4. 4 rem**********************************
  5. 5 poke53281,0:poke53280,0:sn=1945:en=1145:hs=0:dimg(39),p(39):gosub600:gosub900
  6. 10 gosub850:in$="gha":goto556
  7. 50 x=168:y=60:pokev+14,x:pokev+15,y:pokev+16,peek(v+16)and127
  8. 100 fori=0to49:next
  9. 130 sys49152:pokev+30,0:ifg>9thengosub405:gosub480:gosub720:goto50
  10. 140 if(peek(v+30)and128)=128then500
  11. 150 ifsc>bs thengosub460
  12. 200 j=peek(56320):ifj=127then100
  13. 205 if(jand16)=0then300
  14. 210 if(jand1)=0andy>56theny=y-8:goto230
  15. 220 if(jand2)=0andy<218theny=y+8
  16. 230 if(jand4)=0andx>34thenx=x-8:goto250
  17. 240 if(jand8)=0andx<318thenx=x+8
  18. 250 pokev+15,y:ifx>255thenpokev+14,x-256:pokev+16,peek(v+16)or128:goto130
  19. 260 pokev+16,peek(v+16)and127:pokev+14,x:goto130
  20. 300 on f goto 310,350
  21. 310 ifint((x-24)/8)<>(x-24)/8ory<218then100
  22. 320 a=(x-24)/8:ifg(a)=1thenf=2:g(a)=0:poke2047,193:pokesn+a,32:goto380
  23. 330 goto100
  24. 350 ifint((x-24)/8)<>(x-24)/8ory>55then100
  25. 360 b=(x-24)/8:ifp(b)=0thenf=1:p(b)=1:poke2047,192:pokeen+b,81:g=g+1:goto390
  26. 370 goto100
  27. 380 pokev+46,1:gosub800:goto130
  28. 390 pokev+46,15:sc=sc+(lv-1)*5:gosub800
  29. 398 gosub410:goto130
  30. 400 e$="":return
  31. 405 sc=sc+((lv-1)*500)
  32. 410 printleft$(e$,4);sc:return
  33. 420 printleft$(e$,14);fl:return
  34. 430 printleft$(e$,21);lv-1:return
  35. 440 printe$;hs:return
  36. 450 print"    *** teclea tus iniciales (3) **";:in$=""
  37. 451 fori=0to9:get a$:next
  38. 452 get a$:ifa$=""then452
  39. 453 in$=in$+a$:printa$;
  40. 454 iflen(in$)<>3then452
  41. 455 printleft$(e$,27);in$:return
  42. 460 bs=bs+2500*(lv-4):iffl<9thenfl=fl+1:gosub420:goto470
  43. 465 return
  44. 470 fori=10to0step-2:pokes,l(i):pokes+1,h(i):pokes+4,33
  45. 472 print" v i d a  b o n u s * v i d a  b o n u s":fort=0to59:nextt
  46. 474 print"[145][145]                                        ":nexti:pokes+4,0:return
  47. 480 lv=lv+1:iflv<7 thenpoke53269,(peek(53269)or(2^lv)):poke252,(1+lv)*2-1:return
  48. 499 poke251,int(lv/2):return
  49. 500 rem ** dead sound **
  50. 501 rempokes+14,5:pokes+18,16:pokes+3,1:pokes+24,143:pokes+6,240:pokes+4,0
  51. 502 fort=yto235step4::h=h(t and 7):l=l(t and 7)
  52. 503 pokes,l:pokes+1,h:pokev+15,t:pokes+4,129:next:p=peek(v+16):fort=x to0step-16
  53. 504 pokev+14,t and255:pokev+16,p and(int((t/256))*128+127):next:pokes+4,0
  54. 510 fl=fl-1:gosub420:iffl=0then554
  55. 530 iff=2thenpoke2047,192:g=g+1:f=1:ifg>9thengosub480:gosub405:gosub720
  56. 540 pokev+46,15:goto50
  57. 554 print" g a m e  o v e r ":pokev+21,0
  58. 555 ifsc>hsthenhs=sc:gosub450:gosub440:goto554
  59. 556 print"*** pulsa fuego joystick 2[146] ***"
  60. 558 fori=0to64:poke53280,iand15:next
  61. 560 j=peek(56320):if(jand16)=16then560
  62. 561 pokes+14,5:pokes+18,16:pokes+3,1:pokes+24,143:pokes+6,240:pokes+4,0
  63. 562 sys37120:pokes1,0
  64. 564 pokes+4,0:fori=0to11:pokes,l(i):pokes+1,h(i):pokes+4,33:fort=0to99:nextt,i
  65. 565 fori=0to255:next:sys36864:pokes+4,0:gosub700:goto50
  66. 600 rem ** title display **
  67. 602 print"[147]":p$="    ":poke53269,0
  68. 605 printp$"[209][209][209][209]   [209]  [209]   [209]    [209]   [209]  [209]   [209]"
  69. 610 printp$"[209]   [209] [209] [209] [209]   [209]   [209] [209] [209] [209] [209]   [209]"
  70. 615 printp$"[159][209]   [209][160][209][160][209][160][209][160][160][160][209][160][160][160][209][160][209][160][209][160][209][160][209][209] [160][209]"
  71. 620 printp$"[156][209][209][209][209]  [209][209][209] [209]   [209]   [209] [209] [209] [209] [209] [209] [209]"
  72. 625 printp$"[159][209]   [209] [209] [209] [209]   [209]   [209] [209] [209] [209] [209]  [209][209]"
  73. 630 printp$"[209][160][160][160][209][160][209][160][209][160][209][160][160] [209][160][160][160][209] [209] [209][160][209] [209]   [209]"
  74. 635 printp$"[209][209][209][209]  [209] [209] [209][209][209] [209][209][209]  [209]   [209]  [209]   [209] "
  75. 640 printp$"         [209][209][209]      [209]"
  76. 645 printp$"        [209]         [209]   [209]"
  77. 647 printp$"[159]        [209]         [209]   [209]"
  78. 650 printp$"[156]        [209][209][209][209]      [209][209][209][209][209]"
  79. 655 printp$"[159]        [209]   [209]         [209]"
  80. 657 printp$"        [209]   [209]         [209]"
  81. 660 printp$"         [209][209][209]          [209]"
  82. 665 printp$"[158][157] *by khaleel al-ghamdi (k.s.a.)* "
  83. 667 print"              instrucciones"
  84. 670 print" manda las facturas del suelo al cielo "
  85. 675 print"utiliza fuego para cogerlas y soltarlas"
  86. 680 print"      no choques con los globos           "
  87. 699 return
  88. 700 rem *** draw game ***
  89. 705 v=53248:poke2047,192:pokev+46,15
  90. 710 r=40:fori=0to15step2:pokev+i,r+i*15:pokev+1+i,int(rnd(0)*49)+100:next
  91. 714 f=1:lv=2:fl=5:sc=0:bs=2500:fori=0to39:g(i)=0:p(i)=1:next
  92. 718 poke53269,135:poke251,3:poke252,5:poke253,0:pokev+16,0:poke53271,127
  93. 720 fori=3to16step3:g(i)=1:p(i)=0:g(i+19)=1:p(i+19)=0:next
  94. 722 fori=0to15:poke52992+i,int((rnd(0)*9)/5):next
  95. 725 print"[147]* score * vidas * niv * int * hi-score *";
  96. 727 print"[223]                                      [146][169]";:g=0
  97. 728 print"    [146]   [146]   [146]   [146]   [146]       [146]   [146]   [146]   [146]   [146]     [146]";
  98. 729 print"[145]          "
  99. 730 print"[169]                                      [223][146]";
  100. 732 print"[149]   [206][205]              [206][205]     [206][205]         [206][205]"
  101. 734 print"[205] [206]  [205]          [206][205][206]  [205]   [206]  [205]  [175][175][175][175][175][206]  [183] [205]    [205][206][205][175][175][175][175][206][205][206]      [205][206][183]    [205]
  102. 736 [153]" *      *             *     *     * "
  103. 738 [153]"for peek      peek             peek     peek     peek "
  104. 740 [153]"    (NULL)  (NULL)  (NULL)  (NULL)  (NULL)      (NULL)  (NULL)  (NULL)  (NULL)  (NULL)"
  105. 742 [153]"                                       wait";
  106. 744 [151]sn[170]78,160:[151]56295,5:[141]400
  107. 745 [129]i[178]1[164]5:[145] i [141]410,420,430,440,455:[130]:[142]
  108. 750 [141]850:[151]w,129:[151]vl,5:g[178]0:[142]
  109. 800 [143] ** sound for picking **
  110. 810 [151]s[170]4,33:[129]i[178]0[164]29:[130]:[151]s[170]4,0:[142]
  111. 850 [129]t[178]0[164]2:[129]x[178]0[164]255:[135]a:[139]a[178][171]1[167]852
  112. 851 [151]36864[170]t[172]256[170]x,a:[130]x
  113. 852 [130]t
  114. 853 [151]37632,0:[151]37633,0
  115. 860 s1[178]54276:[129]i[178]s1[171]4[164]s1[170]20:[151]i,0:[130]:[151]s1[170]20,15:[151]s1,33:s[178]54279
  116. 868 [134]h(11),l(11):[129]i[178]0[164]11:[135]h(i),l(i):[130]
  117. 869 [129]t[178]0[164]255
  118. 870 [135]a$:[139]a$[178]"*"[167] 889
  119. 871 [139][195](a$)[177]1[167]d[178][197](a$):[137]870
  120. 872 [139]a$[178]"+"[167]o[178]2:[137]870
  121. 874 [139]a$[178]"/"[167]o[178]1:[137]870
  122. 875 a[178][198](a$)[171]65:[145]o [137]877,878
  123. 877 h[178]h(a):l[178]l(a):[137]880
  124. 878 h[178]h(a)[172]2:l[178](l(a)[172]2)[175]255
  125. 880 [151]37888[170]t,h:[151]38144[170]t,l:[151]38400[170]t,d:[130] t
  126. 889 [151]37380,t:[158]36864
  127. 890 [142]
  128. 899 [143] ** pokeing m/l and sprites **
  129. 900 sd[178]12287:[129]i[178]1[164]191:[135]q:[151]sd[170]i,q:[130]:[151]2047,192
  130. 901 [129]i[178]1[164]8:[151]53295[171]i,i[170]1:[130]i
  131. 902 [129]i[178]0[164]6:[151]2040[170]i,194:[130]
  132. 903 sd[178]49152:[129]l[178]0[164]13:[129]i[178]0[164]15:[135]q:[151]sd[170]i,q:c[178]c[170]q:[130]i
  133. 904 [135]q:[139]c[179][177]q [167][153]"error data en linea";940[170]l:[128]
  134. 905 c[178]0:sd[178]sd[170]16:[130]l:[151]sd,96:[142]
  135. 910 [143] ** sprite data **
  136. 911 [131]48,255,12,97,255,134,199,255
  137. 912 [131]227,207,125,243,222,56,251,223
  138. 913 [131]125,251,255,255,255,255,187,255
  139. 914 [131]247,199,223,123,255,190,123,199
  140. 915 [131]190,127,131,254,63,255,252,51
  141. 916 [131]255,204,51,0,204,48,0,12
  142. 917 [131]48,0,12,48,0,12,48,0
  143. 918 [131]12,60,0,60,62,0,124,64
  144. 919 [131]96,255,6,97,255,134,199,255
  145. 920 [131]227,207,125,243,222,56,251,223
  146. 921 [131]125,251,255,255,255,255,187,255
  147. 922 [131]247,199,223,119,255,222,123,57
  148. 923 [131]190,127,131,254,63,239,252,51
  149. 924 [131]255,204,51,60,204,56,126,28
  150. 925 [131]24,126,24,28,126,56,12,126
  151. 926 [131]48,15,126,240,15,189,240,64
  152. 930 [131]0,127,0,1,255,192,3,255,224,3,227,224,7,217,240,7,223,240,7,217,240,3
  153. 931 [131]231,224,3,255,224,3,255,224,2,255,160,1,127,64,1,62,64,0
  154. 932 [131]156,128,0,156,128,0,73,0,0,73,0,0,62,0,0,62,0,0,62,0,0,28,0
  155. 939 [143] * data for machine langauge *
  156. 940 [131] 32,7,192,32,85,192,96,164,252,24,185,0,208,201,84,144,1898
  157. 941 [131] 36,201,204,176,40,136,32,174,192,45,16,208,208,10,185,0,1863
  158. 942 [131] 208,201,25,144,32,76,47,192,185,0,208,201,62,176,30,136,1923
  159. 943 [131] 192,24,144,214,96,169,0,153,0,207,76,21,192,169,200,153,2010
  160. 944 [131] 0,207,76,21,192,169,0,153,0,207,76,47,192,169,200,153,1862
  161. 945 [131] 0,207,76,47,192,24,164,252,32,213,192,185,0,208,190,0,1982
  162. 946 [131] 207,224,0,240,44,229,251,229,254,153,0,208,136,185,0,208,2568
  163. 947 [131] 190,0,207,224,0,240,36,229,251,153,0,208,201,245,144,11,2339
  164. 948 [131] 32,174,192,45,16,208,240,3,32,190,192,136,192,20,144,200,2016
  165. 949 [131] 96,101,251,101,254,153,0,208,76,108,192,101,251,153,0,208,2253
  166. 950 [131] 144,233,32,174,192,13,16,208,141,16,208,76,139,192,152,24,1960
  167. 951 [131] 105,2,106,170,169,1,202,240,4,42,202,208,252,96,152,24,1975
  168. 952 [131] 105,2,106,170,169,254,202,240,5,56,42,202,208,251,45,16,2073
  169. 953 [131] 208,141,16,208,96,166,253,230,253,189,0,176,41,3,133,254,2367
  170. 954 [131]169,146,141,21,3,169,0,141,20,3,96,-1,169,234,141,21,3,169,49,141,20,3
  171. 955 [131]96,-1,172,0,147,192,16,240,57,206,1,147,173,1,147,201,0,208,44,238,0,147
  172. 956 [131]169,0,141,4,212,169,31,141,5,212,169,0,141,6,212,169,17,141,4,212,185,0
  173. 957 [131]147,185,0,148,141,1,212,185,0,149,141,0,212,185,0,150,141,1,147,76,49
  174. 958 [131]234,169,0,141,0,147,141,4,212,24,144,242,-1
  175. 959 [143] ** data for music **
  176. 960 [131]28,49,31,165,16,195,18,209,21,31,22,96,25,30,29,233,17,195,19,239,23
  177. 961 [131]81,26,156
  178. 980 [131]08,+,c,d,/,a,+,c,13,/,d,e,12,a,08,f,14,d,08,c,12,e,08,d,15,d,08,c,g,e,d
  179. 981 [131]15,d,+,08,c,d,/,a,+,13,/,d,e,12,f,08,g,14,a,08,a,+,12,e,08,d,12,i,/,08
  180. 982 [131]a,+,12,e,08,d,12,i,/,08,a,+,f,e,d,15,a,08,c,d,/,a,+,c,/,13,d,e,12,a,08
  181. 983 [131]f,14,d,08,c,12,e,08,d,13,d,08,c,g,e,d,15,d,+,08,c,d,/,a,+,c,/,13,d,e,f
  182. 984 [131]g,08,a,b,+,c,/,a,g,f,12,a,08,d,12,g,08,c,15,f,f
  183. 985 [131]15,d,+,08,c,d,/,a,+,13,/,d,e,12,f,08,g,14,a,08,a,+,12,e,08,d,12,i,/,08
  184. 986 [131]a,+,12,e,08,d,12,i,/,08,a,+,f,e,d,15,a,08,c,d,/,a,+,c,/,13,d,e,12,a,08
  185. 987 [131]f,14,d,08,c,12,e,08,d,13,d,08,c,g,e,d,15,d,+,08,c,d,/,a,+,c,/,13,d,e,f
  186. 988 [131]g,08,a,b,+,c,/,a,g,f,12,a,08,d,12,g,08,c,15,f
  187. 989 [131]08,+,c,d,/,a,+,c,13,/,d,e,12,a,08,f,14,d,08,c,12,e,08,d,15,d,08,c,g,e,d
  188. 990 [131]60,g,g,*
  189. 991 [143] codes for graohics symbols
  190. 992 [143] "load"=clear/home :""=home
  191. 993 [143] ""=cursr down :"on"=cursr up
  192. 994 [143] ""=cursr right:"cmd"=cursr left
  193. 995 [143] ""=white:""=red:"open"=cyn.
  194. 996 [143] "clr"=pur. :"sys"=yel:""=blu.
  195. 997 [143] ""=grn. :"for"=cmd/1:"verify"=cmd/2
  196. 998 [143] ""=rvs/on:"wait"=rvs/off
  197. 999 [143] "(NULL)"=shft/-:"(NULL)"=shft/q:"(NULL)"=shft/n:"(NULL)"=shft/m:"and"=cmd/p
  198.