home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_90-02_1990_-_de_Side_B.d64 / bm_spritedemo (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  73 lines
  1. 30000 rem ***********************
  2. 30010 rem * module : spritedemo *
  3. 30020 rem * var: ok             *
  4. 30030 rem ***********************
  5. 30040 phi:!s13
  6. 30050 rem!************************
  7. 30060 rem!*......................*
  8. 30070 rem!*......................*
  9. 30080 rem!*..******************..*
  10. 30090 rem!*................**....*
  11. 30100 rem!*..............**......*
  12. 30110 rem!*............**........*
  13. 30120 rem!*..........**..........*
  14. 30130 rem!*........**............*
  15. 30140 rem!*......**..............*
  16. 30150 rem!*......**.....****.....*
  17. 30160 rem!*......**....*....*....*
  18. 30170 rem!*......**...*..**..*...*
  19. 30180 rem!*......**...*.*....*...*
  20. 30190 rem!*......**...*..**..*...*
  21. 30200 rem!*......**....*....*....*
  22. 30210 rem!*......**.....****.....*
  23. 30220 rem!*......**..............*
  24. 30230 rem!*......................*
  25. 30240 rem!*......................*
  26. 30250 rem!************************
  27. 30260 !s255
  28. 30270 rem!*.......................
  29. 30280 rem!........................
  30. 30290 rem!........................
  31. 30300 rem!........................
  32. 30310 rem!........................
  33. 30320 rem!........................
  34. 30330 rem!........................
  35. 30340 rem!........................
  36. 30350 rem!........................
  37. 30360 rem!........................
  38. 30370 rem!........................
  39. 30380 rem!........................
  40. 30390 rem!........................
  41. 30400 rem!........................
  42. 30410 rem!........................
  43. 30420 rem!........................
  44. 30430 rem!........................
  45. 30440 rem!........................
  46. 30450 rem!........................
  47. 30460 rem!........................
  48. 30470 rem!........................
  49. 30480 !i4,360,130,y,y,13,s,n,6
  50. 30490 !i2,360,130,y,y,13,s,n,7
  51. 30500 !i3,360,130,y,y,13,s,n,1
  52. 30510 bcol0,0:print"[151][147]";:forx=1to199:print"punk!";:nextx:print"punk"
  53. 30520 poke2023,33
  54. 30530 !ml,4,155,4,2,3
  55. 30540 !ml,4,48,4,2
  56. 30550 !ml,4,48,4
  57. 30560 !mu,4,42,4
  58. 30570 !md,4,42,3
  59. 30580 !mr,4,48,4
  60. 30590 !ml,4,48,3
  61. 30600 !mr,4,48,4
  62. 30610 !ml,4,48,3
  63. 30620 !md,4,42,4
  64. 30630 !mu,4,42,3
  65. 30640 forx=1to30
  66. 30650 !d4,c1,11:!d2,c1,12:!d3,c1,15:forc=1to5:nextc
  67. 30660 !d4,c1,15:!d2,c1,11:!d3,c1,12:forc=1to5:nextc
  68. 30670 !d4,c1,12:!d2,c1,15:!d3,c1,11:forc=1to5:nextc,x
  69. 30680 !d4,2,3,c1,14
  70. 30690 forx=1to200:nextx:!i1,109,130,y,y,255,s,n,1
  71. 30700 !mr,2,142,1:!md,4,40,1:!ml,2,142,1:!mu,4,40,1:nwait:ifokthen30700
  72. 30710 !i1:!i2:!i3:!i4:pli:sec:return
  73.