home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2001-04_2001_CSW_Side_A.d64 / d-games (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  244 lines
  1. 2001 rem www.planet64.de(NULL)
  2. 3003 rem(NULL)
  3. 4004 rem(NULL)
  4. 5005 rem(NULL)
  5. 6006 rem(NULL)
  6. 6400 rem www.planet64.de(NULL)
  7. 6401 poke 808,225
  8. 6402 goto 6428
  9. 6403 :
  10. 6404 rem ------------------------------
  11. 6405 rem --- unterroutinen ---
  12. 6406 rem * pause *
  13. 6407 for pp=1 to p:next:return
  14. 6408 :
  15. 6409 rem * fire *
  16. 6410 if peek(2040)=192 then poke 2040,193:goto 6412
  17. 6411 poke 2040,192
  18. 6412 p=30:gosub 6407
  19. 6413 return
  20. 6414 :
  21. 6415 rem * kling *
  22. 6416 poke s3+1,so:poke s3+4,33:poke s3+4,32:return
  23. 6417 :
  24. 6418 rem * schrift einblenden *
  25. 6419 t$=t$+"  "
  26. 6420 for i=1 to len(t$)
  27. 6421 gosub 6410
  28. 6422 print "";mid$(t$,i,1);"[152]";mid$(t$,i+1,1);"[151]";mid$(t$,i+2,1);"[157][157]";
  29. 6423 next
  30. 6424 return
  31. 6425 :
  32. 6426 rem ------------------------------
  33. 6427 rem --- hauptbeginn ---
  34. 6428 sys 58648:v=53248:poke v+32,0:poke v+33,0:print""
  35. 6429 s1=54272:s2=s1+7:s3=s1+14
  36. 6430 poke s1+4,8:poke s2+4,8:poke s3+4,8
  37. 6431 :
  38. 6432 poke s1+5,150:poke s1+6,252
  39. 6433 poke s2+5,150:poke s2+6,252
  40. 6434 poke s1,0:poke s1+1,8
  41. 6435 poke s2,18:poke s2+1,8
  42. 6436 poke s1+4,33:poke s2+4,33
  43. 6437 poke s1+24,15
  44. 6438 :
  45. 6439 rem -----
  46. 6440 for i=0 to 4*64-1
  47. 6441 read s:poke 12288+i,s
  48. 6442 next
  49. 6443 rem fire 1
  50. 6444 data 0,0,32,0,8,28,128,36,8,32,158,36,32,103,148,27,109,236,37,149,103,30
  51. 6445 data 118,121,118,121,246,157,221,217,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  52. 6446 rem fire 2
  53. 6447 data 0,0,0,0,12,8,8,137,40,32,39,137,8,25,229,6,231,159,201,149,101,71,157
  54. 6448 data 222,182,157,125,215,119,118,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  55. 6449 rem donut
  56. 6450 data 0,0,0,0,0,0,0,0,0,0,0,0,1,170,64,2,170,128,6,170,144,10,150,160,26,66
  57. 6451 data 160,41,1,160,40,0,160,40,0,160,40,0,160,40,1,160,40,2,160,41,2,160,42
  58. 6452 data 70,160,42,170,144,26,170,64,6,169,0,0,0,0,32
  59. 6453 rem currywurst
  60. 6454 data 0,0,11,236,0,42,170,195,171,234,170,168,42,170,172,3,170,192,,,,,,,,,,
  61. 6455 data ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  62. 6456 :
  63. 6457 mt=6:dim t$(mt)
  64. 6458 for x=0 to mt
  65. 6459 read t$(x)
  66. 6460 next
  67. 6461 data "[208]rof. [208]i[145]2/[208]lanet64.de presents"
  68. 6462 data "a [194]-[194]-[194]"
  69. 6463 data "('[194]'ad and '[194]'illig '[194]'roduction)"
  70. 6464 data "for [205]ekka & [211]ymposium 2001"
  71. 6465 data "100% pure [195]ommodore-[194]asic-[214]2-[195]ode"
  72. 6466 data "created for the fast-demo-competition"
  73. 6467 data "[197]njoy it!"
  74. 6468 sp$="                                        "
  75. 6469 for x=0 to mt
  76. 6470 t$(x)=left$(sp$,(40-len(t$(x)))/2)+t$(x)
  77. 6471 next
  78. 6472 f1=3:dim f(f1)
  79. 6473 for x=0 to f1:read f1(x):next
  80. 6474 data 11,12,15,13
  81. 6475 f2=3:dim f2(f2)
  82. 6476 for x=0 to f2:read f2(x):next
  83. 6477 data 15,12,11,0
  84. 6478 :
  85. 6479 for i=0 to 6
  86. 6480 read sr(i)
  87. 6481 next
  88. 6482 data 192,194,194,194,194,194,195
  89. 6483 :
  90. 6484 for i=0 to 4
  91. 6485 read dx(i),dy(i)
  92. 6486 next
  93. 6487 data 100,060, 160,060, 220, 060
  94. 6488 data 130,095, 190,095
  95. 6489 :
  96. 6490 rem ------------------------------
  97. 6491 rem --- hauptprogramm          ---
  98. 6492 rem ------------------------------
  99. 6493 :
  100. 6494 for y=0 to mt
  101. 6495 p=1000:gosub 6407
  102. 6496 for x=0 to f1
  103. 6497 poke 646,f1(x)
  104. 6498 print"";t$(y)
  105. 6499 p=15:gosub 6407
  106. 6500 next
  107. 6501 p=2500:gosub 6407
  108. 6502 for x=0 to f2
  109. 6503 poke 646,f2(x)
  110. 6504 print"";t$(y)
  111. 6505 p=15:gosub 6407
  112. 6506 next
  113. 6507 next
  114. 6508 :
  115. 6509 p=1000:gosub 6407
  116. 6510 poke s1+4,32:poke s2+4,32
  117. 6511 rem ------------------------------
  118. 6512 poke v+32,6:poke v+33,6
  119. 6513 poke v+17,11
  120. 6514 poke v,24+17*8:poke v+1,170
  121. 6515 poke v+28,255
  122. 6516 poke v+23,63:poke v+29,63
  123. 6517 poke v+37,8:poke v+38,2
  124. 6518 for i=0 to 6
  125. 6519 poke v+39+i,7
  126. 6520 poke 2040+i,sr(i)
  127. 6521 next
  128. 6522 poke v+45,8:rem orangene wurst
  129. 6523 :
  130. 6524 poke v+21,1
  131. 6525 print"[147]";chr$(142);
  132. 6526 print"";
  133. 6527 print spc(17);"[152][162][162][162][162][162][162]"
  134. 6528 print spc(17);"[152][208]    [146][207]"
  135. 6529 print spc(17);"  [221][221] "
  136. 6530 print spc(17);"  [221][221] "
  137. 6531 print spc(17);"  [221][221] "
  138. 6532 print spc(17);"  [221][221] "
  139. 6533 print spc(17);"  [221][221] "
  140. 6534 print spc(17);"     "
  141. 6535 poke v+17,27
  142. 6536 :
  143. 6537 :
  144. 6538 :
  145. 6539 for i=1 to 50
  146. 6540 p=50:gosub 6410
  147. 6541 next
  148. 6542 :
  149. 6543 p=50:gosub 6407
  150. 6544 :
  151. 6545 rem --- donats einblenden ---
  152. 6546 poke s3+5,0:poke s3+6,248
  153. 6547 for i=0 to 4
  154. 6548 poke v+2+i*2,dx(i)
  155. 6549 poke v+3+i*2,dy(i)
  156. 6550 poke v+21,peek(v+21) or 2^(i+1)
  157. 6551 gosub 6410
  158. 6552 so=20+i*10:gosub 6416
  159. 6553 for j=1 to 11
  160. 6554 gosub 6410
  161. 6555 next
  162. 6556 next
  163. 6557 :
  164. 6558 for i=1 to 20
  165. 6559 gosub 6410
  166. 6560 next
  167. 6561 rem --- welcome ---
  168. 6562 print"";spc(9);
  169. 6563 t$="- welcome to donutgames -"
  170. 6564 gosub 6419
  171. 6565 :
  172. 6566 for i=1 to 10
  173. 6567 gosub 6410
  174. 6568 next
  175. 6569 :
  176. 6570 rem --- currywurst ---
  177. 6571 print:print"";spc(9);
  178. 6572 t$="the ultimate fight for"
  179. 6573 gosub 6419
  180. 6574 print:print spc(9);
  181. 6575 t$="the olympic currywurst!"
  182. 6576 gosub 6419
  183. 6577 poke v+12,172:poke v+13,160
  184. 6578 poke v+21,peek(v+21) or 64
  185. 6579 :
  186. 6580 for i=1 to 150
  187. 6581 gosub 6410
  188. 6582 next
  189. 6583 :
  190. 6584 rem braune wurst
  191. 6585 poke v+45,9
  192. 6586 for i=1 to 20
  193. 6587 gosub 6410
  194. 6588 next
  195. 6589 :
  196. 6590 rem schwarze wurst
  197. 6591 poke v+45,0
  198. 6592 for i=1 to 20
  199. 6593 gosub 6410
  200. 6594 next
  201. 6595 rem --- werbung ---
  202. 6596 poke v+21,0
  203. 6597 poke v+17,11
  204. 6598 print"[147]"
  205. 6599 print"      [158][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][174]"
  206. 6600 print"      [221]                         [221]"
  207. 6601 print"      [221] [155][212]his game is sponsored  [158][221]"
  208. 6602 print"      [221]                         [221]"
  209. 6603 print"      [221] [155]by [205]ekka & [211]ymposium    [158][221]"
  210. 6604 print"      [221]                         [221]"
  211. 6605 print"      [221]                         [221]"
  212. 6606 print"      [221] [155][197]very easter at         [158][221]"
  213. 6607 print"      [221]                         [221]"
  214. 6608 print"      [221] [155][198]allingbostel, germany  [158][221]"
  215. 6609 print"      [221]                         [221]"
  216. 6610 print"      [221]                         [221]"
  217. 6611 print"      [221]                         [221]"
  218. 6612 print"      [221]                    [155]come [158][221]"
  219. 6613 print"      [221]                [155]to where [158][221]"
  220. 6614 print"      [221]       [155]the sceners meet! [158][221]
  221. 6615 [153]"      (NULL)                         (NULL)"
  222. 6616 [153]"      /tantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  223. 6617 [151] v[170]17,27
  224. 6618 p[178]7000:[141] 6407
  225. 6619 :
  226. 6620 [153]""
  227. 6621 :
  228. 6622 [143] ------------------------------
  229. 6623 [151] v[170]32,0:[151] v[170]33,0
  230. 6624 p[178]1500:[141] 6407
  231. 6625 [153] [166]12);"printlen64 never dies!"
  232. 6626 [129] i[178]1 [164] 26
  233. 6627 p[178]80
  234. 6628 [141] 6407
  235. 6629 [153]
  236. 6630 [130]
  237. 6631 :
  238. 6632 p[178]3000:[141] 6407
  239. 6633 [153]"loadopenthe end"
  240. 6634 [153]"tocmdstop";
  241. 6635 [151] 808,237
  242. 6636 [151] 198,0
  243. 6637 [158] 42107
  244.