home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 197 / 197.d81 / star (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  51 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$="12345678"
  12. 20 tq=ti:goto70
  13. 21 v=53248
  14. 22 fori=0to9
  15. 23 x1(i)=134+26*i:y2(i)=50
  16. 24 x2(i,0)=x1(i)-8
  17. 25 x2(i,1)=134+26*i
  18. 26 next
  19. 27 pokev+21,0
  20. 28 fori=0to7:poke53240+i,i:pokev+39+i,0:next
  21. 29 pokev+29,0:pokev+23,0:pokev+27,0:pokev+28,255:pokev+37,2
  22. 30 fori=0to10
  23. 31 z(i)=val(mid$(l$,i+1,1))
  24. 32 next
  25. 33 pokev+16,224
  26. 34 fori=0to10
  27. 35 ifz(i)=0then37
  28. 36 pokev+(z(i)-1)*2,(x2(i,-(n>5))and255):pokev+1+(z(i)-1)*2,y2(i)
  29. 37 next
  30. 38 pokev+21,255
  31. 40 tq=ti:j=0:poke53370,0
  32. 41 j=1-j:fori=0to7:pokev+39+i,7-6*j:next
  33. 70 geta$:ifa$=""and(ti<tq+250)then70
  34. 80 poke198,0:poke53371,0
  35. 82 rem   pokev+21,0
  36. 90 poke157,0:load"presenter",dv
  37. 100 fori=1to7:readb$(i):next
  38. 110 poke214,2:print
  39. 120 fori=1to7:print:ifi=4thenprint"[155]"
  40. 130 printtab(20-((len(b$(i))/2)))b$(i)
  41. 140 next
  42. 150 return
  43. 200 data"[212]itle [211]creen for [203]ing of the [202]umble"
  44. 202 data"or [196]akota [202]im [204]eaps onto a [215]ild [208]un
  45. 210 [131]"(NULL)icture by (NULL)evin lenloud
  46. 220 data"[212]he music is"
  47. 230 data"[211]panish [196]ances for [212]wo [199]uitars
  48. 240 [131]"composed by valnrique chr$ranados
  49. 250 data"[211][201][196] [214]ersion by [196]ave [205]arquis
  50. 10000 d[178][194](186):n$[178]"0:star":[159]15,d,15,"s"[170]n$:[160]15:[148]n$,d:[128]
  51.