home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 229 / 229.d81 / star (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  68 lines
  1. 1 dv=peek(186):ifdv<8thendv=8
  2. 5 poke32767,13:poke53371,0
  3. 6 poke65534,1:rem s-key on
  4. 10 poke53281,0:poke53280,0:print"[147][159]":ifpeek(653)=0thengosub100
  5. 11 tq=ti:poke198,0:ifpeek(653)=0thengosub1000:goto13
  6. 12 poke53280,11:poke53281,11:goto50
  7. 13 sys57812"unpacker.89",dv,0:poke780,0:poke781,0:poke782,201:sys65493
  8. 14 sys57812"intro.shp",dv,0:poke780,0:poke781,0:poke782,32:sys65493
  9. 15 sys57812"multi ls spr",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  10. 16 poke251,32:poke252,224:poke253,204
  11. 18 poke53280,0:print"[147]":sys51456:sys51459
  12. 19 l$="12345678":v=53248:fori=0to9
  13. 20 x1(i)=134+26*i:y2(i)=190
  14. 21 x2(i,0)=x1(i)-8:x2(i,1)=134+26*i
  15. 22 next:pokev+21,0:fori=0to7:poke53240+i,i:pokev+39+i,0:next
  16. 23 pokev+29,0:pokev+23,0:pokev+27,0:pokev+28,255:pokev+37,2
  17. 24 fori=0to10:z(i)=val(mid$(l$,i+1,1)):next
  18. 25 pokev+16,224:fori=0to10:ifz(i)=0then27
  19. 26 pokev+(z(i)-1)*2,(x2(i,-(n>5))and255):pokev+1+(z(i)-1)*2,y2(i)
  20. 27 next:pokev+21,255
  21. 28 tq=ti+240::poke198,0:j=0:poke53370,0
  22. 30 ifti>tqorpeek(198)>0then40
  23. 31 j=1-j:fori=0to7:pokev+39+i,7-6*j:next:goto30
  24. 32 stop
  25. 40 poke198,0:pokev+21,0
  26. 50 rem  sys57812"mr.mouse 2+ 1000",dv:poke780,0:poke781,0:poke782,16:sys65493
  27. 51 rem bl=4096+54:b0=4096+177
  28. 60 rem sysb0,"features",dv,96*256
  29. 61 rem sysbl,"frodo.ml",dv,41*256
  30. 62 rem sysbl,"music",dv,106*256
  31. 97 rem  poke53280,0:poke53281,0
  32. 98 poke198,0
  33. 99 poke157,0:load"presenter",dv
  34. 100 print"[158][147]        [215]elcome to [204][207][193][196][211][212][193][210] 229
  35. 105 [129]i[178]0[164]9:[135]b$(i):[130]
  36. 110 [151]214,1:[153]
  37. 120 [129]i[178]0[164]9:[153]
  38. 130 [153][163]20[171](([195](b$(i))[173]2)))b$(i)
  39. 140 [130]:[143]:print"":stop
  40. 150 [142]
  41. 300 [131]"
  42. 301 data" [212]ripod
  43. 303 [131]" list(NULL)icture by
  44. 304 data" [211]tephen [202]. [210]obertson
  45. 305 [131]"
  46. 306 data" [155][212]he music is
  47. 307 [131]" (NULL)akety (NULL)ax
  48. 308 data"  [155]by [210]andolph and [210]ich
  49. 309 [131]" list(NULL)ranscribed by
  50. 310 data" [196]ave [211]chmoldt
  51. 1000 [158]57812"sam",dv:[151]780,0:[151]781,0:[151]782,149:[158]65493
  52. 1002 [158]57812"reciter",dv:[151]780,0:[151]781,0:[151]782,125:[158]65493
  53. 1004 [151]53270,8
  54. 1006 [151]39440,10:[151]39439,40
  55. 1009 [151]214,22:[153]"for"
  56. 1010 [129]x[178]1[164]3:[135]sa$
  57. 1012 [135]a$:[153][163]20[171][195](a$)[173]2)a$:[158]39430:[130]
  58. 1014 [151]53271,0:[142]
  59. 1018 [131]"lode star two twenty nine"
  60. 1019 [131]"(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) 229"
  61. 1020 [131] "it aint over
  62. 1021 data"[145][201]t ain't over
  63. 1022 [131]"until its over
  64. 1023 data"[145][213]ntil it's over!
  65. 9999 [128]
  66. 10000 dv[178][194](186):[159]15,dv,15,"s0:star":[160]15:[148]"star",dv:[128]
  67. 60000 [137]10000
  68.