home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 March / 64er_Magazin_89-03_1989_Markt__Technik_de_Side_A.d64 / ballon.lst (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  88 lines
  1. 100 rem ballon
  2. 110 data pt1,pt2,i,x,y
  3. 130 data *=,49152,0
  4. 140 data    ,add#,1,820
  5. 150 data    ,gosub,58692,
  6. 160 data    ,move#,sprite,pt1
  7. 170 data    ,move#,832,pt2
  8. 180 data lp1,cmove(),pt1,pt2
  9. 182 data    ,add#,1,pt1
  10. 184 data    ,add#,1,pt2
  11. 190 data    ,move,pt2,i
  12. 200 data    ,add#,-896,i
  13. 210 data    ,if,i,lp1
  14. 220 data    ,cmove#,13,2040
  15. 230 data    ,cmove#,5,53287
  16. 240 data    ,move#,0,53280
  17. 250 data    ,cmove#,1,53269
  18. 260 data    ,move#,20480,x
  19. 270 data    ,move#,0,y
  20. 300 data lp2,move,y,828
  21. 305 data    ,gosub,sgnxt,
  22. 310 data    ,sub,829,x
  23. 320 data    ,move,x,828
  24. 325 data    ,gosub,sgnxt,
  25. 330 data    ,add,829,y
  26. 340 data    ,gosub,set,
  27. 350 data    ,move,x,828
  28. 355 data    ,gosub,sgnxt,
  29. 360 data    ,add,829,y
  30. 370 data    ,move,y,828
  31. 375 data    ,gosub,sgnxt,
  32. 380 data    ,sub,829,x
  33. 390 data    ,gosub,set,
  34. 400 data    ,goto,lp2,
  35. 410 data set,move,x,828
  36. 420 data    ,move,y,830
  37. 430 data    ,add#,43520,828
  38. 440 data    ,add#,35840,830
  39. 450 data    ,cmove,829,53248
  40. 460 data    ,cmove,831,53249
  41. 470 data    ,move,820,pt1
  42. 480 data lp3,add#,-1,pt1
  43. 485 data    ,if,pt1,lp3
  44. 490 data    ,return,,
  45. 500 data sgnxt,move#,0,i
  46. 510 data    ,cmove,829,i
  47. 520 data    ,add,i,i
  48. 530 data    ,cmove#,0,i
  49. 540 data    ,if,i,sg1
  50. 550 data    ,cmove#,0,830
  51. 560 data    ,return,,
  52. 570 data sg1,cmove#,255,830
  53. 580 data    ,return,,
  54. 590 rem
  55. 600 data sprite,word,32512,
  56. 610 data ,word,256,
  57. 620 data ,word,49395,
  58. 630 data ,word,51971,
  59. 640 data ,word,992,
  60. 650 data ,word,57595,
  61. 660 data ,word,63239,
  62. 670 data ,word,2032,
  63. 680 data ,word,61687,
  64. 690 data ,word,61191,
  65. 700 data ,word,1008,
  66. 710 data ,word,57577,
  67. 720 data ,word,59139,
  68. 730 data ,word,992,
  69. 740 data ,word,57599,
  70. 750 data ,word,65282,
  71. 760 data ,word,416,
  72. 770 data ,word,16511,
  73. 780 data ,word,15873,
  74. 790 data ,word,64,
  75. 800 data ,word,32924,
  76. 810 data ,word,39936,
  77. 820 data ,word,128,
  78. 830 data ,word,73,
  79. 840 data ,word,18688,
  80. 850 data ,word,0,
  81. 860 data ,word,62,
  82. 870 data ,word,15872,
  83. 880 data ,word,0,
  84. 890 data ,word,62,
  85. 900 data ,word,7168,
  86. 910 data ,word,0,
  87. 920 data _
  88.