home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 March / 64er_Magazin_89-03_1989_Markt__Technik_de_Side_A.d64 / ballon.run (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  108 lines
  1. 10 m=200:d=50:e=14:z=-1:vn=z:print"* microcomp v1.0 *":print"code area: ";
  2. 15 dim l$(m),lv(m),c$(m),c(m),o$(m),p$(m),v$(d),w$(e),le(e),lx(e),x(e,30)
  3. 20 forn=0toe:readw$(n),le(n),lx(n):fori=0tolx(n):readx(n,i):nexti,n
  4. 30 vn=vn+1:readv$(vn):on-(v$(vn)<>"*=")goto30:read sa,vb,l$
  5. 35 z=z+1:l$(z)=l$:readc$(z),o$(z),p$(z):zm=z:readl$:on-(l$<>"_")goto35:ad=sa
  6. 50 printsa;"-";:forz=0tozm:lv(z)=ad:forn=0toe:ifc$(z)=w$(n)thenc(z)=n:ad=ad+le(n)
  7. 55 nextn,z:ce=ad:printce:ad=sa:forz=0tozm:c=c(z):v$=o$(z):gosub80:o(0)=v:v$=p$(z)
  8. 60 gosub80:o(2)=v:forn=0tolx(c):x=x(c,n):ifx>=0thenpokead,x:ad=ad+1:nextn,z:end
  9. 65 onxand4goto,,,75:j=int(o(xand2)/256):pokead,j:ifxand1thenpokead,o(xand2)-j*256
  10. 70 ad=ad+1:nextn,z:end
  11. 75 i=o(xand2)+(xand1):pokead+1,i/256:pokead,i-int(i/256)*256:ad=ad+2:nextn,z:end
  12. 80 v=val(v$):v=v-65536*(v<0):fori=0tovn-1:v=v-(v$=v$(i))*(2*i+vb-ce*(vb=0)):next
  13. 85 fori=0tozm:v=v-lv(i)*(v$=l$(i)):next:return
  14. 90 dataadd,19,12,24,173,-4,109,-2,141,-2,173,-3,109,-1,141,-1,sub,19,12,56,173,-2
  15. 91 data237,-4,141,-2,173,-1,237,-3,141,-1,move,12,7,173,-4,141,-2,173,-3,141,-1
  16. 92 datagoto,3,1,76,-4,if,11,7,173,-4,13,-3,240,3,76,-2,move#,10,7,169,-7,141,-2
  17. 93 data169,-8,141,-1,cmove,6,3,173,-4,141,-2,gosub,3,1,32,-4,return,1,0,96,setregs
  18. 94 data9,5,173,-4,174,-2,172,-1,cmove#,5,3,169,-7,141,-2,add#,17,12,24,169,-7,109
  19. 95 data-2,141,-2,169,-8,109,-1,141,-1,goto(),3,1,108,-4,cmove(),26,21,173,-4,133,34
  20. 96 data173,-3,133,35,173,-2,133,36,173,-1,133,37,160,0,177,34,145,36,word,2,0,-4
  21. 100 rem ballon
  22. 110 data pt1,pt2,i,x,y
  23. 130 data *=,49152,0
  24. 140 data    ,add#,1,820
  25. 150 data    ,gosub,58692,
  26. 160 data    ,move#,sprite,pt1
  27. 170 data    ,move#,832,pt2
  28. 180 data lp1,cmove(),pt1,pt2
  29. 182 data    ,add#,1,pt1
  30. 184 data    ,add#,1,pt2
  31. 190 data    ,move,pt2,i
  32. 200 data    ,add#,-896,i
  33. 210 data    ,if,i,lp1
  34. 220 data    ,cmove#,13,2040
  35. 230 data    ,cmove#,5,53287
  36. 240 data    ,move#,0,53280
  37. 250 data    ,cmove#,1,53269
  38. 260 data    ,move#,20480,x
  39. 270 data    ,move#,0,y
  40. 300 data lp2,move,y,828
  41. 305 data    ,gosub,sgnxt,
  42. 310 data    ,sub,829,x
  43. 320 data    ,move,x,828
  44. 325 data    ,gosub,sgnxt,
  45. 330 data    ,add,829,y
  46. 340 data    ,gosub,set,
  47. 350 data    ,move,x,828
  48. 355 data    ,gosub,sgnxt,
  49. 360 data    ,add,829,y
  50. 370 data    ,move,y,828
  51. 375 data    ,gosub,sgnxt,
  52. 380 data    ,sub,829,x
  53. 390 data    ,gosub,set,
  54. 400 data    ,goto,lp2,
  55. 410 data set,move,x,828
  56. 420 data    ,move,y,830
  57. 430 data    ,add#,43520,828
  58. 440 data    ,add#,35840,830
  59. 450 data    ,cmove,829,53248
  60. 460 data    ,cmove,831,53249
  61. 470 data    ,move,820,pt1
  62. 480 data lp3,add#,-1,pt1
  63. 485 data    ,if,pt1,lp3
  64. 490 data    ,return,,
  65. 500 data sgnxt,move#,0,i
  66. 510 data    ,cmove,829,i
  67. 520 data    ,add,i,i
  68. 530 data    ,cmove#,0,i
  69. 540 data    ,if,i,sg1
  70. 550 data    ,cmove#,0,830
  71. 560 data    ,return,,
  72. 570 data sg1,cmove#,255,830
  73. 580 data    ,return,,
  74. 590 rem
  75. 600 data sprite,word,32512,
  76. 610 data ,word,256,
  77. 620 data ,word,49395,
  78. 630 data ,word,51971,
  79. 640 data ,word,992,
  80. 650 data ,word,57595,
  81. 660 data ,word,63239,
  82. 670 data ,word,2032,
  83. 680 data ,word,61687,
  84. 690 data ,word,61191,
  85. 700 data ,word,1008,
  86. 710 data ,word,57577,
  87. 720 data ,word,59139,
  88. 730 data ,word,992,
  89. 740 data ,word,57599,
  90. 750 data ,word,65282,
  91. 760 data ,word,416,
  92. 770 data ,word,16511,
  93. 780 data ,word,15873,
  94. 790 data ,word,64,
  95. 800 data ,word,32924,
  96. 810 data ,word,39936,
  97. 820 data ,word,128,
  98. 830 data ,word,73,
  99. 840 data ,word,18688,
  100. 850 data ,word,0,
  101. 860 data ,word,62,
  102. 870 data ,word,15872,
  103. 880 data ,word,0,
  104. 890 data ,word,62,
  105. 900 data ,word,7168,
  106. 910 data ,word,0,
  107. 920 data _
  108.