home *** CD-ROM | disk | FTP | other *** search
/ Mail Madness! 45 / Mail_Madness_45_200x_-_Side_B.d64 / experim@nt 2 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  122 lines
  1. 0 rem save"@:experiment    2",12
  2. 2 ifpeek(1024)=0thengoto118
  3. 3 ifz=1thengoto90
  4. 4 z=1
  5. 10 poke53280,14:poke53281,6:lw=peek(186):printchr$(8);
  6. 11 fora=49154to49317:readi:pokea,i:next
  7. 12 load"[194] 05*",lw,1
  8. 13 end
  9. 90 poke53280,0:poke53281,0:poke53265,11:print"[144][147]";
  10. 91 gosub2000:gosub2100:sys49154:gosub2105:forza=0to500:nextza
  11. 92 fa(0)=1:fa(1)=7:fa(2)=15:fa(3)=12:fa(4)=11:fa(5)=6:fa(6)=0
  12. 93 forza=5to0step-1:poke53281,fa(za):forzb=0to50:next:next
  13. 94 forza=0to6:poke53281,fa(za):forzb=0to50:next:next
  14. 95 forza=5to3step-1:poke53281,fa(za):forzb=0to50:next:next:forza=0to1000:next
  15. 96 poke53265,11:za=0:gosub202
  16. 100 :
  17. 101 :
  18. 110 a$="welle: erdball":pokea(1),0:gosub120:gosub123
  19. 111 a$="[155]zeigt":gosub120:gosub123
  20. 112 a$="[155]auf der":gosub120:gosub123
  21. 113 a$="[215][201][204][204][207][215] 2oo2":gosub120:gosub123
  22. 114 a$="[155] 6. bis 8. [211]eptember 2oo2":gosub120:gosub123
  23. 115 a$="[151] [196]as [197]xperiment 2":gosub120
  24. 116 print"";tab(11)" [196]as [197]xperiment 2":gosub2010
  25. 117 poke55296,0:poke1024,0:load"[194] 08*",lw,1
  26. 118 sys49154:gosub2105:goto150
  27. 119 goto119
  28. 120 print"";chr$(14)
  29. 121 printmid$(b$,1,za)tab((40-len(a$))/2);a$:forza=0to11:print:gosub2030:next
  30. 122 return
  31. 123 zd=55756-(len(a$)/2):ze=55754+(len(a$)/2)
  32. 124 forza=0to((len(a$))/2)-1:forzb=0to6:pokezd+za,fa(zb):pokeze-za,fa(zb)
  33. 125 gosub2040:next:next:return
  34. 150 :
  35. 151 restore:forza=49154to49317:readi:next:forza=0to62:readq:poke832+za,q:next
  36. 152 forza=0to62:readq:poke896+za,q:next
  37. 153 forza=0to62:readq:poke960+za,q:next
  38. 154 v=53248:pokev+21,255:poke2040,13:pokev+0,169:pokev+2,0:gosub2050
  39. 155 pokev+3,55:pokev+39,1:pokev+40,2:pokev+27,255
  40. 156 forzc=0to25step2:forza=0to2:poke2040,13+za:poke2041,13+za:forzb=0to100:next
  41. 157 next
  42. 158 pokev+1,95-zc:next
  43. 159 forzc=0to15:forza=0to2:poke2040,13+za:poke2041,13+za:forzb=0to100:next
  44. 160 z1=int(3*rnd(1)):z2=int(3*rnd(1)):pokev+0,167+z1:pokev+2,167+z2:next:next
  45. 161 gosub200:pokev+21,0:goto10000
  46. 199 print"":goto199
  47. 200 :
  48. 201 gosub10010
  49. 202 poke53280,0:poke53281,0:print"[144][147]";:poke53265,11:poke53334,200
  50. 203 poke53272,(peek(53272)and240)or4:poke53265,27:return
  51. 204 goto100
  52. 205 goto10000
  53. 1000 data173,17,208,41,239,141,17,208,162,127,160,64,32,156,192,162
  54. 1001 data4,160,0,32,161,192,162,131,160,39,32,114,192,162,131,160
  55. 1002 data40,32,156,192,162,216,160,0,32,161,192,162,135,160,15,32
  56. 1003 data114,192,173,16,135,141,33,208,173,17,208,9,34,141,17,208
  57. 1004 data173,22,208,41,223,9,16,141,22,208,173,24,208,9,8,141
  58. 1005 data24,208,162,96,160,0,32,156,192,162,32,160,0,32,161,192
  59. 1006 data162,127,160,63,32,114,192,173,17,208,9,16,141,17,208,96
  60. 1007 data142,1,192,140,0,192,160,0,177,251,145,253,165,252,205,1
  61. 1008 data192,208,8,165,251,205,0,192,208,1,96,230,251,208,2,230
  62. 1009 data252,230,253,208,227,230,254,76,122,192,134,252,132,251,96,134
  63. 1010 data254,132,253,96
  64. 1011 rem sprites blubber
  65. 1012 data8,0,0,1,0,64,2,128,0,1,0,0,0,0,0
  66. 1013 data0,2,0,0,5,0,0,2,0,2,0,0,0,0,0,0
  67. 1014 data0,192,0,1,32,0,1,32,1,0,192,2,128,0,1,0
  68. 1015 data0,0,0,0,0,0,64,4,24,0,0,36,0,0,24,0
  69. 1016 rem
  70. 1017 data1,0,0,0,0,0,0,2,0,0,0,0,4,0,32
  71. 1018 data0,8,0,0,20,0,0,8,0,0,0,0,0,0,0,0
  72. 1019 data0,64,1,128,0,2,64,0,1,128,0,0,0,0,0,0
  73. 1020 data0,0,4,0,2,10,0,0,4,0,0,0,0,0,129,0
  74. 1021 rem
  75. 1022 data1,129,0,2,64,0,2,64,0,1,132,0,0,10,0
  76. 1023 data0,4,0,0,0,0,1,0,0,0,0,128,0,0,0,1
  77. 1024 data0,0,2,128,0,1,0,0,0,0,0,0,3,0,0,4
  78. 1025 data128,0,3,0,0,0,0,0,64,0,0,0,0,0,0,0
  79. 2000 :
  80. 2001 si=54272
  81. 2002 fl(1)=si:fh(1)=si+1:tl(1)=si+2:th(1)=si+3:w(1)=si+4:a(1)=si+5:h(1)=si+6
  82. 2003 fl(2)=si+7:fh(2)=si+8:tl(2)=si+9:th(2)=si+10:w(2)=si+11:a(2)=si+12
  83. 2004 h(2)=si+13
  84. 2005 fl(3)=si+14:fh(3)=si+15:tl(3)=si+16:th(3)=si+17:w(3)=si+18:a(3)=si+19
  85. 2006 h(3)=si+20:l=si+24
  86. 2007 pokel,15:gosub2020
  87. 2009 return
  88. 2010 pokew(1),0
  89. 2011 forza=15to0step-0.3
  90. 2012 pokel,za:pokea(1),15:pokeh(1),0:pokefh(1),25-za:pokefl(1),za:pokew(1),129
  91. 2013 pokea(2),15:pokeh(2),0:pokefh(2),2:pokefl(2),za:pokew(2),129
  92. 2014 next:pokew(1),0:pokew(2),0:pokel,15:return
  93. 2020 :
  94. 2021 pokew(1),0:pokew(2),0:pokew(3),0:pokea(1),0:pokea(2),0:pokea(3),0:return
  95. 2030 pokeh(1),0:pokeh(2),0:pokeh(3),0:pokea(1),0
  96. 2031 pokew(1),0:pokefh(1),50+za:pokefl(1),50+za:pokew(1),129:return
  97. 2040 pokeh(1),0:pokea(1),50
  98. 2041 zs=int(30*rnd(1)):pokew(1),0:pokefh(1),zs:pokefl(1),zs:pokew(1),17:return
  99. 2050 :
  100. 2051 pokew(1),0:pokea(1),255:pokeh(1),64:pokefh(1),255:pokefl(1),255
  101. 2052 pokew(1),129:return
  102. 2100 :
  103. 2101 fori=54272to54295:pokei,0:next
  104. 2102 poke54296,15:poke54287,11:poke54278,255:poke54276,21:forza=1to1
  105. 2103 fora=255to0step-0.4:poke54273,a:next:next
  106. 2104 fori=54272to54295:pokei,0:next:return
  107. 2105 :
  108. 2106 pokew(1),0:pokew(2),0:pokew(3),0
  109. 2107 pokefh(1),3:pokefl(1),2:pokea(1),15:pokeh(1),224:pokew(1),33
  110. 2108 pokefh(2),3:pokefl(2),3:pokea(2),15:pokeh(2),224:pokew(2),33
  111. 2109 pokefh(3),3:pokefl(3),6:pokea(3),15:pokeh(3),224:pokew(3),33:return
  112. 10000 rem programm loader
  113. 10001 l$="[194] 14*":pokea(1),0:pokeh(1),0:pokeh(2),0:pokeh(3),0
  114. 10002 print"[147][144]poke 44,16:poke 4096,0:new"
  115. 10003 print"load"+chr$(34)+l$+chr$(34)+",";lw
  116. 10004 print"run":print"run"
  117. 10005 poke 631,19:poke 632,13:poke 633,13
  118. 10006 poke 634,13:poke 198,4:end
  119. 10010 forza=6to0step-1:poke53280,fa(za):poke53281,fa(za):forzb=0to10:next:next
  120. 10011 forza=0to6:poke53280,fa(za):poke53281,fa(za):forzb=0to10:next:next
  121. 10012 return
  122.