home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 87 / 64er_Magazin_Sonderheft_87_19xx_Markt__Technik_de_Side_A.d64 / sprite-demo2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  66 lines
  1. 5 C\7,0,6
  2. 10 D: D%7,6
  3. 12 fori=1to500:D) rnd(1)*319,rnd(1)*199,1:next
  4. 15 gosub200:gosub400
  5. 20 D#13,0,0
  6. 21 D#14,0,0
  7. 30 D 3,13,1,0,0
  8. 31 D 4,14,3,0,0
  9. 40 D 3,1,0
  10. 41 D 4,1,0
  11. 50 D 3,100,100
  12. 51 D 4,100,100
  13. 70 C;
  14. 80 D 3,300*rnd(0),200*rnd(0),20
  15. 81 D 4,300*rnd(0),200*rnd(0),20
  16. 90 : get a$
  17. 100 C@ a$=chr$(32): D3: D4: D(: end
  18. 110 D 3,0,150,200,150,100
  19. 200 D 1,13,2
  20. 210 D "........................"
  21. 212 D "........................"
  22. 214 D "..........***..........."
  23. 216 D "........*******........."
  24. 218 D "......***********......."
  25. 220 D "......*.*.*.*.*.*......."
  26. 222 D "....***************....."
  27. 224 D "..*******************..."
  28. 226 D "***********************."
  29. 228 D "***********************."
  30. 230 D "***..*..*..*..*..*..***."
  31. 232 D "..*******************..."
  32. 234 D "..*******************..."
  33. 236 D "....***************....."
  34. 238 D ".......*********........"
  35. 240 D "..........***..........."
  36. 242 D "........................"
  37. 244 D "........................"
  38. 246 D "........................"
  39. 248 D "........................"
  40. 250 D "........................"
  41. 252 return
  42. 300 D 4,0,150,200,150,100
  43. 400 D 1,14,2
  44. 410 D "........................"
  45. 412 D "........................"
  46. 414 D "........................"
  47. 416 D "........*******........."
  48. 418 D "......***********......."
  49. 420 D "......*.*.*.*.*.*......."
  50. 422 D "....***************....."
  51. 424 D "..*******************..."
  52. 426 D "***..*..*..*..*..*..***."
  53. 428 D "***..*..*..*..*..*..***."
  54. 430 D "***..*..*..*..*..*..***."
  55. 432 D "..*******************..."
  56. 434 D "..*******************..."
  57. 436 D "....***************....."
  58. 438 D ".......*********........"
  59. 440 D "........................"
  60. 442 D "........................"
  61. 444 D "........................"
  62. 446 D "........................"
  63. 448 D "........................"
  64. 450 D "........................"
  65. 452 return
  66.