home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 19 / 019.d81 / jukebox (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  976b  |  45 lines
  1. 0 ifl=0thenl=1:load"bload.o",8,1
  2. 1 sys828,32768,"q&d player 32768"
  3. 2 sys828,51456,"unpacker"
  4. 3 goto1000
  5. 10 rem load subroutine
  6. 11 v$=p$(rnd(1)*4+1)
  7. 20 v=24576
  8. 30 sys828,v,v$
  9. 31 poke249,224:poke250,204
  10. 32 poke251,0:poke252,96
  11. 33 poke253,0:poke254,0
  12. 34 sys51456
  13. 35 sys51459
  14. 40 v$=v$(rnd(1)*4+1)
  15. 50 v=32771
  16. 60 sys828,v,v$
  17. 70 v$=d$(rnd(1)*10+1)
  18. 80 v=8192
  19. 90 sys828,v,v$
  20. 100 poke253,0:poke254,32:sys32768
  21. 150 if peek(198)=0then200
  22. 160 if peek(198)<>0thengetk$
  23. 170 ifk$="c"then300
  24. 200 return
  25. 300 sys51459:load"hello connect",8
  26. 400 end
  27. 1000 restore
  28. 1001 print"[158]":poke53281,0:poke53280,0
  29. 1002 print"[147]"spc(11)"[195]hristmas [202]ukebox"
  30. 1003 print:printspc(11)"by [202]ames [215]. [194]lack"
  31. 1004 print:printspc(11)"and [202]ames [215]eiler"
  32. 1005 dimv$(20),p$(20),d$(20)
  33. 1010 forc=1to4:readv$(c):next
  34. 1020 forc=1to4:readp$(c):next
  35. 1030 forc=1to10:readd$(c):next
  36. 1040 gosub10
  37. 1045 sys51459
  38. 1050 run1000
  39. 10000 datav.orgoletta,v.banjo,v.flutes,v.violins
  40. 20000 datahap.hol.shp,bells.shp,merry.shp,seas.grt.shp
  41. 30000 datad.home for holid,d.silver bells
  42. 30010 datad.santa claus,d.what child,d.o christmas
  43. 30020 datad.christian men,d.let it snow
  44. 30030 datad.deck the halls,d.frosty the sno,d.toyland
  45.