home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 20 / 020.d81 / jukebox (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  65 lines
  1. 10 rem top of loadstar jukebox
  2. 15 ifi<>2thenprint"[147]";:poke53280,0:poke53281,0
  3. 16 ifi=2then20
  4. 17 print"[204][207][193][196][211][212][193][210][160]retrospective jukebox"
  5. 18 print"     [204][207][193][196][211][212][193][210][160]is not public domain.
  6. 19 [153]"   (NULL)lease respect the author's rights.":i[178]2:[129]dl[178]1[164]2000:[130]
  7. 20 [139]sl[178]1[167]35
  8. 30 sl[178]1:[147]"sidirq v3",8,1
  9. 35 [139] lf[178]1[167]225
  10. 40 [153]"load";:[151]53280,0:[151]53281,0
  11. 42 [153]"load";:[151]53280,0:[151]53281,0
  12. 45 [141] 600
  13. 50 [153]"load(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) retrospective jukebox":a[178]0
  14. 60 [153]:[153]"lenhoose by letter."
  15. 70 [153]
  16. 80 [129]cc[178]1[164]17
  17. 82 [153][199](cc[170]64)" = "[200](t$(cc),26):[130]
  18. 85 [153]"r = atnll"
  19. 170 [153]"s = valxit"
  20. 180 [151] 49161,0:hi[178]49162:s[178]54272:nf[178]0
  21. 190 [153]
  22. 198 [151]19,32:[151]53280,[187](1)[172]15
  23. 200 [153]" wait<--(NULL)hich?";
  24. 201 [161]k$:[139]k$[178]""[167]201
  25. 202 k[178][198](k$)[171]64:[139]k[179]0[176]k[177]19[167]198
  26. 203 [153]""k$;
  27. 210 [139]k[178]18[167]a[178]1:[141]9000:[137]50
  28. 211 [139]k[178]19[167] 63000
  29. 220 lf[178]1:[147]pn$(k),8,1
  30. 225 [151]hi,ad(k)[173]256:[151]s[170]24,15:[151]56325,t(k):[158]49152:[141]500:[139]k$[178]"0"[167]230
  31. 226 [139]nf[178]1[167]9012
  32. 230 [139] k[179][177]0[167][140]:[137]50
  33. 240 [137]10000
  34. 500 [153][200]("",k[170]4);"";[200](t$(k),26)
  35. 503 [153]"         (NULL)ress space to move on.":[151]198,0
  36. 506 [153]"         atnrrow keys change tempo.";
  37. 507 ti$[178]"000000"
  38. 508 ss[178]t(k):[151]56325,ss
  39. 510 [161]k$:[139]k$[178]" "[167]519
  40. 512 [139]k$[178]"s"[167][158]49155:[141]520:[137]50
  41. 514 [139]a[178]1[167][139]ti[177]ti(k)[167]520
  42. 515 [139] k$[178]""[176]k$[178]"on"[167]ss[178]ss[171]1:[139]ss[179]12[167]ss[178]12
  43. 516 [139]k$[178]"cmd"[176]k$[178]""[167]ss[178]ss[170]1:[139]ss[177]255[167]ss[178]255
  44. 517 [151]56325,ss
  45. 518 [137] 510
  46. 519 k[178]k[170]1
  47. 520 [151]56325,66:[158]49155:[151]s[170]24,0:[129]c[178]0[164]23:[151]s[170]c,0:[130]:[142]
  48. 600 [143]read that file
  49. 640 :
  50. 650 f$[178]"juke.music"
  51. 660 [159]2,8,2,f$:[134]t$(26),pn$(26),ad(26),t(26),ti(26)
  52. 670 [129] rf [178] 1 [164] 17:[132]2,t$(rf),pn$(rf),ad(rf),t(rf),ti(rf)
  53. 680 [130] rf:[160]2
  54. 700 [142]
  55. 800 :
  56. 9000 nf[178]1:k[178]1:x[178]0
  57. 9012 x[178]x[170]1:[139]x[177]17[167]50
  58. 9013 k[178]x:[137]220
  59. 9115 [142]
  60. 63000 [153]"load(NULL)uit for sure? <y/n>close";
  61. 63010 [161]k$:[139]k$[178]""[167]63010
  62. 63020 [139]k$[179][177]"y"[167][139]k$[179][177]"n"[167][151]53280,[187](1)[172]15:[137]63010
  63. 63030 [139]k$[178]"n"[167]50
  64. 63999 [147]"hello connect",8
  65.