home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 181 / 181.d81 / movie (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  146 lines
  1. 10 dv=peek(186):poke53269,0
  2. 20 ml=198*256:bo=194*256:bl=bo+6
  3. 30 wg=49152:mv=wg+3
  4. 40 sysbl,"f.munchkin",dv,8*256
  5. 50 sysbl,"d.papillions.dmc",dv,16*256
  6. 59 forx=0to64:poke832+x,0:next
  7. 60 forx=0to53:poke832+x,255:poke832+x,255:next:forx=0to3:poke2040+x,13
  8. 61 poke53287+x,6:next:poke53270,200
  9. 62 poke53275,15:poke53269,00
  10. 63 poke53271,15:poke53277,15
  11. 70 poke53248,160:poke53249,162
  12. 71 poke53250,96:poke53251,162
  13. 72 poke53252,224:poke53253,162:ti$="000000"
  14. 75 dima(1023):forx=0to249:a(x)=x+1024:next
  15. 76 forx=0to249:y=rnd(1)*250:a=a(y):a(y)=a(x):a(x)=a:next
  16. 77 ifti>100thensp=1
  17. 90 poke53272,18:forx=0to3:sysmv,x,0,0,0,0:next:syswg,0
  18. 91 goto100
  19. 92 ift>tithen92
  20. 93 return
  21. 100 sysml+42,224+8:poke53280,12:poke53281,6:print"":poke53280,12
  22. 110 t=ti+300:syswg,1:sysmv,3,69,70,15,1:poke53280,12
  23. 111 poke53280,12:gosub92:t=ti+150
  24. 112 sysmv,0,69,70,12,1:poke53269,1:poke53280,12
  25. 113 gosub92:t=ti+150
  26. 114 sysmv,1,90,91,13,1:poke53269,3:poke53280,12
  27. 115 sysmv,0,69,79,12,1
  28. 116 gosub92:t=ti+230
  29. 118 sysmv,2,100,101,14,1:poke53269,7:poke53280,12
  30. 119 sysmv,1,90,100,13,1
  31. 120 gosub92:t=ti+206
  32. 121 sysmv,0,79,192,12,128
  33. 122 sysmv,1,100,192,13,128
  34. 123 sysmv,2,100,192,14,128
  35. 124 gosub92:t=ti+176
  36. 125 poke53287,4:poke53288,7:poke53289,7
  37. 126 gosub92:t=ti+399
  38. 127 poke53287,0:poke53288,13:poke53289,13
  39. 128 gosub92:t=ti+380
  40. 129 poke53287,15:poke53288,0:poke53289,0
  41. 130 gosub92:t=ti+391
  42. 131 poke53287,1:poke53288,15:poke53289,15
  43. 132 gosub92:t=ti+382
  44. 133 poke53288,1:poke53289,1
  45. 134 gosub92:k=1:
  46. 135 poke53287,0:poke53288,0:poke53289,0
  47. 136 t=ti+381:gosub92:t=ti+382
  48. 137 poke53288,1
  49. 138 gosub92:t=ti+382
  50. 139 poke53287,1:poke53288,2
  51. 140 gosub92:ifk=2then150
  52. 142 t=ti+382:gosub920:poke53287,7
  53. 143 poke53288,14:poke53289,14
  54. 144 t=ti+183:gosub92:t=ti+211
  55. 145 poke53289,7
  56. 146 gosub92:t=ti+378
  57. 147 poke53288,7
  58. 148 gosub92:k=2:goto135
  59. 150 poke53288,6:poke53289,6:poke53287,4
  60. 151 t=ti+358:gosub92:t=ti+378
  61. 152 poke53287,6:poke53288,4:poke53289,4
  62. 153 gosub92:t=ti+360
  63. 154 poke53287,0:poke53288,6:poke53289,6
  64. 155 gosub92:t=ti+430:ifsp=1thent=t-20
  65. 156 poke53287,6:poke53288,0:poke53289,0
  66. 157 gosub92
  67. 158 t=ti+211
  68. 200 poke53280,0:poke53265,11:poke53282,11:poke53283,12
  69. 201 sysml+42,224+16:poke53270,216:poke53269,14
  70. 202 poke53248,88:poke53249,130:poke53275,0:forx=0to3:poke53287+x,0:next
  71. 203 poke53250,136:poke53251,130
  72. 204 poke53252,184:poke53253,130
  73. 205 poke53254,232:poke53255,130
  74. 206 forx=0to3:sysmv,x,69,192,12+x,128:next:poke53265,27
  75. 207 gosub92:t=ti+189
  76. 208 poke53269,12
  77. 209 gosub92:t=ti+199
  78. 210 poke53269,8
  79. 211 gosub92:t=ti+187
  80. 212 poke53269,0
  81. 213 gosub92:t=ti+381
  82. 214 poke53282,10:poke53283,4
  83. 215 gosub92:t=ti+382
  84. 216 poke53282,3:poke53283,13
  85. 217 gosub92:t=ti+382
  86. 218 poke53282,1:poke53283,7
  87. 219 gosub92:t=ti+382
  88. 220 poke53282,9:poke53283,8
  89. 221 gosub92:t=ti+382
  90. 222 poke53282,12
  91. 223 gosub92
  92. 224 t=ti+382:gosub925
  93. 226 forx=8to15:t=ti+75:gosub92
  94. 227 poke53282,x:poke53283,x:next
  95. 230 ::::::::::::
  96. 299 t=ti+200
  97. 300 poke53280,0:poke53265,11
  98. 301 sysml+42,224
  99. 302 sysmv,0,69,169,12,128
  100. 303 sysmv,1,79,179,13,128
  101. 304 sysmv,2,89,189,14,128
  102. 305 sysmv,3,92,192,15,128
  103. 306 poke53265,27
  104. 307 gosub92
  105. 308 t=ti+314:poke53282,7:poke53283,7
  106. 309 gosub92:t=ti+382
  107. 310 poke53282,0:poke53283,0
  108. 311 gosub92:t=ti+382
  109. 312 poke53282,14:poke53283,13
  110. 313 gosub92:t=ti+382:gosub925
  111. 326 gosub3000
  112. 327 syswg,0:t=ti+60:gosub92:poke53270,200
  113. 328 sysml+42,224+24:t=ti+600:gosub92
  114. 329 poke53280,0:poke53281,0:poke646,0:print"[147]":poke53270,200
  115. 330 goto61000
  116. 899 ti$="000000"
  117. 900 geta$:ifa$=""then900
  118. 901 syswg,0:print""ti
  119. 902 end
  120. 920 poke53287,(peek(53287)-1)and15
  121. 921 poke53288,(peek(53288)+1)and15
  122. 922 poke53289,(peek(53289)+1)and15
  123. 923 ift>tithen920
  124. 924 return
  125. 925 poke53282,(peek(53282)-1)and15:poke53283,(peek(53283)+1)and15
  126. 926 ift>tithen925
  127. 927 return
  128. 3000 ti$="000000":forx=0to249
  129. 3005 ifx*4>tithen3005
  130. 3010 pokea(x),126:pokea(x)+54272,0
  131. 3011 pokea(x)+250,126:pokea(x)+54522,0
  132. 3012 pokea(x)+500,126:pokea(x)+54772,0
  133. 3013 pokea(x)+750,126:pokea(x)+55022,0
  134. 3015 ifti>2700theny=4:x=250
  135. 3020 next:return
  136. 59999 end
  137. 60000 poke53269,0:dv=peek(186):open15,dv,15,"s0:movie":close15:save"0:movie",dv
  138. 60999 end
  139. 61000 poke53280,0:poke53265,11:poke53281,0:print"[147]":poke53265,27
  140. 61001 poke56,160:poke55,0:clr:c$="[147]"+chr$(34):d$=chr$(34)+","
  141. 61002 a$="hello connect":fori=8to11:close2:open2,i,2:close2:ifstthen61020
  142. 61010 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then61030
  143. 61020 next:print"[147]":poke2048,0:poke44,8:poke53272,23:poke186,8:poke198,0:new
  144. 61030 poke646,peek(53281):printc$a$d$i""
  145. 61040 poke44,8:poke2048,0:poke631,131:poke198,1:end
  146.