home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 201 / 201.d81 / star (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  152 lines
  1. 1 poke 55,0:poke 56,152:clr
  2. 2 dv=peek(186):ifdv<8thendv=8
  3. 3 print chr$(14):print chr$(8)
  4. 8 poke 32767,13:poke 53371,0
  5. 10 poke53281,0:poke53280,0:print"[147][159]";:gosub100
  6. 11 tq=ti
  7. 13 sys57812"unpacker.98",dv,0:poke780,0:poke781,128:poke782,200:sys65493
  8. 14 sys 57812"qs driver 9800",dv,8:poke 780,0:poke 781,0:poke 782,152:sys 65493
  9. 15 sys57812"sprites",dv:poke780,0:poke781,128:poke 782,193:sys65493
  10. 16 sys 57812"q.asz",dv:poke 780,0:poke 781,0:poke 782,40:sys 65493
  11. 17 ifti<tq+350then17
  12. 18 print"[147]";
  13. 19 sys51328,"intro.shp",dv,224,204
  14. 20 poke252,224:poke253,204:sys51459
  15. 21 dr=38912:poke 198,0
  16. 22 sys dr+15:sys dr+12:tq=ti
  17. 23 geta$:ifa$=""and(ti<tq+250)then23
  18. 25 poke 198,0:goto 300
  19. 100 fori=1to10:readb$(i):next
  20. 110 poke214,0:print
  21. 120 fori=1to10:print:ifi=4thenprint"[155]"
  22. 130 printtab(20-((len(b$(i))/2)))b$(i)
  23. 140 next
  24. 150 return
  25. 200 data"2001 - [193] [211]pace [207]dyssey
  26. 202 [131]"(NULL)r is it?"
  27. 204 [131] "by (NULL)im (NULL)lk"
  28. 220 [131]"(NULL)pening music is"
  29. 230 [131]"atnlso (NULL)prach (NULL)arathustra
  30. 232 data"[201]ssue music is
  31. 234 [131]"(NULL)ales of the (NULL)ienna (NULL)oods"
  32. 240 [131]"by mid$ohann (NULL)trauss
  33. 242 data"[212]ranscribed by [202]oshua [196]erocher
  34. 244 [131]"atnrranged by str$ave (NULL)oorman
  35. 300 v=53248
  36. 301 poke v+21,0
  37. 302 for x=0 to 400:next
  38. 304 sys dr,40,1
  39. 308 rem       sprite start locations
  40. 309 rem
  41. 310 poke v+0,140:poke v+1,203:sy=204
  42. 311 poke v+2,188:poke v+3,203
  43. 312 poke v+4,140:poke v+5,128
  44. 313 poke v+6,188:poke v+7,128
  45. 314 poke v+8,140:poke v+9,170
  46. 315 poke v+10,188:poke v+11,170
  47. 316 poke v+12,150:poke v+13,66
  48. 317 poke v+14,188:poke v+15,66
  49. 319 rem      sprite colors
  50. 320 rem
  51. 321 poke v+37,0:poke v+38,11
  52. 322 poke v+28,63:rem multicolor on
  53. 323 poke v+37,0:poke v+38,11
  54. 324 poke v+39,11:poke v+40,11:rem sprite
  55. 325 poke v+41,11:poke v+42,11:rem colors
  56. 326 poke v+43,11:poke v+44,11
  57. 327 poke v+45,7:poke v+46,7
  58. 328 rem      sprite pointers 53247
  59. 329 rem
  60. 330 poke 53244,4:poke 53245,5
  61. 331 poke 53242,2:poke 53243,3
  62. 332 poke 53240,0:poke 53241,1
  63. 334 poke 53246,6:poke 53247,7
  64. 340 poke v+29,255:poke v+23,255
  65. 341 poke v+21,192
  66. 347 rem
  67. 348 rem      clear sprites
  68. 349 rem
  69. 350 for x=49152 to 49533:poke x,0:next
  70. 351 poke v+21,255
  71. 357 rem
  72. 358 rem      sprite priority
  73. 359 rem
  74. 360 poke v+27,0
  75. 389 rem
  76. 390 rem bits 11=dark gray
  77. 391 rem bits 10=black
  78. 392 rem bits 01=light gray
  79. 395 z=peek(198):if z<>0 then goto 600
  80. 400 poke 49534,112:poke 49533,69:poke 49532,64
  81. 401 poke 49470,0:poke 49469,0:poke 49468,0
  82. 402 for x=0 to 100:next
  83. 403 poke 49531,102:poke 49530,85:poke 49529,85:rem 116,85,85
  84. 404 poke 49467,102:poke 49466,69:poke 49465,16
  85. 405 for x=0 to 100:next
  86. 406 poke 49528,102:poke 49527,85:poke 49526,85
  87. 407 poke 49464,85:poke 49463,85:poke 49462,149
  88. 408 for x=0 to 100:next
  89. 410 poke 49152,170:poke 49153,170:poke 49154,170
  90. 411 poke 49216,170:poke 49217,170:poke 49218,170
  91. 420 for x=49526 to 49475 step -3
  92. 422 pokex-1,102:pokex-2,85:pokex-3,85
  93. 424 poke x-65,85:poke x-66,85:poke x-67,149
  94. 426 gosub 480:z=peek(198):if z<>0 then goto 600
  95. 428 next
  96. 440 for x=49407 to 49347 step -3
  97. 442 poke x-1,102:poke x-2,85:poke x-3,85
  98. 444 poke x-65,85:poke x-66,85:poke x-67,149
  99. 446 gosub 480:z=peek(198):ifz<>0 then goto 600
  100. 448 next
  101. 460 for x=49155 to 49212 step 3
  102. 462 poke x,149:poke x+1,85:poke x+2,85
  103. 464 poke x+64,85:poke x+65,85:poke x+66,102
  104. 466 gosub 480:z=peek(198):if z<>0 then goto 600
  105. 468 next
  106. 470 goto 500
  107. 480 for y=0 to 90:next
  108. 482 sy=sy-1:poke v+1,sy:poke v+3,sy
  109. 484 for y=o to100:next
  110. 486 sy=sy-1:poke v+1,sy:poke v+3,sy
  111. 488 return
  112. 500 for x=0 to 300:next
  113. 502 poke v+37,11:for x=1 to 10:next
  114. 504 poke v+37,12:for x=1 to 10:next
  115. 506 poke v+37,15:for x=1 to 10:next
  116. 508 poke v+37,7:for x=1 to 10:next
  117. 510 poke v+37,1:for x=1 to 10:next
  118. 512 poke v+33,1:for x=1 to 10:next
  119. 513 poke v+33,11:for x=1 to 10:next
  120. 514 poke v+32,1:for x=1 to 10:next
  121. 516 sc=peek(53265):poke 53265,11:for x=1 to 100:next
  122. 520 poke v+12,162:poke v+14,180
  123. 522 poke 53240,9:poke 53241,8:rem change sprite pointers
  124. 524 poke 53242,12:poke 53243,13
  125. 526 poke 53244,11:poke 53245,10
  126. 530 poke v+38,6:rem change colors
  127. 532 poke v+39,1:poke v+40,1
  128. 540 poke v+28,60:rem 252
  129. 542 poke v+9,86:poke v+11,86
  130. 544 poke v,150:poke v+1,92
  131. 545 poke v+2,188:poke v+3,92
  132. 550 poke 53265,sc:for x=1 to 10:next
  133. 552 poke v+32,0:for x=1 to 10:next
  134. 553 poke v+33,11:for x=1 to 10:next
  135. 554 poke v+33,0:for x=1 to 10:next
  136. 556 x=peek(v)
  137. 558 poke v+37,15:for x=1 to 10:next
  138. 560 poke v+37,12:for x=1 to 10:next
  139. 562 poke v+37,11:for x=1 to 10:next
  140. 564 poke v+37,0:for x=1 to 10:next
  141. 570 p=peek(dr+45):z=peek(198)
  142. 572 if p<>0 or z<>0 then goto 570
  143. 600 rem exit to presenter
  144. 610 sys dr+6:sys dr+18
  145. 620 poke v+21,0
  146. 622 poke 49152,dv
  147. 625 poke 55,0:poke 56,160:clr
  148. 640 dv=peek(49152)
  149. 650 poke 157,0:load"presenter",dv
  150. 9999 end
  151. 10000 d=peek(186):n$="0:star":open15,d,15,"s"+n$:close15:saven$,d:end
  152.