home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 228 / 228.d81 / star (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  59 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"revdave.shp",dv,0:poke780,0:poke781,0:poke782,32:sys65493
  9. 16 poke251,32:poke252,224:poke253,204
  10. 18 poke53280,00:print"[147]":sys51456:sys51459
  11. 19 sys57812"intro.shp",dv,0:poke780,0:poke781,0:poke782,32:sys65493
  12. 20 t=ti+180:forx=0to1:x=-(ti>t):next
  13. 21 poke53281,0:sys51459
  14. 22 poke214,10:print:printtab(10)"[217]ou [206]ever [203]now...":t=ti+180:forx=0to1:x=-(ti>t):next
  15. 23 poke251,32:poke252,224:poke253,204
  16. 24 sys51456:sys51459
  17. 28 tq=ti+300::poke198,0:j=0:poke53370,0
  18. 30 ifpeek(v+1)<40orti>tqorpeek(198)>0then40
  19. 31 goto30
  20. 32 stop
  21. 40 poke198,0:pokev+21,0
  22. 50 rem
  23. 98 poke198,0
  24. 99 poke157,0:load"presenter",dv
  25. 100 print"[158][147]        [215]elcome to [204][207][193][196][211][212][193][210] 228
  26. 105 [129]i[178]0[164]9:[135]b$(i):[130]
  27. 110 [151]214,1:[153]
  28. 120 [129]i[178]0[164]9:[153]
  29. 130 [153][163]20[171](([195](b$(i))[173]2)))b$(i)
  30. 140 [130]:[143]:print"":stop
  31. 150 [142]
  32. 300 [131]"
  33. 301 data" [212]he [198]aces of [217]our [197]ditor"
  34. 302 data"
  35. 303 [131]"  listchr$odoted by str$ave (NULL)oorman"
  36. 305 [131]"
  37. 306 data" [155][212]he music is"
  38. 307 data" [198]inale, [211]onata [207]pus 7 [206]o. 1"
  39. 308 data"  [155]by [201]gnatz [202]oseph [208]leyel
  40. 309 [131]
  41. 310 [131]"  list(NULL)ranscribed by str$ave (NULL)arquis"
  42. 1000 [137]2000
  43. 1001 c0[178][194](151):c1[178][194](253)
  44. 1002 [158]57812"play",dv,0:[151]780,0:[151]781,0:[151]782,192:[158]65493
  45. 1003 [158]49155"welcome.vox",dv
  46. 1010 [151]151,0:[151]253,12
  47. 1020 [151]214,22:[153]"for":[135]a1$,b1$
  48. 1030 [153][163]19[171][195](a1$)[173]2)a1$
  49. 1040 [153][163]19[171][195](b1$)[173]2)b1$;
  50. 1050 [158]49152
  51. 1051 [151]151,c0:[151]253,c1
  52. 1055 [142]
  53. 1060 [131]"(NULL)elcome to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)!"
  54. 1061 [131]"(NULL)his is str$ave (NULL)oorman"
  55. 2000 t[178]ti[170]240:[129]x[178][171]1[164]0:x[178]ti[179]t:[130]:[142]
  56. 9999 [128]
  57. 10000 dv[178][194](186):[159]15,dv,15,"s0:star":[160]15:[148]"star",dv:[128]
  58. 60000 [137]10000
  59.