home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 71 / 071.d81 / star (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1.9 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]":gosub1000
  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. 21 v=53248
  13. 22 fori=0to9
  14. 23 x1(i)=134+26*i:y2(i)=220
  15. 24 x2(i,0)=x1(i)-8
  16. 25 x2(i,1)=134+26*i
  17. 26 next
  18. 27 pokev+21,0
  19. 28 fori=0to7:poke53240+i,i:pokev+39+i,0: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,224
  25. 34 fori=0to10
  26. 35 ifz(i)=0then37
  27. 36 pokev+(z(i)-1)*2,(x2(i,-(n>5))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. 70 geta$:ifa$=""and(ti<tq+250)then41
  33. 80 poke198,0:poke53371,0
  34. 82 pokev+21,0
  35. 90 poke157,0:load"presenter",dv
  36. 100 goto10000
  37. 110 poke214,2:print
  38. 120 fori=1to7:print:ifi=4thenprint"[155]"
  39. 130 printtab(20-((len(b$(i))/2)))b$(i)
  40. 140 next
  41. 150 return
  42. 200 data"[194]ullwinkle at [211]unset
  43. 202 [131]"or (NULL)oose on the (NULL)oose"
  44. 210 [131]"(NULL)icture by (NULL)alt left$arned
  45. 220 data"[212]he music is"
  46. 230 data"[193]uld [204]ang [211]yne
  47. 240 [131]"atn (NULL)raditional (NULL)une
  48. 250 data"[212]ranscribed by [195]orky [195]ochran
  49. 1000 [153]"loadsys   (NULL)(NULL)valatn(NULL)val str$(NULL) (NULL)(NULL)(NULL) (NULL)atn(NULL)val right$(NULL)(NULL)valchr$atn(NULL) len(NULL)(NULL)right$val(NULL)"
  50. 1010 [153]"           (NULL)asc (NULL)left$right$(NULL) (NULL)(NULL)asc(NULL)(NULL)atn(NULL)val"
  51. 1020 [153]"open   (NULL)his software is protected by federal";
  52. 1030 [153]"copyright law.  lenopying software for any";
  53. 1040 [153]"reason other than to make a backup is a
  54. 1050 print"violation of law.  [201]ndividuals who make
  55. 1060 [153]"unauthorized copies of software may be
  56. 1070 print"subject to civil and criminal penalties."
  57. 1090 print"[153]        [211][207][198][212][196][201][211][203] [208][213][194][204][201][211][200][201][206][199], [201][206][195].,"
  58. 1100 print"[159]as a member of the [211]oftware [208]ublishers
  59. 1110 [153]"atnssociation ((NULL)(NULL)atn), supports the
  60. 1120 print"industry's effort to fight the illegal
  61. 1130 [153]"copying of personal computer software.
  62. 1140 print"[158]     [210]eport copyright violations to:
  63. 1145 [153]"     (NULL)oftware (NULL)ublishers atnssociation"
  64. 1150 [153]"   1101 lenonnecticut atnve, (NULL)(NULL), (NULL)uite 901
  65. 1160 print"           [215]ashington, [196][195] 20036":return
  66. 10000 d=peek(186):n$="0:star":open15,d,15,"s"+n$:close15:saven$,d:end
  67.