home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 172 / 172.d81 / star (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1998-01-01  |  1.7 KB  |  67 lines
  1. 1 dv=peek(186):ifdv<8thendv=8
  2. 5 poke32767,13:poke53371,0
  3. 10 poke53281,0:poke53280,0:print"[147][159]":gosub100
  4. 11 poke788,49:tq=ti:poke198,0
  5. 12 sys57812"multi ls spr",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  6. 13 sys57812"unpacker.89",dv,0:poke780,0:poke781,0:poke782,201:sys65493
  7. 14 sys57812"intro.shp",dv,0:poke780,0:poke781,0:poke782,32:sys65493
  8. 16 geta$:ifa$=""and(ti<tq+250)then16
  9. 17 poke251,32:poke252,224:poke253,204
  10. 18 poke53280,0:sys51456:sys51459
  11. 19 l$="1385062740":rem lars toad
  12. 21 v=53248
  13. 22 fori=0to9
  14. 23 x1(i)=80+26*i:y1(i)=160:y2(i)=190
  15. 24 x2(i,0)=x1(i)-8
  16. 25 x2(i,1)=60+26*i
  17. 26 next
  18. 27 pokev+21,0
  19. 28 fori=0to7:poke53240+i,i:pokev+39+i,7:next
  20. 29 pokev+29,0:pokev+23,0:pokev+27,0:pokev+28,255:pokev+37,2
  21. 30 fori=0to10
  22. 31 z(i)=val(mid$(l$,i+1,1))
  23. 32 next
  24. 33 pokev+16,2^(z(8)-1)-2^(z(9)-1)*(n>7)
  25. 34 fori=0to10
  26. 35 ifz(i)=0then37
  27. 36 pokev+(z(i)-1)*2,(x2(i,-(n>7))and255):pokev+1+(z(i)-1)*2,y2(i)
  28. 37 next
  29. 38 pokev+21,255
  30. 40 tq=ti:j=0:poke53370,0
  31. 41 j=1-j:fori=0to7:pokev+39+i,7-6*j:next
  32. 42 ifti<tq+200then41
  33. 43 poke53371,0
  34. 44 fori=0to7:pokev+39+i,7:next
  35. 45 forj=0to9:ifz(j)=0then55
  36. 46 yt=y2(1):xt=x2(j,-(n>7))
  37. 47 xd=abs((xt-x1(z(j)-1))/15):di=1:ifxt>x1(z(j)-1)thendi=-1
  38. 48 xt=xt+di*xd
  39. 49 yt=yt-2:ifyt<160then55
  40. 50 ifj<8thenifxt>255thenpokev+16,peek(v+16)or2^(z(j)-1)
  41. 51 ifj>7thenifxt<256thenpokev+16,peek(v+16)and(255-2^(z(j)-1))
  42. 52 pokev+(z(j)-1)*2,xt and255
  43. 53 pokev+1+(z(j)-1)*2,yt
  44. 54 goto48
  45. 55 next:j=0:tq=ti
  46. 56 j=1-j:fori=0to7:pokev+39+i,7-6*j:next
  47. 57 ifti<tq+200then56
  48. 60 tq=ti:poke198,0
  49. 70 geta$:ifa$=""and(ti<tq+250)then70
  50. 80 poke198,0
  51. 82 pokev+21,0
  52. 90 poke157,0:load"presenter",dv
  53. 100 fori=1to7:readb$(i):next
  54. 110 poke214,2:print
  55. 120 fori=1to7:print:ifi=4thenprint"[155]"
  56. 130 printtab(20-((len(b$(i))/2)))b$(i)
  57. 140 next
  58. 150 return
  59. 200 data"[204] [193] [210] [211]   [212] [207] [193] [196]
  60. 202 [131]"or (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)'s (NULL)oad atnbout (NULL)own
  61. 210 data"[208]icture by [215]alt [200]arned
  62. 220 [131]"(NULL)he music is"
  63. 230 [131]"mid$azz (NULL)egato
  64. 240 data"by [204]eroy [193]nderson
  65. 250 [131]"(NULL)ranscribed by str$ave (NULL)arquis
  66. 10000 dv=peek(186):open15,dv,15,"s0:star":close15:save"star",dv:end
  67.