home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 November / 64er_Magazin_85-11_1985_Markt__Technik_de.d64 / spritekill (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  76 lines
  1. 0 rem *****************
  2. 1 rem * sprite - kill *
  3. 2 rem *****************
  4. 3 rem *  v o n :      *
  5. 4 rem *****************
  6. 5 rem *  g. glendown  *
  7. 6 rem *****************
  8. 7 rem * tel.:         *
  9. 8 rem * (06621)/73483 *
  10. 9 rem *****************
  11. 10 print"[147]spritekill":poke53281,0:poke53280,0:print"von garry glendown"
  12. 20 input"startadresse";sa$:sa=val(sa$)
  13. 21 ifsa>40429andsa<49152orsa>52716orsa<1024thenprint"ungueltig!":goto20
  14. 29 print"endadresse:"sa+532:input"ok? j/n";a$:ifa$<>"j"then20
  15. 30 ifsa<6000thenfl=1
  16. 35 iffl=1then100
  17. 40 input"abspeichern j/n";a$:ifa$="j"thenfl=1
  18. 50 fort=satosa+531:reada:poket,a:ch=ch+a:next:ifch<>65921thenprint"fehler!"ch:end
  19. 51 ch=0
  20. 60 readco:ch=ch+co:ifco=-1then200
  21. 70 b=peek(sa+co)+256*peek(sa+co+1):b=b-28672+sa:h=int(b/256):l=b-h*256
  22. 80 pokesa+co,l:pokesa+co+1,h:goto60
  23. 100 fort=49152to49683:reada:poket,a:ch=ch+a:next:ifch<>65921thenprint"fehler!"ch:end
  24. 101 ch=0
  25. 110 readco:ch=ch+co:ifco=-1then140
  26. 120 b=peek(49152+co)+256*peek(49153+co):b=b-28672+sa:h=int(b/256):l=b-h*256
  27. 130 poke49152+co,l:poke49153+co,h:goto110
  28. 140 ifch<>22866thenprint"fehler!":end
  29. 141 input"filename";f$:open1,8,2,f$+",p,w"
  30. 150 h=int(sa/256):l=sa-h*256:print#1,chr$(l)chr$(h);
  31. 160 fort=49152to49683:print#1,chr$(peek(t));:next:close1:open1,8,15
  32. 170 input#1,a,b$,c,d:printa","b$","c","d:end
  33. 200 ifch<>22866thenprint"fehler!"ch:end
  34. 201 iffl=1then300
  35. 210 print"programm im speicher von"sa" bis"sa+531
  36. 220 print"programmstart mit  sys";sa" [146]"
  37. 230 end
  38. 300 h=int(sa/256):l=sa-h*256
  39. 310 input"filename ";f$:open1,8,2,f$+",p,w":print#1,chr$(l)chr$(h);
  40. 320 fort=satosa+531:print#1,chr$(peek(t));:next:close1:open1,8,15:input#1,a,b$,c,d:close1
  41. 330 printa","b$","c","d:ifa=0then210
  42. 340 input"nochmal versuchen j/n";a$:ifa$<>"j"then210
  43. 350 open1,8,15,"s:"+f$:close:goto300
  44. 32000 data120,169,3,162,0,134,255,134,248,141,21,208,141,23,208,141,29,208,169
  45. 32001 data100,141,0,208,141,3,208,162,200,142,2,208,206,40,208,141,1,208,162
  46. 32002 data13,142,248,7,232,142,249,7,32,60,113,32,133,112,169,19,32,210,255,165
  47. 32003 data255,32,102,112,165,254,32,102,112,169,32,32,210,255,32,133,112,165
  48. 32004 data253,32,102,112,165,252,32,102,112,32,164,112,76,169,113,169,19,32,210
  49. 32005 data255,169,36,32,210,255,96,72,74,74,74,74,201,10,48,2,105,6,105,48,32
  50. 32006 data210,255,104,41,15,201,10,48,2,105,6,105,48,32,210,255,96,165,254,41
  51. 32007 data3,170,189,16,114,24,101,248,133,252,165,254,74,74,133,253,165,255,170
  52. 32008 data189,16,114,24,101,253,133,253,96,32,133,112,160,63,120,169,53,133,1
  53. 32009 data177,252,145,249,136,16,249,169,55,133,1,88,96,76,129,255,165,254,24
  54. 32010 data105,16,133,254,176,67,76,49,112,165,254,56,233,16,133,254,144,73,76
  55. 32011 data49,112,230,254,240,48,76,49,112,165,254,56,233,1,133,254,144,54,76
  56. 32012 data49,112,173,28,208,73,3,141,28,208,76,49,112,173,29,208,73,3,141,29
  57. 32013 data208,76,49,112,173,23,208,73,3,141,23,208,76,49,112,230,255,165,255
  58. 32014 data201,4,16,3,76,49,112,169,0,133,255,76,49,112,198,255,48,3,76,49,112
  59. 32015 data169,3,133,255,76,49,112,32,133,112,32,78,113,160,63,169,0,136,145,252
  60. 32016 data208,251,76,214,112,162,64,160,3,134,249,132,250,96,162,128,160,3,134
  61. 32017 data249,132,250,96,32,69,113,32,164,112,32,60,113,96,32,133,112,32,69,113
  62. 32018 data169,249,162,252,141,175,112,142,177,112,32,164,112,32,133,112,169,252
  63. 32019 data162,249,141,175,112,142,177,112,32,60,113,76,49,112,230,248,165,248
  64. 32020 data201,63,208,4,169,0,133,248,76,49,112,198,248,165,248,201,255,208,4
  65. 32021 data169,62,133,248,76,49,112,169,0,133,248,76,49,112,32,78,113,76,49,112
  66. 32022 data160,0,162,208,165,203,200,208,6,232,208,3,76,188,113,197,251,240,241
  67. 32023 data133,251,160,15,185,226,113,197,251,240,6,136,16,246,76,169,113,136
  68. 32024 data152,10,168,185,242,113,141,222,113,185,243,113,141,223,113,76,221,113
  69. 32025 data76,49,112,40,43,54,57,36,23,25,28,60,3,2,7,17,63,20,214,112,221,112
  70. 32026 data190,112,202,112,233,112,244,112,255,112,10,113,42,113,156,113,126,113
  71. 32027 data141,113,88,113,187,112,163,113,0,64,128,192
  72. 60000 data47,50,60,65,73,78,83,86,89,139,156,165,200,212,219,231,242,253,264
  73. 60010 data275,282,289,296,299,302,314,335,338,341,345,348,355,358,361,364
  74. 60020 data371,374,377,380,395,410,417,420,423,438,449,459,466,469,472,475,478
  75. 60030 data498,500,502,504,506,508,510,512,514,516,518,520,522,524,526,-1
  76.